1+3

(2+3)*3

integer :: i

integer :: j

i = 5
j = 6

i

(i+j)*3

integer function fn(a, b)
integer, intent(in) :: a, b
fn = a + b
end function

fn(2, 3)

fn(2, 3)*3

integer function fn(a, b)
integer, intent(in) :: a, b
fn = a - b
end function

fn(2, 3)

integer :: i
do i = 1, 4
    if (i == 3) cycle
    print *, "variable i =", i
end do

integer :: i, tmp
do i = 1, 4
    tmp = plot(1, i+1, 1)
end do
show()

integer :: i, j, n
n = 5
j = 0

%%showast
do i = 1, n
    j = j + i
end do

%%showllvm
do i = 1, n
    j = j + i
end do

%%showasm
do i = 1, n
    j = j + i
end do

integer :: i, tmp
do i = 1, 4
    tmp = plot(2, 1, i)
end do
savefig(1)

%showimage output1.png

%ls