DO WHILE 構造体は、DO WHILE ステートメントで指定されたスカラー論理式が真であり続ける限り、ステートメント・ブロックを繰り返し実行することを示します。CYCLE ステートメントを使用して特定の繰り返しを短縮したり、EXIT ステートメントを使用してループを終了することができます。
>>-DO_WHILE_statement------------------------------------------>< >>-statement_block--------------------------------------------->< >>-+-END_DO_statement---+-------------------------------------->< '-terminal_statement-' |
DO 構造体の名前および範囲、アクティブ DO 構造体と非アクティブ DO 構造体、および終端ステートメントに関する前述の規則は、DO WHILE 構造体にも適用されます。
I=10 TWO_DIGIT: DO WHILE ((I.GE.10).AND.(I.LE.99)) J=J+I READ (5,*) I END DO TWO_DIGIT END