diff options
| author | Quincey Koziol <koziol@koziol.gov> | 2019-06-21 15:05:34 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@koziol.gov> | 2019-06-21 15:05:34 (GMT) |
| commit | 1ccbdfee589d9f56d71983506313879fa47c4e90 (patch) | |
| tree | c1d64e0d77828bcf81dd0e4e4b4e9fda41911582 /fortran | |
| parent | 5fc5d947f084d1ef5d4c4a0bc2be55baa181f0fa (diff) | |
| download | hdf5-1ccbdfee589d9f56d71983506313879fa47c4e90.zip hdf5-1ccbdfee589d9f56d71983506313879fa47c4e90.tar.gz hdf5-1ccbdfee589d9f56d71983506313879fa47c4e90.tar.bz2 | |
Add support for GCC 7.x warnings, update warnhist script to account for them,
clean up warnings.
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5Fff.F90 | 1 | ||||
| -rw-r--r-- | fortran/src/H5VLff.F90 | 1 | ||||
| -rw-r--r-- | fortran/test/tH5O_F03.F90 | 2 |
3 files changed, 0 insertions, 4 deletions
diff --git a/fortran/src/H5Fff.F90 b/fortran/src/H5Fff.F90 index ac3a1c0..8574c06 100644 --- a/fortran/src/H5Fff.F90 +++ b/fortran/src/H5Fff.F90 @@ -591,7 +591,6 @@ CONTAINS ! is an HDF5 file INTEGER, INTENT(OUT) :: hdferr ! Error code !***** - INTEGER(HID_T) :: access_prp_default CHARACTER(LEN=LEN_TRIM(name)+1,KIND=C_CHAR) :: c_name INTEGER(C_INT) :: flag ! "TRUE/FALSE/ERROR" flag from C routine ! to define status value. diff --git a/fortran/src/H5VLff.F90 b/fortran/src/H5VLff.F90 index 9abc157..e21f38f 100644 --- a/fortran/src/H5VLff.F90 +++ b/fortran/src/H5VLff.F90 @@ -217,7 +217,6 @@ CONTAINS !***** CHARACTER(LEN=1,KIND=C_CHAR), DIMENSION(1:LEN(name)+1), TARGET :: c_name INTEGER(SIZE_T) :: l - TYPE(C_PTR) :: f_ptr INTERFACE INTEGER(SIZE_T) FUNCTION H5VLget_connector_name(obj_id, name, size) BIND(C,NAME='H5VLget_connector_name') diff --git a/fortran/test/tH5O_F03.F90 b/fortran/test/tH5O_F03.F90 index d1a9ddb..78b6453 100644 --- a/fortran/test/tH5O_F03.F90 +++ b/fortran/test/tH5O_F03.F90 @@ -270,8 +270,6 @@ CONTAINS ! A(8) = tm_yday int days since January 1 0-365 ! A(9) = tm_isdst int Daylight Saving Time flag ! - INTEGER(C_INT), DIMENSION(:), POINTER :: c_atime, c_btime, c_ctime, c_mtime - INTEGER(C_INT), DIMENSION(1:8) :: atime, btime, ctime, mtime INTEGER :: len, i INTEGER :: idx INTEGER :: ierr |