From 6a0a8f1d275e88a5788045b85600f74f06f96794 Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Wed, 22 Apr 2020 15:51:05 +0200 Subject: [PATCH] Fortran syntax check showed an error --- src/YAML_types.f90 | 54 ++++++++++++++++++++++++++++++---------------- 1 file changed, 36 insertions(+), 18 deletions(-) diff --git a/src/YAML_types.f90 b/src/YAML_types.f90 index 165a34033..049029203 100644 --- a/src/YAML_types.f90 +++ b/src/YAML_types.f90 @@ -33,25 +33,43 @@ module types asList => tNode_asList procedure :: & asDict => tNode_asDict + procedure :: & + tNode_get_byIndex => tNode_get_byIndex procedure :: & - tNode_get_byIndex, & - tNode_get_byIndex_asFloat, & - tNode_get_byIndex_asFloats, & - tNode_get_byIndex_asInt, & - tNode_get_byIndex_asInts, & - tNode_get_byIndex_asBool, & - tNode_get_byIndex_asBools, & - tNode_get_byIndex_asString, & - tNode_get_byIndex_asStrings, & - tNode_get_byKey, & - tNode_get_byKey_asFloat, & - tNode_get_byKey_asFloats, & - tNode_get_byKey_asInt, & - tNode_get_byKey_asInts, & - tNode_get_byKey_asBool, & - tNode_get_byKey_asBools, & - tNode_get_byKey_asString, & - tNode_get_byKey_asStrings + tNode_get_byIndex_asFloat => tNode_get_byIndex_asFloat + procedure :: & + tNode_get_byIndex_asFloats => tNode_get_byIndex_asFloats + procedure :: & + tNode_get_byIndex_asInt => tNode_get_byIndex_asInt + procedure :: & + tNode_get_byIndex_asInts => tNode_get_byIndex_asInts + procedure :: & + tNode_get_byIndex_asBool => tNode_get_byIndex_asBool + procedure :: & + tNode_get_byIndex_asBools => tNode_get_byIndex_asBools + procedure :: & + tNode_get_byIndex_asString => tNode_get_byIndex_asString + procedure :: & + tNode_get_byIndex_asStrings => tNode_get_byIndex_asStrings + procedure :: & + tNode_get_byKey => tNode_get_byKey + procedure :: & + tNode_get_byKey_asFloat => tNode_get_byKey_asFloat + procedure :: & + tNode_get_byKey_asFloats => tNode_get_byKey_asFloats + procedure :: & + tNode_get_byKey_asInt => tNode_get_byKey_asInt + procedure :: & + tNode_get_byKey_asInts => tNode_get_byKey_asInts + procedure :: & + tNode_get_byKey_asBool => tNode_get_byKey_asBool + procedure :: & + tNode_get_byKey_asBools => tNode_get_byKey_asBools + procedure :: & + tNode_get_byKey_asString => tNode_get_byKey_asString + procedure :: & + tNode_get_byKey_asStrings => tNode_get_byKey_asStrings + generic :: & get => tNode_get_byIndex, & tNode_get_byKey