2 ! { dg-options "-std=f95" }
7 z = cmplx(1.e0_8, 2.e0_8)
8 x = imag(z) ! { dg-error "has no IMPLICIT type" "" }
9 x = imagpart(z) ! { dg-error "has no IMPLICIT type" "" }
10 x = realpart(z) ! { dg-error "has no IMPLICIT type" "" }
11 x = imag(x) ! { dg-error "has no IMPLICIT type" "" }
12 x = imagpart(x) ! { dg-error "has no IMPLICIT type" "" }
13 x = realpart(x) ! { dg-error "has no IMPLICIT type" "" }