! { dg-do compile } | |
! PR fortran/78719 | |
! Code contributed by Gerhard Steinmetz | |
program p | |
type t | |
integer :: n | |
end type | |
real :: g | |
abstract interface | |
subroutine h | |
end | |
end interface | |
procedure(h), pointer :: s | |
s => f | |
call s | |
s => g ! { dg-error "Invalid procedure pointer" } | |
call s | |
contains | |
subroutine f | |
end | |
subroutine g ! { dg-error "has an explicit interface" } | |
end | |
end program p ! { dg-error "Syntax error" } |