text: /* This is part of the netCDF package.
     Copyright 2018 University Corporation for Atmospheric Research/Unidata
     See COPYRIGHT file for conditions of use.
  
     Test fix of bug involving creation of a file with PnetCDF APIs,
     then opening and modifying the file with netcdf.
  
     Author: Wei-keng Liao.
  */
  
  #include <nc_tests.h>
  #include "err_macros.h"
  #include <stdio.h>
  #include <stdlib.h>
  #include <string.h>
  #include <mpi.h>
  #include <netcdf.h>
  #include <netcdf_par.h>
  #include <assert.h>
  
  #define NVARS 6
  #define NX    5
  #define FILENAME "tst_formatx.nc"
  
  int main(int argc, char* argv[])
  {
      int ecode = 0;
      int ncid;
      int cmode, format;
      int nprocs, rank;
      MPI_Comm comm=MPI_COMM_SELF;
      MPI_Info info=MPI_INFO_NULL;
  
      printf("\n*** Testing nc_inq_format_extended for PnetCDF...");
  
      MPI_Init(&argc,&argv);
      MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
      MPI_Comm_rank(MPI_COMM_WORLD, &rank);
  
      if (nprocs > 1 && rank == 0)
          printf("This test program is intended to run on ONE process\n");
      if (rank > 0) goto fn_exit;
  
      /* first, use PnetCDF to create a file with default header/variable alignment */
  #ifdef DISABLE_PNETCDF_ALIGNMENT
      MPI_Info_create(&info);
      MPI_Info_set(info, "nc_header_align_size", "1");
      MPI_Info_set(info, "nc_var_align_size",    "1");
  #endif
  
      /* test CDF-1 file format */
      cmode = NC_CLOBBER;
      if (nc_create_par(FILENAME, cmode, comm, info, &ncid)) ERR_RET;
  
      if (nc_enddef(ncid)) ERR;
  
      if(nc_inq_format_extended(ncid,&format,&cmode)) ERR;
      if(format != NC_FORMATX_PNETCDF) {
  	printf("***FAIL at line %d: format was %d ; expected %d\n",__LINE__,format,NC_FORMATX_PNETCDF);
  	ecode = 1;
  	ERR;
      }
      if (nc_close(ncid)) ERR;
  
      /* test CDF-2 file format */
      cmode = NC_CLOBBER | NC_64BIT_OFFSET;
      if (nc_create_par(FILENAME, cmode, comm, info, &ncid)) ERR_RET;
  
      if (nc_enddef(ncid)) ERR;
  
      if(nc_inq_format_extended(ncid,&format,&cmode)) ERR;
      if((cmode & NC_64BIT_OFFSET) != NC_64BIT_OFFSET) {
  	printf("***FAIL at line %d: mode was %08x ; expected %08x\n",__LINE__,cmode,NC_64BIT_OFFSET);
  	ecode = 1;
  	ERR;
      }
      if(format != NC_FORMATX_PNETCDF) {
  	printf("***FAIL at line %d: format was %d ; expected %d\n",__LINE__,format,NC_FORMATX_PNETCDF);
  	ecode = 1;
  	ERR;
      }
      if (nc_close(ncid)) ERR;
  
      /* test CDF-5 file format */
      cmode = NC_CLOBBER | NC_64BIT_DATA;
      if (nc_create_par(FILENAME, cmode, comm, info, &ncid)) ERR_RET;
  
      if (nc_enddef(ncid)) ERR;
  
      if(nc_inq_format_extended(ncid,&format,&cmode)) ERR;
      if((cmode & NC_64BIT_DATA) != NC_64BIT_DATA) {
  	printf("***FAIL at line %d: mode was %08x ; expected %08x\n",__LINE__,cmode,NC_64BIT_DATA);
  	ecode = 1;
  	ERR;
      }
      if(format != NC_FORMATX_PNETCDF) {
  	printf("***FAIL at line %d: format was %d ; expected %d\n",__LINE__,format,NC_FORMATX_PNETCDF);
  	ecode = 1;
  	ERR;
      }
      if (nc_close(ncid)) ERR;
  
  fn_exit:
      MPI_Finalize();
      SUMMARIZE_ERR;
      FINAL_RESULTS;
      return ecode;
  }
  