anchor.diff:    &   '   logical                                :: endtag'    , &
     &   '   character(len=80), dimension(1:2,1:20) :: attribs'   , &
     &   '   integer                                :: noattribs' , &
  -  &   '   character(len=200), dimension(1:1000)  :: data'      , &
  +  &   '   character(len=100000), dimension(1:1000)  :: data'      , &
     &   '   integer                                :: nodata'
   
      write( lusubs, '(a)' ) &
  
positive.code:    logical                                :: endtag
     character(len=80), dimension(1:2,1:20) :: attribs
     integer                                :: noattribs
     character(len=200), dimension(1:1000)  :: data
     integer                                :: nodata
     integer                                :: i
     integer                                :: j
  
negative.code:    !
     write( luend, '(a)' ) &
        & '   if ( present(errout) ) errout = error', &
        & '   call xml_close(info)', &
        & 'end subroutine', &
        & ' '
     write( luwritp, '(a)' ) &
  