AArch64: correct constraint on Upl early clobber alternatives

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

! { dg-do compile }
! PR fortran/77960
   procedure(g), pointer :: f
   f => g
   read(99) f                 ! { dg-error "Expecting variable" }
contains
   function g() result(z)
      integer :: z(2)
      z = 1
   end
end

subroutine bar(x)
   integer, external :: x
   read(*,*) x                ! { dg-error "Expecting variable" }
end subroutine