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