PROGRAM main : END PROGRAM main SUBROUTINE sub(〜) : END SUBROUTINE sub FUNCTION f(〜) RESULT(〜) : END FUNCTION f