| ! { dg-do compile } | |
| ! | |
| ! PR 52968: [OOP] Call to type-bound procedure wrongly rejected | |
| ! | |
| ! Contributed by Reuben Budiardja <reubendb@gmail.com> | |
| module SolverModule | |
| type :: SolverType | |
| class ( EquationTemplate ), pointer :: Equation | |
| end type | |
| type :: EquationTemplate | |
| contains | |
| procedure, nopass :: Evaluate | |
| end type | |
| contains | |
| subroutine Evaluate () | |
| end subroutine | |
| subroutine Solve | |
| type ( SolverType ) :: S | |
| call S % Equation % Evaluate () | |
| end subroutine | |
| end module |