3 ! PR 59654: [4.8/4.9 Regression] [OOP] Broken function table with complex OO use case
5 ! Contributed by Thomas Clune <Thomas.L.Clune@nasa.gov>
14 procedure
, nopass
:: getNumRun
20 class (TestResult
) :: this
21 this
%numRun
= this
%numRun
+ 1
24 subroutine getNumRun()
30 module BaseTestRunner_mod
33 type :: BaseTestRunner
35 procedure
, nopass
:: norun
40 function norun () result(result
)
41 use TestResult_mod
, only
: TestResult
42 type (TestResult
) :: result
49 use BaseTestRunner_mod
, only
: BaseTestRunner
55 use TestRunner_mod
, only
: BaseTestRunner
56 use TestResult_mod
, only
: TestResult
59 type (TestResult
) :: result
65 subroutine runtest (result
)
66 use TestResult_mod
, only
: TestResult
67 class (TestResult
) :: result
69 if (result
%numRun
/= 1) call abort()
74 ! { dg-final { cleanup-modules "TestResult_mod BaseTestRunner_mod TestRunner_mod" } }