OSDN Git Service

PR fortran/23516
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / imag_1.f
1 ! { dg-do compile }
2       program bug
3       implicit none
4       double complex z
5       double precision x,y
6       z = cmplx(1.e0_8,2.e0_8)
7       y = imag(z)
8       y = imagpart(z)
9       x = realpart(z)
10       end
11