array18.adb « gnat.dg « testsuite « gcc « gcc-4.9 - toolchain_gcc - toolchain/gcc

about summary refs log tree commit diff stats

path: root/gcc-4.9/gcc/testsuite/gnat.dg/array18.adb

blob: 54c7744cca9208fffa5bfe25dc72dea3e9cd9cad (plain)

-- { dg-do compile }

with Array18_Pkg; use Array18_Pkg;

procedure Array18 is
   A : String (1 .. 1);
begin
   A := F;
end;