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