PR libfortran/23262
[official-gcc.git] / gcc / testsuite / gfortran.dg / double_complex_1.f90
blobfc925a4f99a21d39b85f2139a9df81cfe58d0b25
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