Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/streamio_1.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! PR25828 Stream IO test 1 ! Contributed by Jerry DeLisle <jvdelisle@verizon.net>. PROGRAM stream_io_1 IMPLICIT NONE integer(kind=4) i real(kind=8) r OPEN(UNIT=11, ACCESS="stream") WRITE(11) "first" WRITE(11) "second" WRITE(11) 1234567 write(11) 3.14159_8 read(11, pos=12)i if (i.ne.1234567) call abort() read(11) r if (r-3.14159 .gt. 0.00001) call abort() CLOSE(UNIT=11, status="delete") END PROGRAM stream_io_1