gcc/testsuite/gcc.dg/simulate-thread/simulate-thread.gdb

   1 set height 0
   2 break simulate_thread_main
   3 # disp/i $pc
   4 run
   5
   6 set $ret = 0
   7 while (simulate_thread_fini != 1) && (! $ret)
   8   set $ret |= simulate_thread_wrapper_other_threads()
   9   stepi
  10   set $ret |= simulate_thread_step_verify()
  11 end
  12
  13 if (! $ret)
  14   set $ret |= simulate_thread_wrapper_final_verify()
  15 end
  16 continue
  17 quit $ret