mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-01 16:28:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

Remove unused variable warning (#2828)

Browse Source 
Polaris FORTRAN compiler reported the unused variable warning.
This commit is contained in:
H. Joe Lee 2023-04-28 11:08:59 -05:00 committed by GitHub
parent 2b7afc2727
commit 443ef49ab6
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fortran/test/tH5T_F03.F90
View File

@ -1374,7 +1374,7 @@ SUBROUTINE t_enum(total_error)
INTEGER(SIZE_T) , PARAMETER :: NAME_BUF_SIZE = 16
! Enumerated type
INTEGER, PARAMETER :: SOLID=0, LIQUID=1, GAS=2, PLASMA=3
INTEGER, PARAMETER :: SOLID=0, PLASMA=3
INTEGER(HID_T) :: file, filetype, memtype, space, dset ! Handles