From 4a05a9a8d264103cbcccdd62c6fcd3a3059c0efd Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sun, 13 Jul 2014 10:10:40 +0200 Subject: [PATCH] coarray_atomic_4.f90: Avoid using a kind=16 integer. 2014-07-13 Tobias Burnus * gfortran.dg/coarray_atomic_4.f90: Avoid using a kind=16 integer. From-SVN: r212491 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/coarray_atomic_4.f90 | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 48a6bb7fb75..42e40792601 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2014-07-13 Tobias Burnus + + * gfortran.dg/coarray_atomic_4.f90: Avoid using a kind=16 + integer. + 2014-07-12 Paul Thomas PR fortran/61780 diff --git a/gcc/testsuite/gfortran.dg/coarray_atomic_4.f90 b/gcc/testsuite/gfortran.dg/coarray_atomic_4.f90 index 663a6c83da4..be91a9f0112 100644 --- 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)