diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2021-12-16 15:33:17 +0100 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2021-12-16 17:46:28 +0100 |
| commit | c14f38d4292ec22462a4080841d526f87428130a (patch) | |
| tree | b8381f8fd9f6a968bd2d4f181be97af81739c761 /gcc | |
| parent | 3f624a624a137860e080fc959d7467a76aab263d (diff) | |
| download | gcc-c14f38d4292ec22462a4080841d526f87428130a.zip gcc-c14f38d4292ec22462a4080841d526f87428130a.tar.gz gcc-c14f38d4292ec22462a4080841d526f87428130a.tar.bz2 | |
Fix FLUSH IOSTAT value
PR libfortran/101255
libgfortran/ChangeLog:
* io/file_pos.c: Fix error code.
gcc/testsuite/ChangeLog:
* gfortran.dg/iostat_5.f90: New file.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/iostat_5.f90 | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/iostat_5.f90 b/gcc/testsuite/gfortran.dg/iostat_5.f90 new file mode 100644 index 0000000..1e72dfd --- /dev/null +++ b/gcc/testsuite/gfortran.dg/iostat_5.f90 @@ -0,0 +1,16 @@ +! PR libfortran/101255 +! { dg-do run } + +program test + use ISO_FORTRAN_ENV, only: IOSTAT_EOR, IOSTAT_END + implicit none + character(len=50) :: err + integer :: i + + err = "" + flush(99, iostat=i, iomsg=err) + + if (err == "") stop 1 + if (i >= 0) stop 2 + if (i == IOSTAT_EOR .or. i == IOSTAT_END) stop 3 +end |