Lines Matching full:procedure

8   procedure() :: a
9   procedure(integer) :: b
10   procedure(foo) :: c
11   procedure(bar) :: d
12   !ERROR: 'missing' must be an abstract interface or a procedure with an explicit interface
13   procedure(missing) :: e
14   !ERROR: 'b' must be an abstract interface or a procedure with an explicit interface
15   procedure(b) :: f
16   procedure(c) :: g
18   !ERROR: 'h' must be an abstract interface or a procedure with an explicit interface
19   procedure(h) :: i
20   procedure(forward) :: j
21   !ERROR: 'bad1' must be an abstract interface or a procedure with an explicit interface
22   procedure(bad1) :: k1
23   !ERROR: 'bad2' must be an abstract interface or a procedure with an explicit interface
24   procedure(bad2) :: k2
25   !ERROR: 'bad3' must be an abstract interface or a procedure with an explicit interface
26   procedure(bad3) :: k3
59     !ERROR: 'proc' must be an abstract interface or a procedure with an explicit interface
60     !ERROR: Procedure component 'p1' has invalid interface 'proc'
61     procedure(proc), deferred :: p1