From 3dbc07a26bbcc026d84687c3c68760e199ebb158 Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Fri, 23 Oct 2020 18:43:52 +0200 Subject: [PATCH] better error description --- src/IO.f90 | 2 +- src/YAML_types.f90 | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/IO.f90 b/src/IO.f90 index a95938a7f..260bd94b8 100644 --- a/src/IO.f90 +++ b/src/IO.f90 @@ -491,7 +491,7 @@ subroutine IO_error(error_ID,el,ip,g,instance,ext_msg) case (705) msg = 'Unsupported feature' case (706) - msg = 'Access by incorrect node type' + msg = 'Type mismatch in YAML data node' case (707) msg = 'Abrupt end of file' case (708) diff --git a/src/YAML_types.f90 b/src/YAML_types.f90 index 09a2d0592..f11faf54b 100644 --- a/src/YAML_types.f90 +++ b/src/YAML_types.f90 @@ -311,7 +311,7 @@ function tNode_asScalar(self) result(scalar) class is(tScalar) scalar => self class default - call IO_error(706,ext_msg='tNode_asScalar') + call IO_error(706,ext_msg='Expected "scalar"') end select end function tNode_asScalar @@ -329,7 +329,7 @@ function tNode_asList(self) result(list) class is(tList) list => self class default - call IO_error(706,ext_msg='tNode_asList') + call IO_error(706,ext_msg='Expected "list"') end select end function tNode_asList @@ -347,7 +347,7 @@ function tNode_asDict(self) result(dict) class is(tDict) dict => self class default - call IO_error(706,ext_msg='tNode_asDict') + call IO_error(706,ext_msg='Expected "dict"') end select end function tNode_asDict @@ -641,7 +641,7 @@ function tNode_contains(self,k) result(exists) endif enddo else - call IO_error(706,ext_msg='tNode_contains') + call IO_error(706,ext_msg='Expected "list" or "dict"') endif end function tNode_contains