From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Fri, 14 May 2004 14:07:13 +0000 (+0200)
Subject: * match.c (gfc_match): Eliminate dead code.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a2f0e34d9ecd47343f8cdcc78841de15a7e5b2c0;p=gcc.git

* match.c (gfc_match): Eliminate dead code.

From-SVN: r81846
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index a57c207abfe..bae4efda1b2 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2004-05-14  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	* match.c (gfc_match): Eliminate dead code.
+
 2004-05-14  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
 	* parse.c (gfc_statement_next_fixed): (Change from Andy's tree)
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index fc5afbfcc5d..c13e0579585 100644
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -764,13 +764,6 @@ not_yes:
 	      matches++;
 	      break;		/* Skip */
 
-	    case 'I':
-	    case 'L':
-	    case 'C':
-	      if (*p++ == 'e')
-		goto undo_expr;
-	      break;
-
 	    /* Matches that don't have to be undone */
 	    case 'o':
 	    case 'l':
@@ -780,9 +773,7 @@ not_yes:
 	      break;
 
 	    case 'e':
-	    case 'E':
 	    case 'v':
-	    undo_expr:
 	      vp = va_arg (argp, void **);
 	      gfc_free_expr (*vp);
 	      *vp = NULL;