blob: 59abebedd169c4bd89a9629d140fa81be7a1f4e7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
! { 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" }
|