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