[Bug fortran/70817] Internal compiler error coarrays -finit-real=snan

[gscfq@t-online.de]

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

G. Steinmetz <gscfq@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |gscfq@t-online.de

--- Comment #2 from G. Steinmetz <gscfq@t-online.de> ---

Related to pr66681, with option -finit-local-zero or -finit-real :


$ cat z1.f90
program f
   real, parameter :: zero = 0.0
   real :: p[*]
   p = zero
end program


$ cat z2.f90
program f
   real :: p[*]
   p = 0.0
end


$ gfortran-9-20181125 -c z1.f90 -fcoarray=lib
$
$ gfortran-9-20181125 -c z1.f90 -fcoarray=lib -finit-local-zero
z1.f90:3:0:

    3 |    real :: p[*]
      |
internal compiler error: in fold_convert_loc, at fold-const.c:2426
0x8ab5f7 fold_convert_loc(unsigned int, tree_node*, tree_node*)
        ../../gcc/fold-const.c:2425
0x6ee4b5 gfc_trans_scalar_assign(gfc_se*, gfc_se*, gfc_typespec, bool, bool,
bool)
        ../../gcc/fortran/trans-expr.c:9063
0x6fe7ed gfc_trans_assignment_1
        ../../gcc/fortran/trans-expr.c:10449
0x6c1135 trans_code
        ../../gcc/fortran/trans.c:1837
0x6e88d4 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6509
0x675026 translate_all_program_units
        ../../gcc/fortran/parse.c:6125
0x675026 gfc_parse_file()
        ../../gcc/fortran/parse.c:6328
0x6bdaff gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204