diff --git a/gp_fit.f95 b/gp_fit.f95 index 95bcd405..15de0009 100644 --- a/gp_fit.f95 +++ b/gp_fit.f95 @@ -457,7 +457,7 @@ function count_entries_in_sparse_file(sparse_file, sparse_method, d, error) resu inquire(file=trim(sparse_file), exist=exist_sparse_file) if (.not. exist_sparse_file) then - RAISE_ERROR('count_entries_in_sparse_file: '//trim(sparse_file)//' does not exist', error) + RAISE_ERROR('count_entries_in_sparse_file: "'//trim(sparse_file)//'" does not exist', error) end if call fwc_l(trim(sparse_file)//C_NULL_CHAR, n_sparse_file)