blob: a4bc59a9a21431bd7e376cea096bb252a2171af9 [file] [log] [blame]
-- { dg-do compile }
-- { dg-additional-sources asan1_pkg.ads }
-- { dg-options "-fsanitize=address" }
-- { dg-skip-if "" no_fsanitize_address }
with Asan1_Pkg;
procedure Asan1 is
use Asan1_Pkg;
X, Y : E;
begin
X := C (N);
Y := V;
end Asan1;