2 ! { dg-options "-std=f2003" }
4 ! PR 40117: [OOP][F2008] Type-bound procedure: allow list after PROCEDURE
6 ! Contributed by Janus Weil <janus@gcc.gnu.org>
15 procedure :: bar, baz ! { dg-error "PROCEDURE list" }
34 ! { dg-final { cleanup-modules "m" } }