Patchwork [Fortran,committed] PR 46638/46668: Fix endian issue in gfortran.dg/transfer_simplify_10.f90

login
register
mail settings
Submitter Tobias Burnus
Date Nov. 27, 2010, 9:23 p.m.
Message ID <4CF176CF.9020007@net-b.de>
Download mbox | patch
Permalink /patch/73300/
State New
Headers show

Comments

Tobias Burnus - Nov. 27, 2010, 9:23 p.m.
Committed as Rev. 167209.

Tobias

Patch

Index: gcc/testsuite/ChangeLog
===================================================================
--- gcc/testsuite/ChangeLog	(Revision 167208)
+++ gcc/testsuite/ChangeLog	(Arbeitskopie)
@@ -1,3 +1,9 @@ 
+2010-11-24  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	
Index: gcc/testsuite/gfortran.dg/transfer_simplify_10.f90
===================================================================
--- gcc/testsuite/gfortran.dg/transfer_simplify_10.f90	(Revision 167208)
+++ gcc/testsuite/gfortran.dg/transfer_simplify_10.f90	(Arbeitskopie)
@@ -17,11 +17,17 @@ 
    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