binutils-gdb/gdb/testsuite/gdb.mi/testcmds

# This is a (bogus) sample user command built to test the printing
# of commands.
define test
set $a = 1
set $b = 2
if ($a > $b)
 set $a = 1
 set $b = 2
 while ($a > $b)
  set $a = 1
  set $b = 2
 end
else
 set $a = 1
 set $b = 2
end
while ($a < $b)
 set $a = $a + 1
 set $c = $a
 if ($a = $b)
  set $c = 5
 end
 set $a = 1
 set $b = 2
end