diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-08 15:53:10 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-08 15:53:10 (GMT) |
| commit | 908f3a8c8d704f0a11248e3499b47c0cdda268d5 (patch) | |
| tree | 69f5a7152c08562f906443982dbd298650a2da3b /fortran/src/H5Aff.f90 | |
| parent | d1c337058461311d0c583c99c6fbf45d945ed555 (diff) | |
| download | hdf5-908f3a8c8d704f0a11248e3499b47c0cdda268d5.zip hdf5-908f3a8c8d704f0a11248e3499b47c0cdda268d5.tar.gz hdf5-908f3a8c8d704f0a11248e3499b47c0cdda268d5.tar.bz2 | |
[svn-r14953] Maintenance: Fixed some minor bugs exposed by the Intel compiler on tungsten.
Platforms tested: tungsten is still configuring.
Diffstat (limited to 'fortran/src/H5Aff.f90')
| -rw-r--r-- | fortran/src/H5Aff.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/src/H5Aff.f90 b/fortran/src/H5Aff.f90 index a6c0162..cad5231 100644 --- a/fortran/src/H5Aff.f90 +++ b/fortran/src/H5Aff.f90 @@ -3197,7 +3197,7 @@ CONTAINS !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5ARENAME_BY_NAME_C'::h5arename_by_name_c !DEC$ ENDIF - !DEC$ATTRIBUTES reference :: name + !DEC$ATTRIBUTES reference :: obj_name INTEGER(HID_T), INTENT(IN) :: loc_id CHARACTER(LEN=*), INTENT(IN) :: obj_name INTEGER(SIZE_T) :: obj_namelen @@ -3272,7 +3272,7 @@ CONTAINS !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5AOPEN_C'::h5aopen_c !DEC$ ENDIF - !DEC$ATTRIBUTES reference :: name + !DEC$ATTRIBUTES reference :: attr_name INTEGER(HID_T), INTENT(IN) :: obj_id CHARACTER(LEN=*), INTENT(IN) :: attr_name INTEGER(HID_T) :: aapl_id_default @@ -3365,7 +3365,7 @@ CONTAINS !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5ADELETE_BY_IDX_C'::h5adelete_by_idx_c !DEC$ ENDIF - !DEC$ATTRIBUTES reference :: name + !DEC$ATTRIBUTES reference :: obj_name INTEGER(HID_T), INTENT(IN) :: loc_id CHARACTER(LEN=*), INTENT(IN) :: obj_name INTEGER, INTENT(IN) :: idx_type @@ -3433,7 +3433,7 @@ CONTAINS !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5ADELETE_BY_NAME_C'::h5adelete_by_name_c !DEC$ ENDIF - !DEC$ATTRIBUTES reference :: name + !DEC$ATTRIBUTES reference :: obj_name INTEGER(HID_T), INTENT(IN) :: loc_id CHARACTER(LEN=*), INTENT(IN) :: obj_name CHARACTER(LEN=*), INTENT(IN) :: attr_name |