From: Tobias Burnus Date: Sat, 27 Nov 2010 21:27:49 +0000 (+0100) Subject: re PR fortran/46638 (Wrong result with TRANSFER from string to DT) X-Git-Tag: releases/gcc-4.4.6~251 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4eb7eae23cab25fd11135109f150c9eadbf3ffa3;p=thirdparty%2Fgcc.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: r167211 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e5244fc17fc4..4b0956fcdeaa 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-25 Tobias Burnus PR fortran/46638 diff --git a/gcc/testsuite/gfortran.dg/transfer_simplify_10.f90 b/gcc/testsuite/gfortran.dg/transfer_simplify_10.f90 index d0c83b5ca129..3a56e65a6cc2 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