[Bug fortran/125650] ice in gfc_conv_expr_op, at fortran/trans-expr.cc:4390

[anlauf at gcc dot gnu.org]

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

--- Comment #2 from Harald Anlauf <anlauf at gcc dot gnu.org> ---
(In reply to Steve Kargl from comment #1)
> Looks like it's fixed on 16.0.1 and 17.0
> 
> % gfcx -o z o4.f90 && ./z
>  pass
> % gfc16 -o z o4.f90 && ./z
>  pass
> % gfc15 -o z o4.f90 && ./z
> o4.f90:30:9:
> 
>    30 |       if(cc(3:5) .eq. 'acc') then
>       |         1
> internal compiler error: in gfc_conv_expr_op, at fortran/trans-expr.cc:4293
> 0x2232ada internal_error(char const*, ...)
> 
> Note, I could have a too old 15.2.1
> % gfc15 --version
> GNU Fortran (GCC) 15.2.1 20260424

Hmm, fails here with 17.0, 16.0, and all earlier version I have down to 13.

Replacing

ASSOCIATE(aa => arg1 , bb => arg2 , cc => arg1 + arg2)

by

ASSOCIATE(aa => arg1 , bb => arg2 , cc => contt(arg1,arg2))

fixes the ICE.