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