From patchwork Sun Jul 13 08:11:21 2014 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tobias Burnus X-Patchwork-Id: 369394 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by ozlabs.org (Postfix) with ESMTPS id 2664C1400B2 for ; Sun, 13 Jul 2014 18:11:46 +1000 (EST) DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :message-id:date:from:mime-version:to:cc:subject:references :in-reply-to:content-type; q=dns; s=default; b=sSK9H9vwZ87+ue6mA PsrKpl9uZgdHU2bBPPwcgj0uf/efweASMK7FeO7squqr1W3OkBkg9MfiDfScaNh1 yVjoCJzQ7CokMcXz3GDO2P+BH32Zq2Li0lkhS0aHCE3qcUPk2IZHhDYoxC8ARKiR trWvjdBi/0/bUokEH5tONetInc= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :message-id:date:from:mime-version:to:cc:subject:references :in-reply-to:content-type; s=default; bh=ei9cut/b1ZyW3PS8oUIkF8f TFqs=; b=riak3c+pb07nWc5joLgV37X8fcyoy/8L3DX8F1JJWW6dDZj0qC38Qzt j+745BEIDvu6YJxdXDlsbphlB3i0VA7q7XwhNxRFoZ+OM7qOhRUKOkQHmdGeOMb4 JDdUVpihs0Viio3DSIMau0SehIWkp4eFWKguyYsJKJJaQuASS5wc= Received: (qmail 29391 invoked by alias); 13 Jul 2014 08:11:32 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Received: (qmail 29298 invoked by uid 89); 13 Jul 2014 08:11:27 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.0 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_NONE autolearn=ham version=3.3.2 X-Spam-User: qpsmtpd, 2 recipients X-HELO: mx02.qsc.de Received: from mx02.qsc.de (HELO mx02.qsc.de) (213.148.130.14) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES256-SHA encrypted) ESMTPS; Sun, 13 Jul 2014 08:11:25 +0000 Received: from tux.net-b.de (port-92-194-213-151.dynamic.qsc.de [92.194.213.151]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by mx02.qsc.de (Postfix) with ESMTPSA id 95F6D24CEC; Sun, 13 Jul 2014 10:11:22 +0200 (CEST) Message-ID: <53C23F29.70905@net-b.de> Date: Sun, 13 Jul 2014 10:11:21 +0200 From: Tobias Burnus User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:24.0) Gecko/20100101 Thunderbird/24.6.0 MIME-Version: 1.0 To: Dominique Dhumieres , fortran@gcc.gnu.org CC: gcc-patches@gcc.gnu.org Subject: [committed] Fix testcase (was: Re: [Patch, Fortran] Update atomics support for TS18508) References: <20140713075250.B923F105@mailhost.lps.ens.fr> In-Reply-To: <20140713075250.B923F105@mailhost.lps.ens.fr> 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 + + * gfortran.dg/coarray_atomic_4.f90: Avoid using a kind=16 + integer. + 2014-07-12 Paul Thomas 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)