gcc/testsuite/gfortran.dg/double_complex_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "--std=f95" }
   3 ! PR18565
   4 ! As we provide "double complex" versions of certain intrinsics an extension.
   5 ! However --std=f95 was also breaking the generic versions, which should work
   6 ! on any type kind.
   7 program prog
   8   complex(kind=kind(0d0)) :: c
   9   print *, abs(c)
  10   print *, aimag(c)
  11   print *, conjg(c)
  12   print *, cos(c)
  13   print *, exp(c)
  14   print *, log(c)
  15   print *, sin(c)
  16   print *, sqrt(c)
  17 end program
  18