From a19e753cfa22d3efd64f759b6453f93e9c6d2c75 Mon Sep 17 00:00:00 2001
From: Ily83 <90933947+Ily83@users.noreply.github.com>
Date: Wed, 6 Nov 2024 18:38:46 +0100
Subject: [PATCH] Update fortran.html.markdown

concurrent function change.
the integer inside the sqrt function need to be converted to real.
---
 fortran.html.markdown | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fortran.html.markdown b/fortran.html.markdown
index 299f99ba..71bc91d1 100644
--- a/fortran.html.markdown
+++ b/fortran.html.markdown
@@ -461,10 +461,10 @@ end module fruity
 ! to express loop-level parallelism
 
 integer :: i
-real :: array(100)
+real :: array(10)
 
 DO CONCURRENT (i = 1:size(array))
-    array(i) = sqrt(i**i)
+    array(i) = sqrt(real(i)**i)
 END DO