From e64bb70660ba27b4834be2bd74aeb5daee765ea0 Mon Sep 17 00:00:00 2001
From: Paul Eggert <eggert@gnu.org>
Date: Fri, 2 Feb 1996 17:42:40 +0000
Subject: (stmt): Warn about `goto *expr;' if pedantic.

(label): Warn about `case expr ... expr:' if pedantic.

From-SVN: r11160
---
 gcc/c-parse.in | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'gcc')

diff --git a/gcc/c-parse.in b/gcc/c-parse.in
index 044e452..41fb8aa 100644
--- a/gcc/c-parse.in
+++ b/gcc/c-parse.in
@@ -1919,7 +1919,9 @@ stmt:
 		    }
 		}
 	| GOTO '*' expr ';'
-		{ stmt_count++;
+		{ if (pedantic)
+		    pedwarn ("ANSI C forbids `goto *expr;'");
+		  stmt_count++;
 		  emit_line_note ($<filename>-1, $<lineno>0);
 		  expand_computed_goto (convert (ptr_type_node, $3)); }
 	| ';'
@@ -2018,6 +2020,8 @@ label:	  CASE expr_no_commas ':'
 		  register tree label
 		    = build_decl (LABEL_DECL, NULL_TREE, NULL_TREE);
 
+		  if (pedantic)
+		    pedwarn ("ANSI C forbids case ranges");
 		  stmt_count++;
 
 		  if (value1 != error_mark_node && value2 != error_mark_node)
-- 
cgit v1.1