program ex0310
  implicit none
  type :: person
       character(len=30) :: name
       integer :: age
       integer :: length
       integer :: weight
       character(len=80) :: address
  end type person
  type(person) :: a
  write(*,*) 'Input his(her) name:’
  read(*,*) a% name
  write(*,*) 'Input his(her) age:’
  read(*,*) a% age
  write(*,*) 'Input his(her) body length:’
  read(*,*) a% length
  write(*,*) 'His(her) name is ', a% name
  write(*,*) 'His(her) age is ', a% age
  stop
  end program ex0310