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