mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
11 lines
245 B
Fortran
11 lines
245 B
Fortran
! PR fortran/47878
|
|
! { dg-do run { target fd_truncate } }
|
|
integer :: a(5)
|
|
open (99, recl = 40)
|
|
write (99, '(5i3)') 1, 2, 3
|
|
rewind (99)
|
|
read (99, '(5i3)') a
|
|
if (any (a.ne.(/1, 2, 3, 0, 0/))) STOP 1
|
|
close (99, status = 'delete')
|
|
end
|