From 9d3de05816cb0fda3889e55849fae801942d9cf5 Mon Sep 17 00:00:00 2001
From: Philip Eisenlohr <eisenlohr@egr.msu.edu>
Date: Sat, 5 Aug 2023 14:56:02 -0400
Subject: [PATCH] corrected test resource; more informative error

---
 PRIVATE            |  2 +-
 src/YAML_types.f90 | 10 ++++++++--
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/PRIVATE b/PRIVATE
index 671e09508..16585289f 160000
--- a/PRIVATE
+++ b/PRIVATE
@@ -1 +1 @@
-Subproject commit 671e09508137c7041f272009db654e46b9c0dcdc
+Subproject commit 16585289fdbe5d835da61a8e7736e372024a06d8
diff --git a/src/YAML_types.f90 b/src/YAML_types.f90
index 6a56d1dbc..5d7411dd3 100644
--- a/src/YAML_types.f90
+++ b/src/YAML_types.f90
@@ -1166,7 +1166,10 @@ function tDict_get_as1dReal(self,k,defaultVal,requiredSize) result(nodeAs1dReal)
   end if
 
   if (present(requiredSize)) then
-    if (requiredSize /= size(nodeAs1dReal)) call IO_error(146,ext_msg=k)
+    if (requiredSize /= size(nodeAs1dReal)) &
+      call IO_error(146,ext_msg=k, &
+                    label1='actual',ID1=size(nodeAs1dReal), &
+                    label2='required',ID2=requiredSize)
   end if
 
 end function tDict_get_as1dReal
@@ -1251,7 +1254,10 @@ function tDict_get_as1dInt(self,k,defaultVal,requiredSize) result(nodeAs1dInt)
   end if
 
   if (present(requiredSize)) then
-    if (requiredSize /= size(nodeAs1dInt)) call IO_error(146,ext_msg=k)
+    if (requiredSize /= size(nodeAs1dInt)) &
+      call IO_error(146,ext_msg=k, &
+                    label1='actual',ID1=size(nodeAs1dInt), &
+                    label2='required',ID2=requiredSize)
   end if
 
 end function tDict_get_as1dInt