[Bug fortran/101330] ICE in free_expr0(): Bad expr type

[kargl at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=101330

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
     Ever confirmed|0                           |1
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2021-07-05
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #1 from kargl at gcc dot gnu.org ---
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index 357a1e15e01..37056ac035f 100644
--- a/gcc/fortran/openmp.c
+++ b/gcc/fortran/openmp.c
@@ -1074,7 +1074,6 @@ gfc_match_iterator (gfc_namespace **ns, bool permit_var)
        }
       if (':' == gfc_peek_ascii_char ())
        {
-         step = gfc_get_expr ();
          if (gfc_match (": %e ", &step) != MATCH_YES)
            {
              gfc_free_expr (begin);