gcc/testsuite/gfortran.dg/typebound_call_23.f03

   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
   7 module 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
  18 contains
  19
  20   subroutine Evaluate ()
  21   end subroutine
  22
  23  subroutine Solve
  24    type ( SolverType ) :: S
  25    call S % Equation % Evaluate ()
  26  end subroutine
  27
  28 end module