mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 08:10:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/46638 (Wrong result with TRANSFER from string to DT)

Browse Source 
2010-11-24  Tobias Burnus  <burnus@net-b.de>

        PR fortran/46638
        * target-memory.c (gfc_interpret_derived): Correctly handle
        component offset.

2010-11-24  Tobias Burnus  <burnus@net-b.de>

        PR fortran/46638
        * gfortran.dg/transfer_simplify_10.f90: New.

From-SVN: r167119
This commit is contained in:
Tobias Burnus 2010-11-24 17:42:06 +01:00 committed by Tobias Burnus
parent 094a14eff7
commit 6a227990f7
4 changed files with 49 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2010-11-24 Tobias Burnus <burnus@net-b.de>
PR fortran/46638
* target-memory.c (gfc_interpret_derived): Correctly handle
component offset.
2010-11-23 Tobias Burnus <burnus@net-b.de>
PR fortran/46545

11
gcc/fortran/target-memory.c
View File

@ -477,7 +477,16 @@ gfc_interpret_derived (unsigned char *buffer, size_t buffer_size, gfc_expr *resu
/* The constructor points to the component. */
c->n.component = cmp;
ptr = TREE_INT_CST_LOW (DECL_FIELD_OFFSET (cmp->backend_decl));
/* Calculate the offset, which consists of the the FIELD_OFFSET in
bytes, which appears in multiples of DECL_OFFSET_ALIGN-bit-sized,
and additional bits of FIELD_BIT_OFFSET. The code assumes that all
sizes of the components are multiples of BITS_PER_UNIT,
i.e. there are, e.g., no bit fields. */
ptr = TREE_INT_CST_LOW (DECL_FIELD_BIT_OFFSET (cmp->backend_decl));
gcc_assert (ptr % 8 == 0);
ptr = ptr/8 + TREE_INT_CST_LOW (DECL_FIELD_OFFSET (cmp->backend_decl));
gfc_target_interpret_expr (&buffer[ptr], buffer_size - ptr, e);
}

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2010-11-24 Tobias Burnus <burnus@net-b.de>
PR fortran/46638
* gfortran.dg/transfer_simplify_10.f90: New.
2010-11-24 Jakub Jelinek <jakub@redhat.com>
PR middle-end/46629

28
gcc/testsuite/gfortran.dg/transfer_simplify_10.f90 Normal file
View File

@ -0,0 +1,28 @@
! { dg-do run }
!
! PR fortran/46638
!
! Contributed by James Van Buskirk
!
program test5
use ISO_C_BINDING
implicit none
type, bind(C) :: CPUID_type
integer(C_INT32_T) eax
integer(C_INT32_T) ebx
integer(C_INT32_T) edx
integer(C_INT32_T) ecx
integer(C_INT32_T) bbb
end type CPUID_type
type(CPUID_TYPE) result
result = transfer(achar(10)//achar(0)//achar(0)//achar(0)//'GenuineIntel'//'abcd',result)
if ( int(z'0000000A') /= result%eax &
.or. int(z'756E6547') /= result%ebx &
.or. int(z'49656E69') /= result%edx &
.or. int(z'6C65746E') /= result%ecx &
.or. int(z'64636261') /= result%bbb) then
write(*,'(5(z8.8:1x))') result
call abort()
end if
end program test5