Merge pull request #4878 from nbehrnd/patch-3mribeirodantas-patch-1

[fortran/en] account for non-functional typo

1 files changed, 30 insertions, 0 deletions

diff --git a/fortran90.html.markdown b/fortran90.html.markdown
index 2f2cfdfd..3730f8b0 100644
--- a/fortran90.html.markdown
+++ b/fortran90.html.markdown
@@ -436,6 +436,36 @@ contains
 
 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