[Bug fortran/35339] Improve translation of implied do loop in transfer

[koenigni at gcc dot gnu.org]

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

Nicolas Koenig <koenigni at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
  Attachment #41419|0                           |1
        is obsolete|                            |

--- Comment #7 from Nicolas Koenig <koenigni at gcc dot gnu.org> ---
Created attachment 41420
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=41420&action=edit
Early patch for simplifying impl do loops - 2

Sorry, wrong patch _and_ wrong testcase... Still fails for mysterious reasons,
though.

gcc@dcm-linux:~/pr/35339> cat z3.f90
program main
    implicit none
    integer:: i
    integer, parameter:: k = 2
    integer, dimension(4):: a = [(i, i=1,4)]
    write (*,*) (a(k), i=1,4) 
end program
gcc@dcm-linux:~/pr/35339> gfortran -O z3.f90
z3.f90:6:0:

     write (*,*) (a(k), i=1,4)

internal compiler error: in gfc_conv_expr_descriptor, at
fortran/trans-array.c:6792
0x73175d gfc_conv_expr_descriptor(gfc_se*, gfc_expr*)
        ../../trunk/gcc/fortran/trans-array.c:6792
0x7a811b gfc_trans_transfer(gfc_code*)
        ../../trunk/gcc/fortran/trans-io.c:2581
0x71dffb trans_code
        ../../trunk/gcc/fortran/trans.c:2017
0x71e164 gfc_trans_code_cond(gfc_code*, tree_node*)
        ../../trunk/gcc/fortran/trans.c:2120
0x7c4fa2 gfc_trans_simple_do
        ../../trunk/gcc/fortran/trans-stmt.c:1942
0x7c5473 gfc_trans_do(gfc_code*, tree_node*)
        ../../trunk/gcc/fortran/trans-stmt.c:2075
0x71ddf4 trans_code
        ../../trunk/gcc/fortran/trans.c:1917
0x71e164 gfc_trans_code_cond(gfc_code*, tree_node*)
        ../../trunk/gcc/fortran/trans.c:2120
0x7a6bad build_dt
        ../../trunk/gcc/fortran/trans-io.c:2017
0x7a6c88 gfc_trans_write(gfc_code*)
        ../../trunk/gcc/fortran/trans-io.c:2056
0x71df71 trans_code
        ../../trunk/gcc/fortran/trans.c:1989
0x71e183 gfc_trans_code(gfc_code*)
        ../../trunk/gcc/fortran/trans.c:2128
0x7590ed gfc_generate_function_code(gfc_namespace*)
        ../../trunk/gcc/fortran/trans-decl.c:6332
0x71e1c7 gfc_generate_code(gfc_namespace*)
        ../../trunk/gcc/fortran/trans.c:2145
0x6b0646 translate_all_program_units
        ../../trunk/gcc/fortran/parse.c:6074
0x6b0c56 gfc_parse_file()
        ../../trunk/gcc/fortran/parse.c:6274
0x706d3f gfc_be_parse_file
        ../../trunk/gcc/fortran/f95-lang.c:204
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <https://gcc.gnu.org/bugs/> for instructions.