projects / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 950ad21)
re PR libfortran/23428 (inquire(iolength= ) for complex give incorrect value)
authorThomas Koenig <tkoenig@gcc.gnu.org>
Tue, 16 Aug 2005 21:30:32 +0000 (21:30 +0000)
committerThomas Koenig <tkoenig@gcc.gnu.org>
Tue, 16 Aug 2005 21:30:32 +0000 (21:30 +0000)
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 patch | blob | history

diff --git a/gcc/testsuite/gfortran.dg/inquire-complex.f90 b/gcc/testsuite/gfortran.dg/inquire-complex.f90
index 188c932084c951655f8825e0848c67920ec056ff..40d08d4ebb138eb1d5de60fc66394e44b7ef6cd8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/inquire-complex.f90
+++ b/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