AArch64: correct constraint on Upl early clobber alternatives

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

! { dg-do run }
! PR fortran/87994
program p
   real, parameter :: a = 1.0
   data b /a%kind/
   if (b /= kind(a)) stop 1
end