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