4.4BSD/usr/src/contrib/gawk-2.15.2/test/inftest.awk

BEGIN {
  x = 100
  do { y = x ; x *= 1000; print x,y } while ( y != x )
  print "loop terminated"
}