Lines Matching refs:program
89 ;; f90-program-indent 2
191 (defcustom f90-program-indent 2
275 "program" "public" "read" "real" "recursive" "result" "return"
362 '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\
559 ;; Regexps for finding program structures.
562 (regexp-opt '("do" "if" "interface" "function" "module" "program"
567 (defconst f90-program-block-re
568 (regexp-opt '("program" "module" "subroutine" "function") 'paren)
607 "module" "program" "select" "subroutine"
627 "program\\|interface\\|module\\|type\\|function\\|subroutine"
647 '(nil "^[ \t0-9]*program[ \t]+\\(\\sw+\\)" 1)
737 ("`pm" "program" )
778 `f90-program-indent'
779 Extra indentation within program/module/subroutine/function blocks
975 (defsubst f90-looking-at-program-block-start ()
976 "Return (KIND NAME) if a program block with name NAME starts after point."
979 ((looking-at "\\(program\\)[ \t]+\\(\\sw+\\)\\>")
988 ;; Following will match an un-named main program block; however
990 ;; point (and before any END program). Adding this will require
994 ;;; '("program" nil))))
996 (defsubst f90-looking-at-program-block-end ()
1056 (looking-at "\\(program\\|module\\|interface\\|\
1133 (f90-looking-at-program-block-start))
1136 f90-program-indent))
1158 ((or (f90-looking-at-program-block-start)
1160 (setq icol (+ icol f90-program-indent)))))
1176 (f90-looking-at-program-block-end))
1177 (setq icol (- icol f90-program-indent))))))
1214 (re-search-backward f90-program-block-re nil 'move))
1217 (cond ((setq matching-beg (f90-looking-at-program-block-start))
1219 ((f90-looking-at-program-block-end)
1224 ;; Note this includes the case of an un-named main program,
1238 (re-search-forward f90-program-block-re nil 'move))
1241 (cond ((f90-looking-at-program-block-start)
1243 ((setq matching-end (f90-looking-at-program-block-end))
1279 (f90-looking-at-program-block-start)
1339 (f90-looking-at-program-block-start)
1357 ;; Includes an un-named main program block.
1379 (f90-looking-at-program-block-start)
1399 (let ((pos (point)) program)
1403 (setq program (f90-beginning-of-subprogram))
1408 program))
1513 ((or (setq struct (f90-looking-at-program-block-start))
1515 f90-program-indent)))
1537 (setq ind-curr (- ind-lev f90-program-indent)))
1546 ((setq struct (f90-looking-at-program-block-start))
1547 f90-program-indent)))
1551 ((setq end-struct (f90-looking-at-program-block-end))
1562 ((f90-looking-at-program-block-end)
1563 f90-program-indent)))
1591 (let ((program (f90-mark-subprogram)))
1592 (if program
1595 (car program) (car (cdr program)))
1598 (car program) (car (cdr program))))
1706 ;; f90-indent-region on a program block without an explicit PROGRAM
1708 (or beg-block (setq beg-block "program"))
1744 (setq end-struct (f90-looking-at-program-block-end)))
1765 (f90-looking-at-program-block-start)
1767 ;; start to be the END of a program block
1770 '("program" nil))))