PROGRAM f_month USE enumdefs, ONLY: jul, feb INTERFACE SUBROUTINE print_days(month) BIND(C, NAME='printDays') USE enumdefs INTEGER(KIND(jan)), VALUE :: month END SUBROUTINE print_days END INTERFACE CALL print_days(jul) CALL print_days(feb) END PROGRAM f_month