diff options
| author | Paul Eggert | 2016-12-07 12:39:08 -0800 |
|---|---|---|
| committer | Paul Eggert | 2016-12-07 12:39:08 -0800 |
| commit | fd6632b397316146397dd478a858f0b9a90efeed (patch) | |
| tree | b4cf7ad204c611d20db93f846a0b4aebadd06d31 /test | |
| parent | 8209e0384441cafb67d779bbd17ea812269ca4cc (diff) | |
| parent | 9a857b922e03617c533b396705f8019871b33b54 (diff) | |
| download | emacs-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"
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/progmodes/f90.el | 18 |
1 files changed, 18 insertions, 0 deletions
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 | ||
| 263 | select type (a) | ||
| 264 | class is (c1) | ||
| 265 | x = 1 | ||
| 266 | type is (t1) | ||
| 267 | x = 2 | ||
| 268 | end select | ||
| 269 | end 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 |