Function: f90-looking-at-select-case

f90-looking-at-select-case is a byte-compiled function defined in f90.el.gz.

Signature

(f90-looking-at-select-case)

Documentation

Return ("select" NAME) if a select statement starts after point.

NAME is nil if the statement has no label.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/f90.el.gz
(defsubst f90-looking-at-select-case ()
  "Return (\"select\" NAME) if a select statement starts after point.
NAME is nil if the statement has no label."
  (if (looking-at "\\(\\(\\(?:\\sw\\|\\s_\\)+\\)[ \t]*:\\)?[ \t]*\
\\(select\\)[ \t]*\\(case\\|type\\)[ \t]*(")
      (list (match-string 3) (match-string 2))))