fit intent for nc_insert_array_compound_f in nc interfaces

Unidata · Jan 24, 2024 · d83553a · d83553a
1 parent ef33cb7
commit d83553a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/module_netcdf4_nc_interfaces.F90 b/fortran/module_netcdf4_nc_interfaces.F90
@@ -314,7 +314,7 @@ Function nc_insert_array_compound_f(ncid, xtype, name, offset, field_typeid, &
  Integer(C_INT),         VALUE         :: xtype, field_typeid  ! nc_type in C
  Integer(C_SIZE_T),      VALUE         :: offset
  Character(KIND=C_CHAR), Intent(IN)    :: name(*)
- Integer(C_INT),         Intent(INOUT) :: dim_sizes(*)
+ Integer(C_INT),         Intent(IN) :: dim_sizes(*)
 
  Integer(C_INT)                        :: nc_insert_array_compound_f