@@ -5,14 +5,14 @@ module data_partition_test
55 use vegetables, only: &
66 result_t, input_t, integer_input_t, test_item_t, & ! types
77 describe, it, assert_equals, assert_that, example ! functions
8- use data_partition_interface, only : data_partition
8+ use data_partition_interface, only : data_partition_t
99 use iso_fortran_env, only : real64
1010 implicit none
1111
1212 private
1313 public :: test_data_partition
1414
15- type (data_partition ) partition
15+ type (data_partition_t ) partition
1616 integer , parameter :: num_particles= 31 , gatherer= 1 , num_steps= 9 , dummy= 0
1717
1818contains
@@ -56,7 +56,7 @@ function test_data_partition() result(tests)
5656 function verify_block_partitioning () result(result_)
5757 ! ! Verify that the data is partitioned across images evenly to
5858 ! ! within a difference of one datum between any two images.
59- type (data_partition ) partition
59+ type (data_partition_t ) partition
6060 type (result_t) result_
6161 integer my_particles
6262
@@ -75,7 +75,7 @@ function verify_block_partitioning() result(result_)
7575 function verify_all_particles_partitioned () result(result_)
7676 ! ! Verify that the number of particles on each image sums to the
7777 ! ! total number of particles distributed.
78- type (data_partition ) partition
78+ type (data_partition_t ) partition
7979 type (result_t) result_
8080 integer particles
8181
@@ -89,7 +89,7 @@ function verify_all_particles_partitioned() result(result_)
8989 end function
9090
9191 function verify_all_gather_1D_real_array (unused ) result(result_)
92- type (data_partition ) partition
92+ type (data_partition_t ) partition
9393 class(input_t), intent (in ) :: unused
9494 type (result_t) result_
9595 real (real64) :: particle_scalar(num_particles)
@@ -115,7 +115,7 @@ function verify_all_gather_1D_real_array(unused) result(result_)
115115
116116 function verify_all_gather_2D_real_array (unused ) result(result_)
117117 class(input_t), intent (in ) :: unused
118- type (data_partition ) partition
118+ type (data_partition_t ) partition
119119 type (result_t) result_
120120 integer , parameter :: vec_space_dim= 3
121121 real (real64) particle_vector(vec_space_dim, num_particles)
@@ -141,7 +141,7 @@ function verify_all_gather_2D_real_array(unused) result(result_)
141141
142142 function verify_all_gather_2D_real_array_dim1 (unused ) result(result_)
143143 class(input_t), intent (in ) :: unused
144- type (data_partition ) partition
144+ type (data_partition_t ) partition
145145 type (result_t) result_
146146 integer , parameter :: vec_space_dim= 3
147147 real (real64) :: vector_transpose(num_particles, vec_space_dim)
@@ -167,7 +167,7 @@ function verify_all_gather_2D_real_array_dim1(unused) result(result_)
167167
168168 function verify_gather_2D_real_array_dim1 (unused ) result(result_)
169169 class(input_t), intent (in ) :: unused
170- type (data_partition ) partition
170+ type (data_partition_t ) partition
171171 type (result_t) result_
172172 integer , parameter :: vec_space_dim= 3
173173 real (real64) :: vector_transpose(num_particles, vec_space_dim)
0 commit comments