From debbugs-submit-bounces@debbugs.gnu.org Thu May 28 02:08:53 2015 Received: (at submit) by debbugs.gnu.org; 28 May 2015 06:08:54 +0000 Received: from localhost ([127.0.0.1]:58838 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Yxqzs-0008HO-To for submit@debbugs.gnu.org; Thu, 28 May 2015 02:08:53 -0400 Received: from fencepost.gnu.org ([208.118.235.10]:58039 ident=Debian-exim) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Yxqzj-0008Go-Hb for submit@debbugs.gnu.org; Thu, 28 May 2015 02:08:43 -0400 Received: from rgm by fencepost.gnu.org with local (Exim 4.71) (envelope-from ) id 1Yxqzi-0007Ap-VO for submit@debbugs.gnu.org; Thu, 28 May 2015 02:08:43 -0400 Resent-Message-ID: <21862.45290.851679.891252@gnu.org> Resent-Date: Thu, 28 May 2015 02:08:42 -0400 Resent-From: Glenn Morris Resent-To: submit@debbugs.gnu.org Bcc: rgm@gnu.org X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,T_RP_MATCHES_RCVD autolearn=disabled version=3.3.2 Message-ID: <5565B486.6090802@enscbp.fr> Organization: I2M MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="------------090102080803070103040000" X-Originating-IP: [172.16.10.32] X-ClientProxiedBy: CBP-EXCHANGE.enscbp.local (172.29.29.155) To cbp-exchange.enscbp.local (172.29.29.155) X-VRSPAM-SCORE: 0 X-VRSPAM-STATE: legit X-VRSPAM-CAUSE: gggruggvucftvghtrhhoucdtuddrfeekuddrfedvgdeghecutefuodetggdotefrucfrrhhofhhilhgvmecuggftfghnshhusghstghrihgsvgenuceurghilhhouhhtmecufedttdenucenucfjughrpefkfffhohgfggfvufgtihesmhdtrggrtdefjeenucfhrhhomheplfhorhhishcurfhitghothcuoehjphhitghothesvghnshgtsghprdhfrheq X-VRSPAM-EXTCAUSE: mhhouggvpehsmhhtphhouhht X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 147.210.63.238 Date: Wed, 27 May 2015 14:11:50 +0200 From: Joris Picot To: Subject: f90.el --- indent-region errors X-Bogosity: unsure, spamicity=0.338182, v1.2.1 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:31.0) Gecko/20100101 Thunderbird/31.7.0 X-Spam-Score: -5.0 (-----) X-Debbugs-Envelope-To: submit X-Mailman-Approved-At: Thu, 28 May 2015 02:08:51 -0400 Cc: antoine.lemoine@ipb.fr X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.0 (-----) --------------090102080803070103040000 Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Package: emacs Hi, I have trouble running M-x indent-region in whole Fortran programs with some Fortran 2003 features such as the module enclosed with this mail. I get the messages: END enum does not match module. END type does not match program. END module does not match program. and my code is not indented correctly. I looked in the f90.el script, but I can't get it to work. Are you familiar with this problem? Do you have any workaround? Best Regards, --=20 Joris Picot I2M =E2=80=93 Tr=C3=A8fle --------------090102080803070103040000 Content-Type: text/x-fortran; name="my_module.f90" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="my_module.f90" module my_module implicit none type :: my_type_1 integer :: id end type my_type_1 enum, bind(c) enumerator :: titi =3D 0 enumerator :: toto =3D 1 end enum type, extends(my_type_1) :: my_type_2 integer :: ud end type my_type_2 contains end module my_module --------------090102080803070103040000-- From debbugs-submit-bounces@debbugs.gnu.org Thu May 28 02:14:50 2015 Received: (at 20680) by debbugs.gnu.org; 28 May 2015 06:14:50 +0000 Received: from localhost ([127.0.0.1]:58844 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Yxr5e-0008Qi-9Q for submit@debbugs.gnu.org; Thu, 28 May 2015 02:14:50 -0400 Received: from fencepost.gnu.org ([208.118.235.10]:58153 ident=Debian-exim) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Yxr5c-0008Qa-QY for 20680@debbugs.gnu.org; Thu, 28 May 2015 02:14:49 -0400 Received: from rgm by fencepost.gnu.org with local (Exim 4.71) (envelope-from ) id 1Yxr5a-00084t-0w; Thu, 28 May 2015 02:14:46 -0400 From: Glenn Morris To: Joris Picot Subject: Re: bug#20680: f90.el --- indent-region errors References: <5565B486.6090802@enscbp.fr> X-Spook: number key Albright MD2 ASPIC North Korea CipherTAC-2000 X-Ran: M|g;sAy:+S\yj:gY{v1.WFI&#gTO!.[|><'Sx1[uo (Joris Picot's message of "Wed, 27 May 2015 14:11:50 +0200") Message-ID: User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Spam-Score: -5.0 (-----) X-Debbugs-Envelope-To: 20680 Cc: antoine.lemoine@ipb.fr, 20680@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.0 (-----) Joris Picot wrote: > I have trouble running M-x indent-region in whole Fortran programs with > some Fortran 2003 features such as the module enclosed with this mail. Thanks for the report, but please report bugs to bug-gnu-emacs@gnu.org (preferably using M-x report-emacs-bug), rather than directly to me (or anyone else whose name happens to be in a file header). Anyway, I think this fixes it: --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -900,9 +900,11 @@ Can be overridden by the value of `font-lock-maximum-decoration'.") ;; type :: word ;; type, stuff :: word ;; type, bind(c) :: word + ;; type, extends(stuff) :: word ;; NOT "type (" "\\_<\\(type\\)\\_>\\(?:\\(?:[^()\n]*\\|\ -.*,[ \t]*bind[ \t]*([ \t]*c[ \t]*)[ \t]*\\)::\\)?[ \t]*\\(\\(?:\\sw\\|\\s_\\)+\\)" +.*,[ \t]*\\(?:bind\\|extends\\)[ \t]*(.*)[ \t]*\\)::\\)?\ +[ \t]*\\(\\(?:\\sw\\|\\s_\\)+\\)" "Regexp matching the definition of a derived type.") (defconst f90-typeis-re @@ -1450,7 +1452,7 @@ if all else fails." (not (or (looking-at "end") (looking-at "\\(do\\|if\\|else\\(if\\|where\\)?\ \\|select[ \t]*\\(case\\|type\\)\\|case\\|where\\|forall\\|\ -block\\|critical\\)\\_>") +block\\|critical\\|enum\\)\\_>") (looking-at "\\(program\\|\\(?:sub\\)?module\\|\ \\(?:abstract[ \t]*\\)?interface\\|block[ \t]*data\\)\\_>") (looking-at "\\(contains\\|\\(?:\\sw\\|\\s_\\)+[ \t]*:\\)") From debbugs-submit-bounces@debbugs.gnu.org Thu May 28 02:14:59 2015 Received: (at control) by debbugs.gnu.org; 28 May 2015 06:14:59 +0000 Received: from localhost ([127.0.0.1]:58847 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Yxr5m-0008R3-QA for submit@debbugs.gnu.org; Thu, 28 May 2015 02:14:59 -0400 Received: from fencepost.gnu.org ([208.118.235.10]:58158 ident=Debian-exim) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Yxr5k-0008Qw-OY for control@debbugs.gnu.org; Thu, 28 May 2015 02:14:56 -0400 Received: from rgm by fencepost.gnu.org with local (Exim 4.71) (envelope-from ) id 1Yxr5k-00085q-Hx for control@debbugs.gnu.org; Thu, 28 May 2015 02:14:56 -0400 Date: Thu, 28 May 2015 02:14:56 -0400 Message-Id: Subject: control message for bug 20680 To: X-Mailer: mail (GNU Mailutils 2.1) From: Glenn Morris X-Spam-Score: -5.0 (-----) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.0 (-----) close 20680 25.1 From unknown Sat Jun 21 05:04:53 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Thu, 25 Jun 2015 11:24:05 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator From debbugs-submit-bounces@debbugs.gnu.org Thu Jul 02 19:05:26 2015 Received: (at control) by debbugs.gnu.org; 2 Jul 2015 23:05:26 +0000 Received: from localhost ([127.0.0.1]:38050 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1ZAnXq-00009b-3z for submit@debbugs.gnu.org; Thu, 02 Jul 2015 19:05:26 -0400 Received: from eggs.gnu.org ([208.118.235.92]:54475) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1ZAnXo-00009I-7D for control@debbugs.gnu.org; Thu, 02 Jul 2015 19:05:24 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZAnXe-0006B0-Hp for control@debbugs.gnu.org; Thu, 02 Jul 2015 19:05:18 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-2.5 required=5.0 tests=BAYES_00,RP_MATCHES_RCVD autolearn=disabled version=3.3.2 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:45250) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZAnXe-000673-CX for control@debbugs.gnu.org; Thu, 02 Jul 2015 19:05:14 -0400 Received: from rgm by fencepost.gnu.org with local (Exim 4.82) (envelope-from ) id 1ZAnQr-0006qi-IX for control@debbugs.gnu.org; Thu, 02 Jul 2015 18:58:13 -0400 Subject: control message for bug 20969 To: X-Mailer: mail (GNU Mailutils 2.99.98) Message-Id: From: Glenn Morris Date: Thu, 02 Jul 2015 18:58:13 -0400 X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2001:4830:134:3::e X-Spam-Score: -5.6 (-----) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.6 (-----) unarchive 20680 forcemerge 20680 20969 From unknown Sat Jun 21 05:04:53 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Mon, 03 Aug 2015 11:24:05 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator