1! { dg-do compile } 2! 3! PR 52968: [OOP] Call to type-bound procedure wrongly rejected 4! 5! Contributed by Reuben Budiardja <reubendb@gmail.com> 6 7module SolverModule 8 9 type :: SolverType 10 class ( EquationTemplate ), pointer :: Equation 11 end type 12 13 type :: EquationTemplate 14 contains 15 procedure, nopass :: Evaluate 16 end type 17 18contains 19 20 subroutine Evaluate () 21 end subroutine 22 23 subroutine Solve 24 type ( SolverType ) :: S 25 call S % Equation % Evaluate () 26 end subroutine 27 28end module 29