2 ! PR80741 wrong code causes incorrect behaviour of namelist READ
4 use, intrinsic :: iso_fortran_env
, only
: iostat_end
6 integer :: x
, y
, ios
, io
14 open(unit
=io
, status
='scratch')
21 if (x
.ne
.10 .or
. y
.ne
.10) STOP 1
24 if (line
.ne
.'done') STOP 2
26 read(io
, *, iostat
=ios
) line
27 if (ios
/=iostat_end
) STOP 3
32 if (x
.ne
.10 .or
. y
.ne
.10) STOP 4
33 read(io
, *, iostat
=ios
) line
34 if (line
.ne
.'done') STOP 5