      program test
      type id
        character name(20)
        integer ssn
      end type id
      type(id) :: license 
      license%name = 'JOHN OLSON'
      license%ssn = 123456
      end

