| 1 | suite "runtime/future" |
| 2 | |
| 3 | case "io_internal" |
| 4 | source "../../../test_programs/future/io_internal.f90" |
| 5 | armfortas => ir, run |
| 6 | expect run.stdout check-comments |
| 7 | xfail "Internal I/O support is not complete on this branch yet." |
| 8 | end |
| 9 | |
| 10 | case "io_backspace" |
| 11 | source "../../../test_programs/future/io_backspace.f90" |
| 12 | armfortas => ir, run |
| 13 | expect run.stdout check-comments |
| 14 | xfail "BACKSPACE is modeled as a known failing runtime gap until file-positioning support lands." |
| 15 | end |
| 16 | |
| 17 | case "io_direct_access" |
| 18 | source "../../../test_programs/future/io_direct_access.f90" |
| 19 | armfortas => ir, run |
| 20 | expect run.stdout check-comments |
| 21 | xfail "Direct-access file I/O is modeled as a known failing gap until direct records are implemented." |
| 22 | end |
| 23 |