! 例題 4-4  万年暦の準備 ［整数割り算 ］
PROGRAM ex4_4

  IMPLICIT NONE
  INTEGER :: year, days

  PRINT *, 'Input a year: '
  READ *, year

  days = 365 * year + year / 4 - year / 100 + year / 400
  PRINT *, year, '年12月31日は，1年1月1日から数えて',   &
           days, '日目です。'

END PROGRAM ex4_4