diff options
author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-08-16 21:30:32 +0000 |
---|---|---|
committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-08-16 21:30:32 +0000 |
commit | 9baa97997a4c4daa1b124bfdbb99a2f8a1f3ec36 (patch) | |
tree | 2e916b7a05bd5e8bcd3ff478339b466bbe8b92b2 | |
parent | 8185f617afa2f21e1804beb04998d40e87bdc19c (diff) |
2005-08-16 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/23428
* gfortran.dg/inquire-complex.f90: Correct mangled testcase.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103173 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/testsuite/gfortran.dg/inquire-complex.f90 | 3 |
1 files changed, 2 insertions, 1 deletions
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 |