1 2 3 4 5
-- { dg-do compile } package Attribute_Parsing is I : constant Integer := 12345; S : constant String := I'Img (1 .. 2); end Attribute_Parsing;