1! { dg-do compile }
2! PR fortran/77960
3   procedure(g), pointer :: f
4   f => g
5   read(99) f                 ! { dg-error "Expecting variable" }
6contains
7   function g() result(z)
8      integer :: z(2)
9      z = 1
10   end
11end
12
13subroutine bar(x)
14   integer, external :: x
15   read(*,*) x                ! { dg-error "Expecting variable" }
16end subroutine
17