diff options
| author | Thomas Koenig <Thomas.Koenig@online.de> | 2005-08-16 20:26:04 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2005-08-16 20:26:04 +0000 |
| commit | 950ad21d343bd853bc6355adf8a36ca642e9b759 (patch) | |
| tree | b1ba39a7209647152c1aabb867d0cd7ffde560ea /gcc | |
| parent | 17b456229ec66d747ffb569508fa168f5d92cfc8 (diff) | |
| download | gcc-950ad21d343bd853bc6355adf8a36ca642e9b759.zip gcc-950ad21d343bd853bc6355adf8a36ca642e9b759.tar.gz gcc-950ad21d343bd853bc6355adf8a36ca642e9b759.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
* io/transfer.c (iolength_transfer): Remove __attribute__ ((unused))
from type. Return correct length for inquire(iolength=)
for complex variables.
2005-08-16 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/23428
* gfortran.dg/inquire-complex.f90: New test case.
From-SVN: r103168
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inquire-complex.f90 | 13 |
2 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 75ab35f..179e2dc 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-08-16 Thomas Koenig <Thomas.Koenig@online.de> + + PR libfortran/23428 + * gfortran.dg/inquire-complex.f90: New test case. + 2005-08-16 James E Wilson <wilson@specifix.com> PR tree-optimization/21105 diff --git a/gcc/testsuite/gfortran.dg/inquire-complex.f90 b/gcc/testsuite/gfortran.dg/inquire-complex.f90 new file mode 100644 index 0000000..188c932 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/inquire-complex.f90 @@ -0,0 +1,13 @@ +! { dg-do run } +! PR 23428: Inquire(iolength) used to give the wrong result. +program main + implicit none + integer s4, s8 + + complex(kind=8) c8 + complex(kind=4) c4 + + inquire (iolength=s) c8 + if (s4 /= 8 .or. s8 /= 16) call abort + +end program main |