gcc/testsuite/gfortran.dg/eof_4.f90

   1 ! { dg-do run }
   2 ! PR55818 Reading a REAL from a file which doesn't end in a new line fails
   3 ! Test case from PR reporter.
   4 implicit none
   5 integer :: stat
   6 !integer :: var ! << works
   7 real    :: var ! << fails
   8 character(len=10)    :: cvar ! << fails
   9 complex :: cval
  10 logical :: lvar
  11
  12 open(99, file="test.dat", access="stream", form="unformatted", status="new")
  13 write(99) "1", new_line("")
  14 write(99) "2", new_line("")
  15 write(99) "3"
  16 close(99)
  17
  18 ! Test character kind
  19 open(99, file="test.dat")
  20 read (99,*, iostat=stat) cvar
  21 if (stat /= 0 .or. cvar /= "1") STOP 1
  22 read (99,*, iostat=stat) cvar
  23 if (stat /= 0 .or. cvar /= "2") STOP 2
  24 read (99,*, iostat=stat) cvar              ! << FAILS: stat /= 0
  25 if (stat /= 0 .or. cvar /= "3") STOP 3 ! << aborts here
  26
  27 ! Test real kind
  28 rewind(99)
  29 read (99,*, iostat=stat) var
  30 if (stat /= 0 .or. var /= 1.0) STOP 4
  31 read (99,*, iostat=stat) var
  32 if (stat /= 0 .or. var /= 2.0) STOP 5
  33 read (99,*, iostat=stat) var ! << FAILS: stat /= 0
  34 if (stat /= 0 .or. var /= 3.0) STOP 6
  35 close(99, status="delete")
  36
  37 ! Test real kind with exponents
  38 open(99, file="test.dat", access="stream", form="unformatted", status="new")
  39 write(99) "1.0e3", new_line("")
  40 write(99) "2.0e-03", new_line("")
  41 write(99) "3.0e2"
  42 close(99)
  43
  44 open(99, file="test.dat")
  45 read (99,*, iostat=stat) var
  46 if (stat /= 0) STOP 7
  47 read (99,*, iostat=stat) var
  48 if (stat /= 0) STOP 8
  49 read (99,*) var ! << FAILS: stat /= 0
  50 if (stat /= 0) STOP 9
  51 close(99, status="delete")
  52
  53 ! Test logical kind
  54 open(99, file="test.dat", access="stream", form="unformatted", status="new")
  55 write(99) "Tru", new_line("")
  56 write(99) "fal", new_line("")
  57 write(99) "t"
  58 close(99)
  59
  60 open(99, file="test.dat")
  61 read (99,*, iostat=stat) lvar
  62 if (stat /= 0 .or. (.not.lvar)) STOP 10
  63 read (99,*, iostat=stat) lvar
  64 if (stat /= 0 .or. lvar) STOP 11
  65 read (99,*) lvar ! << FAILS: stat /= 0
  66 if (stat /= 0 .or. (.not.lvar)) STOP 12
  67 close(99, status="delete")
  68
  69 ! Test combinations of Inf and Nan
  70 open(99, file="test.dat", access="stream", form="unformatted", status="new")
  71 write(99) "infinity", new_line("")
  72 write(99) "nan", new_line("")
  73 write(99) "infinity"
  74 close(99)
  75
  76 open(99, file="test.dat")
  77 read (99,*, iostat=stat) var
  78 if (stat /= 0) STOP 13
  79 read (99,*, iostat=stat) var
  80 if (stat /= 0) STOP 14
  81 read (99,*) var          ! << FAILS: stat /= 0
  82 if (stat /= 0) STOP 1! << aborts here
  83 close(99, status="delete")
  84
  85 open(99, file="test.dat", access="stream", form="unformatted", status="new")
  86 write(99) "infinity", new_line("")
  87 write(99) "inf", new_line("")
  88 write(99) "nan"
  89 close(99)
  90
  91 open(99, file="test.dat")
  92 read (99,*, iostat=stat) var
  93 if (stat /= 0) STOP 15
  94 read (99,*, iostat=stat) var
  95 if (stat /= 0) STOP 16
  96 read (99,*) var          ! << FAILS: stat /= 0
  97 if (stat /= 0) STOP 2! << aborts here
  98 close(99, status="delete")
  99
 100 open(99, file="test.dat", access="stream", form="unformatted", status="new")
 101 write(99) "infinity", new_line("")
 102 write(99) "nan", new_line("")
 103 write(99) "inf"
 104 close(99)
 105
 106 open(99, file="test.dat")
 107 read (99,*, iostat=stat) var
 108 if (stat /= 0) STOP 17
 109 read (99,*, iostat=stat) var
 110 if (stat /= 0) STOP 18
 111 read (99,*) var          ! << FAILS: stat /= 0
 112 if (stat /= 0) STOP 3! << aborts here
 113 close(99, status="delete")
 114
 115 ! Test complex kind
 116 open(99, file="test.dat", access="stream", form="unformatted", status="new")
 117 write(99) "(1,2)", new_line("")
 118 write(99) "(2,3)", new_line("")
 119 write(99) "(4,5)"
 120 close(99)
 121
 122 open(99, file="test.dat")
 123 read (99,*, iostat=stat) cval
 124 if (stat /= 0 .or. cval /= cmplx(1,2)) STOP 19
 125 read (99,*, iostat=stat) cval
 126 if (stat /= 0 .or. cval /= cmplx(2,3)) STOP 20
 127 read (99,*, iostat=stat) cval      ! << FAILS: stat /= 0, value is okay
 128 if (stat /= 0 .or. cval /= cmplx(4,5)) STOP 21
 129 close(99, status="delete")
 130 end