1 files changed, 18 insertions, 0 deletions

diff --git a/test/automated/f90.el b/test/automated/f90.el
index fece86ca1d8..29c608847f1 100644
--- a/test/automated/f90.el
+++ b/test/automated/f90.el
@@ -255,4 +255,22 @@ end program prog")
     (forward-line -2)
     (should (= 5 (current-indentation)))))
 
+(ert-deftest f90-test-bug25039 ()
+  "Test for http://debbugs.gnu.org/25039 ."
+  (with-temp-buffer
+    (f90-mode)
+    (insert "program prog
+select type (a)
+class is (c1)
+x = 1
+type is (t1)
+x = 2
+end select
+end program prog")
+    (f90-indent-subprogram)
+    (forward-line -3)
+    (should (= 2 (current-indentation))) ; type is
+    (forward-line -2)
+    (should (= 2 (current-indentation))))) ; class is
+
 ;;; f90.el ends here