+
+(defvar fortran-do-indent 3 "\
+*Extra indentation applied to `do' blocks.")
+
+(defvar fortran-if-indent 3 "\
+*Extra indentation applied to `if' blocks.")
+
+(defvar fortran-continuation-indent 5 "\
+*Extra indentation applied to `continuation' lines.")
+
+(defvar fortran-comment-indent-style (quote fixed) "\
+*nil forces comment lines not to be touched,
+'fixed produces fixed comment indentation to comment-column,
+and 'relative indents to current fortran indentation plus comment-column.")
+
+(defvar fortran-comment-line-column 6 "\
+*Indentation for text in comment lines.")
+
+(defvar comment-line-start nil "\
+*Delimiter inserted to start new full-line comment.")
+
+(defvar comment-line-start-skip nil "\
+*Regexp to match the start of a full-line comment.")
+
+(defvar fortran-minimum-statement-indent 6 "\
+*Minimum indentation for fortran statements.")
+
+(defvar fortran-comment-indent-char 32 "\
+*Character to be inserted for Fortran comment indentation.
+Normally a space.")
+
+(defvar fortran-line-number-indent 1 "\
+*Maximum indentation for Fortran line numbers.
+5 means right-justify them within their five-column field.")
+
+(defvar fortran-check-all-num-for-matching-do nil "\
+*Non-nil causes all numbered lines to be treated as possible do-loop ends.")
+
+(defvar fortran-continuation-char 36 "\
+*Character which is inserted in column 5 by \\[fortran-split-line]
+to begin a continuation line. Normally $.")
+
+(defvar fortran-comment-region "c$$$" "\
+*String inserted by \\[fortran-comment-region] at start of each line in region.")
+
+(defvar fortran-electric-line-number t "\
+*Non-nil causes line number digits to be moved to the correct column as typed.")
+
+(defvar fortran-startup-message t "\
+*Non-nil displays a startup message when fortran-mode is first called.")
+
+(defvar fortran-column-ruler (concat "0 4 6 10 20 30 40 50 60 70
+" "[ ]|{ | | | | | | | | | | | | |}
+") "*String displayed above current line by \\[fortran-column-ruler].")
+
+(defconst fortran-mode-version "1.21")
+
+(defvar fortran-mode-syntax-table nil "\
+Syntax table in use in fortran-mode buffers.")
+
+(if fortran-mode-syntax-table nil (setq fortran-mode-syntax-table (make-syntax-table)) (modify-syntax-entry 59 "w" fortran-mode-syntax-table) (modify-syntax-entry 43 "." fortran-mode-syntax-table) (modify-syntax-entry 45 "." fortran-mode-syntax-table) (modify-syntax-entry 42 "." fortran-mode-syntax-table) (modify-syntax-entry 47 "." fortran-mode-syntax-table) (modify-syntax-entry 39 "\"" fortran-mode-syntax-table) (modify-syntax-entry 34 "\"" fortran-mode-syntax-table) (modify-syntax-entry 92 "/" fortran-mode-syntax-table) (modify-syntax-entry 46 "w" fortran-mode-syntax-table) (modify-syntax-entry 10 ">" fortran-mode-syntax-table))
+
+(defvar fortran-mode-map nil "\
+Keymap used in fortran mode.")
+
+(if fortran-mode-map nil (setq fortran-mode-map (make-sparse-keymap)) (define-key fortran-mode-map ";" (quote fortran-abbrev-start)) (define-key fortran-mode-map "\ 3;" (quote fortran-comment-region)) (define-key fortran-mode-map "\e\ 1" (quote beginning-of-fortran-subprogram)) (define-key fortran-mode-map "\e\ 5" (quote end-of-fortran-subprogram)) (define-key fortran-mode-map "\e;" (quote fortran-indent-comment)) (define-key fortran-mode-map "\e\b" (quote mark-fortran-subprogram)) (define-key fortran-mode-map "\e
+" (quote fortran-split-line)) (define-key fortran-mode-map "\e\11" (quote fortran-indent-subprogram)) (define-key fortran-mode-map "\ 3\17" (quote fortran-window-create)) (define-key fortran-mode-map "\ 3\12" (quote fortran-column-ruler)) (define-key fortran-mode-map "\ 3\10" (quote fortran-previous-statement)) (define-key fortran-mode-map "\ 3\ e" (quote fortran-next-statement)) (define-key fortran-mode-map " " (quote fortran-indent-line)) (define-key fortran-mode-map "0" (quote fortran-electric-line-number)) (define-key fortran-mode-map "1" (quote fortran-electric-line-number)) (define-key fortran-mode-map "2" (quote fortran-electric-line-number)) (define-key fortran-mode-map "3" (quote fortran-electric-line-number)) (define-key fortran-mode-map "4" (quote fortran-electric-line-number)) (define-key fortran-mode-map "5" (quote fortran-electric-line-number)) (define-key fortran-mode-map "6" (quote fortran-electric-line-number)) (define-key fortran-mode-map "7" (quote fortran-electric-line-number)) (define-key fortran-mode-map "8" (quote fortran-electric-line-number)) (define-key fortran-mode-map "9" (quote fortran-electric-line-number)))
+
+(defvar fortran-mode-abbrev-table nil)
+
+(if fortran-mode-abbrev-table nil (define-abbrev-table (quote fortran-mode-abbrev-table) nil) (let ((abbrevs-changed nil)) (define-abbrev fortran-mode-abbrev-table ";b" "byte" nil) (define-abbrev fortran-mode-abbrev-table ";ch" "character" nil) (define-abbrev fortran-mode-abbrev-table ";cl" "close" nil) (define-abbrev fortran-mode-abbrev-table ";c" "continue" nil) (define-abbrev fortran-mode-abbrev-table ";cm" "common" nil) (define-abbrev fortran-mode-abbrev-table ";cx" "complex" nil) (define-abbrev fortran-mode-abbrev-table ";di" "dimension" nil) (define-abbrev fortran-mode-abbrev-table ";do" "double" nil) (define-abbrev fortran-mode-abbrev-table ";dc" "double complex" nil) (define-abbrev fortran-mode-abbrev-table ";dp" "double precision" nil) (define-abbrev fortran-mode-abbrev-table ";dw" "do while" nil) (define-abbrev fortran-mode-abbrev-table ";e" "else" nil) (define-abbrev fortran-mode-abbrev-table ";ed" "enddo" nil) (define-abbrev fortran-mode-abbrev-table ";el" "elseif" nil) (define-abbrev fortran-mode-abbrev-table ";en" "endif" nil) (define-abbrev fortran-mode-abbrev-table ";eq" "equivalence" nil) (define-abbrev fortran-mode-abbrev-table ";ex" "external" nil) (define-abbrev fortran-mode-abbrev-table ";ey" "entry" nil) (define-abbrev fortran-mode-abbrev-table ";f" "format" nil) (define-abbrev fortran-mode-abbrev-table ";fu" "function" nil) (define-abbrev fortran-mode-abbrev-table ";g" "goto" nil) (define-abbrev fortran-mode-abbrev-table ";im" "implicit" nil) (define-abbrev fortran-mode-abbrev-table ";ib" "implicit byte" nil) (define-abbrev fortran-mode-abbrev-table ";ic" "implicit complex" nil) (define-abbrev fortran-mode-abbrev-table ";ich" "implicit character" nil) (define-abbrev fortran-mode-abbrev-table ";ii" "implicit integer" nil) (define-abbrev fortran-mode-abbrev-table ";il" "implicit logical" nil) (define-abbrev fortran-mode-abbrev-table ";ir" "implicit real" nil) (define-abbrev fortran-mode-abbrev-table ";inc" "include" nil) (define-abbrev fortran-mode-abbrev-table ";in" "integer" nil) (define-abbrev fortran-mode-abbrev-table ";intr" "intrinsic" nil) (define-abbrev fortran-mode-abbrev-table ";l" "logical" nil) (define-abbrev fortran-mode-abbrev-table ";op" "open" nil) (define-abbrev fortran-mode-abbrev-table ";pa" "parameter" nil) (define-abbrev fortran-mode-abbrev-table ";pr" "program" nil) (define-abbrev fortran-mode-abbrev-table ";p" "print" nil) (define-abbrev fortran-mode-abbrev-table ";re" "real" nil) (define-abbrev fortran-mode-abbrev-table ";r" "read" nil) (define-abbrev fortran-mode-abbrev-table ";rt" "return" nil) (define-abbrev fortran-mode-abbrev-table ";rw" "rewind" nil) (define-abbrev fortran-mode-abbrev-table ";s" "stop" nil) (define-abbrev fortran-mode-abbrev-table ";su" "subroutine" nil) (define-abbrev fortran-mode-abbrev-table ";ty" "type" nil) (define-abbrev fortran-mode-abbrev-table ";w" "write" nil)))
+
+(defun fortran-mode nil "\
+Major mode for editing fortran code.
+Tab indents the current fortran line correctly.
+`do' statements must not share a common `continue'.
+
+Type `;?' or `;\\[help-command]' to display a list of built-in abbrevs for Fortran keywords.
+
+Variables controlling indentation style and extra features:
+
+ comment-start
+ Normally nil in Fortran mode. If you want to use comments
+ starting with `!', set this to the string \"!\".
+ fortran-do-indent
+ Extra indentation within do blocks. (default 3)
+ fortran-if-indent
+ Extra indentation within if blocks. (default 3)
+ fortran-continuation-indent
+ Extra indentation appled to continuation statements. (default 5)
+ fortran-comment-line-column
+ Amount of indentation for text within full-line comments. (default 6)
+ fortran-comment-indent-style
+ nil means don't change indentation of text in full-line comments,
+ fixed means indent that text at column fortran-comment-line-column
+ relative means indent at fortran-comment-line-column beyond the
+ indentation for a line of code.
+ Default value is fixed.
+ fortran-comment-indent-char
+ Character to be inserted instead of space for full-line comment
+ indentation. (default is a space)
+ fortran-minimum-statement-indent
+ Minimum indentation for fortran statements. (default 6)
+ fortran-line-number-indent
+ Maximum indentation for line numbers. A line number will get
+ less than this much indentation if necessary to avoid reaching
+ column 5. (default 1)
+ fortran-check-all-num-for-matching-do
+ Non-nil causes all numbered lines to be treated as possible 'continue'
+ statements. (default nil)
+ fortran-continuation-char
+ character to be inserted in column 5 of a continuation line.
+ (default $)
+ fortran-comment-region
+ String inserted by \\[fortran-comment-region] at start of each line in
+ region. (default \"c$$$\")
+ fortran-electric-line-number
+ Non-nil causes line number digits to be moved to the correct column
+ as typed. (default t)
+ fortran-startup-message
+ Set to nil to inhibit message first time fortran-mode is used.
+
+Turning on Fortran mode calls the value of the variable fortran-mode-hook
+with no args, if that value is non-nil.
+\\{fortran-mode-map}" (interactive) (byte-code "Â\88Ó \88\b\85\r\0ÔÕ \"\88Â\89\10\88\f\89\13\88Ö\r!\88×Æ!\88Ø\89\16\ 6\88×Ç!\88Ù\89\16\a\88×È!\88Ú\89\16\b\88×É!\88Û\89\16 \88×Ê!\88Ü\89\16
+\88×Ë!\88Â\89\16\v\88×Ì!\88Í\89\16\f\88×Î!\88Í\89\16\ e\88×Ï!\88Â\89\16\ f\88Ý\ e\10!\88Þ\89\16\11\88ß\89\16\12\88àá!\87" [fortran-startup-message fortran-mode-version nil local-abbrev-table fortran-mode-abbrev-table fortran-mode-syntax-table indent-line-function comment-indent-hook comment-line-start-skip comment-line-start comment-start-skip comment-start require-final-newline t abbrev-all-caps indent-tabs-mode fortran-mode-map mode-name major-mode kill-all-local-variables message "Emacs Fortran mode version %s. Bugs to bug-fortran-mode@erl.mit.edu" set-syntax-table make-local-variable fortran-indent-line fortran-comment-hook "^[Cc*][^
+]*[ ]*" "c" "![ ]*" use-local-map "Fortran" fortran-mode run-hooks fortran-mode-hook] 15))
+
+(defun fortran-comment-hook nil (byte-code "\8aÁÂ!\88Ãi\\\b])\87" [comment-column skip-chars-backward " " 1] 3))
+
+(defun fortran-indent-comment nil "\
+Align or create comment on current line.
+Existing comments of all types are recognized and aligned.
+If the line has no comment, a side-by-side comment is inserted and aligned
+if the value of comment-start is not nil.
+Otherwise, a separate-line comment is inserted, on this line
+or on a new line inserted before this line if this line is not blank." (interactive) (byte-code "Æ\88Ç \88È\b!\83\10\0É \82f\0Ê \8aË \88`)Â#\83\"\0Ì \82f\0\v\85*\0ÈÍ!?\83<\0Ë \88Î \88Ï j\88\vc\82f\0ÈÍ!\83G\0Î \82P\0Ç \88Ðc\88ÑÒ!\88\fc\88Ó\r;\83`\0\rÔH\82a\0\rÕ iZ\"\87" [comment-line-start-skip comment-start-skip t comment-start comment-line-start fortran-comment-indent-char nil beginning-of-line looking-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ ]*$" delete-horizontal-space fortran-comment-hook "
+" forward-char -1 insert-char 0 calculate-fortran-indent] 19))
+
+(defun fortran-comment-region (beg-region end-region arg) "\
+Comments every line in the region.
+Puts fortran-comment-region at the beginning of every line in the region.
+BEG-REGION and END-REGION are args which specify the region boundaries.
+With non-nil ARG, uncomments the region." (interactive "*r
+P") (byte-code "Ç\88È É \19\18Ê\b
+\"\88\vb\88Ë \88\f?\832\0\rc\88ÌÍ!ÎU\85&\0`\bW\85/\0\rc\88\82\e\0\82e\0Ï\r!\1e\ 6Ð\ e\ 6!\85D\0Ñ`ÒÎ!\"\88ÌÍ!ÎU\85P\0`\bW\85d\0Ð\ e\ 6!\85`\0Ñ`ÒÎ!\"\88\82E\0)\88 b\88Ê\bÇ\"\88Ê Ç\"*\87" [end-region-mark save-point end-region beg-region arg fortran-comment-region com nil make-marker point-marker set-marker beginning-of-line forward-line 1 0 regexp-quote looking-at delete-region match-end] 17))
+
+(defun fortran-abbrev-start nil "\
+Typing \";\\[help-command]\" or \";?\" lists all the fortran abbrevs.
+Any other key combination is executed normally." (interactive) (byte-code "Ä\88Ä\18 c\88r\89\10ÅU\86\12\0\b
+U\83\1a\0Æ \82\1d\0\b\89\13)\87" [c last-command-char help-char unread-command-char nil 63 fortran-abbrev-help] 3))
+
+(defun fortran-abbrev-help nil "\
+List the currently defined abbrevs in Fortran mode." (interactive) (byte-code "Á\88ÂÃ!\88ÄÅ!\88Æ\bÇ\"\88ÂÈ!\87" [fortran-mode-abbrev-table nil message "Listing abbrev table..." require abbrevlist list-one-abbrev-table "*Help*" "Listing abbrev table...done"] 5))
+
+(defun fortran-column-ruler nil "\
+Inserts a column ruler momentarily above current line, till next keystroke.
+The ruler is defined by the value of fortran-column-ruler.
+The key typed is executed unless it is SPC." (interactive) (byte-code "Á\88Â\b\8aà \88`)ÁÄ$\87" [fortran-column-ruler nil momentary-string-display beginning-of-line "Type SPC or any command to erase ruler."] 6))
+
+(defun fortran-window-create nil "\
+Makes the window 72 columns wide." (interactive) (byte-code "Â\88Ã\18ÄÅ!)\88ÆÇ!\88ÈÉÁ\"\88ÊË !\87" [window-min-width t nil 2 split-window-horizontally 73 other-window 1 switch-to-buffer " fortran-window-extra" select-window previous-window] 6))
+
+(defun fortran-split-line nil "\
+Break line at point and insert continuation marker and alignment." (interactive) (byte-code "Ã\88Ä \88\8aÅ \88Æ\b!)\83\18\0ÇÈ É#\82\1c\0ÇÊ
+\"\88Ë \87" [comment-line-start-skip comment-line-start fortran-continuation-char nil delete-horizontal-space beginning-of-line looking-at insert "
+" " " "
+ " fortran-indent-line] 7))
+
+(defun delete-horizontal-regexp (chars) "\
+Delete all characters in CHARS around point.
+CHARS is like the inside of a [...] in a regular expression
+except that ] is never special and quotes ^, - or ." (interactive "*s") (byte-code "Á\88Â\b!\88Ã`Ä\b!\88`\"\87" [chars nil skip-chars-backward delete-region skip-chars-forward] 5))
+
+(defun fortran-electric-line-number (arg) "\
+Self insert, but if part of a Fortran line number indent it automatically.
+Auto-indent does not happen if a numeric arg is used." (interactive "P") (byte-code "Ä\88\b\86\b\0 ?\83\11\0Å\b!\824\0\8aÆÇ\8aÈ \88`)Â#)\86#\0ÉÊ!\83+\0\vc\824\0ËÌ!\88\vc\88Í \87" [arg fortran-electric-line-number t last-command-char nil self-insert-command re-search-backward "[^ 0-9]" beginning-of-line looking-at "[0-9]" skip-chars-backward " " fortran-indent-line] 7))
+
+(defun beginning-of-fortran-subprogram nil "\
+Moves point to the beginning of the current fortran subprogram." (interactive) (byte-code "Â\88Á\18ÃÄ!\88ÅÆÂÇ#\88ÈÆ!\85\17\0ÉÊ!)\87" [case-fold-search t nil beginning-of-line -1 re-search-backward "^[ 0-9]*end\\b[ ]*[^ =(a-z]" move looking-at forward-line 1] 5))
+
+(defun end-of-fortran-subprogram nil "\
+Moves point to the end of the current fortran subprogram." (interactive) (byte-code "Â\88Á\18ÃÄ!\88ÅÆÂÇ#\88ÈÉ!b\88ÊË!)\87" [case-fold-search t nil beginning-of-line 2 re-search-forward "^[ 0-9]*end\\b[ ]*[^ =(a-z]" move match-beginning 0 forward-line 1] 5))
+
+(defun mark-fortran-subprogram nil "\
+Put mark at end of fortran subprogram, point at beginning.
+The marks are pushed." (interactive) (byte-code "À\88Á \88Â`!\88Ã \87" [nil end-of-fortran-subprogram push-mark beginning-of-fortran-subprogram] 4))
+
+(defun fortran-previous-statement nil "\
+Moves point to beginning of the previous fortran statement.
+Returns 'first-statement if that statement is the first
+non-comment Fortran statement in the file, and nil otherwise." (interactive) (byte-code "Å\88ÅÅ\19\18Æ \88ÇÈÉÊ
+!!P!\86\18\0ÇË!\89\11\88ÌÍ!ÎU\89\10\85<\0Ç\v!\86<\0ÇÏ!\86<\0ÇË!\86<\0ÇÈ\fP!\85D\0Å\88\82\e\0\88 \85K\0\b?\83T\0ÐÑ!\82c\0 \83]\0Ò \82c\0\b?\85c\0Ó*\87" [not-first-statement continue-test fortran-continuation-char comment-line-start-skip comment-start-skip nil beginning-of-line looking-at "[ ]*" regexp-quote char-to-string " [^ 0
+]" forward-line -1 0 "[ ]*$" message "Incomplete continuation statement." fortran-previous-statement first-statement] 13))
+
+(defun fortran-next-statement nil "\
+Moves point to beginning of the next fortran statement.
+ Returns 'last-statement if that statement is the last
+ non-comment Fortran statement in the file, and nil otherwise." (interactive) (byte-code "Ã\88Ã\18Ä \88ÅÆ!ÇU\89\10\85(\0È !\86(\0ÈÉ!\86(\0ÈÊ!\86(\0ÈË
+P!\850\0Ã\88\82\a\0\88\b?\857\0Ì)\87" [not-last-statement comment-line-start-skip comment-start-skip nil beginning-of-line forward-line 1 0 looking-at "[ ]*$" " [^ 0
+]" "[ ]*" last-statement] 8))
+
+(defun fortran-indent-line nil "\
+Indents current fortran line based on its contents and on previous lines." (interactive) (byte-code "Ã\88Ä \18\8aÅ \88\bÆ U?\86\1e\0ÇÈ`É\\Á#\85\1e\0Ê ?\83'\0Ë\b!\829\0Å \88Ç
+\8aÌ \88`)Í#\859\0Î )\88i\bW\85D\0Ï\b!)\87" [cfi t comment-start-skip nil calculate-fortran-indent beginning-of-line fortran-current-line-indentation re-search-forward "^[ ]*[0-9]+" 4 fortran-line-number-indented-correctly-p fortran-indent-to-column end-of-line move fortran-indent-comment move-to-column] 12))
+
+(defun fortran-indent-subprogram nil "\
+Properly indents the Fortran subprogram which contains point." (interactive) (byte-code "À\88\8aÁ \88ÂÃ!\88Ä`Å À#)\88ÂÆ!\87" [nil mark-fortran-subprogram message "Indenting subprogram..." indent-region mark "Indenting subprogram...done."] 7))
+
+(defun calculate-fortran-indent nil "\
+Calculates the fortran indent column based on previous lines." (byte-code "ÎÎÃ\1a\19\18\8aÏ \89\11\88 \83\16\0\f\89\10\82\7f\0`eU\83\"\0\f\89\10\82&\0Ð \89\10\88ÑÒ!\88ÓÔ!\83d\0ÓÕ!\86X\0Î\1dÖ×!ØU\85M\0ÓÙ!\85M\0ÓÚ!\89\15?\85U\0Î\88\829\0\88\r)\85a\0\b\ e\ 6\\\89\10\82\7f\0ÓÛ!\83s\0\b\ e\ 6\\\89\10\82\7f\0ÓÜ!\85\7f\0\b\ e\a\\\89\10)\88\8aÝ \88ÓÞ!\86?\ 1Ó\ e\b!\83°\0\ e ß=\83¢\0\b\ e
+\\\89\10\82\0\ e à=\85\0\ e
+\89\10\82?\ 1Óáâã\ e\v!!P!\86À\0Óä!\83Ì\0\b\ e\f\\\89\10\82?\ 1 \86?\ 1\ e\r\85Ý\0Óå!\85Ý\0æ \83é\0\b\ e\aZ\89\10\82?\ 1ÑÒ!\88Óç!\83ü\0\b\ e\ 6Z\89\10\82?\ 1ÓÛ!\83\v\ 1\b\ e\ 6Z\89\10\82?\ 1Óè!\85\13\ 1æ \83\1f\ 1\b\ e\aZ\89\10\82?\ 1Óé!\83.\ 1\b\ e\aZ\89\10\82?\ 1Óê!\858\ 1\b\fU?\85?\ 1ëì\f\")\88\f\b]+\87" [icol first-statement case-fold-search t fortran-minimum-statement-indent then-test fortran-if-indent fortran-do-indent comment-line-start-skip fortran-comment-indent-style fortran-comment-line-column fortran-continuation-char fortran-continuation-indent fortran-check-all-num-for-matching-do nil fortran-previous-statement fortran-current-line-indentation skip-chars-forward " 0-9" looking-at "if[ ]*(" ".*)[ ]*then\\b[ ]*[^ (=a-z0-9]" forward-line 1 0 " [^ 0]" ".*then\\b[ ]*[^ (=a-z0-9]" "\\(else\\|elseif\\)\\b" "do\\b" beginning-of-line "[ ]*$" relative fixed "[ ]*" regexp-quote char-to-string " [^ 0
+]" "[ ]*[0-9]+" fortran-check-for-matching-do "end[ ]*if\\b" "continue\\b" "end[ ]*do\\b" "end\\b[ ]*[^ =(a-z]" message "Warning: `end' not in column %d. Probably an unclosed block."] 29))
+
+(defun fortran-current-line-indentation nil "\
+Indentation of current line, ignoring Fortran line number or continuation.
+This is the column position of the first non-whitespace character
+aside from the line number and/or column 5 line-continuation character.
+For comment lines, returns indentation of the first
+non-indentation text within the comment." (byte-code "\8aà \88Ä\b!\83 \0ÅÆ!b\88Ç ;\83\19\0 \82\1c\0È !!\820\0ÄÉ!\83-\0ÅÆ!b\820\0ÊË!\88ÇÌ!\88i)\87" [comment-line-start-skip fortran-comment-indent-char t beginning-of-line looking-at match-end 0 skip-chars-forward char-to-string " [^ 0
+]" move-to-column 5 " "] 10))
+
+(defun fortran-indent-to-column (col) "\
+Indents current line with spaces to column COL.
+notes: 1) A non-zero/non-blank character in column 5 indicates a continuation
+ line, and this continuation character is retained on indentation;
+ 2) If fortran-continuation-char is the first non-whitespace character,
+ this is a continuation line;
+ 3) A non-continuation line which has a number as the first
+ non-whitespace character is a numbered line." (byte-code "\8aÊ \88Ë\b!\832\0 \85/\0\v;\83\19\0\vÌH\82\1a\0\v\1aÍÌ!b\88ÎÏÐ
+!P!\88Ñ
+\fiZ\")\82£\0ËÒ!\83>\0ÓÔ!\82{\0Õ \88m\86{\0g\rU\83T\0Öj\88Ó×!\82{\0ËØ!\85{\0ÖÍÌ!`ZZ\1e\ 6\ e\ 6ÌW\83p\0ÙÚ!\82v\0\ e\a\ e\ 6^j)\88ÛÜ!\88Õ \88\fj\88Ý\ e\b\8aÞ \88`)É#\85£\0ßÌ!b\88ià U?\85£\0Õ \88à j)\87" [comment-line-start-skip fortran-comment-indent-style char fortran-comment-indent-char col fortran-continuation-char extra-space fortran-line-number-indent comment-start-skip t beginning-of-line looking-at 0 match-end delete-horizontal-regexp " " char-to-string insert-char " [^ 0
+]" forward-char 6 delete-horizontal-space 5 1 "[0-9]+" message "Warning: line number exceeds 5-digit limit." skip-chars-forward "0-9" re-search-forward end-of-line match-beginning fortran-comment-hook] 22))
+
+(defun fortran-line-number-indented-correctly-p nil "\
+Return t if current line's line number is correctly indente.
+Do not call if there is no line number." (byte-code "\8aÁ \88ÂÃ!\88i\bX\85\e\0i\bU\86\e\0ÂÄ!\88iÅU)\87" [fortran-line-number-indent beginning-of-line skip-chars-forward " " "0-9" 5] 5))
+
+(defun fortran-check-for-matching-do nil "\
+When called from a numbered statement, returns t
+ if matching 'do' is found, and nil otherwise." (byte-code "ÃÂ\19\18\8aÄ \88ÅÆ!\857\0ÇÈ!\88ÇÉ!\88Ê`ÇË!\88`\"\89\10\88Ä \88ÌÍÎ\bÏ\bÐ%ÃÂ#\857\0ÅÑ\bP!)*\87" [charnum case-fold-search t nil beginning-of-line looking-at "[ ]*[0-9]+" skip-chars-forward " " "0" buffer-substring "0-9" re-search-backward concat "\\(^[ 0-9]*end\\b[ ]*[^ =(a-z]\\)\\|\\(^[ 0-9]*do[ ]*0*" "\\b\\)\\|\\(^[ ]*0*" "\\b\\)" "^[ 0-9]*do[ ]*0*"] 14))
projects / unix-history / commitdiff