AB4.24で試してみたところコンパイルエラーにならなかったため記載することは可能でした。
しかし実行すると、
下記のケース1は問題ありませんでしたが、
下記のケース2はIの値が1以外にもかかわらず*JMP1に分岐されていました。
なのでこのような記載はやめたほうがよいと私は思いますが。
ご確認よろしくお願いいたします。
ケース1
DIM A AS Long
A = 2
IF A = 1 THEN *JMP1 ELSE *JMP2
*JMP1
MessageBox(NULL,"*JMP1","TEST",MB_OK)
END
*JMP2
MessageBox(NULL,"*JMP2","TEST",MB_OK)
END
ケース2
DIM I AS Long
DIM T AS Long
I = 2
T = 1
IF I = 1 THEN
*JMP1
END IF
IF T = 1 THEN
*JMP2
END IF
*JMP1
MessageBox(NULL,"*JMP1","TEST",MB_OK)
END
*JMP2
MessageBox(NULL,"*JMP2","TEST",MB_OK)
END
|