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.
7program 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)
17end program
18
19