This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[committed] Fix testcase (was: Re: [Patch, Fortran] Update atomics support for TS18508)


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
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)
 

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]