1! { dg-do compile }
2!
3! PR 40117: [OOP][F2008] Type-bound procedure: allow list after PROCEDURE
4!
5! Contributed by Janus Weil <janus@gcc.gnu.org>
6
7module m
8
9implicit none
10
11type :: t
12contains
13  procedure :: foo, bar, baz
14end type
15
16contains
17
18  subroutine foo (this)
19    class(t) :: this
20  end subroutine
21
22  real function bar (this)
23    class(t) :: this
24  end function
25
26  subroutine baz (this, par)
27    class(t) :: this
28    integer :: par
29  end subroutine
30
31end
32