diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-05-13 14:36:34 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-05-13 14:36:34 (GMT) |
| commit | 20dfbb7b68745efb5d4bc6295465d5092d54e157 (patch) | |
| tree | b1e4f2d0a837de6f1f6dbc203c24d9f3209397e6 | |
| parent | 05affd97fd0f05919336740a0f28e22c2849c06f (diff) | |
| download | hdf5-20dfbb7b68745efb5d4bc6295465d5092d54e157.zip hdf5-20dfbb7b68745efb5d4bc6295465d5092d54e157.tar.gz hdf5-20dfbb7b68745efb5d4bc6295465d5092d54e157.tar.bz2 | |
[svn-r29930] brought fix for INTENT of H5AWRITE from the trunk
| -rw-r--r-- | fortran/src/H5_buildiface.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/src/H5_buildiface.F90 b/fortran/src/H5_buildiface.F90 index bd6ecc3..4b00d80 100644 --- a/fortran/src/H5_buildiface.F90 +++ b/fortran/src/H5_buildiface.F90 @@ -397,7 +397,7 @@ PROGRAM H5_buildiface WRITE(11,'(A)') ' INTEGER(HID_T) , INTENT(IN) :: attr_id' WRITE(11,'(A)') ' INTEGER(HID_T) , INTENT(IN) :: memtype_id' WRITE(11,'(A)') ' INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims' - WRITE(11,'(A)') ' INTEGER(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(INOUT)'//TRIM(rank_dim_line(j))//', TARGET :: buf' + WRITE(11,'(A)') ' INTEGER(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN)'//TRIM(rank_dim_line(j))//', TARGET :: buf' WRITE(11,'(A)') ' INTEGER , INTENT(OUT) :: hdferr' WRITE(11,'(A)') ' TYPE(C_PTR) :: f_ptr' |