re PR fortran/30381 ([4.1 only] ISHFTC() constant folding is broken.)