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