From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 129282 invoked by alias); 13 Feb 2019 22:50:40 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Received: (qmail 129250 invoked by uid 89); 13 Feb 2019 22:50:39 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-12.6 required=5.0 tests=BAYES_00,FREEMAIL_FROM,GIT_PATCH_2,GIT_PATCH_3,RCVD_IN_DNSWL_LOW,SPF_PASS autolearn=ham version=3.3.2 spammy=H*f:sk:5C649C5, H*i:sk:5C649C5, adjusted X-HELO: mout.gmx.net Received: from mout.gmx.net (HELO mout.gmx.net) (212.227.17.22) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Wed, 13 Feb 2019 22:50:38 +0000 Received: from proton.at.home ([93.207.86.71]) by mail.gmx.com (mrgmx102 [212.227.17.168]) with ESMTPSA (Nemesis) id 0MfBsk-1gje2j1RrW-00OqDC; Wed, 13 Feb 2019 23:50:35 +0100 Message-ID: <5C649F35.3010809@gmx.de> Date: Wed, 13 Feb 2019 22:50:00 -0000 From: Harald Anlauf User-Agent: Mozilla/5.0 (X11; Linux i686; rv:17.0) Gecko/20130329 Thunderbird/17.0.5 MIME-Version: 1.0 To: gfortran , gcc-patches Subject: Re: [PR fortran/88248, patch] - [F18] Bogus warning about obsolescent feature: Labeled DO statement References: <5C649C50.2070604@gmx.de> In-Reply-To: <5C649C50.2070604@gmx.de> Content-Type: multipart/mixed; boundary="------------080800020103070404000708" X-SW-Source: 2019-02/txt/msg00991.txt.bz2 This is a multi-part message in MIME format. --------------080800020103070404000708 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Content-length: 858 Sorry, forgot to attach the patch to the revised testcase f2018_obs.f90. Here it is. Regards, Harald Adjusted ChangeLog: 2019-02-13 Harald Anlauf PR fortran/88248 * gfortran.dg/pr88248.f90: New test. * gfortran.dg/f2018_obs.f90: Updated test. On 02/13/19 23:38, Harald Anlauf wrote: > The attached patch moves the check for labeled DO statements to > the place where a label is referenced instead of where a label > was defined, which lead to false positives. > > Regtested on x86_64-pc-linux-gnu. > > OK for trunk? > > Thanks, > Harald > > 2019-02-13 Harald Anlauf > > PR fortran/88248 > * symbol.c: Move check for labeled DO statement from > gfc_define_st_label to gfc_reference_st_label. > > 2019-02-13 Harald Anlauf > > PR fortran/88248 > * gfortran.dg/pr88248.f90: New test. > --------------080800020103070404000708 Content-Type: text/plain; charset=us-ascii; name="patch-pr88248-testcase-part2" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="patch-pr88248-testcase-part2" Content-length: 634 Index: gcc/testsuite/gfortran.dg/f2018_obs.f90 =================================================================== --- gcc/testsuite/gfortran.dg/f2018_obs.f90 (revision 268826) +++ gcc/testsuite/gfortran.dg/f2018_obs.f90 (working copy) @@ -19,8 +19,8 @@ equivalence (a(10),b(1)) ! { dg-warning "obsolescent feature" } - do 99 i=1,10 -99 continue ! { dg-warning "obsolescent feature" } + do 99 i=1,10 ! { dg-warning "obsolescent feature" } +99 continue j = (/ 0, 1, 2, 3, 4, 0, 6, 7 /) forall (i=1:8, j(i) /= 0) ! { dg-warning "obsolescent feature" } --------------080800020103070404000708--