Merge pull request #40 from Goddard-Fortran-Ecosystem/hotfix/bmauer/f…

…ixes-#39 fixes #39
Goddard-Fortran-Ecosystem · Nov 5, 2021 · 6b9a50e · 6b9a50e
2 parents 3d1e6b0 + 8605487
commit 6b9a50e
Show file tree

Hide file tree

Showing 4 changed files with 18 additions and 0 deletions.
diff --git a/src/Nodes/BoolNode.F90 b/src/Nodes/BoolNode.F90
@@ -17,6 +17,7 @@ module fy_BoolNode
       logical :: value = .false.
    contains
       procedure, nopass :: is_bool
+      procedure, nopass :: is_scalar
       procedure, pass(this) :: assign_to_logical
       procedure :: less_than
       procedure :: write_node_formatted
@@ -44,6 +45,9 @@ pure logical function is_bool() result(is)
       is = .true.
    end function is_bool
 
+   pure logical function is_scalar() result(is)
+      is = .true.
+   end function is_scalar
 
    function new_BoolNode(flag) result(node)
       type(BoolNode) :: node

diff --git a/src/Nodes/FloatNode.F90 b/src/Nodes/FloatNode.F90
@@ -18,6 +18,7 @@ module fy_FloatNode
       real(kind=REAL64) :: value = -huge(1._REAL64)
    contains
       procedure, nopass :: is_float
+      procedure, nopass :: is_scalar
       procedure, pass(this) :: assign_to_real32
       procedure, pass(this) :: assign_to_real64
       procedure :: less_than
@@ -44,6 +45,10 @@ pure logical function is_float() result(is)
       is = .true.
    end function is_float
 
+   pure logical function is_scalar() result(is)
+      is = .true.
+   end function is_scalar
+
    function new_FloatNode_r32(r32) result(node)
       type(FloatNode) :: node
       real(kind=REAL32), intent(in) :: r32

diff --git a/src/Nodes/IntNode.F90 b/src/Nodes/IntNode.F90
@@ -18,6 +18,7 @@ module fy_IntNode
       integer(kind=INT64) :: value = -huge(1_INT64)
    contains
       procedure, nopass :: is_int
+      procedure, nopass :: is_scalar
       procedure, pass(this) :: assign_to_integer32
       procedure, pass(this) :: assign_to_integer64
       procedure :: less_than
@@ -44,6 +45,10 @@ pure logical function is_int() result(is)
       is = .true.
    end function is_int
 
+   pure logical function is_scalar() result(is)
+      is = .true.
+   end function is_scalar
+
    function new_IntNode_i32(i32) result(node)
       type(IntNode) :: node
       integer(kind=INT32), intent(in) :: i32

diff --git a/src/Nodes/StringNode.F90 b/src/Nodes/StringNode.F90
@@ -18,6 +18,7 @@ module fy_StringNode
       character(:), allocatable :: value
    contains
       procedure, nopass :: is_string
+      procedure, nopass :: is_scalar
       procedure, pass(this) :: assign_to_string
       procedure :: less_than
       procedure :: write_node_formatted
@@ -43,6 +44,9 @@ pure logical function is_string() result(is)
       is = .true.
    end function is_string
 
+   pure logical function is_scalar() result(is)
+      is = .true.
+   end function is_scalar
 
    function new_StringNode(str) result(node)
       type(StringNode) :: node