Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/streamio_10.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! PR25093 Stream IO test 10 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>. ! Test case derived from that given in PR by Steve Kargl. program stream_io_10 implicit none integer(kind=4) :: a(4), b(4) integer(kind=8) :: thepos a = (/ 1, 2, 3, 4 /) b = a open(10, file="teststream_streamio_10", access="stream") write(10) a inquire(10, pos=thepos) if (thepos.ne.17) STOP 1 read(10, pos=1) inquire(10, pos=thepos) if (thepos.ne.1) STOP 2 write(10, pos=15) inquire(10, pos=thepos) if (thepos.ne.15) STOP 3 read(10, pos=3) inquire(10, pos=thepos) if (thepos.ne.3) STOP 4 write(10, pos=1) inquire(10, pos=thepos) if (thepos.ne.1) STOP 5 a = 0 read(10) a if (any(a /= b)) STOP 6 close(10, status="delete") end program stream_io_10