gcc/testsuite/gnat.dg/prot6.adb

   1 --  { dg-do compile }
   2 --  { dg-options "-gnatc" }
   3
   4 package body Prot6 is
   5
   6    protected body My_Type is
   7
   8       procedure Set (D : Integer) is
   9       begin
  10          I := D;
  11       end Set;
  12
  13       function Get return Integer is
  14       begin
  15          return I;
  16       end Get;
  17    end My_Type;
  18
  19    procedure Dummy is null;
  20 end Prot6;