summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/ext1.ads
blob: db58e284abffac136a870b5cbadcf6b38d7732d6 (plain)
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;