! prime number upto 100
PROGRAM ex5_6

  IMPLICIT NONE
  INTEGER :: n, m, max = 100

  PRINT '(1X,I3)', 2                        ! 2以外の偶数は素数ではない

  xxx: DO n = 3, max, 2
    DO m = 3, NINT( SQRT( REAL( n ) ) ), 2  ! √nまでの奇数を調べる
      IF ( MOD( n, m ) == 0 ) CYCLE xxx     ! ラベルxxxのループへ出る
    END DO
    PRINT '(1X, I3)', n
  END DO xxx                                ! CYCLE xxx で，ここへ来る

END PROGRAM ex5_6