mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
8 lines
238 B
Ada
8 lines
238 B
Ada
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;
|