program season
character(len=10)::date
character(len=2)::month
print*,"Please enter the day in the form yyyy-mm-dd:"
read*,date
month=date(6:7)
select case (month)
case("06","07")
print*,date," is in winter"
case("08":"10")
print*,date," is in spring"
case("11","12","01":"03")
print*,date," is in summer"
case("04","15")
print*,date," is in autumn"
case default
print*,"You entered invalid date!"
end select
endprogram season