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 " }
49 ! { dg-final { cleanup-modules "qtest qtestpriv" } }