gcc/testsuite/gfortran.dg/large_recl.f90

   1 ! { dg-do run }
   2 ! PR 44292 Large RECL=
   3 program large_recl
   4   implicit none
   5   integer(kind=8) :: r
   6   open(10, status="scratch", recl=12345678901_8, form="unformatted", access="direct")
   7   inquire(10, recl=r)
   8   close(10, status="delete")
   9   if (r /= 12345678901_8) then
  10      call abort()
  11   end if
  12 end program large_recl