The Meson Build System
http://mesonbuild.com/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
138 B
13 lines
138 B
5 years ago
|
implicit none
|
||
|
|
|
||
|
|
integer :: i, j
|
||
|
|
integer, parameter :: N=3
|
||
|
|
real :: A(N,N)
|
||
|
|
|
||
|
|
A = 0
|
||
|
|
|
||
|
|
forall (i=1:N, j=1:N)
|
||
|
|
A(i,j) = 1
|
||
|
|
end forall
|
||
|
|
|
||
|
|
end program
|