Added quad complex.

This commit was SVN r3964.

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