gcc/testsuite/gfortran.dg/pr77960.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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