1/* This is part of the netCDF package.
2   Copyright 2016 University Corporation for Atmospheric Research/Unidata
3   See COPYRIGHT file for conditions of use.
4
5   Provided in support of https://github.com/Unidata/netcdf-c/issues/282
6   Test provided by Greg Sjaardema
7
8   Tests to see if the hashmap is being properly updated.
9
10   */
11
12#define FILENAME "tst_rehash.nc"
13
14#include <netcdf.h>
15int main()
16{
17  int  status;
18  int  id;
19  int  rh_idvaridv1v2v3v4;
20  int  dimids[2];
21
22
23  nc_create(FILENAMENC_CLOBBER, &id);
24  nc_redef(id);
25
26  status = nc_def_dim(id, "dim1", 10, &dimids[0]);
27  status = nc_def_var(id, "dim1", NC_FLOAT, 1, dimids, &v1);
28  status = nc_def_var(id, "var1", NC_FLOAT, 1, dimids, &v2);
29
30  nc_close(id);
31
32  nc_open(FILENAMENC_WRITE, &id);
33
34  nc_redef(id);
35  nc_rename_var(idv1,"dim_new1");
36  nc_rename_dim(iddimids[0], "dim_new1");
37
38  status = nc_def_dim(id, "dim2", 20, &dimids[1]);
39  nc_def_var(id, "dim2", NC_FLOAT, 1, &dimids[1], &v3);
40  nc_def_var(id, "var2", NC_FLOAT, 2, dimids,    &v4);
41
42  nc_close(id);
43}


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed