anchor.diff:      print *, "** All dimensions: **"
       print *, dim_names
       
  -    print *, "** Dimensions details: **"
  +    print *, "** Dimension details: **"
       
       do i = 1, ndims
           dim_name = trim(dim_names(i))
  
positive.code:     print *, "** All dimensions: **"
      print *, dim_names
      
      print *, "** Dimensions details: **"
      
      do i = 1, ndims
          dim_name = trim(dim_names(i))
  
negative.code:     end do
      
      call nc_diag_read_close(file_ncid = tmp_ncid)
      call nc_diag_read_close(file_ncid = tmp_ncid_2)
  end program test_ncdr_get
  