SCC-ecWam: calls to sequential routines excluded from separator_nodes

ecmwf-ifs · Jun 21, 2023 · b200f33 · b200f33
1 parent 8faacae
commit b200f33
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/transformations/tests/test_single_column_coalesced.py b/transformations/tests/test_single_column_coalesced.py
@@ -1539,6 +1539,7 @@ def test_single_column_coalesced_vector_inlined_call(frontend, horizontal):
 
     fcode = """
     subroutine some_inlined_kernel(work)
+    !$loki routine seq
        real, intent(inout) :: work
 
        work = work*2.

diff --git a/transformations/transformations/single_column_coalesced_vector.py b/transformations/transformations/single_column_coalesced_vector.py
@@ -79,7 +79,8 @@ def extract_vector_sections(cls, section, horizontal):
 
             # check if calls have been enriched
             if not call.routine is BasicType.DEFERRED:
-                if not horizontal.size in call.routine.symbol_map:
+                # check if called routine is marked as sequential
+                if SCCBaseTransformation.check_routine_pragmas(routine=call.routine, directive=None):
                     continue
 
             if call in section: