re PR libfortran/23428 (inquire(iolength= ) for complex give incorrect value)

2005-08-16  Thomas Koenig  <Thomas.Koenig@online.de>

	PR libfortran/23428
	* gfortran.dg/inquire-complex.f90:  Correct mangled testcase.

From-SVN: r103173

gcc/testsuite/gfortran.dg/inquire-complex.f90

@@ -7,7 +7,8 @@ program main
   complex(kind=8) c8
   complex(kind=4) c4
   
-  inquire (iolength=s) c8
+  inquire (iolength=s4) c4
+  inquire (iolength=s8) c8
   if (s4 /= 8 .or. s8 /= 16) call abort
 
 end program main