anchor.diff:              
               write (*, "(A, I0, A)") " ** Variable (1D): " // var_name // " (Elements: ", size(var_stor), ")"
               
  -            do i = 1, size(var_stor)
  -                if ((i > 1) .AND. (mod(i - 1, 5) == 0)) write (*, "(A)") ""
  -                write (*, "(A20)", advance = "no") '"' // var_stor(i) // '" '
  +            !do i = 1, size(var_stor)
  +            !    if ((i > 1) .AND. (mod(i - 1, 5) == 0)) write (*, "(A)") ""
  +            !    if ((var_stor(i)(1:1) == NF90_FILL_CHAR) .OR. (len(var_stor(i)) == 0)) then
  +            !        write (*, "(A20)", advance = "no") "(empty) "
  +            !    else
  +            !        write (*, "(A20)", advance = "no") '"' // var_stor(i) // '" '
  +            !    end if
  +            !end do
  +            
  +            do i = 1, size(var_stor)
  +                if ((var_stor(i)(1:1) == NF90_FILL_CHAR) .OR. (len(var_stor(i)) == 0)) then
  +                    write (*, "(A20)") "(empty)"
  +                else
  +                    write (*, "(A20)") '"' // var_stor(i) // '"'
  +                end if
               end do
               
               write (*, "(A)") ""
  
positive.code:             
              do i = 1, size(var_stor, 2)
                  do j = 1, size(var_stor, 1)
                      if ((j > 1) .AND. (mod(j - 1, 5) == 0)) write (*, "(A)") ""
                      write (*, "(A30)", advance = "no") '"' // var_stor(j, i) // '" '
                  end do
                  write (*, "(A)") ""
                  write (*, "(A)") "== END ROW =="
              end do
              
              write (*, "(A)") ""
  
negative.code: program test_nc_diag_read
      use nc_diag_read
      use netcdf
      
      call nc_diag_read_init("test.nc")
      !call nc_diag_read_init("test_fixed.nc")
  