PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / array18.adb
blob54c7744cca9208fffa5bfe25dc72dea3e9cd9cad
1 -- { dg-do compile }
3 with Array18_Pkg; use Array18_Pkg;
5 procedure Array18 is
6 A : String (1 .. 1);
7 begin
8 A := F;
9 end;