Returns an identifier of the system and build: "system.compiler.githash".
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(runtime_info_type), | intent(inout) | :: | self |
function build_identifier_runtime_info(self)
implicit none
class(runtime_info_type), intent(inout) :: self
character(len=50) :: build_identifier_runtime_info
character(len=:), allocatable :: git_hash
git_hash = self%get_git_hash(7)
build_identifier_runtime_info = trim(self%get_gk_system())&
//"."//trim(self%get_compiler_name())&
//'.'//git_hash(1:7)
if(self%get_git_modified()) then
build_identifier_runtime_info = trim(build_identifier_runtime_info(1:41))//'.modified'
end if
end function build_identifier_runtime_info