reflect: canonicalize types returned by StructOf() and friends

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr61775.f90

! { dg-do run }
! PR fortran/61775.f90
program pi
   real, allocatable :: x(:)
   integer :: n
   n  = 10000
   x = [ (i,i=1,n) ]
   if (x(n) /= 10000) stop 1
end program pi