1--  { dg-do compile }
2--  { dg-options "-gnatc" }
3
4package 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;
20end Prot6;
21