[Bug fortran/69604] ICE in gfc_add_modify_loc, at fortran/trans.c:159

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #9 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
Update, using fresh new release  gfortran-6 --version
GNU Fortran (SUSE Linux) 6.1.0 20160427 [gcc-6-branch revision 235475]


The error message has changed :

$ gfortran-6 -c z1.f90
internal compiler error: in conv_function_val, at fortran/trans-expr.c:3683

$ gfortran-6 -c z2.f90
internal compiler error: in conv_function_val, at fortran/trans-expr.c:3683

$ gfortran-6 -fcoarray=single -c z4.f90
$ gfortran-6 -fcoarray=lib -c z4.f90
# NO error now


As noted in comment 2, the error message depends on configuration,
still differs for --enable-checking=release and --enable-checking=yes.


---

And for the following examples there seems to be no ICEs for many
different combinations of compile options. Only one problem remaining
with -fcoarray=lib and -finit-real. For example -finit-real=zero :


$ gfortran-6 -fcoarray=single -finit-real=zero -c z4.f90
# NO error

$ gfortran-6 -fcoarray=lib -finit-real=zero -c z4.f90
internal compiler error: in fold_convert_loc, at fold-const.c:2256


$ gfortran-6 -fcoarray=lib -finit-real=zero -c z5_harald_anlauf.f90
internal compiler error: in fold_convert_loc, at fold-const.c:2256

$ gfortran-6 -fcoarray=lib -finit-real=zero -c z6_harald_anlauf.f90
internal compiler error: in fold_convert_loc, at fold-const.c:2256

$ gfortran-6 -fcoarray=lib -finit-real=zero -c z8_harald_anlauf.f90
internal compiler error: in fold_convert_loc, at fold-const.c:2256


---

Running some examples, with suboptimal results :


$ gfortran-6 -fcoarray=single z6_harald_anlauf_print_z.f90
$ a.out
 ( -4.75674592E-16,  1.53246000E-41)


$ gfortran-6 -fcoarray=single z8_harald_anlauf.f90
$ a.out
 (  42.0000000    ,  0.00000000    )   42.0000000
 (  42.0000000    ,  0.00000000    )   42.0000000
 (  1.00000000    ,  0.00000000    )   2.00000000
 (  1.00000000    ,  0.00000000    )   2.00000000
 (  1.00000000    ,  0.00000000    ) (  1.54857493E-41, -9.79143559E+14)
   2.00000000       2.00000000     (  1.54857493E-41, -9.79143559E+14)