diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-07-22 20:55:08 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-07-22 20:55:08 (GMT) |
| commit | 1ebce1bfcf419ff6d0bf4cea2735cffb26b7a787 (patch) | |
| tree | 6949ece173b06b39ec130c3c19033d99336c3816 | |
| parent | bd66cdd5d6b46ddb9b275903baffcbeaaff65204 (diff) | |
| download | hdf5-1ebce1bfcf419ff6d0bf4cea2735cffb26b7a787.zip hdf5-1ebce1bfcf419ff6d0bf4cea2735cffb26b7a787.tar.gz hdf5-1ebce1bfcf419ff6d0bf4cea2735cffb26b7a787.tar.bz2 | |
[svn-r25469] Removed duplicate BIND(C) type defintion.
Tested: (jam: gnu, intel)
| -rw-r--r-- | fortran/test/tH5P_F03.f90 | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/fortran/test/tH5P_F03.f90 b/fortran/test/tH5P_F03.f90 index 91d9e3a..ae48114 100644 --- a/fortran/test/tH5P_F03.f90 +++ b/fortran/test/tH5P_F03.f90 @@ -43,7 +43,7 @@ MODULE test_genprop_cls_cb1_mod USE ISO_C_BINDING IMPLICIT NONE - TYPE, bind(C) :: cop_cb_struct_ ! /* Struct for iterations */ + TYPE, BIND(C) :: cop_cb_struct_ ! /* Struct for iterations */ INTEGER :: count INTEGER(HID_T) :: id END TYPE cop_cb_struct_ @@ -59,10 +59,10 @@ CONTAINS INTEGER(HID_T), INTENT(IN), VALUE :: list_id TYPE(cop_cb_struct_) :: create_data - + create_data%count = create_data%count + 1 create_data%id = list_id - + test_genprop_cls_cb1_f = 0 END FUNCTION test_genprop_cls_cb1_f @@ -243,12 +243,7 @@ SUBROUTINE test_genprop_class_callback(total_error) INTEGER(hid_t) :: lid2 !/* 2nd Generic Property list ID */ INTEGER(size_t) :: nprops !/* Number of properties in class */ - TYPE cb_struct - INTEGER :: count - INTEGER(hid_t) :: id - END TYPE cb_struct - - TYPE(cb_struct), TARGET :: crt_cb_struct, cls_cb_struct + TYPE(cop_cb_struct_), TARGET :: crt_cb_struct, cls_cb_struct CHARACTER(LEN=7) :: CLASS1_NAME = "Class 1" TYPE(C_FUNPTR) :: f1, f5 |