diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-11-27 21:22:00 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-11-27 21:22:00 +0000 |
| commit | 829e645b3f98e0728f42b32c58781db981b1efc1 (patch) | |
| tree | bca22cd0e1ea3d937908ad8a944a820c59ea004e /gcc | |
| parent | 2dd27dfdc571b29b6dd139babeea8d063e6dcc32 (diff) | |
| download | gcc-829e645b3f98e0728f42b32c58781db981b1efc1.tar.gz | |
2010-11-27 Tobias Burnus <burnus@net-b.de>
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/transfer_simplify_10.f90 | 10 |
2 files changed, 14 insertions, 2 deletions
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 <burnus@net-b.de> + + PR fortran/46638 + PR fortran/46668 + * gfortran.dg/transfer_simplify_10.f90: Fix endian issue. + 2010-11-27 Nicola Pero <nicola.pero@meta-innovation.com> 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 |