mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
9 lines
293 B
Fortran
9 lines
293 B
Fortran
! { dg-do run { target fd_truncate } }
|
|
! pr44477 ENDFILE not allowed after ENDFILE
|
|
!-------------------------------------------
|
|
open(10, form='formatted', &
|
|
action='write', position='rewind', status="scratch")
|
|
endfile(10)
|
|
endfile(10) ! { dg-shouldfail "Cannot perform ENDFILE" }
|
|
end
|