3 ! PR 40117: [OOP][F2008] Type-bound procedure: allow list after PROCEDURE
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
13 procedure :: foo, bar, baz
22 real function bar (this)
26 subroutine baz (this, par)
33 ! { dg-final { cleanup-modules "m" } }