13 lines
No EOL
223 B
Text
13 lines
No EOL
223 B
Text
program test
|
|
integer [10][10] :: a
|
|
integer :: i, j, counter
|
|
i = 1
|
|
j = 2
|
|
a(i) = 1
|
|
a(j) = 2
|
|
print 'a(i) = ', a(i), endline
|
|
print 'a(j) = ', a(j), endline
|
|
a(i) = a(j) + a(i)
|
|
print 'a(i) = ', a(i), endline
|
|
i = j + 2
|
|
end program |