1 files changed, 76 insertions, 0 deletions
diff --git a/libctf/testsuite/libctf-regression/nonstatic-var-section-ld.c b/libctf/testsuite/libctf-regression/nonstatic-var-section-ld.c
new file mode 100644
index 0000000..4e3a748
--- /dev/null
+++ b/libctf/testsuite/libctf-regression/nonstatic-var-section-ld.c
@@ -0,0 +1,76 @@
+#include <ctf-api.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+int
+main (int argc, char *argv[])
+{
+  ctf_dict_t *fp;
+  ctf_archive_t *ctf;
+  ctf_id_t foo_type, bar_type, sym_type;
+  int found_foo = 0, found_bar = 0;
+  ctf_next_t *i = NULL;
+  const char *name;
+  int err;
+
+  if (argc != 2)
+    {
+      fprintf (stderr, "Syntax: %s PROGRAM\n", argv[0]);
+      exit(1);
+    }
+
+  if ((ctf = ctf_open (argv[1], NULL, &err)) == NULL)
+    goto open_err;
+
+  if ((fp = ctf_dict_open (ctf, NULL, &err)) == NULL)
+    goto open_err;
+
+  /* Make sure we can look up only 'foo' as a variable: bar, being nonstatic,
+     should have been erased.  */
+
+  if ((foo_type = ctf_lookup_variable (fp, "foo")) == CTF_ERR)
+    printf ("Cannot look up foo\n", ctf_errmsg (ctf_errno (fp)));
+  else
+    printf ("foo is of type %lx\n", foo_type);
+
+  if ((bar_type = ctf_lookup_variable (fp, "bar")) == CTF_ERR)
+    printf ("Cannot look up bar\n", ctf_errmsg (ctf_errno (fp)));
+  else
+    printf ("bar is of type %lx\n", bar_type);
+
+  /* Traverse the entire data object section and make sure it contains an entry
+     for bar alone.  (This is pure laziness: the section is small and
+     ctf_lookup_by_symbol_name does not yet exist.)  */
+  while ((sym_type = ctf_symbol_next (fp, &i, &name, 0)) != CTF_ERR)
+    {
+      if (!name)
+	continue;
+
+      if (strcmp (name, "foo") == 0)
+	{
+	  found_foo = 1;
+	  printf ("Found foo in data object section with type %lx, "
+		  "but it is static\n", sym_type);
+	}
+      if (strcmp (name, "bar") == 0)
+	found_bar = 1;
+    }
+  if (ctf_errno (fp) != ECTF_NEXT_END)
+    fprintf (stderr, "Unexpected error iterating over symbols: %s\n",
+	     ctf_errmsg (ctf_errno (fp)));
+
+  if (!found_foo)
+    printf ("foo missing from the data object section\n");
+  if (!found_bar)
+    printf ("bar missing from the data object section\n");
+
+  ctf_dict_close (fp);
+  ctf_close (ctf);
+
+  return 0;
+
+ open_err:
+  fprintf (stderr, "%s: cannot open: %s\n", argv[0], ctf_errmsg (err));
+  return 1;
+}