Preliminary code for execution

final_lang/test2.fort

@@ -1,25 +1,8 @@
 program test
-integer :: a, b, c, d, x, y, z, w
-real :: e, f
-a = 2 + 4 * (2 + 1) / 3 * b
-b = a
-if (a > b) then 
-    a = x
-elif (a > c) then
-    a = y
-elif (a > d) then
-    a = z
-else
-    a = w
-end if
-do then
-    if (a > b .or. c > b) then
-        exit
-    end if
-    a = a + 1
-end do
-b = 0
-do a = b + 1, 10, 2 then
-    b = a
-end do
+integer [2][2] :: a
+integer :: i, j
+a(0,0) = 1
+i = 0
+j = 1
+print a(j,i)
 end program