In NAG Fortran integer(kind=4) is 8-byte integer

Use integer*4 for 4-byte integer instead.
Parallel-NetCDF · Dec 7, 2023 · e135a42 · e135a42
1 parent a0b8aca
commit e135a42
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/F90/fill_mode.f90 b/examples/F90/fill_mode.f90
@@ -77,7 +77,7 @@ program main
           integer err, nprocs, rank, ierr, get_args, dummy
           integer cmode, ncid, rec_varid, fix_varid, dimid(2)
           integer no_fill, old_mode
-          integer(kind=4) fill_value
+          integer*4 fill_value
           integer(kind=MPI_OFFSET_KIND) nx, ny, global_nx, global_ny
           integer(kind=MPI_OFFSET_KIND) starts(2), counts(2)
           integer(kind=MPI_OFFSET_KIND) malloc_size, sum_size