! { dg-do run } | |
! PR 44292 Large RECL= | |
program large_recl | |
implicit none | |
integer(kind=8) :: r | |
open(10, status="scratch", recl=12345678901_8, form="unformatted", access="direct") | |
inquire(10, recl=r) | |
close(10, status="delete") | |
if (r /= 12345678901_8) then | |
STOP 1 | |
end if | |
end program large_recl |