2 ! PR26423 Large file I
/O error related
to buffering
3 ! Test case derived from case by Dale Ranta
.
4 ! Submitted by Jerry DeLisle
<jvdelisle@gcc
.gnu
.org
>
5 integer :: a
(3000) , b
(2048)
21 if (a
(3000).ne
.1234) STOP 5
22 if (b
(2048).ne
.5678) STOP 6
23 close
(2, status
='delete')