| ! { dg-do compile } | |
| ! { dg-options "-std=f2003" } | |
| ! | |
| ! 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 | |
| procedure :: bar, baz ! { dg-error "PROCEDURE list" } | |
| end type | |
| contains | |
| subroutine foo (this) | |
| class(t) :: this | |
| end subroutine | |
| subroutine bar (this) | |
| class(t) :: this | |
| end subroutine | |
| subroutine baz (this) | |
| class(t) :: this | |
| end subroutine | |
| end |