summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/interface4.adb
blob: 8dde602c3899c9d1691871cf49c97cd061ff00c7 (plain)
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;