From 7dce0227a74f71ac8126b7f5c193433cc68f4c71 Mon Sep 17 00:00:00 2001
From: Ily <90933947+Ily83@users.noreply.github.com>
Date: Wed, 15 May 2024 03:18:59 +0200
Subject: [fortran/en] do concurrent (#4531)

---
 fortran.html.markdown | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

(limited to 'fortran.html.markdown')

diff --git a/fortran.html.markdown b/fortran.html.markdown
index c0d90367..83074073 100644
--- a/fortran.html.markdown
+++ b/fortran.html.markdown
@@ -438,6 +438,35 @@ contains
     end function complex_abs
 
 end module fruity
+
+! ISO Standard Fortran 2008 introduced the DO CONCURRENT construct to allow you
+! to express loop-level parallelism
+
+integer :: i
+real :: array(100)
+
+DO CONCURRENT (i = 1:size(array))
+    array(i) = sqrt(i**i)
+END DO
+
+
+! Only calls to pure functions are allowed inside the loop and we can declare
+! multiple indices:
+
+integer :: x, y
+real :: array(8, 16)
+
+do concurrent (x = 1:size(array, 1), y = 1:size(array, 2))
+    array(x, y) = real(x)
+end do
+
+! loop indices can also declared inside the contruct:
+
+real :: array(8, 16)
+
+do concurrent (integer :: x = 1:size(array, 1), y = 1:size(array, 2))
+    array(x, y) = real(x)
+end do
 ```
 
 ### More Resources
-- 
cgit v1.2.3