! { dg-do compile }
! PR fortran/91564
! Contributed by Gerhard Steinmetz.
program p
   integer i, j
   call kill (1, 2, 3)        ! { dg-error "shall be an INTENT" }
   i = 42
   call bar(i, j)
end

subroutine bar(n, m)
   integer, intent(in) :: n
   integer, intent(inout) :: m
   call kill (1, 3, n)        ! { dg-error "shall be an INTENT" }
   call kill (1, 3, m)
end subroutine bar