summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/large_recl.f90
blob: 736e7909b9acab66c6655245588e4bac4456a78b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
! { 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