diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 new file mode 100644 index 000000000..29f44a7dd --- /dev/null +++ b/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 @@ -0,0 +1,14 @@ +! pr 14762 - '/' not working in format + INTEGER N(5) + DATA N/1,2,3,4,5/ + OPEN(UNIT=7) + 100 FORMAT(I4) + WRITE(7,100)N + CLOSE(7) + OPEN(7) + 200 FORMAT(I4,///I4) + READ(7,200)I,J + CLOSE(7, STATUS='DELETE') + IF (I.NE.1) CALL ABORT + IF (J.NE.4) CALL ABORT + END |