resolve_latest_pointer Function

public function resolve_latest_pointer(pointer_file, fname, prefix, is_ok, message) result(actual)

If fname names the pointer file, read the real path from it; otherwise return fname unchanged. Detects >512-char truncation explicitly.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pointer_file
character(len=*), intent(in) :: fname
character(len=*), intent(in) :: prefix
logical, intent(out), optional :: is_ok
character(len=*), intent(out), optional :: message

Return Value character(len=512)