From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Lars Ingebrigtsen Newsgroups: gmane.emacs.bugs Subject: bug#14442: On syntax decoration of identifiers containing underscore and statements word [f90] Date: Sat, 04 Dec 2021 05:07:44 +0100 Message-ID: <87bl1xqagf.fsf@gnus.org> References: <51955A32.2080302@alice.it> <51960C1D.6070906@alice.it> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="35216"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) Cc: 14442@debbugs.gnu.org, Stefan Monnier , Angelo Graziosi To: Glenn Morris Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Sat Dec 04 05:08:11 2021 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1mtMLL-0008wP-L7 for geb-bug-gnu-emacs@m.gmane-mx.org; Sat, 04 Dec 2021 05:08:11 +0100 Original-Received: from localhost ([::1]:44228 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mtMLK-000689-CB for geb-bug-gnu-emacs@m.gmane-mx.org; Fri, 03 Dec 2021 23:08:10 -0500 Original-Received: from eggs.gnu.org ([209.51.188.92]:50006) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mtMLD-00067q-3a for bug-gnu-emacs@gnu.org; Fri, 03 Dec 2021 23:08:03 -0500 Original-Received: from debbugs.gnu.org ([209.51.188.43]:41119) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mtMLC-00089S-RV for bug-gnu-emacs@gnu.org; Fri, 03 Dec 2021 23:08:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1mtMLC-0001dv-GW for bug-gnu-emacs@gnu.org; Fri, 03 Dec 2021 23:08:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Lars Ingebrigtsen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 04 Dec 2021 04:08:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 14442 X-GNU-PR-Package: emacs Original-Received: via spool by 14442-submit@debbugs.gnu.org id=B14442.16385908806295 (code B ref 14442); Sat, 04 Dec 2021 04:08:02 +0000 Original-Received: (at 14442) by debbugs.gnu.org; 4 Dec 2021 04:08:00 +0000 Original-Received: from localhost ([127.0.0.1]:52662 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mtML9-0001dT-Nw for submit@debbugs.gnu.org; Fri, 03 Dec 2021 23:07:59 -0500 Original-Received: from quimby.gnus.org ([95.216.78.240]:60198) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mtML5-0001dA-SN for 14442@debbugs.gnu.org; Fri, 03 Dec 2021 23:07:59 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnus.org; s=20200322; h=Content-Type:MIME-Version:Message-ID:In-Reply-To:Date: References:Subject:Cc:To:From:Sender:Reply-To:Content-Transfer-Encoding: Content-ID:Content-Description:Resent-Date:Resent-From:Resent-Sender: Resent-To:Resent-Cc:Resent-Message-ID:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=+gniCG7ClmtLMDDMWVsJ96IMsZGCHUgGuScYkiMfqGE=; b=IqwxKPGzSKkM6vpLivQ463Or7E oxUwt9tZPSmSldCaMZLBxITyREw2s/9gCiY/ruwuDdkcCHx4zxyijsX8nm1HRty8G6LxIspjxouXI Fmn9eF1RRpbxSWydHM/VNO2Wod12A/5+lFfXzSiQfjCLRS4z+QPC5CL2JhOpwPZ6PHwo=; Original-Received: from [84.212.220.105] (helo=xo) by quimby.gnus.org with esmtpsa (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1mtMKv-00029Y-6I; Sat, 04 Dec 2021 05:07:48 +0100 X-Now-Playing: Genesis's _Nursery Cryme_: "The Musical Box" In-Reply-To: (Glenn Morris's message of "Thu, 23 May 2013 21:03:42 -0400") X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:221431 Archived-At: Glenn Morris writes: >> - '("\\_<\\(implicit\\)[ \t]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\ >> + '("\\_<\\(implicit\\)[ \t]+\\(real\\|integer\\|c\\(haracter\\|omplex\\)\ > > Probably correct, since I think the space is required in this case. I've now done this change in Emacs 29. >> - '("\\_<\\(exit\\|cycle\\)[ \t]*\\(\\(?:\\sw\\|\\s_\\)+\\)?\\_>" >> + '("\\_<\\(exit\\|cycle\\)[ \t]+\\(\\(?:\\sw\\|\\s_\\)+\\)?\\_>" > > Breaks highlighting of plain "exit" (the following label is optional). And I've fixed this by making it into two cases. My test case (included below) now highlights both exits correctly, and doesn't highlight "public ExitProcess". public ExitProcess interface subroutine ExitProcess(uExitCode) bind(C,name='ExitProcess') import !GCC$ ATTRIBUTES STDCALL :: ExitProcess integer(UINT_T), intent(in), value :: uExitCode end subroutine ExitProcess end interface do 100 i=1,1000 xarray(i)=indata(i)*a k = k+1 if (xarray(i).eq.0.or.k.eq.kmax) then exit else if (i.gt.1) results(i)=xarray(i)+xarray(i-1) exit foo else results(i)=xarray(i) end if 100 continue if (i.lt.1000) print *, 'Exited loop early' -- (domestic pets only, the antidote for overdose, milk.) bloggy blog: http://lars.ingebrigtsen.no