get_git_modified_runtime_info Function

private function get_git_modified_runtime_info()

Returns whether the source code has been modified relative to the repository version

Type Bound

runtime_info_type

Arguments

None

Return Value logical


Contents

Source Code

get_git_modified_runtime_info

Source Code

  function get_git_modified_runtime_info()
    implicit none
    logical :: get_git_modified_runtime_info
#ifndef GIT_HASH
#define GIT_HASH "unknown"
#endif
    if(GIT_STATE.eq."clean")then
       get_git_modified_runtime_info=.false.
    else
       get_git_modified_runtime_info=.true.
    endif
  end function get_git_modified_runtime_info