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