Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/write_check3.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
4 program us_recl 4 program us_recl
5 real, dimension(5) :: array = 5.4321 5 real, dimension(5) :: array = 5.4321
6 integer :: istatus 6 integer :: istatus
7 open(unit=10, form="unformatted", access="sequential", RECL=16) 7 open(unit=10, form="unformatted", access="sequential", RECL=16)
8 write(10, iostat=istatus) array 8 write(10, iostat=istatus) array
9 if (istatus == 0) call abort() 9 if (istatus == 0) STOP 1
10 close(10, status="delete") 10 close(10, status="delete")
11 end program us_recl 11 end program us_recl