Ignore warnings in regression tests

testsuite/gnat2goto/lib/python/test_support.py

@@ -29,6 +29,13 @@ def filter_timing(results):
 
     return re.sub(skip, r'', results)
 
+def filter_gnat2goto_errout(errout_text):
+    lines = errout_text.splitlines()
+    result = ""
+    for line in lines:
+        if not line.startswith("Warning"):
+            result += line
+    return result
 
 def process(debug, file, cbmcargs):
     """Process Ada file with gnat2goto and cbmc"""
@@ -54,7 +61,7 @@ def process(debug, file, cbmcargs):
     if stdout_text != '':
         print "Standard_Output from gnat2goto " + unit + ":"
         print stdout_text
-    if errout_text != '':
+    if filter_gnat2goto_errout(errout_text) != '':
         print "Standard_Error from gnat2goto " + unit + ":"
         print errout_text
     if g2go_results.status != 0:

testsuite/gnat2goto/tests/pragma_export/base.adb

@@ -0,0 +1,6 @@
+package body Base is
+   function Inc (Var : Integer) return Integer is
+   begin
+      return Var + 1;
+   end Inc;
+end Base;

testsuite/gnat2goto/tests/pragma_export/base.ads

@@ -0,0 +1,7 @@
+package Base is
+   function Inc (Var : Integer) return Integer;
+   pragma Export
+  (Convention    => C,
+   Entity        => Inc,
+   External_Name => "Base_Inc" );
+end Base;

testsuite/gnat2goto/tests/pragma_export/test.out

@@ -0,0 +1 @@
+VERIFICATION SUCCESSFUL

testsuite/gnat2goto/tests/pragma_export/test.py

@@ -0,0 +1,3 @@
+from test_support import *
+
+prove()