1 2 3 4 5 6 7 8 9 10 11
-- { dg-do compile } -- { dg-options "-gnatws" } package Rep_Clause2 is type S is new String; for S'Component_Size use 256; type T is new S(1..8); end Rep_Clause2;