Commit 10d58e6b by Olivier Hainque

Fix accidental mishap on testcase.

From-SVN: r164259
parent 5c9bf752
......@@ -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" } }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment