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