[Bug fortran/66681] [Coarray] Wrong result in assigning this_image() to a complex coarray

[gscfq@t-online.de]

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

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

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

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

Update, with option -finit-local-zero or -finit-real :


$ cat pr66681.f90
   complex a[*]
   a = this_image()
end


$ cat z1.f90
program p
   complex :: a[*]
   a = 1.0
end


$ cat z2.f90
program p
   real :: a[*]
   a = 1.0
end


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

    1 |    complex a[*]
      |
internal compiler error: in fold_convert_loc, at fold-const.c:2426
0x960e24 fold_convert_loc(unsigned int, tree_node*, tree_node*)
        ../../gcc/fold-const.c:2425
0x725654 gfc_trans_scalar_assign(gfc_se*, gfc_se*, gfc_typespec, bool, bool,
bool)
        ../../gcc/fortran/trans-expr.c:9101
0x737c9d gfc_trans_assignment_1
        ../../gcc/fortran/trans-expr.c:10449
0x6e7c15 trans_code
        ../../gcc/fortran/trans.c:1837
0x71d18d gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6509
0x69a8b6 translate_all_program_units
        ../../gcc/fortran/parse.c:6125
0x69a8b6 gfc_parse_file()
        ../../gcc/fortran/parse.c:6328
0x6e3eef gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204