2 ! PR 27575 and PR 30009: This test checks the error checking for end
4 ! Derived from test case in PR.
5 ! Submitted by Jerry DeLisle <jvdelisle@verizon.net>, modified by
6 ! Thomas Koenig <Thomas.Koenig@online.de>
10 open(unit=11,form='unformatted')
13 close(11,status='keep')
15 open(unit=11,form='unformatted')
17 read(11, ERR=100) i1, i2, i3
20 if (i1 /= 1 .or. i2 /= 2) call abort
22 read(11, ERR=110) i1, i2, i3
25 if (i1 /= 3 .or. i2 /= 4) call abort
29 120 close(11,status='delete')