gotoを使用したサブルーチン：テストコード

どこをどうすればきちんとテストできるのか
全然わかんなくて量は少しですが
一応、テストコードです

#include "FILE_manage_label.hsp" m_init call(*s_a,*l_a) mes "OK" stop *s_a mes "a" call(*s_b,*l_b) call(*s_d,*l_d) back *s_b mes "b" call(*s_c,*l_c) back *s_c mes "c" back *s_d mes "d" back