Program ex0434
implicit none
type::person
    character(len=30)::name
    integer::           age
    real::              height
    real::              weight
    character(len=80)   address
end type person

type(person)::a


write(*,*)"NAME"
read(*,*)a%name
write(*,*)a%name
stop
end