* [committed] Fix testcase (was: Re: [Patch, Fortran] Update atomics support for TS18508)
2014-07-13 7:53 [Patch, Fortran] Update atomics support for TS18508 Dominique Dhumieres
@ 2014-07-13 8:11 ` Tobias Burnus
0 siblings, 0 replies; 2+ messages in thread
From: Tobias Burnus @ 2014-07-13 8:11 UTC (permalink / raw)
To: Dominique Dhumieres, fortran; +Cc: gcc-patches
[-- Attachment #1: Type: text/plain, Size: 478 bytes --]
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
[-- Attachment #2: caf.diff --]
[-- Type: text/x-patch, Size: 997 bytes --]
Index: gcc/testsuite/ChangeLog
===================================================================
--- gcc/testsuite/ChangeLog (Revision 212490)
+++ gcc/testsuite/ChangeLog (Arbeitskopie)
@@ -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
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)
^ permalink raw reply [flat|nested] 2+ messages in thread