finalyze moving
This commit is contained in:
21
tests/sapfor/create_nested_loops/program.expected.f90
Normal file
21
tests/sapfor/create_nested_loops/program.expected.f90
Normal file
@@ -0,0 +1,21 @@
|
||||
program basiccreatenestedloops
|
||||
parameter (nx = 10,ny = 10)
|
||||
integer a(nx,ny),b(nx,ny)
|
||||
integer i,j,inv
|
||||
print *, "TEST START"
|
||||
do j = 1,ny
|
||||
do i = 1,nx
|
||||
a(i,j) = 1
|
||||
b(i,j) = 2
|
||||
enddo
|
||||
enddo
|
||||
do j = 1,ny
|
||||
do i = 1,nx
|
||||
inv = nx * ny
|
||||
a(i,j) = 1 + b(i,j) * inv
|
||||
enddo
|
||||
enddo
|
||||
print *, "Result",a(1,1),a(nx,1)
|
||||
print *, "TEST END"
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user