OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Burnus 2010-12-20 22:43:58 +01:00 committed by Tobias Burnus
parent b5a54c037a
commit 3d4f690674
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

6
gcc/testsuite/gfortran.dg/c_ptr_tests_16.f90
View File

@ -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