diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/typebound_proc_14.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/typebound_proc_14.f03 | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_14.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_14.f03 new file mode 100644 index 00000000000..766a0ef66c1 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/typebound_proc_14.f03 @@ -0,0 +1,33 @@ +! { 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 + +! { dg-final { cleanup-modules "m" } } |