1 files changed, 54 insertions, 0 deletions
diff --git a/libctf/testsuite/libctf-regression/pptrtab.c b/libctf/testsuite/libctf-regression/pptrtab.c
new file mode 100644
index 0000000..5d3c2f2
--- /dev/null
+++ b/libctf/testsuite/libctf-regression/pptrtab.c
@@ -0,0 +1,54 @@
+#include <ctf-api.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+int
+main (int argc, char *argv[])
+{
+  ctf_dict_t *fp;
+  ctf_archive_t *ctf;
+  ctf_next_t *i = NULL;
+  ctf_id_t type;
+  const char *arcname;
+  char *type_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;
+
+  /* Make sure we can look up a_t * by name in all non-parent dicts, even though
+     the a_t * and the type it points to are in distinct dicts.  */
+
+  while ((fp = ctf_archive_next (ctf, &i, &arcname, 1, &err)) != NULL)
+    {
+      if ((type = ctf_lookup_by_name (fp, "a_t *")) == CTF_ERR)
+	goto err;
+
+      if (ctf_type_reference (fp, type) == CTF_ERR)
+	goto err;
+
+      printf ("%s: a_t * points to a type of kind %i\n", arcname,
+	      ctf_type_kind (fp, ctf_type_reference (fp, type)));
+
+      ctf_dict_close (fp);
+    }
+  if (err != ECTF_NEXT_END)
+    goto open_err;
+
+  ctf_close (ctf);
+
+  return 0;
+
+ open_err:
+  fprintf (stderr, "%s: cannot open: %s\n", argv[0], ctf_errmsg (err));
+  return 1;
+ err:
+  fprintf (stderr, "Lookup failed in %s: %s\n", arcname, ctf_errmsg (ctf_errno (fp)));
+  return 1;
+}