OSDN Git Service

PR fortran/23516
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / imag_2.f
1 ! { dg-do compile }
2 ! { dg-options "-std=f95" }
3       program bug
4       implicit none
5       double complex z
6       double precision x
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" "" }
14       end
15