Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/streamio_10.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +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