URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [endfile_2.f90] - Rev 581
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run }
! pr18778 abort on endfile without opening unit
program test
implicit none
integer i
endfile(8)
rewind(8)
read(8,end=0023)i
call abort ! should never get here
stop
0023 continue
close(8,status='delete')
end
Go to most recent revision | Compare with Previous | Blame | View Log