beta1 bug

[Jeff Whitaker <jswhit@xxxxxxxxxxx>]

Ed:  The attached C program creates a netcdf4_classic file that is 
unreadable (ncdump'ing it gives an 'HDF Error').

-Jeff

--
Jeffrey S. Whitaker         Phone  : (303)497-6313
Meteorologist               FAX    : (303)497-6449
NOAA/OAR/PSD  R/PSD1        Email  : Jeffrey.S.Whitaker@xxxxxxxx
325 Broadway                Office : Skaggs Research Cntr 1D-124
Boulder, CO, USA 80303-3328 Web    : http://tinyurl.com/5telg

#include <stdio.h>
#include <string.h>
#include <netcdf.h>
#define FILENAME "testfile.nc"
#define ATT1 "foo"
#define ATT2 "bar"
#define LONG_NAME "attribute"
#define ATT3 "long_name"
#define ERR(e) {printf("Error: %s\n", nc_strerror(e)); return 2;}
int
main()
{
       int ncid, retval, att;

       if ((retval = nc_set_default_format(NC_FORMAT_NETCDF4_CLASSIC, NULL))) ERR(retval);

       if ((retval = nc_create(FILENAME, NC_CLOBBER, &ncid))) ERR(retval);
       if ((retval = nc_enddef(ncid))) ERR(retval);

       att = 1;

       if ((retval = nc_redef(ncid))) ERR(retval);
       if ((retval = nc_put_att(ncid, NC_GLOBAL, ATT1, NC_INT, 1, &att))) ERR(retval);
       if ((retval = nc_enddef(ncid))) ERR(retval);

       att = 2;

       if ((retval = nc_redef(ncid))) ERR(retval);
       if ((retval = nc_put_att(ncid, NC_GLOBAL, ATT2, NC_INT, 1, &att))) ERR(retval);
       if ((retval = nc_enddef(ncid))) ERR(retval);

       if ((retval = nc_redef(ncid))) ERR(retval);
       if ((retval = nc_put_att_text(ncid, NC_GLOBAL, ATT3, strlen(LONG_NAME), LONG_NAME))) ERR(retval);
       if ((retval = nc_enddef(ncid))) ERR(retval);

       if ((retval = nc_close(ncid))) ERR(retval);
}