1 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/systemtap.samples/primes.stp b/testsuite/systemtap.samples/primes.stp
new file mode 100644
index 00000000..7e7aeb37
--- /dev/null
+++ b/testsuite/systemtap.samples/primes.stp
@@ -0,0 +1,21 @@
+#! stap
+global odds, evens
+probe begin {
+  # "no" and "ne" are local integers
+  for (i=1; i<10; i++) {
+    if (i % 2) odds [no++] = i
+    else evens [ne++] = i
+  }
+  delete odds[2]
+  delete evens[3]
+  exit ()
+}
+
+probe end {
+  foreach (x+ in odds) {
+    log("odds[" . sprint(x) . "] = " . sprint(odds[x]))
+  }
+  foreach (x in evens-) {
+    log("evens[" . sprint(x) . "] = " . sprint(evens[x]))
+  }
+}