diff options
author | Quincey Koziol <koziol@hdfgroup.org> | 2016-06-28 21:53:48 (GMT) |
---|---|---|
committer | Quincey Koziol <koziol@hdfgroup.org> | 2016-06-28 21:53:48 (GMT) |
commit | 83724bd7873e3e199a94ba9c3526732d8117e996 (patch) | |
tree | b724d9adeb1130e81bbf3afa8ec705b63067affe /hl/fortran/test/tsttable.F90 | |
parent | b8f809981bb6c378e2a942aad551620feaa47125 (diff) | |
download | hdf5-83724bd7873e3e199a94ba9c3526732d8117e996.zip hdf5-83724bd7873e3e199a94ba9c3526732d8117e996.tar.gz hdf5-83724bd7873e3e199a94ba9c3526732d8117e996.tar.bz2 |
[svn-r30113] Description:
Clean up warnings (from 2774 -> 1560, with my standard debug build)
Tested on:
MacOSX/64 10.11.5 (amazon) w/serial, parallel & production
(h5committest forthcoming)
Diffstat (limited to 'hl/fortran/test/tsttable.F90')
-rw-r--r-- | hl/fortran/test/tsttable.F90 | 74 |
1 files changed, 44 insertions, 30 deletions
diff --git a/hl/fortran/test/tsttable.F90 b/hl/fortran/test/tsttable.F90 index 5c55a66..822f116 100644 --- a/hl/fortran/test/tsttable.F90 +++ b/hl/fortran/test/tsttable.F90 @@ -18,29 +18,33 @@ ! #include <H5config_f.inc> -PROGRAM table_test +MODULE TSTTABLE - USE H5TB ! module of H5TB - USE HDF5 ! module of HDF5 library +CONTAINS - IMPLICIT NONE - INTEGER :: errcode = 0 +!------------------------------------------------------------------------- +! test_begin +!------------------------------------------------------------------------- - ! - ! Initialize FORTRAN predefined datatypes. - ! - CALL h5open_f(errcode) +SUBROUTINE test_begin(string) + CHARACTER(LEN=*), INTENT(IN) :: string + WRITE(*, fmt = '(A)', ADVANCE = 'no') string +END SUBROUTINE test_begin - CALL test_table1() - CALL test_table2() +!------------------------------------------------------------------------- +! passed +!------------------------------------------------------------------------- - ! - ! Close FORTRAN predefined datatypes. - ! - CALL h5close_f(errcode) +SUBROUTINE passed() + WRITE(*, fmt = '(T12,A6)') 'PASSED' +END SUBROUTINE passed + +END MODULE TSTTABLE -END PROGRAM table_test +MODULE TSTTABLE_TESTS + +CONTAINS !------------------------------------------------------------------------- ! test_table1 @@ -50,6 +54,7 @@ SUBROUTINE test_table1() USE H5TB ! module of H5TB USE HDF5 ! module of HDF5 library + USE TSTTABLE ! module for testing table support routines IMPLICIT NONE @@ -536,6 +541,7 @@ SUBROUTINE test_table2() USE H5TB ! module of H5TB USE HDF5 ! module of HDF5 library + USE TSTTABLE ! module for testing table support routines IMPLICIT NONE @@ -574,7 +580,6 @@ SUBROUTINE test_table2() INTEGER(hsize_t), PARAMETER :: chunk_size = 10 TYPE(particle_t), DIMENSION(1:nrecords), TARGET :: fill_data INTEGER :: compress - INTEGER :: status INTEGER :: i INTEGER(SIZE_T) :: dst_size TYPE(particle_t), DIMENSION(1:nrecords), TARGET :: dst_buf @@ -711,22 +716,31 @@ SUBROUTINE test_table2() END SUBROUTINE test_table2 +END MODULE TSTTABLE_TESTS -!------------------------------------------------------------------------- -! test_begin -!------------------------------------------------------------------------- -SUBROUTINE test_begin(string) - CHARACTER(LEN=*), INTENT(IN) :: string - WRITE(*, fmt = '(A)', ADVANCE = 'no') string -END SUBROUTINE test_begin +PROGRAM table_test -!------------------------------------------------------------------------- -! passed -!------------------------------------------------------------------------- + USE H5TB ! module of H5TB + USE HDF5 ! module of HDF5 library + USE TSTTABLE_TESTS ! module for testing table routines -SUBROUTINE passed() - WRITE(*, fmt = '(T12,A6)') 'PASSED' -END SUBROUTINE passed + IMPLICIT NONE + INTEGER :: errcode = 0 + + ! + ! Initialize FORTRAN predefined datatypes. + ! + CALL h5open_f(errcode) + + CALL test_table1() + CALL test_table2() + + ! + ! Close FORTRAN predefined datatypes. + ! + CALL h5close_f(errcode) + +END PROGRAM table_test |