! 例題 1-4  べき乗の計算 ［文の実行順序 ］
PROGRAM ex1_4

  INTEGER :: m, n, k = 1

  PRINT *, 'Input an integer: '
  READ *, n

  m = n

  k = k + 1
  m = m * n
  PRINT *, n, 'の', k, '乗は', m

  k = k + 1
  m = m * n
  PRINT *, n, 'の', k, '乗は', m

  k = k + 1
  m = m * n
  PRINT *, n, 'の', k, '乗は', m

  k = k + 1
  m = m * n
  PRINT *, n, 'の', k, '乗は', m

END PROGRAM ex1_4