From ccdb3504c910d70341176befbdc8d079aacc96d4 Mon Sep 17 00:00:00 2001
From: Ily83 <90933947+Ily83@users.noreply.github.com>
Date: Fri, 8 Nov 2024 23:31:48 +0100
Subject: [PATCH] [fortran/en] correct sqrt (#5169)

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