1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.dg/comp-goto-3.c b/gcc/testsuite/gcc.dg/comp-goto-3.c
new file mode 100644
index 0000000..add1861
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/comp-goto-3.c
@@ -0,0 +1,13 @@
+/* Test diagnostics for addresses of labels and computed gotos.  Test
+   with -pedantic-errors.  */
+/* Origin: Joseph Myers <joseph@codesourcery.com> */
+/* { dg-do compile } */
+/* { dg-options "-pedantic-errors" } */
+
+void
+f (void)
+{
+  void *p = &&a; /* { dg-error "error: taking the address of a label is non-standard" } */
+  goto *p; /* { dg-error "error: ISO C forbids 'goto \\*expr;'" } */
+ a: ;
+}