diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/fmt_read.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_read.f90 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/fmt_read.f90 b/gcc/testsuite/gfortran.dg/fmt_read.f90 new file mode 100644 index 000000000..3b33946a5 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_read.f90 @@ -0,0 +1,11 @@ +! { dg-do run } +! pr18398, missing data on sequential formatted reads +! test contributed by Thomas.Koenig@online.de + open(7,status='scratch') + write (7,'(F12.5)') 1.0, 2.0, 3.0 + rewind(7) + read(7,'(F15.5)') a,b +! note the read format is wider than the write + if (abs(a-1.0) .gt. 1e-5) call abort + if (abs(b-2.0) .gt. 1e-5) call abort + end |