2010-12-20 Tobias Burnus <burnus@net-b.de>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / c_ptr_tests_16.f90

diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests_16.f90 b/gcc/testsuite/gfortran.dg/c_ptr_tests_16.f90
index 3a51d28..8855d62 100644 (file)
--- a/gcc/testsuite/gfortran.dg/c_ptr_tests_16.f90
+++ b/gcc/testsuite/gfortran.dg/c_ptr_tests_16.f90
@@ -10,7 +10,11 @@ program test
   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