gcc/testsuite/gnat.dg/specs/limited1.ads


1
2
3
4
5
6
7
8
9
10

--  { dg-do compile }

package limited1 is
   pragma Pure;
   
   type Buffer is limited interface;
   type Synchronous_Buffer_Type is synchronized interface and Buffer;

private
end limited1;