[AArch64] Merge stores of D-register values with different modes
[official-gcc.git] / gcc / testsuite / gfortran.dg / large_recl.f90
blob736e7909b9acab66c6655245588e4bac4456a78b
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 STOP 1
11 end if
12 end program large_recl