! 例題 5-2  九九の練習 ［２重ループ ］
PROGRAM ex5_2

  IMPLICIT NONE
  INTEGER :: m, n, mn

  var1: DO m = 2, 9
  var2:   DO n = 1, 9

            PRINT *, m, 'かける', n, 'は？'
            READ *, mn

            IF ( mn == m * n ) THEN
              PRINT *, '正解です。'
            ELSE
              PRINT *, '誤りです。'
            END IF

          END DO var2
        END DO var1

END PROGRAM ex5_2