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