| ! { dg-do run } |
| !TODO: Move these testcases to gfortran testsuite |
| ! once compilation with pthreads is supported there |
| ! PR55818 Reading a REAL from a file which doesn't end in a new line fails |
| ! Test case from PR reporter. |
| implicit none |
| integer :: stat |
| !integer :: var ! << works |
| real :: var ! << fails |
| character(len=10) :: cvar ! << fails |
| complex :: cval |
| logical :: lvar |
| |
| open(99, file="test.dat", access="stream", form="unformatted", status="new") |
| write(99) "1", new_line("") |
| write(99) "2", new_line("") |
| write(99) "3" |
| close(99) |
| |
| ! Test character kind |
| open(99, file="test.dat") |
| read (99,*, iostat=stat) cvar |
| if (stat /= 0 .or. cvar /= "1") stop 1 |
| read (99,*, iostat=stat) cvar |
| if (stat /= 0 .or. cvar /= "2") stop 2 |
| read (99,*, iostat=stat) cvar ! << FAILS: stat /= 0 |
| if (stat /= 0 .or. cvar /= "3") stop 3 ! << aborts here |
| |
| ! Test real kind |
| rewind(99) |
| read (99,*, iostat=stat) var |
| if (stat /= 0 .or. var /= 1.0) stop 4 |
| read (99,*, iostat=stat) var |
| if (stat /= 0 .or. var /= 2.0) stop 5 |
| read (99,*, iostat=stat) var ! << FAILS: stat /= 0 |
| if (stat /= 0 .or. var /= 3.0) stop 6 |
| close(99, status="delete") |
| |
| ! Test real kind with exponents |
| open(99, file="test.dat", access="stream", form="unformatted", status="new") |
| write(99) "1.0e3", new_line("") |
| write(99) "2.0e-03", new_line("") |
| write(99) "3.0e2" |
| close(99) |
| |
| open(99, file="test.dat") |
| read (99,*, iostat=stat) var |
| if (stat /= 0) stop 7 |
| read (99,*, iostat=stat) var |
| if (stat /= 0) stop 8 |
| read (99,*) var ! << FAILS: stat /= 0 |
| if (stat /= 0) stop 9 |
| close(99, status="delete") |
| |
| ! Test logical kind |
| open(99, file="test.dat", access="stream", form="unformatted", status="new") |
| write(99) "Tru", new_line("") |
| write(99) "fal", new_line("") |
| write(99) "t" |
| close(99) |
| |
| open(99, file="test.dat") |
| read (99,*, iostat=stat) lvar |
| if (stat /= 0 .or. (.not.lvar)) stop 10 |
| read (99,*, iostat=stat) lvar |
| if (stat /= 0 .or. lvar) stop 11 |
| read (99,*) lvar ! << FAILS: stat /= 0 |
| if (stat /= 0 .or. (.not.lvar)) stop 12 |
| close(99, status="delete") |
| |
| ! Test combinations of Inf and Nan |
| open(99, file="test.dat", access="stream", form="unformatted", status="new") |
| write(99) "infinity", new_line("") |
| write(99) "nan", new_line("") |
| write(99) "infinity" |
| close(99) |
| |
| open(99, file="test.dat") |
| read (99,*, iostat=stat) var |
| if (stat /= 0) stop 13 |
| read (99,*, iostat=stat) var |
| if (stat /= 0) stop 14 |
| read (99,*) var ! << FAILS: stat /= 0 |
| if (stat /= 0) stop 1! << aborts here |
| close(99, status="delete") |
| |
| open(99, file="test.dat", access="stream", form="unformatted", status="new") |
| write(99) "infinity", new_line("") |
| write(99) "inf", new_line("") |
| write(99) "nan" |
| close(99) |
| |
| open(99, file="test.dat") |
| read (99,*, iostat=stat) var |
| if (stat /= 0) stop 15 |
| read (99,*, iostat=stat) var |
| if (stat /= 0) stop 16 |
| read (99,*) var ! << FAILS: stat /= 0 |
| if (stat /= 0) stop 2! << aborts here |
| close(99, status="delete") |
| |
| open(99, file="test.dat", access="stream", form="unformatted", status="new") |
| write(99) "infinity", new_line("") |
| write(99) "nan", new_line("") |
| write(99) "inf" |
| close(99) |
| |
| open(99, file="test.dat") |
| read (99,*, iostat=stat) var |
| if (stat /= 0) stop 17 |
| read (99,*, iostat=stat) var |
| if (stat /= 0) stop 18 |
| read (99,*) var ! << FAILS: stat /= 0 |
| if (stat /= 0) stop 3! << aborts here |
| close(99, status="delete") |
| |
| ! Test complex kind |
| open(99, file="test.dat", access="stream", form="unformatted", status="new") |
| write(99) "(1,2)", new_line("") |
| write(99) "(2,3)", new_line("") |
| write(99) "(4,5)" |
| close(99) |
| |
| open(99, file="test.dat") |
| read (99,*, iostat=stat) cval |
| if (stat /= 0 .or. cval /= cmplx(1,2)) stop 19 |
| read (99,*, iostat=stat) cval |
| if (stat /= 0 .or. cval /= cmplx(2,3)) stop 20 |
| read (99,*, iostat=stat) cval ! << FAILS: stat /= 0, value is okay |
| if (stat /= 0 .or. cval /= cmplx(4,5)) stop 21 |
| close(99, status="delete") |
| end |