program ch1701 implicit none type date integer :: day = 1 integer :: month = 1 integer :: year = 2000 end type date type (date) :: d print *, d%day, d%month, d%year print *, ' type in the date, day, month, year' read *, d%day, d%month, d%year print *, d%day, d%month, d%year end program ch1701