gcc/testsuite/gnat.dg/interface4.adb


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

--  { dg-do compile }

procedure interface4 is
     generic
       type I1 is interface;
       type I2 is limited interface;
       type I3 is interface and I1;
       type I4 is limited interface and I2;
     package Pack_I is
     end Pack_I;
begin
     null;
end interface4;