diff options
| author | HDF Tester <hdftest@hdfgroup.org> | 2008-05-07 22:18:20 (GMT) |
|---|---|---|
| committer | HDF Tester <hdftest@hdfgroup.org> | 2008-05-07 22:18:20 (GMT) |
| commit | a67435cf3b0c91001aefb2c226f66bd573fb07fc (patch) | |
| tree | 485bfa957b8db684496a21e47a6ad33deeab9e6c /fortran | |
| parent | 4b2c3c5e07e28f0bd0e1e8a32b20a9e6f662dd52 (diff) | |
| download | hdf5-a67435cf3b0c91001aefb2c226f66bd573fb07fc.zip hdf5-a67435cf3b0c91001aefb2c226f66bd573fb07fc.tar.gz hdf5-a67435cf3b0c91001aefb2c226f66bd573fb07fc.tar.bz2 | |
[svn-r14951] Check in fixes for compilation errors on tungsten.
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5Aff.f90 | 8 | ||||
| -rw-r--r-- | fortran/src/H5Dff.f90 | 1 | ||||
| -rw-r--r-- | fortran/src/H5Lff.f90 | 2 | ||||
| -rw-r--r-- | fortran/src/H5Tff.f90 | 2 |
4 files changed, 5 insertions, 8 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 diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90 index a94339f..4dfad01 100644 --- a/fortran/src/H5Dff.f90 +++ b/fortran/src/H5Dff.f90 @@ -5738,7 +5738,6 @@ CONTAINS !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5DCREATE_ANON_C'::h5dcreate_anon_c !DEC$ ENDIF - !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: loc_id INTEGER(HID_T), INTENT(IN) :: type_id INTEGER(HID_T), INTENT(IN) :: space_id diff --git a/fortran/src/H5Lff.f90 b/fortran/src/H5Lff.f90 index 5594342..9d1c2e5 100644 --- a/fortran/src/H5Lff.f90 +++ b/fortran/src/H5Lff.f90 @@ -505,7 +505,7 @@ CONTAINS !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5LDELETE_BY_IDX_C'::h5ldelete_by_idx_c !DEC$ ENDIF - !DEC$ATTRIBUTES reference :: name + !DEC$ATTRIBUTES reference :: group_name INTEGER(HID_T), INTENT(IN) :: loc_id CHARACTER(LEN=*), INTENT(IN) :: group_name INTEGER, INTENT(IN) :: index_field diff --git a/fortran/src/H5Tff.f90 b/fortran/src/H5Tff.f90 index c60e78b..9b03ef0 100644 --- a/fortran/src/H5Tff.f90 +++ b/fortran/src/H5Tff.f90 @@ -3348,7 +3348,6 @@ CONTAINS !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5TCOMMIT_ANON_C'::h5tcommit_anon_c !DEC$ ENDIF - !DEC$ATTRIBUTES reference ::name INTEGER(HID_T), INTENT(IN) :: loc_id INTEGER(HID_T), INTENT(IN) :: dtype_id INTEGER(HID_T) :: tcpl_id_default @@ -3414,7 +3413,6 @@ CONTAINS !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5TCOMMITTED_C'::h5tcommitted_c !DEC$ ENDIF - !DEC$ATTRIBUTES reference ::name INTEGER(HID_T), INTENT(IN) :: dtype_id END FUNCTION h5tcommitted_c END INTERFACE |