add size_kind to size function

Goddard-Fortran-Ecosystem · Jan 26, 2023 · b6e9b5a · b6e9b5a
1 parent a737679
commit b6e9b5a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/include/v1/templates/vector_impl.inc b/include/v1/templates/vector_impl.inc
@@ -53,7 +53,7 @@
          class (__vector), intent(in) :: this
 
          if (allocated(this%elements)) then
-            capacity = size(this%elements)
+            capacity = size(this%elements, kind=SIZE_KIND)
          else
             capacity = 0
          end if