From: Tobias Burnus Date: Sat, 27 Nov 2010 21:22:00 +0000 (+0100) Subject: re PR fortran/46638 (Wrong result with TRANSFER from string to DT) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=db0bba8ca8aeb0b8b53fed0a4919886d9ddfe6ae;p=gcc.git re PR fortran/46638 (Wrong result with TRANSFER from string to DT) 2010-11-27 Tobias Burnus PR fortran/46638 PR fortran/46668 * gfortran.dg/transfer_simplify_10.f90: Fix endian issue. From-SVN: r167209 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d7cb0449c0f..ef529c918ac 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2010-11-27 Tobias Burnus + + PR fortran/46638 + PR fortran/46668 + * gfortran.dg/transfer_simplify_10.f90: Fix endian issue. + 2010-11-27 Nicola Pero PR objc++/46222 diff --git a/gcc/testsuite/gfortran.dg/transfer_simplify_10.f90 b/gcc/testsuite/gfortran.dg/transfer_simplify_10.f90 index d0c83b5ca12..3a56e65a6cc 100644 --- a/gcc/testsuite/gfortran.dg/transfer_simplify_10.f90 +++ b/gcc/testsuite/gfortran.dg/transfer_simplify_10.f90 @@ -17,11 +17,17 @@ program test5 type(CPUID_TYPE) result result = transfer(achar(10)//achar(0)//achar(0)//achar(0)//'GenuineIntel'//'abcd',result) - if ( int(z'0000000A') /= result%eax & + 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 + .or. int(z'64636261') /= result%bbb) & + .and. & ! Big endian + ( int(z'0A000000') /= result%eax & + .or. int(z'47656E75') /= result%ebx & + .or. int(z'696E6549') /= result%edx & + .or. int(z'6E74656C') /= result%ecx & + .or. int(z'61626364') /= result%bbb)) then write(*,'(5(z8.8:1x))') result call abort() end if