Commit 4a05a9a8 by Tobias Burnus Committed by Tobias Burnus

coarray_atomic_4.f90: Avoid using a kind=16 integer.

2014-07-13  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/coarray_atomic_4.f90: Avoid using a kind=16
        integer.

From-SVN: r212491
parent 60ab4b44
2014-07-13 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/coarray_atomic_4.f90: Avoid using a kind=16
integer.
2014-07-12 Paul Thomas <pault@gcc.gnu.org> 2014-07-12 Paul Thomas <pault@gcc.gnu.org>
PR fortran/61780 PR fortran/61780
......
...@@ -37,7 +37,7 @@ call atomic_or(caf, 101, stat=stat) ...@@ -37,7 +37,7 @@ call atomic_or(caf, 101, stat=stat)
call atomic_xor(caf, 105_2, stat=stat) call atomic_xor(caf, 105_2, stat=stat)
call atomic_fetch_add(caf, var3, var, 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_or(caf, var3, var, stat=stat)
call atomic_fetch_xor(caf, 47_2, var, stat=stat) call atomic_fetch_xor(caf, 47_2, var, stat=stat)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment