nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git] / gcc / testsuite / gfortran.dg / imag_1.f
blobe8af92d221199af8cccd28c372a5ed0ac80f97e7
1 ! { dg-do compile }
2 program bug
3 implicit none
4 complex(kind=8) 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