# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1114371748 0
# Node ID ab4b241ac8361e8c5c6ed9aac54b7720b2783f6d
# Parent  f83775915bd257999cc54176cfe0188aaf48a0a0
(f90-calculate-indent): Fix treatment of first statement in buffer
(broken by 2004-11-24 change).

diff -r f83775915bd2 -r ab4b241ac836 lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Sun Apr 24 19:41:45 2005 +0000
+++ b/lisp/progmodes/f90.el	Sun Apr 24 19:42:28 2005 +0000
@@ -1109,9 +1109,15 @@
   (let (icol cont (case-fold-search t) (pnt (point)))
     (save-excursion
       (if (not (f90-previous-statement))
-          ;; First statement in buffer.
+          ;; If f90-previous-statement returns nil, we must have been
+          ;; called from on or before the first line of the first statement.
 	  (setq icol (if (save-excursion
-                           (f90-next-statement)
+                           ;; f90-previous-statement has moved us over
+                           ;; comment/blank lines, so we need to get
+                           ;; back to the first code statement.
+                           (when (looking-at "[ \t]*\\([!#]\\|$\\)")
+                             (f90-next-statement))
+                           (skip-chars-forward " \t0-9")
                            (f90-looking-at-program-block-start))
                          0
                        ;; No explicit PROGRAM start statement.