1 files changed, 18 insertions, 0 deletions
diff --git a/test/regression/check-pragmas b/test/regression/check-pragmas
new file mode 100755
index 0000000..404d687
--- /dev/null
+++ b/test/regression/check-pragmas
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+$sect = 'none';
+
+while(<>) {
+    if (/^	(\.(text|data|sdata|sbss|sdata2))/) {
+        $sect = $1;
+    }
+    if (/^	(\.section.*)/) {
+        $sect = $1;
+    }
+    if (/([A-Za-z_][A-Za-z0-9_]*):/) {
+        printf ("%32s: %s\n", $1, $sect);
+    }
+    if (/([A-Za-z_][A-Za-z0-9_]*)\)?\@sda/) {
+        printf ("%32s: short reference\n", $1);
+    }
+}