(fortran-fill-paragraph): This is the one

which must return t, not:
(fortran-fill-statement):

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index a20b42a19b56e36cdab38e7d158af4e9aed9ed95..da30a95d0f7c25ec533fe24f18e78a8737d6308d 100644 (file)
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -1768,7 +1768,8 @@ Intended as the value of `fill-paragraph-function'."
          (let (fill-paragraph-function)
            (fill-region start end justify))) ; with normal `fill-paragraph'
        (set-marker start nil)
-       (set-marker end nil)))))
+       (set-marker end nil))))
+  t)
 
 (defun fortran-fill-statement ()
   "Fill a fortran statement up to `fill-column'."
@@ -1791,8 +1792,7 @@ Intended as the value of `fill-paragraph-function'."
                  (forward-line)
                  (fortran-remove-continuation)))
         (fortran-previous-statement)))
-    (fortran-indent-line)
-  t)                                    ; must return t for fill-paragraph
+    (fortran-indent-line))
 
 (provide 'fortran)