From 6e6387c9fa7d2b790b08d5def7447507086964dd Mon Sep 17 00:00:00 2001
From: Damian Rouson <damian@sourceryinstitute.org>
Date: Wed, 22 Sep 2021 11:41:48 -0700
Subject: [PATCH] refac(topological_sort): nested concurrency

---
 src/dag_s.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/dag_s.f90 b/src/dag_s.f90
index 1abdb72..f7613a1 100644
--- a/src/dag_s.f90
+++ b/src/dag_s.f90
@@ -39,7 +39,7 @@ pure module function topological_sort(dag) result(order)
 
       searched_and_ordered = searched_and_ordered_t(s = [integer::], o = [integer::])
 
-      do v = 1, size(dag%vertices)
+      do concurrent(v = 1:size(dag%vertices))
         if (.not. any(v == searched_and_ordered%s)) &
           searched_and_ordered = depth_first_search(v, [integer::], searched_and_ordered%o)
       end do