This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Patch, Fortran, committed] gfortran.dg/c_ptr_tests_16.f90 - fix endian issue
- From: Tobias Burnus <burnus at net-b dot de>
- To: gcc patches <gcc-patches at gcc dot gnu dot org>, gfortran <fortran at gcc dot gnu dot org>
- Date: Mon, 20 Dec 2010 22:45:36 +0100
- Subject: [Patch, Fortran, committed] gfortran.dg/c_ptr_tests_16.f90 - fix endian issue
Index: gcc/testsuite/gfortran.dg/c_ptr_tests_16.f90
===================================================================
--- gcc/testsuite/gfortran.dg/c_ptr_tests_16.f90 (Revision 168094)
+++ gcc/testsuite/gfortran.dg/c_ptr_tests_16.f90 (Arbeitskopie)
@@ -10,7 +10,11 @@
integer(c_intptr_t) :: a
integer(transfer(transfer(4_c_intptr_t, c_null_ptr),1_c_intptr_t)) :: b
a = transfer (transfer("ABCE", m), 1_c_intptr_t)
- if (1162035777 /= a) call i_do_not_exist()
+ print '(z8)', a
+ if ( int(z'45434241') /= a &
+ .and. int(z'41424345') /= a &
+ .and. int(z'4142434500000000',kind=8) /= a) &
+ call i_do_not_exist()
end program test
! Examples contributed by Steve Kargl and James Van Buskirk
Index: gcc/testsuite/ChangeLog
===================================================================
--- gcc/testsuite/ChangeLog (Revision 168094)
+++ gcc/testsuite/ChangeLog (Arbeitskopie)
@@ -1,3 +1,8 @@
+2010-12-20 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/46974
+ * gfortran.dg/c_ptr_tests_16.f90: Fix endian issue.
+
2010-12-19 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
PR testsuite/45342