! { 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 |