More inlining

Cambridge-ICCS · Jan 14, 2025 · d696e4d · d696e4d
1 parent dd31d8d
commit d696e4d
Showing 1 changed file with 3 additions and 9 deletions.
diff --git a/src/test/unit/test_tensor_constructors.pf b/src/test/unit/test_tensor_constructors.pf
@@ -76,11 +76,9 @@ contains
     class(TestCaseType), intent(inout) :: this
     type(torch_tensor) :: tensor
     integer, parameter :: ndims = 2
-    integer(c_int64_t), dimension(2) :: tensor_shape
+    integer(c_int64_t), dimension(2), parameter :: tensor_shape = [2, 3]
     integer, parameter :: dtype = torch_kFloat32
 
-    tensor_shape = [2, 3]
-
     ! Check the tensor pointer is not associated
     @assertFalse(c_associated(tensor%p))
 
@@ -110,14 +108,12 @@ contains
     class(TestCaseType), intent(inout) :: this
     type(torch_tensor) :: tensor
     integer, parameter :: ndims = 2
-    integer(c_int64_t), dimension(2) :: tensor_shape
+    integer(c_int64_t), dimension(2), parameter :: tensor_shape = [2, 3]
     integer, parameter :: dtype = torch_kFloat32
     real(wp), dimension(:,:), pointer :: out_data
     real(wp), dimension(2,3) :: expected
     logical :: test_pass
 
-    tensor_shape = [2, 3]
-
     ! Check the tensor pointer is not associated
     @assertFalse(c_associated(tensor%p))
 
@@ -166,14 +162,12 @@ contains
     class(TestCaseType), intent(inout) :: this
     type(torch_tensor) :: tensor
     integer, parameter :: ndims = 2
-    integer(c_int64_t), dimension(2) :: tensor_shape
+    integer(c_int64_t), dimension(2), parameter :: tensor_shape = [2, 3]
     integer, parameter :: dtype = torch_kFloat32
     real(wp), dimension(:,:), pointer :: out_data
     real(wp), dimension(2,3) :: expected
     logical :: test_pass
 
-    tensor_shape = [2, 3]
-
     ! Check the tensor pointer is not associated
     @assertFalse(c_associated(tensor%p))