blob: c9227f400070e5da0f0d496ccd33c3a3cd129b4f (
plain)
1
2
3
4
5
6
7
8
9
10
|
! 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/))) call abort
close (99, status = 'delete')
end
|
