1/* This is part of the netCDF package.
2   Copyright 2005 University Corporation for Atmospheric Research/Unidata
3   See COPYRIGHT file for conditions of use.
4
5   Test fix of bug involving creation of a file with pnetcdf APIs,
6   then opening and modifying the file with netcdf.
7
8   Author: Wei-keng Liao.
9*/
10
11#include <nc_tests.h>
12#include "err_macros.h"
13#include <stdio.h>
14#include <stdlib.h>
15#include <string.h>
16#include <mpi.h>
17#include <netcdf.h>
18#include <netcdf_par.h>
19#include <assert.h>
20
21#define NVARS 6
22#define NX    5
23#define FILENAME "tst_formatx.nc"
24
25int main(int argc, char* argv[])
26{
27    int err = 0;
28    int ecode = 0;
29    int ncid;
30    int cmodeformat;
31    int nprocsrank;
32    MPI_Comm comm=MPI_COMM_SELF;
33    MPI_Info info=MPI_INFO_NULL;
34
35    printf("\n*** Testing nc_inq_format_extended for pnetcdf...");
36
37    MPI_Init(&argc,&argv);
38    MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
39    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
40
41    if (nprocs > 1 && rank == 0)
42        printf("This test program is intended to run on ONE process\n");
43    if (rank > 0) goto fn_exit;
44
45    /* first, use PnetCDF to create a file with default header/variable alignment */
46#ifdef DISABLE_PNETCDF_ALIGNMENT
47    MPI_Info_create(&info);
48    MPI_Info_set(info, "nc_header_align_size", "1");
49    MPI_Info_set(info, "nc_var_align_size",    "1");
50#endif
51
52    /* test CDF-1 file format */
53    cmode = NC_PNETCDF | NC_CLOBBER;
54    if (nc_create_par(FILENAMEcmodecomminfo, &ncid)) ERR_RET;
55
56    if (nc_enddef(ncid)) ERR;
57
58    if(nc_inq_format_extended(ncid,&format,&cmode)) ERR;
59    if((cmode & NC_PNETCDF) != NC_PNETCDF) {
60 printf("***FAIL at line %d: mode was %08x ; expected %08x\n",__LINE__,cmode,NC_PNETCDF);
61 ecode = 1;
62 ERR;
63    }
64    if(format != NC_FORMATX_PNETCDF) {
65 printf("***FAIL at line %d: format was %d ; expected %d\n",__LINE__,format,NC_FORMATX_PNETCDF);
66 ecode = 1;
67 ERR;
68    }
69
70    /* test CDF-2 file format */
71    cmode = NC_PNETCDF | NC_CLOBBER | NC_64BIT_OFFSET;
72    if (nc_create_par(FILENAMEcmodecomminfo, &ncid)) ERR_RET;
73
74    if (nc_enddef(ncid)) ERR;
75
76    if(nc_inq_format_extended(ncid,&format,&cmode)) ERR;
77    if((cmode & NC_64BIT_OFFSET) != NC_64BIT_OFFSET) {
78 printf("***FAIL at line %d: mode was %08x ; expected %08x\n",__LINE__,cmode,NC_64BIT_OFFSET);
79 ecode = 1;
80 ERR;
81    }
82    if(format != NC_FORMATX_PNETCDF) {
83 printf("***FAIL at line %d: format was %d ; expected %d\n",__LINE__,format,NC_FORMATX_PNETCDF);
84 ecode = 1;
85 ERR;
86    }
87
88    /* test CDF-5 file format */
89    cmode = NC_PNETCDF | NC_CLOBBER | NC_64BIT_DATA;
90    if (nc_create_par(FILENAMEcmodecomminfo, &ncid)) ERR_RET;
91
92    if (nc_enddef(ncid)) ERR;
93
94    if(nc_inq_format_extended(ncid,&format,&cmode)) ERR;
95    if((cmode & NC_64BIT_DATA) != NC_64BIT_DATA) {
96 printf("***FAIL at line %d: mode was %08x ; expected %08x\n",__LINE__,cmode,NC_64BIT_DATA);
97 ecode = 1;
98 ERR;
99    }
100    if(format != NC_FORMATX_PNETCDF) {
101 printf("***FAIL at line %d: format was %d ; expected %d\n",__LINE__,format,NC_FORMATX_PNETCDF);
102 ecode = 1;
103 ERR;
104    }
105
106    if (nc_abort(ncid)) ERR;
107
108fn_exit:
109    MPI_Finalize();
110    SUMMARIZE_ERR;
111    FINAL_RESULTS;
112    return ecode;
113}


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