2005-12-17 Steven G. Kargl <kargls@comcast.net>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / imag_1.f

diff --git a/gcc/testsuite/gfortran.dg/imag_1.f b/gcc/testsuite/gfortran.dg/imag_1.f
index 66155ae..e8af92d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/imag_1.f
+++ b/gcc/testsuite/gfortran.dg/imag_1.f
@@ -1,7 +1,7 @@
 ! { dg-do compile }
       program bug
       implicit none
-      double complex z
+      complex(kind=8) z
       double precision x,y
       z = cmplx(1.e0_8,2.e0_8)
       y = imag(z)