From 65c8971e93f42db60fe06e5c45c254e8c80ac766 Mon Sep 17 00:00:00 2001 From: albapa Date: Fri, 19 Jul 2024 15:11:30 +0100 Subject: [PATCH] Added quotation marks in the sparse_file check error message. (#88) --- gp_fit.f95 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)