test(NetCDF_variable):check "-" operand name match

BerkeleyLab · Oct 28, 2024 · 027f072 · 027f072
1 parent 2dd7bb4
commit 027f072
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/demo/src/NetCDF_variable_s.f90 b/demo/src/NetCDF_variable_s.f90
@@ -265,7 +265,12 @@ pure function double_precision_upper_bounds(NetCDF_variable) result(ubounds)
   end procedure
 
   module procedure default_real_subtract
+
     call assert(lhs%conformable_with(rhs), "NetCDF_variable_s(default_real_subtract): lhs%conformable_with(rhs)")
+    call assert(lhs%name_==rhs%name_, "NetCDF_variable_s(default_real_subtract): lhs%name_==rhs%name_", lhs%name_//"/="//rhs%name_)
+
+    difference%name_ = lhs%name_
+
     select case(lhs%rank())
     case(1)
       difference%values_1D_ = lhs%values_1D_ - rhs%values_1D_
@@ -281,7 +286,12 @@ pure function double_precision_upper_bounds(NetCDF_variable) result(ubounds)
   end procedure
 
   module procedure double_precision_subtract
+
     call assert(lhs%conformable_with(rhs), "NetCDF_variable_s(double_precision_subtract): lhs%conformable_with(rhs)")
+    call assert(lhs%name_ == rhs%name_, "NetCDF_variable_s(double_precision_subtract): lhs%name_==rhs%name_",lhs%name_//"/="//rhs%name_)
+
+    difference%name_ = lhs%name_
+
     select case(lhs%rank())
     case(1)
       difference%values_1D_ = lhs%values_1D_ - rhs%values_1D_