Print the PE id in Fortran example

CrayLabs · Oct 21, 2024 · 377d5fa · 377d5fa
1 parent e4856bf
commit 377d5fa
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/examples/parallel/fortran/smartredis_put_get_3D.F90 b/examples/parallel/fortran/smartredis_put_get_3D.F90
@@ -65,6 +65,7 @@ program main
   if (result .ne. SRNoError) error stop 'client%put_tensor failed'
   result = client%unpack_tensor(key_prefix//"true_array_real_64", recv_array_real_64, shape(recv_array_real_64))
   if (result .ne. SRNoError) error stop 'client%unpack_tensor failed'
+  print *, "PE ID: ", pe_id
   print *, "Sent: ", true_array_real_64
   print *, "Received: ", recv_array_real_64
   if (.not. all(true_array_real_64 == recv_array_real_64)) error stop 'true_array_real_64: FAILED'