5 ! Contributed by Andrew Baldwin
13 generic
, public
:: getx
=> gimmex
28 procedure
:: gimmexPriv
29 generic
, private
:: getxPriv
=> gimmexPriv
32 function gimmexPriv(foo
)
33 class (foobarPriv
) :: foo
36 end function gimmexPriv
43 type (foobarPriv
) :: fooPriv
46 bar
= fooPriv
%getxPriv() ! { dg-error " is PRIVATE " }