xref: /netbsd-src/external/gpl3/gdb.old/dist/gdb/testsuite/gdb.mi/testcmds (revision a5a4af3bd380a7b58b758d9b311cef9f7c34aeb4)
1# This is a (bogus) sample user command built to test the printing
2# of commands.
3define test
4set $a = 1
5set $b = 2
6if ($a > $b)
7 set $a = 1
8 set $b = 2
9 while ($a > $b)
10  set $a = 1
11  set $b = 2
12 end
13else
14 set $a = 1
15 set $b = 2
16end
17while ($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
25end
26