diff options
| author | Tobias Burnus <burnus@net-b.de> | 2010-12-20 22:43:58 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-12-20 22:43:58 +0100 |
| commit | 3d4f690674f68d96ed47048e6bed9aa6055aa2cb (patch) | |
| tree | de4e1c8eab4705316c6bb74d627a291ef4badcc6 | |
| parent | b5a54c037a966cd7dd64ccc972e75d678f8dea00 (diff) | |
| download | gcc-3d4f690674f68d96ed47048e6bed9aa6055aa2cb.zip gcc-3d4f690674f68d96ed47048e6bed9aa6055aa2cb.tar.gz gcc-3d4f690674f68d96ed47048e6bed9aa6055aa2cb.tar.bz2 | |
re PR fortran/46974 (ICE with TRANSFER using a C_PTR entity)
2010-12-20 Tobias Burnus <burnus@net-b.de>
PR fortran/46974
* gfortran.dg/c_ptr_tests_16.f90: Fix endian issue.
From-SVN: r168095
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/c_ptr_tests_16.f90 | 6 |
2 files changed, 10 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a26fd37..029fa03 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 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 --- 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 |