diff options
| author | Glenn Morris <rgm@gnu.org> | 2020-01-16 07:50:22 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2020-01-16 07:50:22 -0800 |
| commit | 215d9fcb79b6ec3c241f58fdff02bf15fb952d0c (patch) | |
| tree | 00b960d85395a10dd1831fef0fe73cb515dbbf11 /test | |
| parent | 0f4fa004ebbcf8796abab26988e79b01ba4f2ab5 (diff) | |
| parent | 52080b5778cbe535c331fa14539aecd88f2be0a0 (diff) | |
| download | emacs-215d9fcb79b6ec3c241f58fdff02bf15fb952d0c.tar.gz | |
Merge from origin/emacs-27
52080b5778 (origin/emacs-27) * lisp/minibuffer.el (read-file-name-def...
e4cec1fd10 ; * etc/NEWS: Fix some file name quotations.
13995f31a2 Make emacs prefer an existing ~/.emacs.d to an existing XD...
91cac24952 ; etc/NEWS minor edits
5505babc07 Describe --with-cairo non-support for bitmapped fonts.
caf00066ee Mention GTK font chooser changes in NEWS
23b87db628 ; Unmaintain fortran elisp
3b0d1a50aa f90: handle F2008 module function
55803cc189 Move shell-related menu items to "Shell Commands" submenu ...
2be48605c0 * admin/notes/font-backend: Remove outdated file. (Bug#34663)
f07a470124 Declare the ftx font backend driver obsolete
6c08a430fb ; Fix wording of a comment.
# Conflicts:
# admin/notes/font-backend
# etc/NEWS
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/progmodes/f90-tests.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test/lisp/progmodes/f90-tests.el b/test/lisp/progmodes/f90-tests.el index 540082c7174..b6fbac351dc 100644 --- a/test/lisp/progmodes/f90-tests.el +++ b/test/lisp/progmodes/f90-tests.el @@ -277,4 +277,24 @@ end program prog") (forward-line -2) (should (= 2 (current-indentation))))) ; type is +(ert-deftest f90-test-bug38415 () + "Test for https://debbugs.gnu.org/38415 ." + (with-temp-buffer + (f90-mode) + (setq-local f90-smart-end 'no-blink) + (insert "module function foo(x) +real :: x +end") + (f90-indent-line) + (should (equal " function foo" + (buffer-substring (point) (line-end-position)))) + (goto-char (point-max)) + (insert "\nmodule subroutine bar(x) +real :: x +end") + (f90-indent-line) + (should (equal " subroutine bar" + (buffer-substring (point) (line-end-position)))))) + + ;;; f90-tests.el ends here |