Fix accidental mishap on testcase.

From-SVN: r164259
This commit is contained in:
Olivier Hainque 2010-09-13 21:44:26 +00:00
parent 5c9bf75299
commit 10d58e6b56

View File

@ -12,19 +12,4 @@ exception
when others => null;
end;
-- { dg-final { scan-assembler "__gnat_begin_handler" } }
-- { dg-do compile }
-- { dg-options "-O2" }
with System;
procedure Memtrap is
X : integer;
for X'address use System.Null_Address;
begin
X := 12;
exception
when others => null;
end;
-- { dg-final { scan-assembler "__gnat_begin_handler|__gnat_raise_nodefer" } }