OSDN Git Service

Fix accidental mishap on testcase.
authorhainque <hainque@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 13 Sep 2010 21:44:26 +0000 (21:44 +0000)
committerhainque <hainque@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 13 Sep 2010 21:44:26 +0000 (21:44 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164259 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/gnat.dg/memtrap.adb

index b755759..ae87e85 100644 (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" } }