1/* Copyright 2010 University Corporation for Atmospheric Research. See
2   COPYRIGHT file for copying and redistribution conditions.
3
4   This test program is only built if netCDF-4 is disabled. It tests
5   the netCDF-3 version of nc_inq_type().
6
7 $Id: t_type.c,v 2.3 2010/05/26 21:43:33 dmh Exp $
8 */
9
10#include <config.h>
11#include <nc_tests.h>
12#include "err_macros.h"
13#include <stdio.h>
14#include <stddef.h>
15#include <stdlib.h>
16#include <string.h>
17#include <assert.h>
18#include <netcdf.h>
19
20int
21main(int ac, char *av[])
22{
23   int ncid = 0;
24/*   int t; */
25   size_t size_in;
26   char name_in[NC_MAX_NAME + 1];
27
28   printf("\n*** Testing netCDF classic version of nc_inq_type...");
29   if (nc_inq_type(ncid, 0, name_in, &size_in) != NC_EBADTYPEERR;
30   if (nc_inq_type(ncidNC_STRING + 1, name_in, &size_in) != NC_EBADTYPEERR;
31   if (nc_inq_type(ncidNC_BYTEname_in, &size_in)) ERR;
32   if (strcmp(name_in, "byte") || size_in != 1) ERR;
33   if (nc_inq_type(ncidNC_CHARname_in, &size_in)) ERR;
34   if (strcmp(name_in, "char") || size_in != 1) ERR;
35   if (nc_inq_type(ncidNC_SHORTname_in, &size_in)) ERR;
36   if (strcmp(name_in, "short") || size_in != 2) ERR;
37   if (nc_inq_type(ncidNC_INTname_in, &size_in)) ERR;
38   if (strcmp(name_in, "int") || size_in != 4) ERR;
39   if (nc_inq_type(ncidNC_FLOATname_in, &size_in)) ERR;
40   if (strcmp(name_in, "float") || size_in != 4) ERR;
41   if (nc_inq_type(ncidNC_DOUBLEname_in, &size_in)) ERR;
42   if (strcmp(name_in, "double") || size_in != 8) ERR;
43   SUMMARIZE_ERR;
44   FINAL_RESULTS;
45}


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