diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2005-08-16 21:30:32 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2005-08-16 21:30:32 +0000 |
| commit | 8e1c3891ceb6f0f9c42f348691cd54ae8957dacb (patch) | |
| tree | 2e916b7a05bd5e8bcd3ff478339b466bbe8b92b2 | |
| parent | 950ad21d343bd853bc6355adf8a36ca642e9b759 (diff) | |
| download | gcc-8e1c3891ceb6f0f9c42f348691cd54ae8957dacb.zip gcc-8e1c3891ceb6f0f9c42f348691cd54ae8957dacb.tar.gz gcc-8e1c3891ceb6f0f9c42f348691cd54ae8957dacb.tar.bz2 | |
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
| -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 188c932..40d08d4 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 |