program test
  DO 1240 WHILE (var128 .NE. 0)
  1240 var128 = 0

end
