Dominique Dhumieres wrote:
The test gfortran.dg/coarray_atomic_4.f90 fails in 32 bit mode: /opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_atomic_4.f90:40.32:call atomic_fetch_and(caf, 22_16, var, stat=stat) 1 Error: Integer kind 16 at (1) not available
As I just want to test whether values of a different kind work, hence, any value but _4 would work. I've now changed it to a kind=1 integer.
Committed as Rev. 212491. Tobias
Index: gcc/testsuite/ChangeLog =================================================================== --- gcc/testsuite/ChangeLog (Revision 212490) +++ gcc/testsuite/ChangeLog (Arbeitskopie) @@ -1,3 +1,8 @@ +2014-07-13 Tobias Burnus <bur...@net-b.de> + + * gfortran.dg/coarray_atomic_4.f90: Avoid using a kind=16 + integer. + 2014-07-12 Paul Thomas <pa...@gcc.gnu.org> PR fortran/61780 Index: gcc/testsuite/gfortran.dg/coarray_atomic_4.f90 =================================================================== --- gcc/testsuite/gfortran.dg/coarray_atomic_4.f90 (Revision 212490) +++ gcc/testsuite/gfortran.dg/coarray_atomic_4.f90 (Arbeitskopie) @@ -37,7 +37,7 @@ call atomic_or(caf, 101, stat=stat) call atomic_xor(caf, 105_2, stat=stat) call atomic_fetch_add(caf, var3, var, stat=stat) -call atomic_fetch_and(caf, 22_16, var, stat=stat) +call atomic_fetch_and(caf, 22_1, var, stat=stat) call atomic_fetch_or(caf, var3, var, stat=stat) call atomic_fetch_xor(caf, 47_2, var, stat=stat)
