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