Skip to content
Snippets Groups Projects
Commit 410f3208 authored by Thomas Jahns's avatar Thomas Jahns :cartwheel:
Browse files

test suite: Elide check for automatic reallocation.

parent 0c716f95
No related branches found
No related tags found
No related merge requests found
...@@ -202,7 +202,7 @@ CONTAINS ...@@ -202,7 +202,7 @@ CONTAINS
buf_size = SUM(result_spacing) + SUM(result_sizes) buf_size = SUM(result_spacing) + SUM(result_sizes)
ALLOCATE(buf(buf_size)) ALLOCATE(buf(buf_size))
DO iexch = 1, 2 DO iexch = 1, 2
buf = -1_xt_int_kind buf(:) = -1_xt_int_kind
ofs = result_spacing(1) ofs = result_spacing(1)
results_1 => buf(ofs+1:ofs+result_sizes(1)) results_1 => buf(ofs+1:ofs+result_sizes(1))
ofs = ofs + result_sizes(1) + result_spacing(2) ofs = ofs + result_sizes(1) + result_spacing(2)
...@@ -217,7 +217,7 @@ CONTAINS ...@@ -217,7 +217,7 @@ CONTAINS
CALL check_4redist_results(results_1, results_2, results_3, results_4, & CALL check_4redist_results(results_1, results_2, results_3, results_4, &
index_vector_a, index_vector_b, iexch) index_vector_a, index_vector_b, iexch)
buf = -1_xt_int_kind buf(:) = -1_xt_int_kind
! shift addresses around ! shift addresses around
IF (rank == 0) THEN IF (rank == 0) THEN
ofs = SUM(result_spacing(1:2)) + SUM(result_sizes(1:2)) ofs = SUM(result_spacing(1:2)) + SUM(result_sizes(1:2))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment