| ! { dg-do compile } | |
| ! | |
| ! PR 46952: [OOP] Spurious "recursive call" error with type bound procedure | |
| ! | |
| ! Contributed by Ian Harvey <ian_harvey@bigpond.com> | |
| module m | |
| type, abstract :: t | |
| contains | |
| procedure(inter), pass, deferred :: foo | |
| end type | |
| contains | |
| subroutine inter(this) | |
| class(t) :: this | |
| call this%foo() | |
| end subroutine inter | |
| end module m |