133 lines
3.7 KiB
Fortran
133 lines
3.7 KiB
Fortran
! { 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
|