diff options
| author | Dana Robinson <derobins@hdfgroup.org> | 2016-03-08 07:34:43 (GMT) |
|---|---|---|
| committer | Dana Robinson <derobins@hdfgroup.org> | 2016-03-08 07:34:43 (GMT) |
| commit | 1b7b09b08104f05a65a0269c5c88a342dba8e972 (patch) | |
| tree | e758e40e37fa8f8bcd8dc63c57b4d2fb3dac473c /hl | |
| parent | a1035bd80624807b3ed31a67575a68f577c0e48c (diff) | |
| download | hdf5-1b7b09b08104f05a65a0269c5c88a342dba8e972.zip hdf5-1b7b09b08104f05a65a0269c5c88a342dba8e972.tar.gz hdf5-1b7b09b08104f05a65a0269c5c88a342dba8e972.tar.bz2 | |
[svn-r29337] Cleaning warnings in Fortran code.
Tested on: 64-bit Ubuntu 15.10 (Linux 4.2.0 x86_64) gcc 5.2.1
autotools serial w/ Fortran
Diffstat (limited to 'hl')
| -rw-r--r-- | hl/fortran/test/tstlite.F90 | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/hl/fortran/test/tstlite.F90 b/hl/fortran/test/tstlite.F90 index 0ba7815..081e61e 100644 --- a/hl/fortran/test/tstlite.F90 +++ b/hl/fortran/test/tstlite.F90 @@ -418,7 +418,6 @@ SUBROUTINE test_dataset3D() #if H5_HAVE_Fortran_INTEGER_SIZEOF_16!=0 INTEGER, PARAMETER :: int_kind_32 = SELECTED_INT_KIND(36) !should map to INTEGER*16 on most modern processors INTEGER(int_kind_32), DIMENSION(DIM1,DIM2,DIM3), TARGET :: dset_data_i32, data_out_i32 - INTEGER(HID_T) :: dset_id32 ! Dataset identifier CHARACTER(LEN=7), PARAMETER :: dsetname16a = "dset16a" ! Dataset name CHARACTER(LEN=7), PARAMETER :: dsetname16b = "dset16b" ! Dataset name CHARACTER(LEN=7), PARAMETER :: dsetname16c = "dset16c" ! Dataset name @@ -760,7 +759,6 @@ SUBROUTINE test_datasetND(rank) INTEGER :: type_class INTEGER(SIZE_T) :: type_size CHARACTER(LEN=1) :: ichr1 - CHARACTER(LEN=3) :: ichr3 TYPE(C_PTR) :: f_ptr INTEGER(HID_T) :: type_id |