1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 312fb682930..1109f99aa5f 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -808,7 +808,11 @@ See also `fortran-window-create-momentarily'."
           (if (< (window-width) (frame-width))
               (enlarge-window-horizontally (- (frame-width)
                                               (window-width) 1)))
-          (split-window-horizontally 73)
+          (let* ((window-edges (window-edges))
+                 (scroll-bar-width (- (nth 2 window-edges)
+                                      (car window-edges)
+                                      (window-width))))
+            (split-window-horizontally (+ 72 scroll-bar-width)))
           (other-window 1)
           (switch-to-buffer " fortran-window-extra" t)
           (select-window (previous-window))))