3 ! PR 59143: [OOP] Bogus warning with array-valued type-bound procedure
5 ! Contributed by Jürgen Reuter <juergen.reuter@desy.de>
11 procedure
, nopass
:: d1
, d2
16 subroutine evaluate (phs
)
17 class(phs_single_t
) :: phs
18 call func1 (phs
%d1 ())
19 call func1 (phs
%d2 (2))
38 ! { dg-final { cleanup-modules "phs_single" } }