[Bug fortran/119157] ice in gfc_enforce_clean_symbol_state, at fortran/symbol.cc:4459

[tkoenig at gcc dot gnu.org]

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

--- Comment #5 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Reduced test case:

MODULE lmdif_module
   CONTAINS
      SUBROUTINE fdjac2 (fcn, m, n, x, fvec, fjac, ldfjac, iflag,       &
      epsfcn, wa)
      END SUBROUTINE fdjac2
      SUBROUTINE lmdif (fcn, m, n, x, fvec, ftol, xtol, gtol, maxfev,   &
      ipvt, qtf, wa1, wa2, wa3, wa4)
      EXTERNAL fcn
      DOUBLEPRECISION actred, delta, dirder, epsmch, fnorm, fnorm1,     &
      sum, temp, temp1, temp2, xnorm, zero
      IF (nprint.gt.0) call fcn (m, n, x, fvec, iflag)
      END SUBROUTINE lmdif
END MODULE