From unknown Tue Jun 17 20:18:05 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#345 <345@debbugs.gnu.org> To: bug#345 <345@debbugs.gnu.org> Subject: Status: Bug in F90 mode Reply-To: bug#345 <345@debbugs.gnu.org> Date: Wed, 18 Jun 2025 03:18:05 +0000 retitle 345 Bug in F90 mode=20 reassign 345 emacs submitter 345 Gabor Toth severity 345 normal thanks From GTOTH@UMICH.EDU Sun Jun 1 06:58:37 2008 X-Spam-Checker-Version: SpamAssassin 3.2.3-bugs.debian.org_2005_01_02 (2007-08-08) on rzlab.ucr.edu X-Spam-Level: X-Spam-Status: No, score=-5.0 required=4.0 tests=BAYES_00,RCVD_IN_DNSWL_LOW autolearn=ham version=3.2.3-bugs.debian.org_2005_01_02 Received: (at submit) by emacsbugs.donarmstrong.com; 1 Jun 2008 13:58:37 +0000 Received: from lists.gnu.org (lists.gnu.org [199.232.76.165]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m51DwXQS030711 for ; Sun, 1 Jun 2008 06:58:34 -0700 Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1K2o4v-0001du-Du for bug-gnu-emacs@gnu.org; Sun, 01 Jun 2008 09:58:33 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1K2o4u-0001dT-At for bug-gnu-emacs@gnu.org; Sun, 01 Jun 2008 09:58:32 -0400 Received: from [199.232.76.173] (port=41176 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1K2o4u-0001dF-0i for bug-gnu-emacs@gnu.org; Sun, 01 Jun 2008 09:58:32 -0400 Received: from smtp.mail.umich.edu ([141.211.93.160]:40373 helo=skycaptain.mr.itd.umich.edu) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1K2o4t-0002hI-Uh for bug-gnu-emacs@gnu.org; Sun, 01 Jun 2008 09:58:32 -0400 Received: FROM [192.168.1.101] (c-68-40-56-218.hsd1.mi.comcast.net [68.40.56.218]) BY skycaptain.mr.itd.umich.edu ID 4842AAC8.55409.22328 ; 1 Jun 2008 09:57:28 -0400 Mime-Version: 1.0 (Apple Message framework v753) Content-Transfer-Encoding: 7bit Message-Id: <7638BF9C-95FC-4104-980B-FEAED84AEF63@UMICH.EDU> Content-Type: text/plain; charset=US-ASCII; delsp=yes; format=flowed To: bug-gnu-emacs@gnu.org From: Gabor Toth Subject: Bug in F90 mode Date: Sun, 1 Jun 2008 09:57:27 -0400 X-Mailer: Apple Mail (2.753) X-detected-kernel: by monty-python.gnu.org: Linux 2.6 (newer, 3) Dear GNU emacs developers, I truly appreciate the work put into the emacs editor. This is the editor of choice for editing source code files because of the many advanced features that help programmers. I have been using the F90 module for a long time and I encountered a small but annoying bug. I tried to work around it, but I could not. The bug is present in every version of emacs I know of. It is a bug in the F90 module. To reproduced the bug, simply create a file with .f90 extension, say bug.f90 open the file, and type the following lines program bug AnyVariable = 1.0 TypeVariable = 2.0 OtherVariable = 3.0 end program bug and let Emacs indent it (by hitting TAB at the beginning of each line). The result is what you see above, ie the lines following the TypeVariable = 2.0 line are indented. The reason is that if a line starts withTypeXXX the F90 module regards it as a type definition, although it is not matched when an end statement is typed. I suspect that the error is in the definition of f90-type-def-re in the f90.el file. The definition is (defconst f90-type-def-re "\\<\\(type\\)\\([^(\n]*\\)\\(::\\)?[ \t]*\\b\\(\\sw+\\)") It seems that this regular expression is too permissive. The [^(\n]** part matches anything that follows the "type" string except for opening paren and end-of-line. This should probably be replaced with [ \t]* I would be greatful if you could suggest a work around that I can put into my .emacs file. My attempts at redefining the f90-type-def-re did not work. I managed to set the indentation to 0 for type/ interface/blockdata definitions to avoid this problem, but then the true type and interface definitions will not be indented, and that's pretty ugly. We have some huge F90 codes, and not allowing variables to start with the string "type" is not an option. Thanks for your work and kind help, Gabor Toth Research scientist University of Michigan From rgm@gnu.org Mon Jun 2 13:31:57 2008 X-Spam-Checker-Version: SpamAssassin 3.2.3-bugs.debian.org_2005_01_02 (2007-08-08) on rzlab.ucr.edu X-Spam-Level: X-Spam-Status: No, score=-9.5 required=4.0 tests=AWL,BAYES_00,HAS_BUG_NUMBER, RCVD_IN_DNSWL_MED autolearn=ham version=3.2.3-bugs.debian.org_2005_01_02 Received: (at 345-done) by emacsbugs.donarmstrong.com; 2 Jun 2008 20:31:57 +0000 Received: from fencepost.gnu.org (fencepost.gnu.org [140.186.70.10]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m52KVoBJ029398 for <345-done@emacsbugs.donarmstrong.com>; Mon, 2 Jun 2008 13:31:51 -0700 Received: from rgm by fencepost.gnu.org with local (Exim 4.67) (envelope-from ) id 1K3GfH-0008Lk-7u; Mon, 02 Jun 2008 16:29:59 -0400 From: Glenn Morris To: Gabor Toth Cc: 345-done@debbugs.gnu.org Subject: Re: bug#345: Bug in F90 mode References: <7638BF9C-95FC-4104-980B-FEAED84AEF63@UMICH.EDU> X-Spook: argus Sears Tower Compsec Putin InfoSec pipeline BLU-97 X-Ran: L*^MHhlRFI:E;3%kVhE+`$<1-<[@vA-M#wM5u\ntGBqx6dH&Jq!'@*P,0y0j/gc"j&ybnJ X-Hue: yellow X-Attribution: GM Date: Mon, 02 Jun 2008 16:29:59 -0400 In-Reply-To: <7638BF9C-95FC-4104-980B-FEAED84AEF63@UMICH.EDU> (Gabor Toth's message of "Sun, 1 Jun 2008 09:57:27 -0400") 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 Gabor Toth wrote: > The bug is present in every version of emacs I know of. I can't reproduce it in Emacs 21.4, 22.1 or 22.2. (The CVS trunk does have a separate problem here; funny coincidence.) > (defconst f90-type-def-re > "\\<\\(type\\)\\([^(\n]*\\)\\(::\\)?[ \t]*\\b\\(\\sw+\\)") This form was replaced 6 years ago, ie in Emacs 21.3. I strongly advise you to use a more recent version of Emacs (the latest is 22.2), where we have the equivalent of: (setq f90-type-def-re "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)") From unknown Tue Jun 17 20:18:05 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: $requester Subject: Internal Control Message-Id: bug archived. Date: Tue, 01 Jul 2008 14:24:02 +0000 User-Agent: Fakemail v42.6.9 # A New Hope # A log time ago, in a galaxy far, far away # something happened. # # Magically this resulted in the following # action being taken, but this fake control # message doesn't tell you why it happened # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator