diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/slash_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/slash_1.f90 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/slash_1.f90 b/gcc/testsuite/gfortran.dg/slash_1.f90 new file mode 100644 index 000000000..d4a59a31a --- /dev/null +++ b/gcc/testsuite/gfortran.dg/slash_1.f90 @@ -0,0 +1,13 @@ +! PR libfortran/22170 +! { dg-do run } + integer i + open (10,status='scratch') + write (10,'(A,2/,A)') '12', '17' + rewind (10) + read (10,'(I2)') i + if (i /= 12) call abort + read (10,'(I2)') i + if (i /= 0) call abort + read (10,'(I2)') i + if (i /= 17) call abort + end |