re PR fortran/33818 (Bogus error "Variable 'str' is used at (1) before the ENTRY...