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

From-SVN: r81846

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index a57c207abfe10dfe295cd311bc63417526cadcdf..bae4efda1b2fc6fcbfc979075c48983784c99322 100644 (file)
--- 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 fc5afbfcc5da6e2b0cd1dcd9a4e5b29b12e52881..c13e0579585f98a5792e80e9c4e86566490848ac 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;