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