mirror of
https://github.com/ivabus/pantry
synced 2024-09-20 08:40:50 +03:00
7c9df6b99b
* Add fortran to enabled languages; add test.f90 test file * Add test.f90 --------- Co-authored-by: James Reynolds <magnsuviri@me.com>
8 lines
148 B
Fortran
8 lines
148 B
Fortran
integer,parameter::m=10000
|
|
real::a(m), b(m)
|
|
real::fact=0.5
|
|
do concurrent (i=1:m)
|
|
a(i) = a(i) + fact*b(i)
|
|
end do
|
|
write(*,"(A)") "Hello, world!"
|
|
end |