Fix accidental mishap on testcase.
From-SVN: r164259
This commit is contained in:
parent
5c9bf75299
commit
10d58e6b56
@ -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" } }
|
||||
|
Loading…
Reference in New Issue
Block a user