RosettaCodeData/Task/Flow-control-structures/Fortran/flow-control-structures-4.f

      XX:DO WHILE(condition)
           statements...
        NN:DO I = 1,N
             statements...
             IF (...) EXIT XX
             IF (...) CYCLE NN
             statements...
           END DO NN
         END DO XX