f90-start-block-re

"^[ 	0-9]*\\(\\(\\(\\(?:\\sw\\|\\s_\\)+[ 	]*:[ 	]*\\)?\\(do\\|select[ 	]*\\(case\\|type\\)\\|if[ 	]*(\\(.*\\|.*\n\\([^if]*\\([^i].\\|.[^f]\\|.\\_>\\)\\)\\)\\_

  This variable may be risky if used as a file-local variable.


Documentation:

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'.