[Bug fortran/27633] New: Fortran accesses char array as integer

[hjl at lucon dot org]

I got unaligned access on ia64 for

gcc/testsuite/gfortran.dg/transfer_array_intrinsic_2.f90

For

     96    subroutine test3 (ch1, ch2, ch3, clen)
     97      integer clen
     98      character(8) :: ch1(:)
     99      character(*) :: ch2(2)
    100      character(clen) :: ch3(2)
    101      character(8) :: cntrl(2) = (/"lmnoPQRS","LMNOpqrs"/)
    102      integer(8) :: ic(2)
    103      ic = transfer (cntrl, ic)

Gfortran generates code like

(insn 1785 1391 2163 80
/net/gnu-13/export/gnu/src/gcc-4.1/gcc/gcc/testsuite/gfortran.dg/transfer_array_intrinsic_2.f90:103
(set (reg/f:DI 14 r14 [orig:406 D.2542 ] [406])
        (plus:DI (high:DI (symbol_ref:DI ("cntrl.1064") [flags 0x2] <var_decl
0x200000000361da20 cntrl>))
            (reg:DI 1 r1))) 76 {*load_symptr_high} (nil)
    (nil))
...
(insn 1786 2163 2164 80
/net/gnu-13/export/gnu/src/gcc-4.1/gcc/gcc/testsuite/gfortran.dg/transfer_array_intrinsic_2.f90:103
(set (reg/f:DI 14 r14 [orig:406 D.2542 ] [406])
        (lo_sum:DI (reg/f:DI 14 r14 [orig:406 D.2542 ] [406])
            (symbol_ref:DI ("cntrl.1064") [flags 0x2] <var_decl
0x200000000361da20 cntrl>))) 77 {*load_symptr_low} (nil)
    (nil))
...
(insn 1395 2164 2165 80
/net/gnu-13/export/gnu/src/gcc-4.1/gcc/gcc/testsuite/gfortran.dg/transfer_array_intrinsic_2.f90:103
(set (reg:DI 15 r15 [1139])
        (mem/s/j:DI (post_inc:DI (reg/f:DI 14 r14 [orig:406 D.2542 ] [406])) [0
S8 A64])) 5 {*movdi_internal} (insn_list:REG_DEP_TRUE 1392 (nil))
    (expr_list:REG_INC (reg/f:DI 14 r14 [orig:406 D.2542 ] [406])
        (nil)))

So cntrl is read as 64bit integer.


-- 
           Summary: Fortran accesses char array as integer
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: hjl at lucon dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27633