mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2025-01-18 15:55:12 +08:00
Code Issues Packages Projects Releases Wiki Activity

Roughing in a test to create the failure described in https://github.com/Unidata/netcdf-c/issues/221

Browse Source
This commit is contained in:
Ward Fisher 2016-02-16 11:00:09 -07:00
parent 47dcd00bb7
commit 1807cb7aa2
2 changed files with 61 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
nc_test4/CMakeLists.txt
View File

@ -9,7 +9,7 @@ SET(NC4_TESTS tst_dims tst_dims2 tst_dims3 tst_files tst_files4 tst_vars
t_type cdm_sea_soundings tst_vl tst_atts1 tst_atts2
tst_vars2 tst_files5 tst_files6 tst_sync tst_h_strbug tst_h_refs
tst_h_scalar tst_rename tst_h5_endians tst_atts_string_rewrite
tst_put_vars_two_unlim_dim)
tst_put_vars_two_unlim_dim tst_gh221)
# Note, renamegroup needs to be compiled before run_grp_rename
build_bin_test(renamegroup)

60
nc_test4/tst_gh221.c Normal file
View File

@ -0,0 +1,60 @@
/* This is part of the netCDF package. Copyright 2005 University
Corporation for Atmospheric Research/Unidata See COPYRIGHT file for
conditions of use.
This program excersizes HDF5 variable length array code.
$Id: tst_h_vl2.c,v 1.5 2010/06/01 15:34:52 ed Exp $
*/
#include <nc_tests.h>
#include <hdf5.h>
#include <nc_logging.h>
#define FILE_NAME "tst_gh221.nc"
#define DIM_LEN 3;
#define DIM_NAME "x"
#define VLNE_NAME "vltest"
#define VAR_NAME1 "v"
#define VAR_NAME2 "w"
int main() {
printf("Testing access to unset entrines in VLEN variable\n");
{
int ncid, typeid, dimid;
nc_vlen_t data[DIM_LEN], data_in[DIM_LEN];
size_t size_in;
nc_type base_nc_type_in;
int *phony, class_in;
size_t len_in;
int i, j;
/* Create phony data. */
for (i=0; i<DIM_LEN; i++) {
if (!(phony = malloc(sizeof(int) * (i+1))))
return NC_ENOMEM;
for (j = 0; j < i + 1; j++)
phony[j] = PHONY_VAL;
data[i].p = phony;
data[i].len = i+1;
}
/* Create File */
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
/* Create Dimension */
if (nc_def_dim(ncid, DIM_NAME, DIM_LEN, &dimid)) ERR;
/* Create ragged array type. */
if (nc_def_vlen(ncid, VLEN_NAME, NC_FLOAT, &typeid)) ERR;
/* Create a variable of typeid. */
if (nc_def_var(ncid, VAR_NAME1, typeid, 1, &dimid, &varid);
/* Close File. */
if (nc_close(ncid)) ERR;
}