From: Tobias Burnus Date: Mon, 20 Dec 2010 21:43:58 +0000 (+0100) Subject: re PR fortran/46974 (ICE with TRANSFER using a C_PTR entity) X-Git-Tag: releases/gcc-4.6.0~1726 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=3d4f690674f68d96ed47048e6bed9aa6055aa2cb;p=thirdparty%2Fgcc.git re PR fortran/46974 (ICE with TRANSFER using a C_PTR entity) 2010-12-20 Tobias Burnus PR fortran/46974 * gfortran.dg/c_ptr_tests_16.f90: Fix endian issue. From-SVN: r168095 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a26fd3791d33..029fa037880d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-12-20 Tobias Burnus + + PR fortran/46974 + * gfortran.dg/c_ptr_tests_16.f90: Fix endian issue. + 2010-12-19 John David Anglin PR testsuite/45342 diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests_16.f90 b/gcc/testsuite/gfortran.dg/c_ptr_tests_16.f90 index 3a51d28a6842..8855d62abaac 100644 --- 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