PR ipa/83051
[official-gcc.git] / gcc / testsuite / gnat.dg / aliasing3_pkg.adb
blob73c1e3e2cf3d6ef7abc53a82a3ce639f092c57ca
1 package body Aliasing3_Pkg is
3 procedure Test (A : Arr) is
4 begin
5 if A(1) /= 5 then
6 raise Program_Error;
7 end if;
8 end;
10 end Aliasing3_Pkg;