Function: org-babel-fortran-ensure-main-wrap

org-babel-fortran-ensure-main-wrap is a byte-compiled function defined in ob-fortran.el.gz.

Signature

(org-babel-fortran-ensure-main-wrap BODY PARAMS)

Documentation

Wrap body in a "program ... end program" block if none exists.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ob-fortran.el.gz
(defun org-babel-fortran-ensure-main-wrap (body params)
  "Wrap body in a \"program ... end program\" block if none exists."
  (if (string-match "^[ \t]*program\\>" (capitalize body))
      (let ((vars (org-babel--get-vars params)))
	(when vars (error "Cannot use :vars if `program' statement is present"))
	body)
    (format "program main\n%s\nend program main\n" body)))