2019-04-04 21:54:17 +00:00
|
|
|
program test
|
2019-04-30 09:54:10 -05:00
|
|
|
integer [10][10] :: a
|
|
|
|
|
integer :: i, j, counter
|
2019-05-04 00:57:49 -05:00
|
|
|
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
|
2019-04-04 21:54:17 +00:00
|
|
|
end program
|
