aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2016-12-07 12:39:08 -0800
committerPaul Eggert2016-12-07 12:39:08 -0800
commitfd6632b397316146397dd478a858f0b9a90efeed (patch)
treeb4cf7ad204c611d20db93f846a0b4aebadd06d31
parent8209e0384441cafb67d779bbd17ea812269ca4cc (diff)
parent9a857b922e03617c533b396705f8019871b33b54 (diff)
downloademacs-fd6632b397316146397dd478a858f0b9a90efeed.tar.gz
emacs-fd6632b397316146397dd478a858f0b9a90efeed.zip
Merge from origin/emacs-25
9a857b9 * admin/authors.el (authors-renamed-files-alist): Addition. 6d27423 Tweak refcard note about documentation location e46a134 Improve treatment of Fortran's "class is"
-rw-r--r--admin/authors.el2
-rw-r--r--etc/refcards/calccard.tex4
-rw-r--r--etc/refcards/cs-dired-ref.tex7
-rw-r--r--etc/refcards/cs-refcard.tex7
-rw-r--r--etc/refcards/cs-survival.tex5
-rw-r--r--etc/refcards/de-refcard.tex7
-rw-r--r--etc/refcards/dired-ref.tex7
-rw-r--r--etc/refcards/fr-dired-ref.tex7
-rw-r--r--etc/refcards/fr-refcard.tex7
-rw-r--r--etc/refcards/fr-survival.tex5
-rw-r--r--etc/refcards/gnus-refcard.tex3
-rw-r--r--etc/refcards/orgcard.tex3
-rw-r--r--etc/refcards/pl-refcard.tex7
-rw-r--r--etc/refcards/pt-br-refcard.tex7
-rw-r--r--etc/refcards/refcard.tex7
-rw-r--r--etc/refcards/ru-refcard.tex10
-rw-r--r--etc/refcards/sk-dired-ref.tex7
-rw-r--r--etc/refcards/sk-refcard.tex7
-rw-r--r--etc/refcards/sk-survival.tex5
-rw-r--r--etc/refcards/survival.tex5
-rw-r--r--etc/refcards/vipcard.tex7
-rw-r--r--etc/refcards/viperCard.tex7
-rw-r--r--lisp/progmodes/f90.el7
-rw-r--r--test/lisp/progmodes/f90.el18
24 files changed, 72 insertions, 86 deletions
diff --git a/admin/authors.el b/admin/authors.el
index 54c23207fee..5a97c854a62 100644
--- a/admin/authors.el
+++ b/admin/authors.el
@@ -856,7 +856,7 @@ in the repository.")
856 ("emacs-lisp/assoc.el" . "assoc.el") 856 ("emacs-lisp/assoc.el" . "assoc.el")
857 ("emacs-lisp/cust-print.el" . "cust-print.el") 857 ("emacs-lisp/cust-print.el" . "cust-print.el")
858 ("emacs-lisp/gulp.el" . "gulp.el") 858 ("emacs-lisp/gulp.el" . "gulp.el")
859 ("lisp/abbrevlist.el" . "abbrevlist.el") 859 ("abbrevlist.el" . "abbrevlist.el")
860 ("emulation/crisp.el" . "crisp.el") 860 ("emulation/crisp.el" . "crisp.el")
861 ("emulation/tpu-edt.el" . "tpu-edt.el") 861 ("emulation/tpu-edt.el" . "tpu-edt.el")
862 ("emulation/tpu-extras.el" . "tpu-extras.el") 862 ("emulation/tpu-extras.el" . "tpu-extras.el")
diff --git a/etc/refcards/calccard.tex b/etc/refcards/calccard.tex
index e692ca4b7d9..352c7c2a4f1 100644
--- a/etc/refcards/calccard.tex
+++ b/etc/refcards/calccard.tex
@@ -81,8 +81,8 @@
81 81
82Released under the terms of the GNU General Public License version 3 or later. 82Released under the terms of the GNU General Public License version 3 or later.
83 83
84\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 84For more Emacs documentation, and the \TeX{} source for this card,
85 85see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
86\endgroup} 86\endgroup}
87 87
88% make \bye not \outer so that the \def\bye in the \else clause below 88% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/etc/refcards/cs-dired-ref.tex b/etc/refcards/cs-dired-ref.tex
index c36167d5619..0cab2957134 100644
--- a/etc/refcards/cs-dired-ref.tex
+++ b/etc/refcards/cs-dired-ref.tex
@@ -63,11 +63,8 @@
63 63
64Released under the terms of the GNU General Public License version 3 or later. 64Released under the terms of the GNU General Public License version 3 or later.
65 65
66\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 66For more Emacs documentation, and the \TeX{} source for this card,
67 67see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
68For copies of the GNU Emacs manual, see:
69
70{\tt http://www.gnu.org/software/emacs/\#Manuals}
71\endgroup} 68\endgroup}
72 69
73% make \bye not \outer so that the \def\bye in the \else clause below 70% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/etc/refcards/cs-refcard.tex b/etc/refcards/cs-refcard.tex
index 154831029ab..64590fe5923 100644
--- a/etc/refcards/cs-refcard.tex
+++ b/etc/refcards/cs-refcard.tex
@@ -80,11 +80,8 @@
80 80
81Released under the terms of the GNU General Public License version 3 or later. 81Released under the terms of the GNU General Public License version 3 or later.
82 82
83\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 83For more Emacs documentation, and the \TeX{} source for this card,
84 84see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
85For copies of the GNU Emacs manual, see:
86
87{\tt http://www.gnu.org/software/emacs/\#Manuals}
88\endgroup} 85\endgroup}
89 86
90% make \bye not \outer so that the \def\bye in the \else clause below 87% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/etc/refcards/cs-survival.tex b/etc/refcards/cs-survival.tex
index 77893aec3ac..6e15f1f514b 100644
--- a/etc/refcards/cs-survival.tex
+++ b/etc/refcards/cs-survival.tex
@@ -70,8 +70,9 @@
70 Released under the terms of the GNU General Public License 70 Released under the terms of the GNU General Public License
71 version 3 or later. 71 version 3 or later.
72 72
73 \TeX{} source for this card is distributed with Emacs in 73 For more Emacs documentation, and the \TeX{} source for this card,
74 {\tt etc/refcards/}\par}} 74 see the Emacs distribution, or
75 {\tt http://www.gnu.org/software/emacs}\par}}
75 76
76\hsize 3.2in 77\hsize 3.2in
77\vsize 7.95in 78\vsize 7.95in
diff --git a/etc/refcards/de-refcard.tex b/etc/refcards/de-refcard.tex
index 89636a84509..b6d6c211d9e 100644
--- a/etc/refcards/de-refcard.tex
+++ b/etc/refcards/de-refcard.tex
@@ -82,11 +82,8 @@
82Released under the terms of the GNU General Public License 82Released under the terms of the GNU General Public License
83version 3 or later. 83version 3 or later.
84 84
85\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 85For more Emacs documentation, and the \TeX{} source for this card,
86 86see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
87F\"ur Kopien des Handbuchs zu GNU Emacs:
88
89{\tt http://www.gnu.org/software/emacs/\#Manuals}
90\endgroup} 87\endgroup}
91 88
92% make \bye not \outer so that the \def\bye in the \else clause below 89% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/etc/refcards/dired-ref.tex b/etc/refcards/dired-ref.tex
index 5f8d8babcc3..4b9f41f60b8 100644
--- a/etc/refcards/dired-ref.tex
+++ b/etc/refcards/dired-ref.tex
@@ -64,11 +64,8 @@
64 64
65Released under the terms of the GNU General Public License version 3 or later. 65Released under the terms of the GNU General Public License version 3 or later.
66 66
67\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 67For more Emacs documentation, and the \TeX{} source for this card,
68 68see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
69For copies of the GNU Emacs manual, see:
70
71{\tt http://www.gnu.org/software/emacs/\#Manuals}
72\endgroup} 69\endgroup}
73 70
74% make \bye not \outer so that the \def\bye in the \else clause below 71% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/etc/refcards/fr-dired-ref.tex b/etc/refcards/fr-dired-ref.tex
index 913372bc8cd..d04b362bc2d 100644
--- a/etc/refcards/fr-dired-ref.tex
+++ b/etc/refcards/fr-dired-ref.tex
@@ -58,11 +58,8 @@
58Released under the terms of the GNU General Public License 58Released under the terms of the GNU General Public License
59version 3 or later. 59version 3 or later.
60 60
61\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 61For more Emacs documentation, and the \TeX{} source for this card,
62 62see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
63Pour obtenir des copies du manuel de GNU Emacs:
64
65{\tt http://www.gnu.org/software/emacs/\#Manuals}
66\endgroup} 63\endgroup}
67 64
68% make \bye not \outer so that the \def\bye in the \else clause below 65% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/etc/refcards/fr-refcard.tex b/etc/refcards/fr-refcard.tex
index ddaa85befbe..73e630749df 100644
--- a/etc/refcards/fr-refcard.tex
+++ b/etc/refcards/fr-refcard.tex
@@ -78,11 +78,8 @@
78 78
79Released under the terms of the GNU General Public License version 3 or later. 79Released under the terms of the GNU General Public License version 3 or later.
80 80
81\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 81For more Emacs documentation, and the \TeX{} source for this card,
82 82see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
83Pour des copies du manuel GNU Emacs:
84
85{\tt http://www.gnu.org/software/emacs/\#Manuals}
86\endgroup} 83\endgroup}
87 84
88% make \bye not \outer so that the \def\bye in the \else clause below 85% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/etc/refcards/fr-survival.tex b/etc/refcards/fr-survival.tex
index a6279e80d40..e2a338e135a 100644
--- a/etc/refcards/fr-survival.tex
+++ b/etc/refcards/fr-survival.tex
@@ -65,8 +65,9 @@
65 Released under the terms of the GNU General Public License 65 Released under the terms of the GNU General Public License
66 version 3 or later. 66 version 3 or later.
67 67
68 \TeX{} source for this card is distributed with Emacs in {\tt 68 For more Emacs documentation, and the \TeX{} source for this card,
69 etc/refcards/}\par}} 69 see the Emacs distribution,
70 or {\tt http://www.gnu.org/software/emacs}\par}}
70 71
71\hsize 3.2in 72\hsize 3.2in
72\vsize 7.95in 73\vsize 7.95in
diff --git a/etc/refcards/gnus-refcard.tex b/etc/refcards/gnus-refcard.tex
index 46d0d7df225..6e5f2c3614f 100644
--- a/etc/refcards/gnus-refcard.tex
+++ b/etc/refcards/gnus-refcard.tex
@@ -125,7 +125,8 @@
125 125
126 Released under the terms of the GNU General Public License version 3 or later. 126 Released under the terms of the GNU General Public License version 3 or later.
127 127
128 \TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 128 For more Emacs documentation, and the \TeX{} source for this card,
129 see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
129 130
130 Please send corrections, additions and suggestions to the 131 Please send corrections, additions and suggestions to the
131 current maintainer's email address. \Guide{} last edited on \date. 132 current maintainer's email address. \Guide{} last edited on \date.
diff --git a/etc/refcards/orgcard.tex b/etc/refcards/orgcard.tex
index a5a66264557..d814de5372a 100644
--- a/etc/refcards/orgcard.tex
+++ b/etc/refcards/orgcard.tex
@@ -80,7 +80,8 @@
80\centerline{Released under the terms of the GNU General Public License} 80\centerline{Released under the terms of the GNU General Public License}
81\centerline{version 3 or later.} 81\centerline{version 3 or later.}
82 82
83\centerline{\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/}} 83\centerline{For more Emacs documentation, and the \TeX{} source for this card, see}
84\centerline{the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}}
84 85
85\endgroup} 86\endgroup}
86 87
diff --git a/etc/refcards/pl-refcard.tex b/etc/refcards/pl-refcard.tex
index 788bb2abea8..121c79cfc44 100644
--- a/etc/refcards/pl-refcard.tex
+++ b/etc/refcards/pl-refcard.tex
@@ -90,11 +90,8 @@
90 90
91Released under the terms of the GNU General Public License version 3 or later. 91Released under the terms of the GNU General Public License version 3 or later.
92 92
93\TeX{} source for this card is distributed with Emacs in {\tt etc//refcards//} 93For more Emacs documentation, and the \TeX{} source for this card,
94 94see the Emacs distribution, or {\tt http:////www.gnu.org//software//emacs}
95For copies of the GNU Emacs manual, see:
96
97{\tt http:////www.gnu.org//software//emacs//\#Manuals}
98\endgroup} 95\endgroup}
99 96
100% make \bye not \outer so that the \def\bye in the \else clause below 97% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/etc/refcards/pt-br-refcard.tex b/etc/refcards/pt-br-refcard.tex
index 27849a3d8d3..7f70d8e80ce 100644
--- a/etc/refcards/pt-br-refcard.tex
+++ b/etc/refcards/pt-br-refcard.tex
@@ -83,11 +83,8 @@
83 83
84Released under the terms of the GNU General Public License version 3 or later. 84Released under the terms of the GNU General Public License version 3 or later.
85 85
86\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 86For more Emacs documentation, and the \TeX{} source for this card,
87 87see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
88For copies of the GNU Emacs manual, see:
89
90{\tt http://www.gnu.org/software/emacs/\#Manuals}
91\endgroup} 88\endgroup}
92 89
93% make \bye not \outer so that the \def\bye in the \else clause below 90% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/etc/refcards/refcard.tex b/etc/refcards/refcard.tex
index 6eefd1560ce..afeaeec63a2 100644
--- a/etc/refcards/refcard.tex
+++ b/etc/refcards/refcard.tex
@@ -81,11 +81,8 @@
81 81
82Released under the terms of the GNU General Public License version 3 or later. 82Released under the terms of the GNU General Public License version 3 or later.
83 83
84\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 84For more Emacs documentation, and the \TeX{} source for this card,
85 85see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
86For copies of the GNU Emacs manual, see:
87
88{\tt http://www.gnu.org/software/emacs/\#Manuals}
89\endgroup} 86\endgroup}
90 87
91% make \bye not \outer so that the \def\bye in the \else clause below 88% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/etc/refcards/ru-refcard.tex b/etc/refcards/ru-refcard.tex
index 1d96473fa6c..a72d08138b2 100644
--- a/etc/refcards/ru-refcard.tex
+++ b/etc/refcards/ru-refcard.tex
@@ -54,13 +54,11 @@
54\centerline{Designed by Stephen Gildea} 54\centerline{Designed by Stephen Gildea}
55\centerline{Перевод Alex Ott <alexott@gmail.com>} 55\centerline{Перевод Alex Ott <alexott@gmail.com>}
56 56
57Released under the terms of the GNU General Public License version 3 or later. 57\centerline{Released under the terms of the GNU General Public License
58 version 3 or later.}
58 59
59\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 60\centerline{For more Emacs documentation, and the \TeX{} source for this card,}
60 61\centerline{see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}}
61For copies of the GNU Emacs manual, see:
62
63{\tt http://www.gnu.org/software/emacs/\#Manuals}
64\endgroup} 62\endgroup}
65 63
66\hyphenation{mini-buf-fer} 64\hyphenation{mini-buf-fer}
diff --git a/etc/refcards/sk-dired-ref.tex b/etc/refcards/sk-dired-ref.tex
index 81f112270f0..25f67d0f44b 100644
--- a/etc/refcards/sk-dired-ref.tex
+++ b/etc/refcards/sk-dired-ref.tex
@@ -64,11 +64,8 @@
64 64
65Released under the terms of the GNU General Public License version 3 or later. 65Released under the terms of the GNU General Public License version 3 or later.
66 66
67\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 67For more Emacs documentation, and the \TeX{} source for this card,
68 68see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
69For copies of the GNU Emacs manual, see:
70
71{\tt http://www.gnu.org/software/emacs/\#Manuals}
72\endgroup} 69\endgroup}
73 70
74% make \bye not \outer so that the \def\bye in the \else clause below 71% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/etc/refcards/sk-refcard.tex b/etc/refcards/sk-refcard.tex
index 27b3a38cd9c..83b27ef6a83 100644
--- a/etc/refcards/sk-refcard.tex
+++ b/etc/refcards/sk-refcard.tex
@@ -81,11 +81,8 @@
81 81
82Released under the terms of the GNU General Public License version 3 or later. 82Released under the terms of the GNU General Public License version 3 or later.
83 83
84\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 84For more Emacs documentation, and the \TeX{} source for this card,
85 85see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
86For copies of the GNU Emacs manual, see:
87
88{\tt http://www.gnu.org/software/emacs/\#Manuals}
89\endgroup} 86\endgroup}
90 87
91% make \bye not \outer so that the \def\bye in the \else clause below 88% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/etc/refcards/sk-survival.tex b/etc/refcards/sk-survival.tex
index 152009bd86f..27b1a78b47f 100644
--- a/etc/refcards/sk-survival.tex
+++ b/etc/refcards/sk-survival.tex
@@ -72,8 +72,9 @@
72 Released under the terms of the GNU General Public License 72 Released under the terms of the GNU General Public License
73 version 3 or later. 73 version 3 or later.
74 74
75 \TeX{} source for this card is distributed with Emacs in 75 For more Emacs documentation, and the \TeX{} source for this card,
76 {\tt etc/refcards/}\par}} 76 see the Emacs distribution,
77 or {\tt http://www.gnu.org/software/emacs}\par}}
77 78
78\hsize 3.2in 79\hsize 3.2in
79\vsize 7.95in 80\vsize 7.95in
diff --git a/etc/refcards/survival.tex b/etc/refcards/survival.tex
index 2d81b309906..1bdeb63d163 100644
--- a/etc/refcards/survival.tex
+++ b/etc/refcards/survival.tex
@@ -59,8 +59,9 @@
59 Released under the terms of the GNU General Public License 59 Released under the terms of the GNU General Public License
60 version 3 or later. 60 version 3 or later.
61 61
62 \TeX{} source for this card is distributed with Emacs in 62 For more Emacs documentation, and the \TeX{} source for this card,
63 {\tt etc/refcards/}\par}} 63 see the Emacs distribution,
64 or {\tt http://www.gnu.org/software/emacs}\par}}
64 65
65\hsize 3.2in 66\hsize 3.2in
66\vsize 7.95in 67\vsize 7.95in
diff --git a/etc/refcards/vipcard.tex b/etc/refcards/vipcard.tex
index 5eca55cc582..e4edfdbc15c 100644
--- a/etc/refcards/vipcard.tex
+++ b/etc/refcards/vipcard.tex
@@ -73,11 +73,8 @@
73 73
74Released under the terms of the GNU General Public License version 3 or later. 74Released under the terms of the GNU General Public License version 3 or later.
75 75
76\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 76For more Emacs documentation, and the \TeX{} source for this card,
77 77see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
78For copies of the GNU Emacs manual, see:
79
80{\tt http://www.gnu.org/software/emacs/\#Manuals}
81\endgroup} 78\endgroup}
82 79
83% make \bye not \outer so that the \def\bye in the \else clause below 80% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/etc/refcards/viperCard.tex b/etc/refcards/viperCard.tex
index d984ffc484f..66d65efdff1 100644
--- a/etc/refcards/viperCard.tex
+++ b/etc/refcards/viperCard.tex
@@ -77,11 +77,8 @@
77 77
78Released under the terms of the GNU General Public License version 3 or later. 78Released under the terms of the GNU General Public License version 3 or later.
79 79
80\TeX{} source for this card is distributed with Emacs in {\tt etc/refcards/} 80For more Emacs documentation, and the \TeX{} source for this card,
81 81see the Emacs distribution, or {\tt http://www.gnu.org/software/emacs}
82For copies of the GNU Emacs manual, see:
83
84{\tt http://www.gnu.org/software/emacs/\#Manuals}
85\endgroup} 82\endgroup}
86 83
87% make \bye not \outer so that the \def\bye in the \else clause below 84% make \bye not \outer so that the \def\bye in the \else clause below
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 58397530e4f..d9a34720046 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -895,8 +895,10 @@ Can be overridden by the value of `font-lock-maximum-decoration'.")
895 895
896;; This is for a TYPE block, not a variable of derived TYPE. 896;; This is for a TYPE block, not a variable of derived TYPE.
897;; Hence no need to add CLASS for F2003. 897;; Hence no need to add CLASS for F2003.
898;; Note that this also matches "type is", so you might need to use
899;; f90-typeis-re as well.
898(defconst f90-type-def-re 900(defconst f90-type-def-re
899 ;; type word 901 ;; type word (includes "type is")
900 ;; type :: word 902 ;; type :: word
901 ;; type, attr-list :: word 903 ;; type, attr-list :: word
902 ;; where attr-list = attr [, attr ...] 904 ;; where attr-list = attr [, attr ...]
@@ -953,7 +955,7 @@ Used in the F90 entry in `hs-special-modes-alist'.")
953 ;; Avoid F2003 "type is" in "select type", 955 ;; Avoid F2003 "type is" in "select type",
954 ;; and also variables of derived type "type (foo)". 956 ;; and also variables of derived type "type (foo)".
955 ;; "type, foo" must be a block (?). 957 ;; "type, foo" must be a block (?).
956 "type[ \t,]\\(" 958 "\\(?:type\\|class\\)[ \t,]\\("
957 "[^i(!\n\"& \t]\\|" ; not-i( 959 "[^i(!\n\"& \t]\\|" ; not-i(
958 "i[^s!\n\"& \t]\\|" ; i not-s 960 "i[^s!\n\"& \t]\\|" ; i not-s
959 "is\\(?:\\sw\\|\\s_\\)\\)\\|" 961 "is\\(?:\\sw\\|\\s_\\)\\)\\|"
@@ -1452,6 +1454,7 @@ if all else fails."
1452 (not (or (looking-at "end") 1454 (not (or (looking-at "end")
1453 (looking-at "\\(do\\|if\\|else\\(if\\|where\\)?\ 1455 (looking-at "\\(do\\|if\\|else\\(if\\|where\\)?\
1454\\|select[ \t]*\\(case\\|type\\)\\|case\\|where\\|forall\\|\ 1456\\|select[ \t]*\\(case\\|type\\)\\|case\\|where\\|forall\\|\
1457\\(?:class\\|type\\)[ \t]*is\\|\
1455block\\|critical\\|enum\\|associate\\)\\_>") 1458block\\|critical\\|enum\\|associate\\)\\_>")
1456 (looking-at "\\(program\\|\\(?:sub\\)?module\\|\ 1459 (looking-at "\\(program\\|\\(?:sub\\)?module\\|\
1457\\(?:abstract[ \t]*\\)?interface\\|block[ \t]*data\\)\\_>") 1460\\(?:abstract[ \t]*\\)?interface\\|block[ \t]*data\\)\\_>")
diff --git a/test/lisp/progmodes/f90.el b/test/lisp/progmodes/f90.el
index fece86ca1d8..29c608847f1 100644
--- a/test/lisp/progmodes/f90.el
+++ b/test/lisp/progmodes/f90.el
@@ -255,4 +255,22 @@ end program prog")
255 (forward-line -2) 255 (forward-line -2)
256 (should (= 5 (current-indentation))))) 256 (should (= 5 (current-indentation)))))
257 257
258(ert-deftest f90-test-bug25039 ()
259 "Test for http://debbugs.gnu.org/25039 ."
260 (with-temp-buffer
261 (f90-mode)
262 (insert "program prog
263select type (a)
264class is (c1)
265x = 1
266type is (t1)
267x = 2
268end select
269end program prog")
270 (f90-indent-subprogram)
271 (forward-line -3)
272 (should (= 2 (current-indentation))) ; type is
273 (forward-line -2)
274 (should (= 2 (current-indentation))))) ; class is
275
258;;; f90.el ends here 276;;; f90.el ends here