gcc/testsuite/gnat.dg/ext1.ads


1
2
3
4
5
6
7
8
9
10
11
12

package ext1 is
    type I_Smiley is interface;
    procedure Set_Mood (Obj : out I_Smiley) is abstract;
--      
    type Smiley (Max : Positive) is abstract new I_Smiley with record
       S : String (1 .. Max);
    end record; 
--      
    type Regular_Smiley is new Smiley (3) with null record; 
    overriding
    procedure Set_Mood (Obj : out Regular_Smiley);
end ext1;