From 37914eaebcccfe6672dd1738df1eefa12e317910 Mon Sep 17 00:00:00 2001 From: Craig E Rasmussen Date: Wed, 12 Jan 2005 18:21:24 +0000 Subject: [PATCH] Added quad complex. This commit was SVN r3964. --- src/mpi/f90/test/print_align.f90 | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/src/mpi/f90/test/print_align.f90 b/src/mpi/f90/test/print_align.f90 index d4aa620798..60e3d4066e 100644 --- a/src/mpi/f90/test/print_align.f90 +++ b/src/mpi/f90/test/print_align.f90 @@ -66,6 +66,16 @@ module OMPI_TEST_ALIGN character c complex(selected_real_kind(15)) :: z end type + + type AlignQuadComplex + character a + complex(selected_real_kind(31)) :: w + character b + complex(selected_real_kind(31)) :: x + complex(selected_real_kind(31)) :: y + character c + complex(selected_real_kind(31)) :: z + end type end module program main @@ -76,6 +86,7 @@ program main type(AlignQuad) :: aq type(AlignComplex) :: ac type(AlignDoubleComplex) :: adc + type(AlignQuadComplex) :: aqc call align_c(ar%a, ar%w, ar%x, ar%y, ar%z) print *, "is alignment of real" @@ -87,5 +98,7 @@ program main print *, "is alignment of complex" call align_c(adc%a, adc%w, adc%x, adc%y, adc%z) print *, "is alignment of double complex" + call align_c(aqc%a, aqc%w, aqc%x, aqc%y, aqc%z) + print *, "is alignment of quad complex" end program main