Gecko [ goons4good.org ]

Name	Size	Permission	Date
ada-mode.elc	107.31 KB	-rw-r--r--	2023-06-07 04:14
ada-prj.elc	17.96 KB	-rw-r--r--	2023-06-07 04:14
ada-stmt.elc	35.97 KB	-rw-r--r--	2023-06-07 04:14
ada-xref.elc	55.09 KB	-rw-r--r--	2023-06-07 04:14
antlr-mode.elc	79.34 KB	-rw-r--r--	2023-06-07 04:14
asm-mode.elc	7.69 KB	-rw-r--r--	2023-06-07 04:14
autoconf.elc	5.1 KB	-rw-r--r--	2023-06-07 04:14
bug-reference.elc	6.43 KB	-rw-r--r--	2023-06-07 04:14
cap-words.elc	3.59 KB	-rw-r--r--	2023-06-07 04:14
cc-align.elc	35.39 KB	-rw-r--r--	2023-06-07 04:14
cc-awk.elc	17.81 KB	-rw-r--r--	2023-06-07 04:14
cc-bytecomp.elc	9.35 KB	-rw-r--r--	2023-06-07 04:14
cc-cmds.elc	96.69 KB	-rw-r--r--	2023-06-07 04:14
cc-compat.elc	2.92 KB	-rw-r--r--	2023-06-07 04:14
cc-defs.elc	49.04 KB	-rw-r--r--	2023-06-07 04:14
cc-engine.elc	173.3 KB	-rw-r--r--	2023-06-07 04:14
cc-fonts.elc	153.89 KB	-rw-r--r--	2023-06-07 04:14
cc-guess.elc	13.77 KB	-rw-r--r--	2023-06-07 04:14
cc-langs.elc	75.55 KB	-rw-r--r--	2023-06-07 04:14
cc-menus.elc	7.28 KB	-rw-r--r--	2023-06-07 04:14
cc-mode.elc	191.85 KB	-rw-r--r--	2023-06-07 04:14
cc-styles.elc	16.38 KB	-rw-r--r--	2023-06-07 04:14
cc-vars.elc	69.17 KB	-rw-r--r--	2023-06-07 04:14
cfengine.elc	15.58 KB	-rw-r--r--	2023-06-07 04:14
cmacexp.elc	6.3 KB	-rw-r--r--	2023-06-07 04:14
compile.elc	83.66 KB	-rw-r--r--	2023-06-07 04:14
cperl-mode.elc	215.31 KB	-rw-r--r--	2023-06-07 04:14
cpp.elc	22.18 KB	-rw-r--r--	2023-06-07 04:14
cwarn.elc	11.09 KB	-rw-r--r--	2023-06-07 04:14
dcl-mode.elc	50.23 KB	-rw-r--r--	2023-06-07 04:14
delphi.elc	50.8 KB	-rw-r--r--	2023-06-07 04:14
ebnf-abn.elc	6.88 KB	-rw-r--r--	2023-06-07 04:14
ebnf-bnf.elc	7.67 KB	-rw-r--r--	2023-06-07 04:14
ebnf-dtd.elc	13.03 KB	-rw-r--r--	2023-06-07 04:15
ebnf-ebx.elc	7.99 KB	-rw-r--r--	2023-06-07 04:15
ebnf-iso.elc	7.83 KB	-rw-r--r--	2023-06-07 04:15
ebnf-otz.elc	8.46 KB	-rw-r--r--	2023-06-07 04:15
ebnf-yac.elc	7.22 KB	-rw-r--r--	2023-06-07 04:15
ebnf2ps.elc	117.22 KB	-rw-r--r--	2023-06-07 04:15
ebrowse.elc	206.22 KB	-rw-r--r--	2023-06-07 04:15
etags.elc	55.93 KB	-rw-r--r--	2023-06-07 04:15
executable.elc	7.49 KB	-rw-r--r--	2023-06-07 04:15
f90.elc	92.25 KB	-rw-r--r--	2023-06-07 04:15
flymake.elc	61.63 KB	-rw-r--r--	2023-06-07 04:15
fortran.elc	60.04 KB	-rw-r--r--	2023-06-07 04:15
gdb-mi.elc	169.74 KB	-rw-r--r--	2023-06-07 04:15
glasses.elc	10.17 KB	-rw-r--r--	2023-06-07 04:15
grep.elc	32.61 KB	-rw-r--r--	2023-06-07 04:15
gud.elc	93.14 KB	-rw-r--r--	2023-06-07 04:15
hideif.elc	26.37 KB	-rw-r--r--	2023-06-07 04:15
hideshow.elc	25.32 KB	-rw-r--r--	2023-06-07 04:15
icon.elc	16.85 KB	-rw-r--r--	2023-06-07 04:15
idlw-complete-structtag.elc	4.5 KB	-rw-r--r--	2023-06-07 04:15
idlw-help.elc	36.32 KB	-rw-r--r--	2023-06-07 04:15
idlw-shell.elc	130.41 KB	-rw-r--r--	2023-06-07 04:15
idlw-toolbar.elc	27.61 KB	-rw-r--r--	2023-06-07 04:15
idlwave.elc	251.77 KB	-rw-r--r--	2023-06-07 04:15
inf-lisp.elc	20.29 KB	-rw-r--r--	2023-06-07 04:15
js.elc	95.5 KB	-rw-r--r--	2023-06-07 04:15
ld-script.elc	5.68 KB	-rw-r--r--	2023-06-07 04:15
m4-mode.elc	6.12 KB	-rw-r--r--	2023-06-07 04:15
make-mode.elc	63.81 KB	-rw-r--r--	2023-06-07 04:15
mantemp.elc	3.71 KB	-rw-r--r--	2023-06-07 04:15
meta-mode.elc	32.62 KB	-rw-r--r--	2023-06-07 04:15
mixal-mode.elc	36.42 KB	-rw-r--r--	2023-06-07 04:15
modula2.elc	29.79 KB	-rw-r--r--	2023-06-07 04:15
octave-inf.elc	13.56 KB	-rw-r--r--	2023-06-07 04:15
octave-mod.elc	33.98 KB	-rw-r--r--	2023-06-07 04:15
pascal.elc	39.33 KB	-rw-r--r--	2023-06-07 04:15
perl-mode.elc	24.86 KB	-rw-r--r--	2023-06-07 04:15
prolog.elc	95.73 KB	-rw-r--r--	2023-06-07 04:15
ps-mode.elc	34.13 KB	-rw-r--r--	2023-06-07 04:15
python.elc	99.85 KB	-rw-r--r--	2023-06-07 04:15
ruby-mode.elc	36.94 KB	-rw-r--r--	2023-06-07 04:15
scheme.elc	18.28 KB	-rw-r--r--	2023-06-07 04:15
sh-script.elc	103.89 KB	-rw-r--r--	2023-06-07 04:15
simula.elc	45.68 KB	-rw-r--r--	2023-06-07 04:15
sql.elc	158.59 KB	-rw-r--r--	2023-06-07 04:15
subword.elc	10.31 KB	-rw-r--r--	2023-06-07 04:15
tcl.elc	39.55 KB	-rw-r--r--	2023-06-07 04:15
vera-mode.elc	45.89 KB	-rw-r--r--	2023-06-07 04:15
verilog-mode.elc	419.97 KB	-rw-r--r--	2023-06-07 04:15
vhdl-mode.elc	528.67 KB	-rw-r--r--	2023-06-07 04:15
which-func.elc	9.72 KB	-rw-r--r--	2023-06-07 04:11
xscheme.elc	37.06 KB	-rw-r--r--	2023-06-07 04:15

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:15:06 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/f90.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(fn LIMIT)
(defalias 'f90-typedef-matcher #[257 "\300\211\301\302\303#\203<�\304 \262\305\306!?\2056�\305\307!\203!�\310\225b\202'�\301\311\312 \303#\2056�\313\314\315\224\315\225D\"!\210\303\211\262\203�\207" [nil re-search-forward "\\<\$\\(?:end[ 	]*\$?type\\)\\>[ 	]*" t match-data looking-at "\$is\\>\\|(\$" "\$\\sw+\$" 0 "[ 	]*::[ 	]*\$\\sw+\$" line-end-position set-match-data append 1] 8 (#$ . 11883)])
#@71 This does fairly subdued highlighting of comments and function calls.
(defvar f90-font-lock-keywords-1 (list '("\\<\$module[ 	]*procedure\$\\>\$[^()\n]*::\$?[ 	]*\$[^&!\n]*\$" (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t)) '(f90-typedef-matcher (1 font-lock-keyword-face) (2 font-lock-function-name-face)) '("\\<\$\\(?:end[ 	]*\$?interface[ 	]*\$?:assignment\\|operator\\|read\\|write\$\\)[ 	]*(" (1 font-lock-keyword-face t)) '("\\<\$\\(?:end[ 	]*\$?\$program\\|\\(?:sub\$?module\\|function\\|associate\\|subroutine\\|interface\\)\\|use\\|call\\)\\>[ 	]*\$\\sw+\$?" (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t)) '("\\<\$submodule\$\\>[ 	]*([^)\n]+)[ 	]*\$\\sw+\$?" (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t)) '("\\<\$use\$[ 	]*,[ 	]*\$\\(?:non_\$?intrinsic\\)[ 	]*::[ 	]*\$\\sw+\$" (1 font-lock-keyword-face) (2 font-lock-keyword-face) (3 font-lock-function-name-face)) "\\<\$\\(end[ 	]*\$?block[ 	]*data\\|contains\\)\\>" '("\\<abstract[ 	]*interface\\>" (0 font-lock-keyword-face t))) (#$ . 12483))
#@186 Search for the declaration of variables of derived type, up to LIMIT.
Set the match data so that subexpression 1,2 are the TYPE(...),
and variable-name parts, respectively.

(fn LIMIT)
(defalias 'f90-typedec-matcher #[257 "\300\211C\301\302\303#\203)�\304\305\306\307\310\311\312!\313\"\314\315%D\316\305\317\304EDC\217\211\262\203�\207" [nil re-search-forward "\\<\$type\\|class\$[ 	]*(" t #1=#:err funcall make-byte-code 0 "\301u\210\302 \210\300\303\224`D\240\210\304\305w\210\306\307\310!\203�\311\202�\312\313 \314#\2057�\315\316\300@@\317\225D\300@\317\224\317\225D#!\210\314\207" vconcat vector [-1 forward-sexp 0 " 	" nil re-search-forward looking-at "\\sw+" "\$[^&!\n]+\$" "::[ 	]*\$[^&!\n]+\$" line-end-position t set-match-data append 1] 6 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 11 (#$ . 13584)])
#@57 Highlights declarations, do-loops and other constructs.
(defvar f90-font-lock-keywords-2 (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\257\"\207" [f90-font-lock-keywords-1 append ("^[ 	0-9]*\$?:pure\\|elemental\$?[ 	]*\$real\\|integer\\|c\\(haracter\\|omplex\$\\|enumerator\\|generic\\|procedure\\|logical\\|double[ 	]*precision\\)\$.*::\\|[ 	]*(.*)\$?\$[^&!\n]*\$" (1 font-lock-type-face t) (4 font-lock-variable-name-face t)) (f90-typedec-matcher (1 font-lock-type-face) (2 font-lock-variable-name-face)) ("\\<\$\\(real\\|integer\\|c\\(haracter\\|omplex\$\\|logical\\|double[ 	]*precision\\|\$?:type\\|class\$[ 	]*([ 	]*\\sw+[ 	]*)\\)[ 	]*\\)\$function\$\\>[ 	]*\$\\sw+\$[ 	]*\$([^&!\n]*)\$" (1 font-lock-type-face t) (4 font-lock-keyword-face t) (5 font-lock-function-name-face t) (6 'default t)) ("\\<\$enum\$[ 	]*," (1 font-lock-keyword-face)) ("\\<\$end[ 	]*\\(do\\|if\\|enum\\|select\\|forall\\|where\\|block\\|critical\$\\)\\>\$[ 	]+\\(\\sw+\$\\)?" (1 font-lock-keyword-face) (3 font-lock-constant-face nil t)) ("^[ 	0-9]*\$\\(\\sw+\$[ 	]*:[ 	]*\\)?\$\\(if\\|do\\([ 	]*while\$?\\|select[ 	]*\$?:case\\|type\$\\|where\\|forall\\|block\\|critical\\)\\)\\>" (2 font-lock-constant-face nil t) (3 font-lock-keyword-face)) ("\\<\$implicit\$[ 	]*\$real\\|integer\\|c\\(haracter\\|omplex\$\\|enumerator\\|procedure\\|logical\\|double[ 	]*precision\\|type[ 	]*(\\sw+)\\|none\\)[ 	]*" (1 font-lock-keyword-face) (2 font-lock-type-face)) ("\\<\$namelist\\|common\$[ 	]*/\$\\sw+\$?/" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) "\\<else\$[ 	]*if\\|where\$?\\>" ("\$&\$[ 	]*\$!\\|$\$" (1 font-lock-keyword-face)) "\\<\$then\\|continue\\|format\\|include\\|stop\\|return\$\\>" ("\\<\$exit\\|cycle\$[ 	]*\$\\sw+\$?\\>" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) ("\\<\$case\$[ 	]*\$default\\|(\$" . 1) ("\\<\$class\$[ 	]*default" . 1) ("\\<\$\\(type\\|class\$[ 	]*is\\)[ 	]*(" (1 font-lock-keyword-face t)) ("\\<\$do\\|go[ 	]*to\$\\>[ 	]*\$[0-9]+\$" (1 font-lock-keyword-face) (2 font-lock-constant-face)) ("^[ 	]*\$[0-9]+\$[ 	]*[a-z]+" (1 font-lock-constant-face t)) ("^#[ 	]*\\w+" (0 font-lock-preprocessor-face t) ("\\<defined\\>" nil nil (0 font-lock-preprocessor-face))) ("^#" ("\$&&\\|||\$" nil nil (0 font-lock-constant-face t))) ("^#[ 	]*define[ 	]+\$\\w+\$(" (1 font-lock-function-name-face)) ("^#[ 	]*define[ 	]+\$\\w+\$" (1 font-lock-variable-name-face)) ("^#[ 	]*include[ 	]+\$<.+>\$" (1 font-lock-string-face))] 24) (#$ . 14436))
#@55 Highlights all F90 keywords and intrinsic procedures.
(defvar f90-font-lock-keywords-3 (byte-code "\304	\n\305D\306\307\257\"\207" [f90-font-lock-keywords-2 f90-keywords-level-3-re f90-operators-re f90-procedures-re append (1 font-lock-keyword-face keep) "\\<real\\>" ("\\<\$asynchronous\$[ 	]*[^=]" . 1)] 7) (#$ . 17048))
#@52 Highlights all F90 and HPF keywords and constants.
(defvar f90-font-lock-keywords-4 (byte-code "\303	\304B\nD\"\207" [f90-font-lock-keywords-3 f90-constants-re f90-hpf-keywords-re append font-lock-constant-face] 4) (#$ . 17382))
#@113 Default expressions to highlight in F90 mode.
Can be overridden by the value of `font-lock-maximum-decoration'.
(defvar f90-font-lock-keywords f90-font-lock-keywords-2 (#$ . 17619))
#@32 Syntax table used in F90 mode.
(defvar f90-mode-syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\311#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\320#\210\301\322\320#\210\301\323\320#\210\301\324\320#\210\301\325\320#\210\301\326\327#\210\211\207" [make-syntax-table modify-syntax-entry 33 "<" 10 ">" 95 "w" 39 "\"" 34 96 "_" 13 " " 43 "." 45 61 42 47 37 92 "\\"] 5) (#$ . 17807))
#@26 Keymap used in F90 mode.
(defvar f90-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\343#\210\301\345\346#\210\301\347\346#\210\301\350\346#\210\301\351\346#\210\301\352\346#\210\353\354!\210\355\356\357\360\361\362\363!\364BB\365BB$\210\211\207" [make-sparse-keymap define-key "`" f90-abbrev-start ";" f90-comment-region "\201" f90-beginning-of-subprogram "\205" f90-end-of-subprogram "\210" f90-mark-subprogram "\216" f90-end-of-block "\220" f90-beginning-of-block "\221" f90-indent-subprogram "\n" f90-indent-new-line "
" f90-break-line "" f90-previous-block "" f90-next-block "" f90-join-lines "" f90-fill-region "" f90-previous-statement "" f90-next-statement "]" f90-insert-end "" "," f90-electric-insert "+" "-" "*" "/" (lambda (#1=#:def-tmp-var) (defvar f90-menu #1# #2="Menu for F90 mode.")) nil easy-menu-do-define f90-menu #2# "F90" "Customization" custom-menu-create f90 (["Set" Custom-set :active t :help "Set current value of all edited settings in the buffer"] ["Save" Custom-save :active t :help "Set and save all edited settings"] ["Reset to Current" Custom-reset-current :active t :help "Reset all edited settings to current"] ["Reset to Saved" Custom-reset-saved :active t :help "Reset all edited or set settings to saved"] ["Reset to Standard Settings" Custom-reset-standard :active t :help "Erase all customizations in buffer"]) ("--" ["Indent Subprogram" f90-indent-subprogram t] ["Mark Subprogram" f90-mark-subprogram :active t :help "Mark the end of the current subprogram, move point to the start"] ["Beginning of Subprogram" f90-beginning-of-subprogram :active t :help "Move point to the start of the current subprogram"] ["End of Subprogram" f90-end-of-subprogram :active t :help "Move point to the end of the current subprogram"] "--" ["(Un)Comment Region" f90-comment-region :active mark-active :help "Comment or uncomment the region"] ["Indent Region" f90-indent-region :active mark-active] ["Fill Region" f90-fill-region :active mark-active :help "Fill long lines in the region"] "--" ["Break Line at Point" f90-break-line :active t :help "Break the current line at point"] ["Join with Previous Line" f90-join-lines :active t :help "Join the current line to the previous one"] ["Insert Block End" f90-insert-end :active t :help "Insert an end statement for the current code block"] "--" ("Highlighting" :help "Fontify this buffer to varying degrees" ["Toggle font-lock-mode" font-lock-mode :selected font-lock-mode :style toggle :help "Fontify text in this buffer"] "--" ["Light highlighting (level 1)" f90-font-lock-1 t] ["Moderate highlighting (level 2)" f90-font-lock-2 t] ["Heavy highlighting (level 3)" f90-font-lock-3 t] ["Maximum highlighting (level 4)" f90-font-lock-4 t]) ("Change Keyword Case" :help "Change the case of keywords in the buffer or region" ["Upcase Keywords (buffer)" f90-upcase-keywords t] ["Capitalize Keywords (buffer)" f90-capitalize-keywords t] ["Downcase Keywords (buffer)" f90-downcase-keywords t] "--" ["Upcase Keywords (region)" f90-upcase-region-keywords mark-active] ["Capitalize Keywords (region)" f90-capitalize-region-keywords mark-active] ["Downcase Keywords (region)" f90-downcase-region-keywords mark-active]) "--" ["Toggle Auto Fill" auto-fill-mode :selected auto-fill-function :style toggle :help "Automatically fill text while typing in this buffer"] ["Toggle Abbrev Mode" abbrev-mode :selected abbrev-mode :style toggle :help "Expand abbreviations while typing in this buffer"] ["Add Imenu Menu" f90-add-imenu-menu :active (not (lookup-key (current-local-map) [menu-bar index])) :included (fboundp 'imenu-add-to-menubar) :help "Add an index menu to the menu-bar"])] 9) (#$ . 18286))
#@59 Set `font-lock-keywords' to F90 level N keywords.

(fn N)
(defalias 'f90-font-lock-n #[257 "\301\302!\210\303\304\305\"!J\306 \207" [font-lock-keywords font-lock-mode 1 intern-soft format "f90-font-lock-keywords-%d" font-lock-fontify-buffer] 5 (#$ . 22268)])
#@63 Set `font-lock-keywords' to `f90-font-lock-keywords-1'.

(fn)
(defalias 'f90-font-lock-1 #[0 "\300\301!\207" [f90-font-lock-n 1] 2 (#$ . 22535) nil])
#@63 Set `font-lock-keywords' to `f90-font-lock-keywords-2'.

(fn)
(defalias 'f90-font-lock-2 #[0 "\300\301!\207" [f90-font-lock-n 2] 2 (#$ . 22691) nil])
#@63 Set `font-lock-keywords' to `f90-font-lock-keywords-3'.

(fn)
(defalias 'f90-font-lock-3 #[0 "\300\301!\207" [f90-font-lock-n 3] 2 (#$ . 22847) nil])
#@63 Set `font-lock-keywords' to `f90-font-lock-keywords-4'.

(fn)
(defalias 'f90-font-lock-4 #[0 "\300\301!\207" [f90-font-lock-n 4] 2 (#$ . 23003) nil])
#@54 Regexp potentially indicating a "block" of F90 code.
(defconst f90-blocks-re "\$block[ 	]*data\\|\\(?:associate\\|block\\|critical\\|do\\|enum\\|f\\(?:orall\\|unction\$\\|i\$?:f\\|nterface\$\\|module\\|program\\|s\$?:elect\\|ub\\(?:\\(?:modul\\|routin\$e\\)\\)\\|\$?:typ\\|wher\$e\\)\\)\\>" (#$ . 23159))
#@56 Regexp used to locate the start/end of a "subprogram".
(defconst f90-program-block-re "\$function\\|module\\|program\\|sub\\(?:\\(?:modul\\|routin\$e\\)\\)" (#$ . 23478))
#@71 Regexp matching an ELSE IF, ELSEWHERE, CASE, CLASS/TYPE IS statement.
(defconst f90-else-like-re "\$else\\([ 	]*if\\|where\$?\\|case[ 	]*\$default\\|(\$\\|\$class\\|type\$[ 	]*is[ 	]*(\\|class[ 	]*default\\)" (#$ . 23657))
#@64 Regexp matching the end of an IF, SELECT, WHERE, FORALL block.
(defconst f90-end-if-re "end[ 	]*\$forall\\|if\\|select\\|where\$\\>" (#$ . 23892))
#@73 Regexp matching the end of a TYPE, ENUM, INTERFACE, BLOCK DATA section.
(defconst f90-end-type-re "end[ 	]*\$type\\|enum\\|interface\\|block[ 	]*data\$\\>" (#$ . 24047))
#@48 Regexp matching the end of an ASSOCIATE block.
(defconst f90-end-associate-re "end[ 	]*associate\\>" (#$ . 24225))
#@51 Regexp matching the definition of a derived type.
(defconst f90-type-def-re "\\<\$type\$\\>\$?:\\(?:[^()\n]*\\|.*,[ 	]*bind[ 	]*([ 	]*c[ 	]*)[ 	]*\$::\\)?[ 	]*\$\\sw+\$" (#$ . 24346))
#@44 Regexp matching a CLASS/TYPE IS statement.
(defconst f90-typeis-re "\\<\$class\\|type\$[ 	]*is[ 	]*(" (#$ . 24542))
#@405 Regexp specifying two-character tokens not to split when breaking lines.
Each token has one or more of the characters from `f90-break-delimiters'.
Note that if only one of the characters is from that variable,
then the presence of the token here allows a line-break before or
after the other character, where a break would not normally be
allowed.  This minor issue currently only affects "(/" and "/)".
(defconst f90-no-break-re "\$(/\\|\\*\\*\\|/[)/=]\\|<=\\|=[=>]\\|>=\$" (#$ . 24667))
#@56 Temporary position used to speed up region operations.
(defvar f90-cache-position nil (#$ . 25164))
(make-variable-buffer-local 'f90-cache-position)
#@116 Regexp matching the end of an F90 "block", from the line start.
Used in the F90 entry in `hs-special-modes-alist'.
(defconst f90-end-block-re "^[ 	0-9]*\\<end[ 	]*\$associate\\|block\\|critical\\|do\\|enum\\|f\\(?:orall\\|unction\$\\|i\$?:f\\|nterface\$\\|module\\|program\\|s\$?:elect\\|ub\\(?:\\(?:modul\\|routin\$e\\)\\)\\|\$?:typ\\|wher\$e\\)\\>" (#$ . 25320))
#@248 Regexp matching the start of an F90 "block", from the line start.
A simple regexp cannot do this in fully correct fashion, so this
tries to strike a compromise between complexity and flexibility.
Used in the F90 entry in `hs-special-modes-alist'.
(defconst f90-start-block-re "^[ 	0-9]*\$\\(\\(\\sw+[ 	]*:[ 	]*\$?\$do\\|select[ 	]*\\(case\\|type\$\\|if[ 	]*(\$.*\\|.*\n\\([^if]*\\([^i].\\|.[^f]\\|.\\>\$\\)\\)\\<then\\|\$where\\|forall\$[ 	]*(.*)[ 	]*\$!\\|$\$\\)\\)\\|type[ 	,]\$[^i(!\n\"& 	]\\|i[^s!\n\"& 	]\\|is\\sw\$\\|program\\|\$?:abstract[ 	]*\$?interface\\|\$?:sub\$?module\\|function\\|subroutine\\|enum[^e]\\|associate\\|block\\|critical\\)[ 	]*" (#$ . 25700))
(byte-code "\302\303\304	\305BBB\"\207" [f90-start-block-re f90-end-block-re add-to-list hs-special-modes-alist f90-mode ("!" f90-end-of-block nil)] 6)
#@119 Search backward for the start of a derived type.
Set subexpression 1 in the match-data to the name of the type.

(fn)
(defalias 'f90-imenu-type-matcher #[0 "\300\301\302\300\303#\203(�\212\304\225b\210\305\306!?\205!�\305\307!\206!�\310\311\312 \303#)\211\262\203�\211\207" [nil re-search-backward "^[ 	0-9]*type[ 	]*" t 0 looking-at "\$is\\>\\|(\$" "\$\\sw+\$" re-search-forward "[ 	]*::[ 	]*\$\\sw+\$" line-end-position] 5 (#$ . 26547)])
#@51 Value for `imenu-generic-expression' in F90 mode.
(defvar f90-imenu-generic-expression (byte-code "\300\301\302\303\304\305\306\307\310\311E\312\313\314\315\n\f\211\316\316\211\317\316\320\320\317\321\260\322E\257\207" ["[^!\"&\n 	]" "[^e!\n\"& 	]" "[^n!\n\"& 	]" "[^d!\n\"& 	]" (nil "^[ 	0-9]*program[ 	]+\$\\sw+\$" 1) ("Submodules" "^[ 	0-9]*submodule[ 	]*([^)\n]+)[ 	]*\$\\sw+\$[ 	]*\$!\\|$\$" 1) ("Modules" "^[ 	0-9]*module[ 	]+\$\\sw+\$[ 	]*\$!\\|$\$" 1) "Types" f90-imenu-type-matcher 1 "Procedures" "^[ 	0-9]*" "\$" "[^!\"&\n]*\\(" "\\|" "\$" "?" "[ 	]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" 4] 31) (#$ . 27001))
#@41 Add an imenu menu to the menubar.

(fn)
(defalias 'f90-add-imenu-menu #[0 "\300\301 \302\"\203
�\303\304\305\"\207\306\307!\210\310\311 !\207" [lookup-key current-local-map [menu-bar index] message "%s" "F90-imenu already exists." imenu-add-to-menubar "F90-imenu" redraw-frame selected-frame] 3 (#$ . 27663) nil])
(byte-code "\300\301\302\303\304\"\305\306\307%\210\310\311N\204�\312\310\311\313\314!#\210\315\316!\204%�\312\316\317\320#\210\300\207" [define-abbrev-table f90-mode-abbrev-table mapcar #[257 "\211@A\300\301\302\257\207" [nil :system t] 6 "\n\n(fn E)"] (("`al" . "allocate") ("`ab" . "allocatable") ("`ai" . "abstract interface") ("`as" . "assignment") ("`asy" . "asynchronous") ("`ba" . "backspace") ("`bd" . "block data") ("`bl" . "block") ("`c" . "character") ("`cl" . "close") ("`cm" . "common") ("`cx" . "complex") ("`cn" . "contains") ("`cr" . "critical") ("`cy" . "cycle") ("`de" . "deallocate") ("`df" . "define") ("`di" . "dimension") ("`dp" . "double precision") ("`dw" . "do while") ("`el" . "else") ("`eli" . "else if") ("`elw" . "elsewhere") ("`em" . "elemental") ("`e" . "enumerator") ("`eq" . "equivalence") ("`ex" . "external") ("`ey" . "entry") ("`fl" . "forall") ("`fo" . "format") ("`fu" . "function") ("`fa" . ".false.") ("`im" . "implicit none") ("`in" . "include") ("`i" . "integer") ("`it" . "intent") ("`if" . "interface") ("`lo" . "logical") ("`mo" . "module") ("`na" . "namelist") ("`nu" . "nullify") ("`op" . "optional") ("`pa" . "parameter") ("`po" . "pointer") ("`pr" . "print") ("`pi" . "private") ("`pm" . "program") ("`pr" . "protected") ("`pu" . "public") ("`r" . "real") ("`rc" . "recursive") ("`rt" . "return") ("`rw" . "rewind") ("`se" . "select") ("`sq" . "sequence") ("`su" . "subroutine") ("`ta" . "target") ("`tr" . ".true.") ("`t" . "type") ("`vo" . "volatile") ("`wh" . "where") ("`wr" . "write")) "Abbrev table for F90 mode." :regexp "\$?:[^[:word:]_`]\\|^\$\$`?[[:word:]_]+\$[^[:word:]_]*" f90-mode-hook variable-documentation put purecopy "Hook run when entering F90 mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp f90-mode-map definition-name f90-mode] 6)
(defvar f90-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204�\302\300\301\303\304!#\210\305\306!\204�\302\306\307\310#\210\300\207" [f90-mode-map variable-documentation put purecopy "Keymap for `f90-mode'." boundp f90-mode-syntax-table definition-name f90-mode] 5)
(defvar f90-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204�\302\300\301\303\304!#\210\302\305\306\307#\210\302\305\310\311#\207" [f90-mode-syntax-table variable-documentation put purecopy "Syntax table for `f90-mode'." f90-mode derived-mode-parent prog-mode custom-mode-group f90] 5)
#@2308 Major mode for editing Fortran 90,95 code in free format.
For fixed format code, use `fortran-mode'.

\[f90-indent-line] indents the current line.
\[f90-indent-new-line] indents current line and creates a new indented line.
\[f90-indent-subprogram] indents the current subprogram.

Type `? or `\[help-command] to display a list of built-in abbrevs for F90 keywords.

Key definitions:
\{f90-mode-map}

Variables controlling indentation style and extra features:

`f90-do-indent'
  Extra indentation within do blocks (default 3).
`f90-if-indent'
  Extra indentation within if/select/where/forall blocks (default 3).
`f90-type-indent'
  Extra indentation within type/enum/interface/block-data blocks (default 3).
`f90-program-indent'
  Extra indentation within program/module/subroutine/function blocks
  (default 2).
`f90-associate-indent'
  Extra indentation within associate blocks (default 2).
`f90-critical-indent'
  Extra indentation within critical/block blocks (default 2).
`f90-continuation-indent'
  Extra indentation applied to continuation lines (default 5).
`f90-comment-region'
  String inserted by function \[f90-comment-region] at start of each
  line in region (default "!!!$").
`f90-indented-comment-re'
  Regexp determining the type of comment to be intended like code
  (default "!").
`f90-directive-comment-re'
  Regexp of comment-like directive like "!HPF\\$", not to be indented
  (default "!hpf\\$").
`f90-break-delimiters'
  Regexp holding list of delimiters at which lines may be broken
  (default "[-+*/><=,% \t]").
`f90-break-before-delimiters'
  Non-nil causes `f90-do-auto-fill' to break lines before delimiters
  (default t).
`f90-beginning-ampersand'
  Automatic insertion of & at beginning of continuation lines (default t).
`f90-smart-end'
  From an END statement, check and fill the end using matching block start.
  Allowed values are 'blink, 'no-blink, and nil, which determine
  whether to blink the matching beginning (default 'blink).
`f90-auto-keyword-case'
  Automatic change of case of keywords (default nil).
  The possibilities are 'downcase-word, 'upcase-word, 'capitalize-word.
`f90-leave-line-no'
  Do not left-justify line numbers (default nil).

Turning on F90 mode calls the value of the variable `f90-mode-hook'
with no args, if that value is non-nil.

(fn)
(defalias 'f90-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203�\314\311\313\310\313N#\210\315!\204'�\316\317 \"\210\320\f!\211\2035�\211\321 =\203;�\322\f\323 \"\210\210\324!\210\325\f!\210
0\306\326!\210\327\306\330!\210\331\306\332!\210\333\306\334!\210\335\306\336!\210\337\306\340!\210\307 \306\341!\210\342!\3431\306\344!\210\345$\306\346!\210\307&\306\347!\2102'\306\350!\210\351(\306\352!\210\353*\306\354!\210\355,)\356\357!\207" [delay-mode-hooks major-mode mode-name f90-mode-map f90-mode-syntax-table f90-mode-abbrev-table make-local-variable t prog-mode f90-mode "F90" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table indent-line-function f90-indent-line indent-region-function f90-indent-region comment-start "!" comment-start-skip "!+ *" comment-indent-function f90-comment-indent abbrev-all-caps normal-auto-fill-function f90-do-auto-fill nil font-lock-defaults ((f90-font-lock-keywords f90-font-lock-keywords-1 f90-font-lock-keywords-2 f90-font-lock-keywords-3 f90-font-lock-keywords-4) nil t) imenu-case-fold-search imenu-generic-expression beginning-of-defun-function f90-beginning-of-subprogram end-of-defun-function f90-end-of-subprogram add-log-current-defun-function f90-current-defun run-mode-hooks f90-mode-hook local-abbrev-table indent-tabs-mode f90-imenu-generic-expression] 5 (#$ . 30466) nil])
#@143 Return non-nil if point is inside a string.
Checks from `point-min', or `f90-cache-position', if that is non-nil
and lies before point.

(fn)
(defalias 'f90-in-string #[0 "\203�`V\203�\202�e\301\302`\"8\207" [f90-cache-position 3 parse-partial-sexp] 5 (#$ . 34263)])
(put 'f90-in-string 'byte-optimizer 'byte-compile-inline-expand)
#@144 Return non-nil if point is inside a comment.
Checks from `point-min', or `f90-cache-position', if that is non-nil
and lies before point.

(fn)
(defalias 'f90-in-comment #[0 "\203�`V\203�\202�e\301\302`\"8\207" [f90-cache-position 4 parse-partial-sexp] 5 (#$ . 34609)])
(put 'f90-in-comment 'byte-optimizer 'byte-compile-inline-expand)
#@161 Return t if the current line is a continued one.
This includes comment lines embedded in continued lines, but
not the last line of a continued statement.

(fn)
(defalias 'f90-line-continued #[0 "\212\301 \210\302\303!\203�\304\305y!\204�\306\210\203\"�`V\203\"�\202#�e\307\310`\"8\262\203;�\311\312\313 \"\210\312\306x\210\202�\314\306x\210h\315U)\207" [f90-cache-position beginning-of-line looking-at "[ 	]*\$!\\|$\$" zerop -1 nil 4 parse-partial-sexp search-backward "!" line-beginning-position " 	" 38] 5 (#$ . 34958)])
(put 'f90-line-continued 'byte-optimizer 'byte-compile-inline-expand)
#@94 Return indentation of current line.
Line-numbers are considered whitespace characters.

(fn)
(defalias 'f90-current-indentation #[0 "\212\300 \210\301\302w)\207" [beginning-of-line " 	0-9" nil] 2 (#$ . 35568)])
(put 'f90-current-indentation 'byte-optimizer 'byte-compile-inline-expand)
#@166 Indent current line to column COL.
If optional argument NO-LINE-NUMBER is nil, jump over a possible
line-number before indenting.

(fn COL &optional NO-LINE-NUMBER)
(defalias 'f90-indent-to #[513 "\300 \210\211\204�\301\302w\210\303 \210\304\305i!\203�\306\202�\307\"\207" [beginning-of-line " 	0-9" nil delete-horizontal-space indent-to zerop 0 1] 6 (#$ . 35861)])
(put 'f90-indent-to 'byte-optimizer 'byte-compile-inline-expand)
#@163 If point lies within a comment, return the string starting the comment.
For example, "!" or "!!", followed by the appropriate amount of
whitespace, if any.

(fn)
(defalias 'f90-get-present-comment-type #[0 "\212\203�`V\203�\202�e\301\302`\"8\262\205J�\303 \210\304\305\306 \"\210\2032�`V\2032�\2023�e\307\302`\"8\262\203G�\304\305\306 \"\210\202$�\310\311!)\207" [f90-cache-position 4 parse-partial-sexp beginning-of-line re-search-forward "!+[ 	]*" line-end-position 3 match-string-no-properties 0] 5 (#$ . 36303)])
(put 'f90-get-present-comment-type 'byte-optimizer 'byte-compile-inline-expand)
#@79 Compare strings A and B neglecting case and allowing for nil value.

(fn A B)
(defalias 'f90-equal-symbols #[514 "\205�\227\205\f�\227\232\207" [] 4 (#$ . 36919)])
(put 'f90-equal-symbols 'byte-optimizer 'byte-compile-inline-expand)
#@107 Return ("do" NAME) if a do statement starts after point.
NAME is nil if the statement has no label.

(fn)
(defalias 'f90-looking-at-do #[0 "\300\301!\205
�\302\303!\302\304!D\207" [looking-at "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" match-string 3 2] 3 (#$ . 37164)])
(put 'f90-looking-at-do 'byte-optimizer 'byte-compile-inline-expand)
#@115 Return ("select" NAME) if a select statement starts after point.
NAME is nil if the statement has no label.

(fn)
(defalias 'f90-looking-at-select-case #[0 "\300\301!\205
�\302\303!\302\304!D\207" [looking-at "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" match-string 3 2] 3 (#$ . 37510)])
(put 'f90-looking-at-select-case 'byte-optimizer 'byte-compile-inline-expand)
#@116 Return ("if" NAME) if an if () then statement starts after point.
NAME is nil if the statement has no label.

(fn)
(defalias 'f90-looking-at-if-then #[0 "\212\301\302!\205{�\303\304!\303\305!\306`\307\310#\211\203�\211b\210\311\312w\210\301\313!\204v�\212\314 \210\301\315!\2034�\316\317y!\204'�\312\210\203E�`V\203E�\202F�e\320\321`\"8\262\203^�\322\323\324 \"\210\323\312x\210\2027�\311\312x\210h\325U)\205y�\326 \210\327\312w\210\301\313!\205y�D\266\203)\207" [f90-cache-position looking-at "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" match-string 3 2 scan-lists 1 0 " 	" nil "then\\>" beginning-of-line "[ 	]*\$!\\|$\$" zerop -1 4 parse-partial-sexp search-backward "!" line-beginning-position 38 f90-next-statement " 	0-9&"] 8 (#$ . 37911)])
(put 'f90-looking-at-if-then 'byte-optimizer 'byte-compile-inline-expand)
#@70 Return ("associate") if an associate block starts after point.

(fn)
(defalias 'f90-looking-at-associate #[0 "\300\301!\205\n�\302\303!C\207" [looking-at "\\<\$associate\$[ 	]*(" match-string 1] 2 (#$ . 38748)])
(put 'f90-looking-at-associate 'byte-optimizer 'byte-compile-inline-expand)
#@75 Return (KIND NAME) if a critical or block block starts after point.

(fn)
(defalias 'f90-looking-at-critical #[0 "\300\301!\205$�\302\303!\302\304!\305\230\203�\212\306\307w\210\300\310!)?\205\"�D\266\202\207" [looking-at "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$critical\\|block\$\\>" match-string 3 2 "block" " 	" nil "data\\>"] 4 (#$ . 39044)])
(put 'f90-looking-at-critical 'byte-optimizer 'byte-compile-inline-expand)
#@69 Return non-nil if a critical or block block ends after point.

(fn)
(defalias 'f90-looking-at-end-critical #[0 "\300\301!\205�\302\303!\304\230?\206�\212\305\306w\210\300\307!)?\207" [looking-at "end[ 	]*\$critical\\|block\$\\>" match-string 1 "block" " 	" nil "data\\>"] 2 (#$ . 39470)])
(put 'f90-looking-at-end-critical 'byte-optimizer 'byte-compile-inline-expand)
#@116 Return (KIND NAME) if a where or forall block starts after point.
NAME is nil if the statement has no label.

(fn)
(defalias 'f90-looking-at-where-or-forall #[0 "\212\300\301!\205(�\302\303!\302\304!\305`\306\307#\211\203�\211b\210\310\311w\210\300\312!\205&�D\266\203)\207" [looking-at "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" match-string 3 2 scan-lists 1 0 " 	" nil "\$!\\|$\$"] 6 (#$ . 39849)])
(put 'f90-looking-at-where-or-forall 'byte-optimizer 'byte-compile-inline-expand)
#@136 Return (KIND NAME) if a type/enum/interface/block-data starts after point.
NAME is non-nil only for type and certain interfaces.

(fn)
(defalias 'f90-looking-at-type-like #[0 "\212\300\301!\205 �\302\225b\205 �\300\303!?\205 �\300\304!\206 �\305\306\307 \310#)\203*�\311\312\313!D\207\300\314!\203J�\312\313!\212\302\225b\210\300\315!\204D�\300\316!\205G�\312\302!)D\207\300\317!\203V�\312\313!\320D\207\300\321!\205a�\312\313!\320D\207" [looking-at "\\<type\\>[ 	]*" 0 "\$is\\>\\|(\$" "\$\\sw+\$" re-search-forward "[ 	]*::[ 	]*\$\\sw+\$" line-end-position t "type" match-string 1 "\\<\$interface\$\\>[ 	]*" "\$operator\\|assignment\\|read\\|write\$[ 	]*([^)\n]*)" "\\sw+" "\$enum\\|block[ 	]*data\$\\>" nil "abstract[ 	]*\$interface\$\\>"] 4 (#$ . 40356)])
(put 'f90-looking-at-type-like 'byte-optimizer 'byte-compile-inline-expand)
#@80 Return (KIND NAME) if a program block with name NAME starts after point.

(fn)
(defalias 'f90-looking-at-program-block-start #[0 "\300\301!\203�\302\303!\302\304!D\207\300\305!\204\"�\300\306!\203\"�\302\303!\302\304!D\207\300\307!\2030�\302\303!\302\304!D\207\300\310!?\205D�\300\311!\205D�\302\303!\302\304!D\207" [looking-at "\$program\$[ 	]+\$\\sw+\$\\>" match-string 1 2 "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "\$submodule\$[ 	]*([^)\n]+)[ 	]*\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$"] 3 (#$ . 41211)])
(put 'f90-looking-at-program-block-start 'byte-optimizer 'byte-compile-inline-expand)
#@70 Return (KIND NAME) if a block with name NAME ends after point.

(fn)
(defalias 'f90-looking-at-program-block-end #[0 "\301\302!\203�\303\304!\303\305!D\207\301\306\307Q!\205�\303\304!\303\310!D\207" [f90-blocks-re looking-at "end[ 	]*\$interface\$[ 	]*\$\\(?:assignment\\|operator\\|read\\|write\$[ 	]*([^)\n]*)\\)" match-string 1 2 "end[ 	]*" "?\$[ 	]+\\(\\sw+\$\\)?\\>" 3] 4 (#$ . 41908)])
(put 'f90-looking-at-program-block-end 'byte-optimizer 'byte-compile-inline-expand)
#@351 Return the indentation to be used for a comment starting at point.
Used for `comment-indent-function' by F90 mode.
"!!!", `f90-directive-comment-re', variable `f90-comment-region' return 0.
`f90-indented-comment-re' (if not trailing code) calls `f90-calculate-indent'.
All others return `comment-column', leaving at least one space after code.

(fn)
(defalias 'f90-comment-indent #[0 "\304\305!\203�\306\207\203�\304!\203�\306\207\304\307	!!\203�\306\207\304\n!\2031�\212\310\311x\210n)\2031�\312 \207\212\310\311x\210n\203>�\306\202@�iT])\207" [f90-directive-comment-re f90-comment-region f90-indented-comment-re comment-column looking-at "!!!" 0 regexp-quote " 	" nil f90-calculate-indent] 3 (#$ . 42400)])
(put 'f90-comment-indent 'byte-optimizer 'byte-compile-inline-expand)
#@382 Return continuation properties of present statement.
Possible return values are:
single - statement is not continued.
begin  - current line is the first in a continued statement.
end    - current line is the last in a continued statement
middle - current line is neither first nor last in a continued statement.
Comment lines embedded amongst continued lines return 'middle.

(fn)
(defalias 'f90-present-statement-cont #[0 "\301\211\212\302 \205K�\212\303 \210\304\305!\203�\306\307y!\204\f�\301\210\203*�`V\203*�\202+�e\310\311`\"8\262\203C�\312\313\314 \"\210\313\301x\210\202�\315\301x\210h\316U)\262)\212\303 \210\304\305!\203_�\306\307y!\204R�\301\210\203p�`V\203p�\202q�e\310\311`\"8\262\203\211�\312\313\314 \"\210\313\301x\210\202b�\315\301x\210h\316U)\262\204\237�\211\204\237�\317\202\306�\204\253�\211\203\253�\320\202\306�\203\267�\211\204\267�\321\202\306�\203\303�\211\203\303�\322\202\306�\323\324!\207" [f90-cache-position nil f90-previous-statement beginning-of-line looking-at "[ 	]*\$!\\|$\$" zerop -1 4 parse-partial-sexp search-backward "!" line-beginning-position " 	" 38 single begin end middle error "The impossible occurred"] 7 (#$ . 43193)])
(put 'f90-present-statement-cont 'byte-optimizer 'byte-compile-inline-expand)
#@164 If `f90-leave-line-no' is nil, left-justify a line number.
Leaves point at the first non-blank character after the line number.
Call from beginning of line.

(fn)
(defalias 'f90-indent-line-no #[0 "\204
�\301\302!\203
�\303 \210\304\305w\207" [f90-leave-line-no looking-at "[ 	]+[0-9]" delete-horizontal-space " 	0-9" nil] 2 (#$ . 44468)])
(put 'f90-indent-line-no 'byte-optimizer 'byte-compile-inline-expand)
#@132 Return nil if point is at the edge of a code block.
Searches line forward for "function" or "subroutine",
if all else fails.

(fn)
(defalias 'f90-update-line #[0 "\205�\301\302 \303 #\207" [f90-auto-keyword-case f90-change-keywords line-beginning-position line-end-position] 4 (#$ . 45589)])
(put 'f90-update-line 'byte-optimizer 'byte-compile-inline-expand)
#@87 Change keyword case and auto-fill line as operators are inserted.

(fn &optional ARG)
(defalias 'f90-electric-insert #[256 "\302!\210\203�\303 \207	\205�\304	\305 \306 #\207" [auto-fill-function f90-auto-keyword-case self-insert-command f90-do-auto-fill f90-change-keywords line-beginning-position line-end-position] 5 (#$ . 45892) "*p"])
(put 'f90-electric-insert 'delete-selection t)
#@112 Get correct indent for a line starting with line number.
Does not check type and subprogram indentation.

(fn)
(defalias 'f90-get-correct-indent #[0 "\306 \307\212\310 \203\334�\307\211\212\310 \205T�\212\311 \210\312\313!\203\"�\314\315y!\204�\307\210\2033�`V\2033�\2024�e\316\317`\"8\262\203L�\320\321\322 \"\210\321\307x\210\202%�\323\307x\210h\324U)\262)\212\311 \210\312\313!\203h�\314\315y!\204[�\307\210\203y�`V\203y�\202z�e\316\317`\"8\262\203\222�\320\321\322 \"\210\321\307x\210\202k�\323\307x\210h\324U)\262\204\250�\211\204\250�\325\202\317�\204\264�\211\203\264�\326\202\317�\203\300�\211\204\300�\327\202\317�\203\314�\211\203\314�\330\202\317�\331\332!\266\202\333>\204�\312\334!\204�\335 \262\311 \210\336\337\306 \340#\203\343\311 \210\323\307w\210\312\341!\203\342\343!\342\344!D\203\211	\\\262\202\340\212\312\345!\205\206\342\343!\342\344!\346`\347\350#\211\203$\211b\210\323\307w\210\312\351!\204\201\212\311 \210\312\313!\203?\314\315y!\2042\307\210\203P`V\203P\202Qe\316\317`\"8\262\203i\320\321\322 \"\210\321\307x\210\202B\323\307x\210h\324U)\205\204\352 \210\353\307w\210\312\351!\205\204D\266\203)\204\306\212\312\354!\205\262\342\343!\342\344!\346`\347\350#\211\203\243\211b\210\323\307w\210\312\355!\205\260D\266\203)\204\306\312\356!\203\316\342\343!\342\344!D\203\316\211\n\\\262\202\340\312\357!\203\340\342\347!C\203\340\211\\\262\307\210\336\337\340#\2032\311 \210\360\307w\210\312\341!\203\n\342\343!\342\344!D\203\n\211	\\\262\202,\212\312\345!\205\205\342\343!\342\344!\346`\347\350#\211\203#\211b\210\323\307w\210\312\351!\204\200\212\311 \210\312\313!\203>\314\315y!\2041\307\210\203O`V\203O\202Pe\316\317`\"8\262\203h\320\321\322 \"\210\321\307x\210\202A\323\307x\210h\324U)\205\203\352 \210\353\307w\210\312\351!\205\203D\266\203)\204\305\212\312\354!\205\261\342\343!\342\344!\346`\347\350#\211\203\242\211b\210\323\307w\210\312\355!\205\257D\266\203)\204\305\312\356!\203\315\342\343!\342\344!D\203\315\211\n\\\262\202,\312\357!\203\342\342\347!C\203\342\211\\\262\202,\312\f!\203\360\211\nZ\262\202,\312
!\203\376\211Z\262\202,\312\361!\203!\342\347!\362\230\203\212\323\307w\210\312\363!)\204!\2115Z\262\202,\312\364!\203,\211	Z\262\307\210\202\343)\207" [f90-cache-position f90-do-indent f90-if-indent f90-associate-indent f90-end-if-re f90-end-associate-re line-end-position nil f90-previous-statement beginning-of-line looking-at "[ 	]*\$!\\|$\$" zerop -1 4 parse-partial-sexp search-backward "!" line-beginning-position " 	" 38 single begin end middle error "The impossible occurred" (middle end) "[ 	]*[0-9]" current-indentation re-search-forward "\$if\\|do\\|select\\|where\\|forall\$" t "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" match-string 3 2 "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" scan-lists 1 0 "then\\>" f90-next-statement " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\\<\$associate\$[ 	]*(" " 	0-9" "end[ 	]*\$critical\\|block\$\\>" "block" "data\\>" "end[ 	]*do\\>" f90-critical-indent] 10 (#$ . 46289)])
#@65 Calculate the indent column based on previous statements.

(fn)
(defalias 'f90-calculate-indent #[0 "\306\211\307`\306\262\212\310 \204\200�\212\211b\210\311 \210\312\313!)\204v�\312\314!\203&�\315 \210\316\306w\210\312\317!\203:�\320\321!\320\322!D\202s�\312\323!\204P�\312\324!\203P�\320\321!\320\322!D\202s�\312\325!\203`�\320\321!\320\322!D\202s�\312\326!\204z�\312\327!\203z�\320\321!\320\322!D\203z�\330\202{�	\262\202\"\306\211\212\310 \205\313�\212\311 \210\312\331!\203\231�\332\333y!\204\214�\306\210\n\203\252�`\nV\203\252�\n\202\253�e\334\335`\"8\262\203\303�\336\337\340 \"\210\337\306x\210\202\234�\341\306x\210h\342U)\262)\212\311 \210\312\331!\203\337�\332\333y!\204\322�\306\210\n\203\360�`\nV\203\360�\n\202\361�e\334\335`\"8\262\203	\336\337\340 \"\210\337\306x\210\202\342�\341\306x\210h\342U)\262\204\211\204\343\202F\204+\211\203+\344\202F\2037\211\2047\345\202F\203C\211\203C\346\202F\347\350!\266\202\262\345=\203#\306\211\212\310 \205\233\212\311 \210\312\331!\203i\332\333y!\204\\\306\210\n\203z`\nV\203z\n\202{e\334\335`\"8\262\203\223\336\337\340 \"\210\337\306x\210\202l\341\306x\210h\342U)\262)\212\311 \210\312\331!\203\257\332\333y!\204\242\306\210\n\203\300`\nV\203\300\n\202\301e\334\335`\"8\262\203\331\336\337\340 \"\210\337\306x\210\202\262\341\306x\210h\342U)\262\204\357\211\204\357\343\202\204\373\211\203\373\344\202\203\211\204\345\202\203\211\203\346\202\347\350!\266\202\344=\204#\310 \210\202P\344=\2038\212\311 \210\316\306w)\\\262\202\"\346=\203E\351 \262\202\"\212\311 \210\316\306w)\262\341\306w\210\312\352!\203`\353 \262\202^\212\312\354!\205\333\320\355!\320\322!\356`\321\330#\211\203y\211b\210\341\306w\210\312\357!\204\326\212\311 \210\312\331!\203\224\332\333y!\204\207\306\210\n\203\245`\nV\203\245\n\202\246e\334\335`\"8\262\203\276\336\337\340 \"\210\337\306x\210\202\227\341\306x\210h\342U)\205\331\315 \210\360\306w\210\312\357!\205\331D\266\203)\204!\212\312\361!\205\320\355!\320\322!\356`\321\330#\211\203\370\211b\210\341\306w\210\312\362!\205D\266\203)\204!\312\363!\203\320\355!\320\322!D\204!\312\f!\203)
\\\262\202^\312\364!\203B\320\355!\320\322!D\203B@\\\262\202^\212\312\365!\205b\330\225b\205b\312\366!?\205b\312\367!\206b\370\371\372 \307#)\203n\373\320\321!D\202\253\312\374!\203\220\320\321!\212\330\225b\210\312\375!\204\210\312\376!\205\213\320\330!)D\202\253\312\377!\203\236\320\321!\306D\202\253\312\201H�!\203\267\320\321!\306D\203\267A\\\262\202^\312\201I�!\203\317\320\321!C\203\317B\\\262\202^\312\201J�!\203\320\355!\320\322!\201K�\230\203\364\212\341\306w\210\312\201L�!)?\205\367D\266\202\203C\\\262\202^\312\317!\203\320\321!\320\322!D\202N\312\323!\204+\312\324!\203+\320\321!\320\322!D\202N\312\325!\203;\320\321!\320\322!D\202N\312\326!\204Q\312\327!\203Q\320\321!\320\322!D\204Y\312\201M�!\203^	\\\262\211b\210\311 \210\312\201N�!\204\"\312\313!\203x\330\262\202\"\316\306w\210\312\f!\204\211\312D!\203\221
Z\262\202\"\312\201O�!\203\242@Z\262\202\"\312E!\203\262AZ\262\202\"\312F!\203\302BZ\262\202\"\312\201P�!\203\353\320\321!\201K�\230\203\342\212\341\306w\210\312\201L�!)\204\353CZ\262\202\"\312\201Q�!\204\312\201R�!\203\320\321!\320\322!D\202\312\201S�G\201T�Q!\203\"\320\321!\320\355!D\203\"	Z\262))\207" [case-fold-search f90-program-indent f90-cache-position f90-continuation-indent f90-else-like-re f90-if-indent nil t f90-previous-statement beginning-of-line looking-at "[ 	]*#" "[ 	]*\$[!#]\\|$\$" f90-next-statement " 	0-9" "\$program\$[ 	]+\$\\sw+\$\\>" match-string 1 2 "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "\$submodule\$[ 	]*([^)\n]+)[ 	]*\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" 0 "[ 	]*\$!\\|$\$" zerop -1 4 parse-partial-sexp search-backward "!" line-beginning-position " 	" 38 single begin end middle error "The impossible occurred" current-indentation "[0-9]" f90-get-correct-indent "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" 3 scan-lists "then\\>" " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" "\\<type\\>[ 	]*" "\$is\\>\\|(\$" "\$\\sw+\$" re-search-forward "[ 	]*::[ 	]*\$\\sw+\$" line-end-position "type" "\\<\$interface\$\\>[ 	]*" "\$operator\\|assignment\\|read\\|write\$[ 	]*([^)\n]*)" "\\sw+" "\$enum\\|block[ 	]*data\$\\>" f90-do-indent f90-type-indent f90-associate-indent f90-critical-indent f90-end-if-re f90-end-type-re f90-end-associate-re f90-blocks-re "abstract[ 	]*\$interface\$\\>" "\\<\$associate\$[ 	]*(" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$critical\\|block\$\\>" "block" "data\\>" "contains[ 	]*\$$\\|!\$" "[ 	]*$" "end[ 	]*do\\>" "end[ 	]*\$critical\\|block\$\\>" "contains[ 	]*\$!\\|$\$" "end[ 	]*\$interface\$[ 	]*\$\\(?:assignment\\|operator\\|read\\|write\$[ 	]*([^)\n]*)\\)" "end[ 	]*" "?\$[ 	]+\\(\\sw+\$\\)?\\>"] 12 (#$ . 49504) nil])
#@262 Move point to beginning of the previous F90 statement.
If no previous statement is found (i.e. if called from the first
statement in the buffer), move to the start of the buffer and
return nil.  A statement is a line which is neither blank nor a
comment.

(fn)
(defalias 'f90-previous-statement #[0 "\300\301 \210\302\303y!\211\262\203�\304\305!\204�\211\207" [nil beginning-of-line zerop -1 looking-at "[ 	0-9]*\$!\\|$\\|#\$"] 3 (#$ . 54698) nil])
#@101 Move point to beginning of the next F90 statement.
Return nil if no later statement is found.

(fn)
(defalias 'f90-next-statement #[0 "\300\301 \210\302\303y!\205
�m?\211\262\203�\304\305!\204�\211\207" [nil beginning-of-line zerop 1 looking-at "[ 	0-9]*\$!\\|$\\|#\$"] 3 (#$ . 55159) nil])
#@103 Move point to the beginning of the current subprogram.
Return (TYPE NAME), or nil if not found.

(fn)
(defalias 'f90-beginning-of-subprogram #[0 "\303\304\305\305\262\306 \210\307V\203\241�\310	\305\311#\203\241�\306 \210\312\305w\210\313\314!\2030�\315\303!\315\316!D\202j�\313\317!\204F�\313\320!\203F�\315\303!\315\316!D\202j�\313\321!\203V�\315\303!\315\316!D\202j�\313\322!?\205j�\313\323!\205j�\315\303!\315\316!D\211\262\203w�S\262\202�\313\324!\203\207�\315\303!\315\316!D\202\227�\313\325\n\326Q!\203�\315\303!\315\327!D\203�T\262\202�\306 \210\330!\203\256�\211\202\271�\331\332!\203\270�\333\334!\210\305)\207" [case-fold-search f90-program-block-re f90-blocks-re 1 t nil beginning-of-line 0 re-search-backward move " 	0-9" looking-at "\$program\$[ 	]+\$\\sw+\$\\>" match-string 2 "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "\$submodule\$[ 	]*([^)\n]+)[ 	]*\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" "end[ 	]*\$interface\$[ 	]*\$\\(?:assignment\\|operator\\|read\\|write\$[ 	]*([^)\n]*)\\)" "end[ 	]*" "?\$[ 	]+\\(\\sw+\$\\)?\\>" 3 zerop called-interactively-p interactive message "No beginning found"] 7 (#$ . 55462) nil])
#@97 Move point to the end of the current subprogram.
Return (TYPE NAME), or nil if not found.

(fn)
(defalias 'f90-end-of-subprogram #[0 "\303\304\305\305\262\305\210\306V\203\243�\307	\305\310#\203\243�\311 \210\312\305w\210\313\314!\2030�\315\304!\315\316!D\202i�\313\317!\204F�\313\320!\203F�\315\304!\315\316!D\202i�\313\321!\203V�\315\304!\315\316!D\202i�\313\322!\204s�\313\323!\203s�\315\304!\315\316!D\203s�T\262\202\235�\313\324!\203\203�\315\304!\315\316!D\202\223�\313\325\n\326Q!\205\223�\315\304!\315\327!D\211\262\203\235�S\262\305\210\202�\330!\203\255�\211\202\270�\331\332!\203\267�\333\334!\210\305)\207" [case-fold-search f90-program-block-re f90-blocks-re t 1 nil 0 re-search-forward move beginning-of-line " 	0-9" looking-at "\$program\$[ 	]+\$\\sw+\$\\>" match-string 2 "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "\$submodule\$[ 	]*([^)\n]+)[ 	]*\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" "end[ 	]*\$interface\$[ 	]*\$\\(?:assignment\\|operator\\|read\\|write\$[ 	]*([^)\n]*)\\)" "end[ 	]*" "?\$[ 	]+\\(\\sw+\$\\)?\\>" 3 zerop called-interactively-p interactive message "No end found"] 7 (#$ . 56714) nil])
#@374 Move point forward to the end of the current code block.
With optional argument NUM, go forward that many balanced blocks.
If NUM is negative, go backward to the start of a block.  Checks
for consistency of block types and labels (if present), and
completes outermost block if `f90-smart-end' is non-nil.
Interactively, pushes mark before moving point.

(fn &optional NUM)
(defalias 'f90-end-of-block #[256 "\305\306!\203�\307`\310\"\210\211\203�\211\311W\203�\312[!\210\205�\313\310\206%�\314\315\211\211\211\211\211\315\262\315\262	\315\210\311V\203\275\316\n\315\317#\203\275\320 \210\321\315w\210\203^�`V\203^�\202_�e\322\323`\"8\262\204\267\203x�`V\203x�\202y�e\324\323`\"8\262\204\267\325\326!\203\224�\327\322!\327\330!D\2066\325\331!\203\244�\327\322!\327\330!D\2066\212\325\332!\205\304�\311\225b\205\304�\325\333!?\205\304�\325\334!\206\304�\316\335\336 \310#)\203\320�\337\327\314!D\202\325\340!\203\362�\327\314!\212\311\225b\210\325\341!\204\352�\325\342!\205\355�\327\311!)D\202\325\343!\203�\327\314!\315D\202\325\344!\203\327\314!\315D\2066\325\345!\203\327\314!C\2066\325\346!\203B\327\322!\327\330!\347\230\203:\212\350\315w\210\325\351!)?\205=D\266\202\2066\325\352!\203R\327\314!\327\330!D\202\213\325\353!\204h\325\354!\203h\327\314!\327\330!D\202\213\325\355!\203x\327\314!\327\330!D\202\213\325\356!\204\216\325\357!\203\216\327\314!\327\330!D\2066\212\325\360!\205	\327\322!\327\330!\361`\314\311#\211\203\247\211b\210\350\315w\210\325\362!\204\212\320 \210\325\363!\203\302\364\365y!\204\265\315\210\203\323`V\203\323\202\324e\324\323`\"8\262\203\354\366\367\370 \"\210\367\315x\210\202\305\350\315x\210h\371U)\205\372 \210\373\315w\210\325\362!\205D\266\203)\2066\212\325\374!\2055\327\322!\327\330!\361`\314\311#\211\203&\211b\210\350\315w\210\325\375!\2053D\266\203)\211\262\203JB\262T\262\202\267\325\376\n\377Q!\203\267\327\314!\262\327\330!\262S\262\203\267@\262A\262@\262\211A@)\262\205\202\227\205\210\227\232\266\202\204\231\201@�\201A�#\210\205\241\227\205\247\227\232\266\202\204\267\201@�\201B�#\210\315\210\202:�\311V\203\314\201@�\201C�!\210\205\335\212\320 \210\321\315w\210\201D� )*\207" [f90-smart-end case-fold-search f90-blocks-re f90-cache-position x called-interactively-p any push-mark t 0 f90-beginning-of-block no-blink 1 nil re-search-forward move beginning-of-line " 	0-9" 3 parse-partial-sexp 4 looking-at "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" match-string 2 "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\\<type\\>[ 	]*" "\$is\\>\\|(\$" "\$\\sw+\$" "[ 	]*::[ 	]*\$\\sw+\$" line-end-position "type" "\\<\$interface\$\\>[ 	]*" "\$operator\\|assignment\\|read\\|write\$[ 	]*([^)\n]*)" "\\sw+" "\$enum\\|block[ 	]*data\$\\>" "abstract[ 	]*\$interface\$\\>" "\\<\$associate\$[ 	]*(" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$critical\\|block\$\\>" "block" " 	" "data\\>" "\$program\$[ 	]+\$\\sw+\$\\>" "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "\$submodule\$[ 	]*([^)\n]+)[ 	]*\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" scan-lists "then\\>" "[ 	]*\$!\\|$\$" zerop -1 search-backward "!" line-beginning-position 38 f90-next-statement " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$" "end[ 	]*" "[ 	]*\$\\sw+\$?" error "End type `%s' does not match start type `%s'" "End label `%s' does not match start label `%s'" "Missing block end" f90-match-end] 19 (#$ . 57956) "p"])
#@380 Move point backwards to the start of the current code block.
With optional argument NUM, go backward that many balanced blocks.
If NUM is negative, go forward to the end of a block.
Checks for consistency of block types and labels (if present).
Does not check the outermost block, because it may be incomplete.
Interactively, pushes mark before moving point.

(fn &optional NUM)
(defalias 'f90-beginning-of-block #[256 "\304\305!\203�\306`\307\"\210\211\203�\211\310W\203�\311[!\210\307\206 �\312\313\211\211\211\211\211\211\313\262	\314 \210\310V\203\270\315	\313\316#\203\270\314 \210\317\313w\210\n\203T�`\nV\203T�\n\202U�e\320\321`\"8\262\2040�\n\203n�`\nV\203n�\n\202o�e\322\321`\"8\262\2040�\323\324	\325Q!\203\227�\326\312!\326\327!DB\262T\262\2020�\323\330!\203\247�\326\320!\326\327!D\206I\323\331!\203\267�\326\320!\326\327!D\206I\212\323\332!\205\327�\310\225b\205\327�\323\333!?\205\327�\323\334!\206\327�\335\336\337 \307#)\203\343�\340\326\312!D\202\323\341!\203\326\312!\212\310\225b\210\323\342!\204\375�\323\343!\205�\326\310!)D\202\323\344!\203\326\312!\313D\202\323\345!\203!\326\312!\313D\206I\323\346!\203.\326\312!C\206I\323\347!\203U\326\320!\326\327!\350\230\203M\212\351\313w\210\323\352!)?\205PD\266\202\206I\323\353!\203e\326\312!\326\327!D\202\236\323\354!\204{\323\355!\203{\326\312!\326\327!D\202\236\323\356!\203\213\326\312!\326\327!D\202\236\323\357!\204\241\323\360!\203\241\326\312!\326\327!D\206I\212\323\361!\205\326\320!\326\327!\362`\312\310#\211\203\272\211b\210\351\313w\210\323\363!\204\212\314 \210\323\364!\203\325\365\366y!\204\310\313\210\n\203\346`\nV\203\346\n\202\347e\322\321`\"8\262\203\377\367\370\371 \"\210\370\313x\210\202\330\351\313x\210h\372U)\205\373 \210\374\313w\210\323\363!\205D\266\203)\206I\212\323\375!\205H\326\320!\326\327!\362`\312\310#\211\2039\211b\210\351\313w\210\323\376!\205FD\266\203)\211\262\2030�@\262\211A@)\262S\262\2030�@\262A\262@\262\211A@)\262\205\203\227\205\211\227\232\266\202\204\230\377\201@�#\210\211\205\240\227\205\246\227\232\266\202\2040�\377\201A�#\210\2020�\310V\205\304\377\201B�!)\207" [case-fold-search f90-blocks-re f90-cache-position x called-interactively-p any push-mark t 0 f90-end-of-block 1 nil beginning-of-line re-search-backward move " 	0-9" 3 parse-partial-sexp 4 looking-at "end[ 	]*" "[ 	]*\$\\sw+\$?" match-string 2 "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\\<type\\>[ 	]*" "\$is\\>\\|(\$" "\$\\sw+\$" re-search-forward "[ 	]*::[ 	]*\$\\sw+\$" line-end-position "type" "\\<\$interface\$\\>[ 	]*" "\$operator\\|assignment\\|read\\|write\$[ 	]*([^)\n]*)" "\\sw+" "\$enum\\|block[ 	]*data\$\\>" "abstract[ 	]*\$interface\$\\>" "\\<\$associate\$[ 	]*(" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$critical\\|block\$\\>" "block" " 	" "data\\>" "\$program\$[ 	]+\$\\sw+\$\\>" "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "\$submodule\$[ 	]*([^)\n]+)[ 	]*\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" scan-lists "then\\>" "[ 	]*\$!\\|$\$" zerop -1 search-backward "!" line-beginning-position 38 f90-next-statement " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$" error "Start type `%s' does not match end type `%s'" "Start label `%s' does not match end label `%s'" "Missing block start"] 19 (#$ . 61637) "p"])
#@213 Move point forward to the next end or start of a code block.
With optional argument NUM, go forward that many blocks.
If NUM is negative, go backwards.
A block is a subroutine, if-endif, etc.

(fn &optional NUM)
(defalias 'f90-next-block #[256 "\303\203�\304!\202\f�\305\306\262\211\307V\2059\307V\203%�\310	\306\311#\202*�\312	\306\311#\2059\313 \210\314\306w\210\n\203B�`\nV\203B�\n\202C�e\315\316`\"8\262\204'\n\203\\�`\nV\203\\�\n\202]�e\317\316`\"8\262\204'\320\321!\204#\320\322!\203~�\323\315!\323\324!D\204#\320\325!\203\216�\323\315!\323\324!D\204#\212\320\326!\205\256�\307\225b\205\256�\320\327!?\205\256�\320\330!\206\256�\310\331\332 \303#)\203\272�\333\323\305!D\202\365�\320\334!\203\334�\323\305!\212\307\225b\210\320\335!\204\324�\320\336!\205\327�\323\307!)D\202\365�\320\337!\203\352�\323\305!\306D\202\365�\320\340!\203\370�\323\305!\306D\204#\320\341!\203\323\305!C\204#\320\342!\203,\323\315!\323\324!\343\230\203$\212\344\306w\210\320\345!)?\205'D\266\202\204#\320\346!\203<\323\305!\323\324!D\202u\320\347!\204R\320\350!\203R\323\305!\323\324!D\202u\320\351!\203b\323\305!\323\324!D\202u\320\352!\204x\320\353!\203x\323\305!\323\324!D\204#\212\320\354!\205\363\323\315!\323\324!\355`\305\307#\211\203\221\211b\210\344\306w\210\320\356!\204\356\212\313 \210\320\357!\203\254\360\361y!\204\237\306\210\n\203\275`\nV\203\275\n\202\276e\317\316`\"8\262\203\326\362\363\364 \"\210\363\306x\210\202\257\344\306x\210h\365U)\205\361\366 \210\367\306w\210\320\356!\205\361D\266\203)\204#\212\320\370!\205\323\315!\323\324!\355`\305\307#\211\203\211b\210\344\306w\210\320\371!\205D\266\203)\203'\211S\262\307V\2033\306\210\202�\313 \210\202�)\207" [case-fold-search f90-blocks-re f90-cache-position t abs 1 nil 0 re-search-forward move re-search-backward beginning-of-line " 	0-9" 3 parse-partial-sexp 4 looking-at "end[ 	]*" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" match-string 2 "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\\<type\\>[ 	]*" "\$is\\>\\|(\$" "\$\\sw+\$" "[ 	]*::[ 	]*\$\\sw+\$" line-end-position "type" "\\<\$interface\$\\>[ 	]*" "\$operator\\|assignment\\|read\\|write\$[ 	]*([^)\n]*)" "\\sw+" "\$enum\\|block[ 	]*data\$\\>" "abstract[ 	]*\$interface\$\\>" "\\<\$associate\$[ 	]*(" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$critical\\|block\$\\>" "block" " 	" "data\\>" "\$program\$[ 	]+\$\\sw+\$\\>" "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "\$submodule\$[ 	]*([^)\n]+)[ 	]*\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" scan-lists "then\\>" "[ 	]*\$!\\|$\$" zerop -1 search-backward "!" line-beginning-position 38 f90-next-statement " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$"] 11 (#$ . 65233) "p"])
#@218 Move point backward to the previous end or start of a code block.
With optional argument NUM, go backward that many blocks.
If NUM is negative, go forwards.
A block is a subroutine, if-endif, etc.

(fn &optional NUM)
(defalias 'f90-previous-block #[256 "\300\206�\301[!\207" [f90-next-block 1] 3 (#$ . 68153) "p"])
#@73 Put mark at end of F90 subprogram, point at beginning, push mark.

(fn)
(defalias 'f90-mark-subprogram #[0 "`\302\303 \210\304 \210b\210\305 \262\306\302\207" [mark-active deactivate-mark nil f90-end-of-subprogram push-mark f90-beginning-of-subprogram t] 3 (#$ . 68476) nil])
#@191 Comment/uncomment every line in the region.
Insert the variable `f90-comment-region' at the start of every line
in the region, or, if already present, remove it.

(fn BEG-REGION END-REGION)
(defalias 'f90-comment-region #[514 "\301!b\210\302 \210\303\304!!\203�`\305\225|\210\202�c\210\306\307y!\203?�`W\203?�\303\304!!\2039�`\305\225|\210\202�c\210\202�\211\310\211\223\207" [f90-comment-region copy-marker beginning-of-line looking-at regexp-quote 0 zerop 1 nil] 6 (#$ . 68763) "*r"])
#@147 Indent current line as F90 code.
Unless optional argument NO-UPDATE is non-nil, call `f90-update-line'
after indenting.

(fn &optional NO-UPDATE)
(defalias 'f90-indent-line #[256 "\306\307 \310\211\310\262\311 \210\212\312 \205V�\212\311 \210\313\314!\203$�\315\316y!\204�\310\210	\2035�`	V\2035�	\2026�e\317\320`\"8\262\203N�\321\322\323 \"\210\322\310x\210\202'�\324\310x\210h\325U))\204n�\n\204g�\313\326!\203g�\327 \210\330\310w\210\202u�\306\262\324\310w\210\313\322!\203\314�\313\331!\203\205�\332\202\307�\203\223�\313!\203\223�\332\202\307�\313\333\f!!\203\237�\332\202\307�\313
!\203\264�\212\324\310x\210n)\203\264�\334 \202\307�\212\324\310x\210n\203\301�\332\202\303�iT$])\262\202\336�%\203\332�\313\335!\203\332�\336 \210\334 \262iU\204\311 \210\211\204\361�\330\310w\210\327 \210\337\315i!\203�\332\202\340\"\266`W\203
b\210&\203\341 \210\202*\204*'\203*\342'\323 \343 #\210\310\211\223)\207" [case-fold-search f90-cache-position f90-leave-line-no f90-directive-comment-re f90-comment-region f90-indented-comment-re t point-marker nil beginning-of-line f90-previous-statement looking-at "[ 	]*\$!\\|$\$" zerop -1 4 parse-partial-sexp search-backward "!" line-beginning-position " 	" 38 "[ 	]+[0-9]" delete-horizontal-space " 	0-9" "!!!" 0 regexp-quote f90-calculate-indent "end" f90-match-end indent-to 1 f90-do-auto-fill f90-change-keywords line-end-position comment-column f90-smart-end auto-fill-function f90-auto-keyword-case] 11 (#$ . 69268) "*P"])
#@205 Re-indent current line, insert a newline and indent the newline.
An abbrev before point is expanded if the variable `abbrev-mode' is non-nil.
If run in the middle of a line, the line is not broken.

(fn)
(defalias 'f90-indent-new-line #[0 "\203�\303 \210\304 \210\305 \210\306\210\307 \210	\203!�`	V\203!�	\202\"�e\310\311`\"8\262\212\304 \210\312\313!\203;�\314\315y!\204.�\306\210	\203L�`	V\203L�	\202M�e\316\311`\"8\262\203e�\317\320\321 \"\210\320\306x\210\202>�\322\306x\210h\323U)\203x�\211\204x�\324c\210\325 \210\204\207�\211\203\212�\n\203\212�\324c\210\266\305\326!\207" [abbrev-mode f90-cache-position f90-beginning-ampersand expand-abbrev beginning-of-line f90-indent-line nil delete-horizontal-space 3 parse-partial-sexp looking-at "[ 	]*\$!\\|$\$" zerop -1 4 search-backward "!" line-beginning-position " 	" 38 "&" newline no-update] 6 (#$ . 70782) "*"])
#@77 Indent every line in region by forward parsing.

(fn BEG-REGION END-REGION)
(defalias 'f90-indent-region #[514 "\306!\307 \310\311\211\211\211\211\211\211\211\311\262	\fb\210\312 \210\313\314!\2033�\315\316!\210\317\320y!\2033�`W\204�\311\211\212\321 \205~�\212\312 \210\313\322!\203L�\317\323y!\204?�\311\210	\203]�`	V\203]�	\202^�e\324\325`\"8\262\203v�\326\327\330 \"\210\327\311x\210\202O�\331\311x\210h\332U)\262)\212\312 \210\313\322!\203\222�\317\323y!\204\205�\311\210	\203\243�`	V\203\243�	\202\244�e\324\325`\"8\262\203\274�\326\327\330 \"\210\327\311x\210\202\225�\331\311x\210h\332U)\262\204\322�\211\204\322�\333\202\371�\204\336�\211\203\336�\334\202\371�\203\352�\211\204\352�\335\202\371�\203\366�\211\203\366�\336\202\371�\337\340!\266\202\262\341>\203\325\321 \203\325\311\211\212\321 \205S\212\312 \210\313\322!\203!\317\323y!\204\311\210	\2032`	V\2032	\2023e\324\325`\"8\262\203K\326\327\330 \"\210\327\311x\210\202$\331\311x\210h\332U)\262)\212\312 \210\313\322!\203g\317\323y!\204Z\311\210	\203x`	V\203x	\202ye\324\325`\"8\262\203\221\326\327\330 \"\210\327\311x\210\202j\331\311x\210h\332U)\262\204\247\211\204\247\333\202\316\204\263\211\203\263\334\202\316\203\277\211\204\277\335\202\316\203\313\211\203\313\336\202\316\337\340!\266\202\262\202\375�`\315\316!\210\212\312 \210\342\311w)\262\262\312 \210\342\311w\210\311\262\313\343!\205�\344\345!\344\346!D\211\262\203\n\n\202\363\212\313\347!\205\205\344\345!\344\346!\350`\320\351#\211\203#\211b\210\331\311w\210\313\352!\204\200\212\312 \210\313\322!\203>\317\323y!\2041\311\210	\203O`	V\203O	\202Pe\324\325`\"8\262\203h\326\327\330 \"\210\327\311x\210\202A\331\311x\210h\332U)\205\203\353 \210\354\311w\210\313\352!\205\203D\266\203)\211\262\204\324\313\355!\205\231\344\345!\344\346!D\211\262\204\324\212\313\356!\205\307\344\345!\344\346!\350`\320\351#\211\203\270\211b\210\331\311w\210\313\357!\205\305D\266\203)\211\262\204\324\313!\203\330\f\202\363\212\313\360!\205\370\351\225b\205\370\313\361!?\205\370\313\362!\206\370\363\364\365 \310#)\203\366\344\320!D\202?\313\367!\203&\344\320!\212\351\225b\210\313\370!\204\313\371!\205!\344\351!)D\202?\313\372!\2034\344\320!\311D\202?\313\373!\205?\344\320!\311D\211\262\203I
\202\363\313\374!\205S\344\320!C\211\262\203^@\202\363\313\375!\205\202\344\345!\344\346!\376\230\203}\212\331\311w\210\313\377!)?\205\200D\266\202\211\262\203\215A\202\363\313\201U�!\203\237\344\320!\344\346!D\202\343\313\201V�!\204\271\313\201W�!\203\271\344\320!\344\346!D\202\343\313\201X�!\203\313\344\320!\344\346!D\202\343\313\201Y�!?\205\343\313\201Z�!\205\343\344\320!\344\346!D\211\262\204\361\313\201[�!\205\363B\262\203\377\\\262\203	B\262\212\312 \210\313\322!\203\317\323y!\204
\311\210	\203+`	V\203+	\202,e\324\325`\"8\262\203D\326\327\330 \"\210\327\311x\210\202\331\311x\210h\332U)\203\317\320y!\203`W\203\313\201\\�!\203\341\313\201]�!\203q\351\202\273C\203\201\313C!\203\201\351\202\273\313\201^�D!!\203\220\351\202\273\313E!\203\250\212\331\311x\210n)\203\250\201_� \202\273\212\331\311x\210n\203\265\351\202\267iTF])\311\312 \210\211\204\307\342\311w\210\201`� \210\201a�\317i!\203\332\351\202\333\320\"\266\202	\201b� G\\U\204	G\\\201c�\312 \210\211\204�\342\311w\210\201`� \210\201a�\317i!\203\351\202\320\"\266\202	\317\320y!\203M\n`W\203M\n\312 \210H\204=\313\201d�!\203=\201`� \210\342\311w\210`\313\201e�!\203Q\351\262\202	\313\201f�!\203_\351\262\202	\313\327!\203\300\313\201]�!\203q\351\202\273C\203\201\313C!\203\201\351\202\273\313\201^�D!!\203\220\351\202\273\313E!\203\250\212\331\311x\210n)\203\250\201_� \202\273\212\331\311x\210n\203\265\351\202\267iTF])\262\202	\212\313\201g�!\206\360\313\201h�!\206\360\313\201i�!\206\360\313\201j�!\206\360\313I!\206\360\363\201k�\365 \310#)\204\373\262\202	\313!\203\n\fZ\262\202	\313\201[�!\203BZ\262\202	\313\343!\205)\344\345!\344\346!D\211\262\2033\n\202\212\313\347!\205\256\344\345!\344\346!\350`\320\351#\211\203L\211b\210\331\311w\210\313\352!\204\251\212\312 \210\313\322!\203g\317\323y!\204Z\311\210	\203x`	V\203x	\202ye\324\325`\"8\262\203\221\326\327\330 \"\210\327\311x\210\202j\331\311x\210h\332U)\205\254\353 \210\354\311w\210\313\352!\205\254D\266\203)\211\262\204\367\313\355!\205\302\344\345!\344\346!D\211\262\204\367\212\313\356!\205\360\344\345!\344\346!\350`\320\351#\211\203\341\211b\210\331\311w\210\313\357!\205\356D\266\203)\211\262\203\373\f\202\212\313\360!\205\351\225b\205\313\361!?\205\313\362!\206\363\364\365 \310#)\203'\366\344\320!D\202b\313\367!\203I\344\320!\212\351\225b\210\313\370!\204A\313\371!\205D\344\351!)D\202b\313\372!\203W\344\320!\311D\202b\313\373!\205b\344\320!\311D\211\262\203l
\202\313\374!\205v\344\320!C\211\262\203\201@\202\313\375!\205\245\344\345!\344\346!\376\230\203\240\212\331\311w\210\313\377!)?\205\243D\266\202\211\262\203\260A\202\313\201U�!\203\302\344\320!\344\346!D\202\313\201V�!\204\334\313\201W�!\203\334\344\320!\344\346!D\202\313\201X�!\203\356\344\320!\344\346!D\202\313\201Y�!?\205\313\201Z�!\205\344\320!\344\346!D\211\262\205B\211\262\203+\262\203\"\\\262B\262\202	\313\201l�!\203=\344\320!\344\346!D\202R\313\201m�J\201n�Q!\205R\344\320!\344\345!D\211\262\203	@\262A\262K\203\200\212\201o�@\211LA@)@\211LA@)$\210)\313M!\203\213\f\202\373\313\201p�!\203\227\n\202\373\313N!\203\242
\202\373\313O!\203\256@\202\373\313\201q�!\203\317\344\320!\376\230\203\312\212\331\311w\210\313\377!)\204\317A\202\373\313\201l�!\203\341\344\320!\344\346!D\202\366\313\201m�J\201n�Q!\205\373\344\320!\344\345!D\205\373B\262\203	Z\262\262\202	\262iU\204<	\311\312 \210\211\204%	\342\311w\210\201`� \210\201a�\317i!\2038	\351\2029	\320\"\266\212\312 \210\313\322!\203M	\317\323y!\204@	\311\210	\203^	`	V\203^		\202_	e\324\325`\"8\262\203w	\326\327\330 \"\210\327\311x\210\202P	\331\311x\210h\332U)\203\317\320y!\203`W\203\313\201\\�!\203\n\313\201]�!\203\244	\351\202\356	C\203\264	\313C!\203\264	\351\202\356	\313\201^�D!!\203\303	\351\202\356	\313E!\203\333	\212\331\311x\210n)\203\333	\201_� \202\356	\212\331\311x\210n\203\350	\351\202\352	iTF])\311\312 \210\211\204\372	\342\311w\210\201`� \210\201a�\317i!\203
\n\351\202\n\320\"\266\202<	\201b� G\\U\204<	G\\\201c�\312 \210\211\2043\n\342\311w\210\201`� \210\201a�\317i!\203F\n\351\202G\n\320\"\266\202<	\311	b\210\n\311\211\223\210	\311\211\223\210\311PQ\204l\nP\205R\201r�=\203\nQ\242\201r�=\202\201\nR\203\330\n\201s� \203\330\n\201t� \203\330\nS\203\247\n\201u�\201v�S\"\210\311S\202\330\n\201w� \201x� U\204\330\n\201y�\201v�!\204\307\n\201z�\201v�!\204\330\n\201u�\201v�\201w� \201x� {\"\210P\204\375\nQ\201{�=\204\366\nQ\242\201r�=\203\375\nQA\204\375\n\311\211Q\202Q\242\201r�=\203\fQAQ\311T\201|�\201}�!*\207" [case-fold-search f90-cache-position f90-do-indent f90-else-like-re f90-if-indent f90-type-indent copy-marker point-marker t nil beginning-of-line looking-at "[ 	]*[0-9]*\$!\\|#\\|[ 	]*$\$" f90-indent-line no-update zerop 1 f90-previous-statement "[ 	]*\$!\\|$\$" -1 4 parse-partial-sexp search-backward "!" line-beginning-position " 	" 38 single begin end middle error "The impossible occurred" (middle end) " 	0-9" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" match-string 3 2 "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" scan-lists 0 "then\\>" f90-next-statement " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$" "\\<type\\>[ 	]*" "\$is\\>\\|(\$" "\$\\sw+\$" re-search-forward "[ 	]*::[ 	]*\$\\sw+\$" line-end-position "type" "\\<\$interface\$\\>[ 	]*" "\$operator\\|assignment\\|read\\|write\$[ 	]*([^)\n]*)" "\\sw+" "\$enum\\|block[ 	]*data\$\\>" "abstract[ 	]*\$interface\$\\>" "\\<\$associate\$[ 	]*(" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$critical\\|block\$\\>" "block" "data\\>" f90-associate-indent f90-critical-indent f90-program-indent f90-directive-comment-re f90-comment-region f90-indented-comment-re comment-column f90-continuation-indent f90-leave-line-no f90-type-def-re f90-blocks-re f90-smart-end x f90-end-if-re f90-end-type-re f90-end-associate-re force transient-mark-mode select-active-regions saved-region-selection mark-active "\$program\$[ 	]+\$\\sw+\$\\>" "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "\$submodule\$[ 	]*([^)\n]+)[ 	]*\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" "contains[ 	]*\$$\\|!\$" "[ 	]*!" "!!!" regexp-quote f90-calculate-indent delete-horizontal-space indent-to current-indentation no-line-no "[ 	]+[0-9]" "[ 	]*$" "[ 	]*#" "end" "\$do\\|if\\|else\\(if\\|where\$?\\|select[ 	]*\$case\\|type\$\\|case\\|where\\|forall\\|block\\|critical\\)\\>" "\$program\\|\\(?:sub\$?module\\|\$?:abstract[ 	]*\$?interface\\|block[ 	]*data\\)\\>" "\$contains\\|\\sw+[ 	]*:\$" "\$function\\|subroutine\$" "end[ 	]*\$interface\$[ 	]*\$\\(?:assignment\\|operator\\|read\\|write\$[ 	]*([^)\n]*)\\)" "end[ 	]*" "?\$[ 	]+\\(\\sw+\$\\)?\\>" f90-block-match "end[ 	]*do\\>" "end[ 	]*\$critical\\|block\$\\>" only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook] 22 (#$ . 71670) "*r"])
#@56 Properly indent the subprogram containing point.

(fn)
(defalias 'f90-indent-subprogram #[0 "\212\301 \211\203(�\302\303@\211A@)#\210\304`\305 \306#\210\302\307@\211A@)#\2026�\302\310!\210\304`\305 \306#\210\302\311!\262)\207" [x f90-mark-subprogram message "Indenting %s %s..." indent-region mark nil "Indenting %s %s...done" "Indenting the whole file..." "Indenting the whole file...done"] 6 (#$ . 81352) "*"])
#@235 Break line at point, insert continuation marker(s) and indent.
Unless in a string or comment, or if the optional argument NO-UPDATE
is non-nil, call `f90-update-line' after inserting the continuation marker.

(fn &optional NO-UPDATE)
(defalias 'f90-break-line #[256 "\203�`V\203�\202�e\303\304`\"8\262\203 �\305c\210\202\255�\203.�`V\203.�\202/�e\306\304`\"8\262\203\217�\307 \210\310\212\203M�`V\203M�\202N�e\306\304`\"8\262\205\210�\311 \210\312\313\314 \"\210\203p�`V\203p�\202q�e\303\304`\"8\262\203\205�\312\313\314 \"\210\202b�\315\316!)\261\210\202\255�\317c\210\211\204\242�	\203\242�\320	\321 \314 #\210\322\323!\210\n\203\255�\317c\210\324 \207" [f90-cache-position f90-auto-keyword-case f90-beginning-ampersand 3 parse-partial-sexp "&\n&" 4 delete-horizontal-space "\n" beginning-of-line re-search-forward "!+[ 	]*" line-end-position match-string-no-properties 0 "&" f90-change-keywords line-beginning-position newline 1 indent-according-to-mode] 7 (#$ . 81779) "*P"])
#@64 From `fill-column', search backward for break-delimiter.

(fn)
(defalias 'f90-find-breakpoint #[0 "\203�`V\203�\202�e\304\305`\"8\262\203 �\306\307\310 \"\207\306	\310 \"\210\n\2047�\311!\2034�\312\2025�\313u\207\314u\210\311!\206B�\315u\207" [f90-cache-position f90-break-delimiters f90-break-before-delimiters f90-no-break-re 4 parse-partial-sexp re-search-backward "\\s-" line-beginning-position looking-at 2 1 -1 nil] 5 (#$ . 82789)])
#@91 Break line if non-white characters beyond `fill-column'.
Update keyword case first.

(fn)
(defalias 'f90-do-auto-fill #[0 "\203\f�\304\305 \306 #\210\307\301!\205.�	\205.�\n\203$�`\nV\203$�\n\202%�e\310\311`\"8\262??\205j�iV\205j�\312 \313!\210\n\203L�`\nV\203L�\n\202M�e\314\311`\"8\262\204[�\315 \210\316 \210\211b\210\211\317\211\223\266\2022�\207" [f90-auto-keyword-case comment-auto-fill-only-comments f90-cache-position fill-column f90-change-keywords line-beginning-position line-end-position boundp 4 parse-partial-sexp point-marker move-to-column 3 f90-find-breakpoint f90-break-line nil] 6 (#$ . 83244) "*"])
#@199 Join current line to previous, fix whitespace, continuation, comments.
With optional argument ARG, join current line to following line.
Like `join-line', but handles F90 syntax.

(fn &optional ARG)
(defalias 'f90-join-lines #[256 "\301 \210\211\203\n�\302y\210h\303=\205t�\304\305w\210\306\307!\203�\310\302!\210\301 \210``S|\210\304\305x\210h\311=\2034�\310\312!\210\203B�`V\203B�\202C�e\313\314`\"8\262\203X�\306\315!\203X�\316\317!\210\203f�`V\203f�\202g�e\320\314`\"8\262\206t�\321 \207" [f90-cache-position beginning-of-line 1 10 " 	" nil looking-at "&" delete-char 38 -1 4 parse-partial-sexp "[ 	]*!+" replace-match "" 3 fixup-whitespace] 6 (#$ . 83879) "*P"])
#@100 Fill every line in region by forward parsing.  Join lines if possible.

(fn BEG-REGION END-REGION)
(defalias 'f90-fill-region #[514 "\306!\307\310\211\211b\210\211\203O�\310\210\311\310x\210h\312=\203%�\313\314!\210\202�\212\310\210i)V\203>�\315!\210\316 \210\317\320!\210\202%�`W\205H�\321\322y!\262`\202
�\310\310\211\223\210\310\204a�
\205\340� \323=\203p�\242\323=\202r� \203\255�\324 \203\255�\325 \203\255�!\203\220�\326\327!\"\210\310!\202\255�\330 \331 U\204\255�\332\327!\204\244�\333\327!\204\255�\326\327\330 \331 {\"\210
\204\315�\334=\204\306�\242\323=\203\315�A\204\315�\310\211\202\340�\242\323=\203\332�A\310\"\335\336!,\207" [auto-fill-function f90-auto-keyword-case f90-smart-end fill-column f90-cache-position force copy-marker t nil " 	" 38 f90-join-lines forward move-to-column f90-find-breakpoint f90-break-line no-update zerop 1 only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook transient-mark-mode select-active-regions saved-region-selection mark-active] 8 (#$ . 84564) "*r"])
#@376 Match end-struct with beg-struct and complete end-block if possible.
BEG-BLOCK is the type of block as indicated at the start (e.g., do).
BEG-NAME is the block start name (may be nil).
END-BLOCK is the type of block as indicated at the end (may be nil).
END-NAME is the block end name (may be nil).
Leave point at the end of line.

(fn BEG-BLOCK BEG-NAME END-BLOCK END-NAME)
(defalias 'f90-block-match #[1028 "C\211@\204�\211\300\240\210\301\302\303 \"\210\304\305\306\307\310\311\312$\313\"\314\315%D\215\207" ["program" search-forward "end" line-end-position no-match funcall make-byte-code 0 "\302\203 �\300@\302\205
�\227\205�\227\232\266\202\203 �\304\302!\210\202B�\302\2036�\305\306\302\300@#\210\307\210\310\311\307\"\210\202B�\305\312\300@\"\210\313\300@Pc\210\301\303\205J�\227\205P�\227\232\266\202\203a�\303\203\244�\304\303!\210\202\244�\301\203v�\303\204v�\305\312\301\"\210\313\301Pc\210\202\244�\301\203\217�\303\203\217�\305\314\303\301#\210\304\303!\210\315\301!\210\202\244�\301\204\244�\303\203\244�\305\316\303\"\210\304\303!\210\315\317!\210\320\321!\206\254�\322 \207" vconcat vector [search-forward message "END %s does not match %s." nil throw no-match "Inserting %s." " " "Replacing %s with %s." replace-match "Deleting %s." "" looking-at "[ 	]*!" delete-horizontal-space] 4 "\n\n(fn)"] 16 (#$ . 85736)])
#@75 From an end block statement, find the corresponding block and name.

(fn)
(defalias 'f90-match-end #[0 "\306\307 `\310\311\211\211\211\211\211\311\262\212\312 \210\313\311w\210\314\315!\203)�\316\306!\316\317!D\2029�\314\320	\321Q!\2059�\316\306!\316\322!D\211\262)\205\341\211@\262\211\211A@)\262\212\312 \210	\323V\203z\324 eU\204z\325	\311\326#\210\312 \210\313\311w\210\203y�`V\203y�\202z�e\322\327`\"8\262\204P�\203\223�`V\203\223�\202\224�e\330\327`\"8\262\204P�\314\331!\203\257�\316\322!\316\317!D\206\\\212\314\332!\205*\316\322!\316\317!\333`\306\323#\211\203\310�\211b\210\334\311w\210\314\335!\204%\212\312 \210\314\336!\203\343�\337\340y!\204\326�\311\210\203\364�`V\203\364�\202\365�e\330\327`\"8\262\203
\341\342\324 \"\210\342\311x\210\202\346�\334\311x\210h\343U)\205(\344 \210\345\311w\210\314\335!\205(D\266\203)\206\\\212\314\346!\205V\316\322!\316\317!\333`\306\323#\211\203G\211b\210\334\311w\210\314\347!\205TD\266\203)\206\\\314\350!\203j\316\322!\316\317!D\206\\\212\314\351!\205\212\323\225b\205\212\314\352!?\205\212\314\353!\206\212\354\355\356 \310#)\203\226\357\316\306!D\202\321\314\360!\203\270\316\306!\212\323\225b\210\314\361!\204\260\314\362!\205\263\316\323!)D\202\321\314\363!\203\306\316\306!\311D\202\321\314\364!\203\324\316\306!\311D\206\\\314\365!\203\341\316\306!C\206\\\314\366!\203\316\322!\316\317!\367\230\203�\212\334\311w\210\314\370!)?\205D\266\202\206\\\314\371!\203\316\306!\316\317!D\202Q\314\372!\204.\314\373!\203.\316\306!\316\317!D\202Q\314\374!\203>\316\306!\316\317!D\202Q\314\375!\204T\314\376!\203T\316\306!\316\317!D\206\\\324 eU\205\\\377\211\262\203j	S\262\n\202P�\314\320	P!\203P�	T\262\n\202P�	\323V\203\213\201A�\201B�!\202\340\f\203\231\201C�\f\324 \356 #\210
\201D�=\203\303`	W\203\274\201A�\201E�\201F� \324 \356 {#\210\202\303\201G�@!\210@\262\211A@)\262b\210\312 \210\201H�$))\207" [case-fold-search f90-blocks-re x f90-cache-position f90-auto-keyword-case f90-smart-end 1 window-start t nil beginning-of-line " 	0-9" looking-at "end[ 	]*\$interface\$[ 	]*\$\\(?:assignment\\|operator\\|read\\|write\$[ 	]*([^)\n]*)\\)" match-string 2 "end[ 	]*" "?\$[ 	]+\\(\\sw+\$\\)?\\>" 3 0 line-beginning-position re-search-backward move parse-partial-sexp 4 "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" scan-lists " 	" "then\\>" "[ 	]*\$!\\|$\$" zerop -1 search-backward "!" 38 f90-next-statement " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\\<type\\>[ 	]*" "\$is\\>\\|(\$" "\$\\sw+\$" re-search-forward "[ 	]*::[ 	]*\$\\sw+\$" line-end-position "type" "\\<\$interface\$\\>[ 	]*" "\$operator\\|assignment\\|read\\|write\$[ 	]*([^)\n]*)" "\\sw+" "\$enum\\|block[ 	]*data\$\\>" "abstract[ 	]*\$interface\$\\>" "\\<\$associate\$[ 	]*(" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$critical\\|block\$\\>" "block" "data\\>" "\$program\$[ 	]+\$\\sw+\$\\>" "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "\$submodule\$[ 	]*([^)\n]+)[ 	]*\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" ("program" nil) blink-matching-delay message "No matching beginning." f90-change-keywords blink "Matches %s: %s" what-line sit-for f90-block-match] 19 (#$ . 87093) nil])
#@76 Insert a complete end statement matching beginning of present block.

(fn)
(defalias 'f90-insert-end #[0 "\206�\301\302c\210\303 )\207" [f90-smart-end blink "end" f90-indent-new-line] 1 (#$ . 90560) "*"])
#@112 Typing `\[help-command] or `? lists all the F90 abbrevs.
Any other key combination is executed normally.

(fn)
(defalias 'f90-abbrev-start #[0 "\302\303!\210\205�\304\305 \306\307\310#\210\306\311	!\310#\210\211\262!\207" [abbrev-mode help-char self-insert-command 1 set-temporary-overlay-map make-sparse-keymap define-key [63] f90-abbrev-help vector] 6 (#$ . 90775) "*"])
#@55 List the currently defined abbrevs in F90 mode.

(fn)
(defalias 'f90-abbrev-help #[0 "\300\301!\210\302\303 !\210\300\304!\207" [message "Listing abbrev table..." display-buffer f90-prepare-abbrev-list-buffer "Listing abbrev table...done"] 2 (#$ . 91159) nil])
#@59 Create a buffer listing the F90 mode abbreviations.

(fn)
(defalias 'f90-prepare-abbrev-list-buffer #[0 "r\300\301!q\210\302 \210\303\304\305\"\210eb\210\306\307!\210\310 \210)\300\301!\207" [get-buffer-create "*Abbrevs*" erase-buffer insert-abbrev-table-description f90-mode-abbrev-table t set-buffer-modified-p nil edit-abbrevs-mode] 3 (#$ . 91426)])
#@46 Upcase all F90 keywords in the buffer.

(fn)
(defalias 'f90-upcase-keywords #[0 "\300\301!\207" [f90-change-keywords upcase-word] 2 (#$ . 91785) "*"])
#@50 Capitalize all F90 keywords in the buffer.

(fn)
(defalias 'f90-capitalize-keywords #[0 "\300\301!\207" [f90-change-keywords capitalize-word] 2 (#$ . 91942) "*"])
#@48 Downcase all F90 keywords in the buffer.

(fn)
(defalias 'f90-downcase-keywords #[0 "\300\301!\207" [f90-change-keywords downcase-word] 2 (#$ . 92111) "*"])
#@54 Upcase all F90 keywords in the region.

(fn BEG END)
(defalias 'f90-upcase-region-keywords #[514 "\300\301#\207" [f90-change-keywords upcase-word] 6 (#$ . 92274) "*r"])
#@58 Capitalize all F90 keywords in the region.

(fn BEG END)
(defalias 'f90-capitalize-region-keywords #[514 "\300\301#\207" [f90-change-keywords capitalize-word] 6 (#$ . 92451) "*r"])
#@56 Downcase all F90 keywords in the region.

(fn BEG END)
(defalias 'f90-downcase-region-keywords #[514 "\300\301#\207" [f90-change-keywords downcase-word] 6 (#$ . 92640) "*r"])
#@186 Change the case of F90 keywords in the region (if specified) or buffer.
CHANGE-WORD should be one of 'upcase-word, 'downcase-word, 'capitalize-word.

(fn CHANGE-WORD &optional BEG END)
(defalias 'f90-change-keywords #[769 "\212\206�e\262\211\206
�d\262\304\305	\305\n\305\306\260	e\307 C\310\211\211b\210\311\312\313\314\315\316	!\317\"\320\321%DC\216\322\323#\205\206�\324`\"\262\3258\2046�\3268\2046�\212\327 \210\330\310w\210\331\332!)\2046�`\262\212\333v\210`)\262\211{\262\333!\210{\230\2046�\323\240\210\2026�)\266\206)\207" [f90-keywords-re f90-procedures-re f90-hpf-keywords-re f90-operators-re "\$" "\\|" "\$" buffer-modified-p nil funcall make-byte-code 0 "\300@\206�\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 "\n\n(fn)" re-search-forward t parse-partial-sexp 3 4 beginning-of-line " 	0-9" looking-at "#" -1] 16 (#$ . 92824)])
#@73 Function to use for `add-log-current-defun-function' in F90 mode.

(fn)
(defalias 'f90-current-defun #[0 "\212\300 A@)\207" [f90-beginning-of-subprogram] 1 (#$ . 93719)])
#@239 Make the backslash character (\) be non-special in the current buffer.
With optional argument ALL, change the default for all present
and future F90 buffers.  F90 mode normally treats backslash as an
escape character.

(fn &optional ALL)
(defalias 'f90-backslash-not-special #[256 "\300\301!\204\n�\302\303!\210\304z\304\232\205 �\211\204�\305\306\307 !!\210\310\304\311\"\207" [derived-mode-p f90-mode error "This function should only be used in F90 buffers" 92 set-syntax-table copy-syntax-table syntax-table modify-syntax-entry "."] 4 (#$ . 93897)])
(provide 'f90)