Disable hacky C test with non-C99 GCC

Author: sethrj

Examples/test-suite/fortran/ccomplextest_runme.F90

@@ -8,17 +8,27 @@ program ccomplextest_runme
   implicit none
   complex(C_FLOAT_COMPLEX) :: cflt
   complex(C_DOUBLE_COMPLEX) :: cdbl 
+  logical :: do_test = .false.
+
+  ! Older compilers just wrap the calls, but the C code fails
+  if (has_c99_complex() == 1) do_test = .true.
 
   cflt = (1, 3) ! 1 + 3i
   cflt = Conjf(cflt)
-  ASSERT(cflt == (1, -3))
+  if (do_test) then
+      ASSERT(cflt == (1, -3))
+  endif
 
   cdbl = (4.0000000001d0, 1d0)
-  ASSERT(Conj(cdbl) == (4.0000000001d0, -1d0))
+  if (do_test) then
+      ASSERT(Conj(cdbl) == (4.0000000001d0, -1d0))
+  endif
 
   cdbl = (4, 5)
   cdbl = Conj2(cdbl)
-  ASSERT(cdbl == (4d0, -5d0))
+  if (do_test) then
+      ASSERT(cdbl == (4d0, -5d0))
+  endif
 
 end program