SUBROUTINE print_days(month) BIND(C, NAME='printDays')
USE enumdefs
INTEGER(KIND(jan)), VALUE :: month

  SELECT CASE (month)
    CASE(jan, mar, may, jul, aug, oct, dec)
      write(*,'(''month '',i2,'' has 31 days'')') month

    CASE(apr, jun, sep, nov)
      write(*,'(''month '',i2,'' has 30 days'')') month

    CASE(feb)
      write(*,'(''month '',i2,'' has 28 or 29 days'')') month

    CASE DEFAULT
      write(*,'(''month '',i2,'' does not exist!!'')') month

  END SELECT

END SUBROUTINE print_days