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

From-SVN: r81846

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index a57c207..bae4efd 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,9 @@
 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)
        Detect bad continuation line in fixed form sources.
 

diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index fc5afbf..c13e057 100644 (file)
--- 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;