1! { dg-do compile }
2!
3! PR 54147: [F03] Interface checks for PPCs & deferred TBPs
4!
5! Contributed by Janus Weil <janus@gcc.gnu.org>
6
7  interface gen
8    procedure gen
9  end interface
10
11  type t1
12    procedure(gen),pointer,nopass  :: p1
13    procedure(gen2),pointer,nopass :: p2  ! { dg-error "may not be generic" }
14  end type
15
16  type t2
17    procedure(sf),pointer,nopass   :: p3  ! { dg-error "may not be a statement function" }
18  end type
19
20  type t3
21    procedure(char),pointer,nopass :: p4  ! { dg-error "Intrinsic procedure" }
22  end type
23
24  interface gen2
25    procedure gen
26  end interface
27
28  sf(x) = x**2  ! { dg-warning "Obsolescent feature" }
29
30contains
31
32  subroutine gen
33  end subroutine
34
35end
36