! 例題 6-4  パスカルの三角形 ［配列の入出力 ］
PROGRAM ex6_4

  IMPLICIT NONE
  INTEGER, PARAMETER :: max = 12
  INTEGER :: i, c( 0 : max ) = 0

  c( 1 ) = 1
  DO i = 1, max
    c( 1 : i ) = c( 1 : i ) + c( 0 : i - 1 )
    PRINT '( 1X, I2, ":", 12I5 )', i, c( 1 : i )
  END DO

END PROGRAM ex6_4