From: Tobias Burnus Date: Sun, 13 Jul 2014 08:10:40 +0000 (+0200) Subject: coarray_atomic_4.f90: Avoid using a kind=16 integer. X-Git-Tag: releases/gcc-5.1.0~6371 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=4a05a9a8d264103cbcccdd62c6fcd3a3059c0efd;p=thirdparty%2Fgcc.git 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 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 48a6bb7fb751..42e407926013 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 663a6c83da43..be91a9f01121 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)