gdb/testsuite/gdb.mi/testcmds

   1 # This is a (bogus) sample user command built to test the printing
   2 # of commands.
   3 define test
   4 set $a = 1
   5 set $b = 2
   6 if ($a > $b)
   7  set $a = 1
   8  set $b = 2
   9  while ($a > $b)
  10   set $a = 1
  11   set $b = 2
  12  end
  13 else
  14  set $a = 1
  15  set $b = 2
  16 end
  17 while ($a < $b)
  18  set $a = $a + 1
  19  set $c = $a
  20  if ($a = $b)
  21   set $c = 5
  22  end
  23  set $a = 1
  24  set $b = 2
  25 end