asan1_pkg.ads « gnat.dg « testsuite « gcc - gcc.git - Linaro gcc mirror (git://gcc.gnu.org/git/gcc.git) + linaro-local branches

index : gcc.git

Linaro gcc mirror (git://gcc.gnu.org/git/gcc.git) + linaro-local branches

about summary refs log tree commit diff

path: root/gcc/testsuite/gnat.dg/asan1_pkg.ads

blob: fbbc1c5e7f5bdcb3f7993a50c048138f3b691bfc (plain)

package Asan1_Pkg is
   subtype E is Integer;
   type T is array (1..32) of E;

   function N return T;
   function C (P : T) return E;

   V : constant E := C (N);
end Asan1_Pkg;