1-- PR middle-end/35823 2-- { dg-do compile ] 3 4procedure Size_Attribute (Arg : in String) is 5 Size : constant Natural := Arg'Size; 6begin 7 null; 8end; 9