Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/direct_io_8.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 } ! PR 34594 - this used to give runtime errors due to an ! end condition. program main implicit none integer :: iou, i, ir, TEMP_CHANGES i=44 ir = -42 open(11,file="foo_direct_io_8.dat") ! Try a direct access read on a formatted sequential rile READ (11, REC = I, ERR = 99) TEMP_CHANGES STOP 1 99 continue ! Variant 2: ir is ok, but does not jump to 99 READ (11, REC = I, IOSTAT = IR, ERR = 98) TEMP_CHANGES STOP 2 98 continue if(ir == 0) then STOP 3 end if close(11,status="delete") end program main