1! { dg-do run } 2! PR 34594 - this used to give runtime errors due to an 3! end condition. 4program main 5 implicit none 6 integer :: iou, i, ir, TEMP_CHANGES 7 i=44 8 ir = -42 9 10 open(11,file="foo.dat") 11 ! Try a direct access read on a formatted sequential rile 12 READ (11, REC = I, ERR = 99) TEMP_CHANGES 13 call abort 1499 continue 15 ! Variant 2: ir is ok, but does not jump to 99 16 READ (11, REC = I, IOSTAT = IR, ERR = 98) TEMP_CHANGES 17 call abort 18 1998 continue 20 if(ir == 0) then 21 call abort 22 end if 23 close(11,status="delete") 24end program main 25 26