diff options
Diffstat (limited to 'gcc')
| -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 |