From: burnus Date: Sat, 27 Nov 2010 21:22:00 +0000 (+0000) Subject: 2010-11-27 Tobias Burnus X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=829e645b3f98e0728f42b32c58781db981b1efc1;p=thirdparty%2Fgcc.git 2010-11-27 Tobias Burnus PR fortran/46638 PR fortran/46668 * gfortran.dg/transfer_simplify_10.f90: Fix endian issue. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@167209 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d7cb0449c0fe..ef529c918ac7 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 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