iskm/learnxinyminutes-docs
1
0
Fork 0
mirror of https://github.com/adambard/learnxinyminutes-docs.git synced 2025-04-26 15:13:56 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Update fortran.html.markdown

Browse Source 
concurrent function change.
the integer inside the sqrt function need to be converted to real.
This commit is contained in:
Ily83 2024-11-06 18:38:46 +01:00 committed by GitHub
parent a7068ea636
commit a19e753cfa
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran.html.markdown
View File

@ -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