OSDN Git Service

2010-11-27 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 27 Nov 2010 21:22:00 +0000 (21:22 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 27 Nov 2010 21:22:00 +0000 (21:22 +0000)
        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

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/transfer_simplify_10.f90

index d7cb044..ef529c9 100644 (file)
@@ -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 
index d0c83b5..3a56e65 100644 (file)
@@ -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