1-- { dg-do compile }
2
3with Array18_Pkg; use Array18_Pkg;
4
5procedure Array18 is
6   A : String (1 .. 1);
7begin
8   A := F;
9end;
10