calendar.f90

day = -1
month = 4

! Look for holidays
IF(aprilFools(today, month)) WRITE(*,*) "Happy April Fools Day."

! Check if I am supposed to have class today
CALL getMyEvents(today, month, todaysEvents, numberOfEvents)

DO i=1, numberOfEvents, 1
   IF (todaysEvents(i) == "Fortran Review") THEN
      WRITE(*,*) "Yay Fortran."
      EXIT ! because Fortran trumps all other events
   END IF
END DO