program assign1_5
implicit none
integer :: io,yob
character (22) :: ped='HOL234HOL001HOL9831998'
character (6) :: anim,sire,dam
open(1,file='pedigree')
write(1,'(a)') ped
print*,ped
rewind (1)
read(1,'(3a6,i4)',iostat=io) anim,sire,dam,yob
if(io /= 0) stop 'Error on input file'
print*,'Animal Sire Dam YOB'
write(*,'(3(1x,a6),i5)',iostat=io) anim,sire,dam,yob
end program assign1_5