anchor.diff:          call nc_diag_header("headertestsimple4_str", str_header)
           
           call nc_diag_metadata("metadatasimple7_big", i*2)
  +    end do
  +    
  +    do i = 1, 100
  +        write(str_metadata, "(A, I0)") "morehellometa_", i
  +        call nc_diag_metadata("metadatasimple8_str", str_metadata)
       end do
       
       call nc_diag_header("headertestsimple5_str", "hello world")
  
positive.code:     real(r_single) :: f
      real(r_double) :: d
      
      character(len=100) :: str_header, str_chaninfo
      
      f = 1.234
      d = 2.34567890
  
negative.code:         call nc_diag_metadata("metadatasimple4_float2", f + 2.00 + i)
          call nc_diag_metadata("metadatasimple5_double", d + 1.00 + i)
          
          write(str_chaninfo, "(A, I0)") "ci6_", i
          call nc_diag_chaninfo("chaninfosimple6_str", str_chaninfo)
          
          write(str_metadata, "(A, I0)") "hellometa_", i
          call nc_diag_metadata("metadatasimple6_str", str_metadata)
      end do
      
      do i = 1, 9
          write(str_chaninfo, "(A, I0)") "ci_strings_", i
          call nc_diag_chaninfo("chaninfosimple7_str", str_chaninfo)
      end do
      
      !print *, "str_chaninfo:"
  