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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 48a6bb7..42e4079 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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>
 
        PR fortran/61780

diff --git a/gcc/testsuite/gfortran.dg/coarray_atomic_4.f90 b/gcc/testsuite/gfortran.dg/coarray_atomic_4.f90
index 663a6c8..be91a9f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/coarray_atomic_4.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_atomic_4.f90
@@ -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)