This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/27633] New: Fortran accesses char array as integer
- From: "hjl at lucon dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 16 May 2006 21:54:51 -0000
- Subject: [Bug fortran/27633] New: Fortran accesses char array as integer
- Reply-to: gcc-bugzilla at gcc dot gnu 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