summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/return1.ads
blob: 6948fdabcf0bcf176aae1e4dba69fda3767301cb (plain)
1
2
3
4
5
6
7
package return1 is
    type Base is abstract tagged null record;
    type Child is new Base with record
       Anon_Access : access Base'Class;
    end record;
    function X_Func (O : access Child) return access Base'Class;
end return1;