diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-03-22 20:01:58 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-03-22 20:01:58 (GMT) |
| commit | 958a762dd16bac9a1c5a7a2c594adce6758f81f4 (patch) | |
| tree | b230627a0be40407f9541a578cf7125c0473b966 /fortran/src/H5Aff_F03.f90 | |
| parent | 60df159d33d8793dd5764e2ae032e0e89fc44c9b (diff) | |
| download | hdf5-958a762dd16bac9a1c5a7a2c594adce6758f81f4.zip hdf5-958a762dd16bac9a1c5a7a2c594adce6758f81f4.tar.gz hdf5-958a762dd16bac9a1c5a7a2c594adce6758f81f4.tar.bz2 | |
[svn-r24866] Fixed compiler warnings using gnu 4.8.1
Tested: jam( intel, gnu, pgi)
Diffstat (limited to 'fortran/src/H5Aff_F03.f90')
| -rw-r--r-- | fortran/src/H5Aff_F03.f90 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/fortran/src/H5Aff_F03.f90 b/fortran/src/H5Aff_F03.f90 index 26c911a..807f6fa 100644 --- a/fortran/src/H5Aff_F03.f90 +++ b/fortran/src/H5Aff_F03.f90 @@ -1065,17 +1065,16 @@ CONTAINS CHARACTER(LEN=*), INTENT(INOUT) :: buf ! Attribute data INTEGER, INTENT(OUT) :: hdferr ! Error code - CALL h5aread_char_scalar_fix(attr_id, memtype_id, buf, LEN(buf), dims, hdferr) + CALL h5aread_char_scalar_fix(attr_id, memtype_id, buf, LEN(buf), hdferr) END SUBROUTINE h5aread_char_scalar - SUBROUTINE h5aread_char_scalar_fix(attr_id, memtype_id, buf, buf_len, dims, hdferr) + SUBROUTINE h5aread_char_scalar_fix(attr_id, memtype_id, buf, buf_len, hdferr) USE, INTRINSIC :: ISO_C_BINDING IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype ! identifier (in memory) - INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER, INTENT(IN) :: buf_len CHARACTER(LEN=buf_len), INTENT(INOUT), TARGET :: buf ! Attribute data INTEGER, INTENT(OUT) :: hdferr ! Error code |