! { dg-do compile } | |
! | |
! PR 40117: [OOP][F2008] Type-bound procedure: allow list after PROCEDURE | |
! | |
! Contributed by Janus Weil <janus@gcc.gnu.org> | |
module m | |
implicit none | |
type :: t | |
contains | |
procedure :: foo, bar, baz | |
end type | |
contains | |
subroutine foo (this) | |
class(t) :: this | |
end subroutine | |
real function bar (this) | |
class(t) :: this | |
end function | |
subroutine baz (this, par) | |
class(t) :: this | |
integer :: par | |
end subroutine | |
end |