From 8e1c3891ceb6f0f9c42f348691cd54ae8957dacb Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Tue, 16 Aug 2005 21:30:32 +0000 Subject: [PATCH] re PR libfortran/23428 (inquire(iolength= ) for complex give incorrect value) 2005-08-16 Thomas Koenig PR libfortran/23428 * gfortran.dg/inquire-complex.f90: Correct mangled testcase. From-SVN: r103173 --- gcc/testsuite/gfortran.dg/inquire-complex.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/gfortran.dg/inquire-complex.f90 b/gcc/testsuite/gfortran.dg/inquire-complex.f90 index 188c932084c..40d08d4ebb1 100644 --- 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 -- 2.30.2