externalroutine toplev
  longreal lr1
  integer i, i1 = 1, i2 = 2, i3 = 3

  i = i1 if i2 = i3
comment  i = i1 if i2 = i3
  i = i1 while i2 = i3
comment  i = i1 while i2 = i3
  i = i1 until i2 = i3
comment  i = i1 until i2 = i3
  i = i1 unless i2 = i3
comment  i = i1 unless i2 = i3
  i = i1 for i2 = i3, 1, i1
comment  i = i1 for i2 = i3, 1, i1
          
comment          
  i = i1 and i1 = i2 if i2 = i3
comment  i = i1 and i1 = i2 if i2 = i3
  i = i1 and i1 = i2 while i2 = i3
comment  i = i1 and i1 = i2 while i2 = i3
  i = i1 and i1 = i2 until i2 = i3
comment  i = i1 and i1 = i2 until i2 = i3
  i = i1 and i1 = i2 unless i2 = i3
comment  i = i1 and i1 = i2 unless i2 = i3
  i = i1 and i1 = i2 for i2 = i3, 1, i1
comment  i = i1 and i1 = i2 for i2 = i3, 1, i1
          
end
endoffile