! { dg-do compile } | |
! { dg-options "-fallow-argument-mismatch -w" } | |
! PR fortran/107576 | |
! Contributed by G.Steinmetz | |
program p | |
implicit none | |
interface | |
subroutine r(y) | |
integer, pointer :: y(:) | |
end subroutine r | |
end interface | |
integer, pointer :: z(:) => null() | |
call r(z) | |
call s(z) | |
call r(null(z)) | |
call s(null(z)) ! { dg-error "requires an explicit interface" } | |
end |