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/tstimage.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/tstimage.F90')
-rw-r--r-- | hl/fortran/test/tstimage.F90 | 54 |
1 files changed, 37 insertions, 17 deletions
diff --git a/hl/fortran/test/tstimage.F90 b/hl/fortran/test/tstimage.F90 index 0bff6b2..7e90664 100644 --- a/hl/fortran/test/tstimage.F90 +++ b/hl/fortran/test/tstimage.F90 @@ -17,12 +17,34 @@ ! This file contains the FORTRAN90 tests for H5LT ! -program image_test +MODULE TSTIMAGE -call make_image1() +CONTAINS -end program image_test +!------------------------------------------------------------------------- +! test_begin +!------------------------------------------------------------------------- + +subroutine test_begin(string) +character(len=*), intent(in) :: string +write(*, fmt = '(14a)', advance = 'no') string +write(*, fmt = '(40x,a)', advance = 'no') ' ' +end subroutine test_begin + +!------------------------------------------------------------------------- +! passed +!------------------------------------------------------------------------- + +subroutine passed() +write(*, fmt = '(6a)') 'PASSED' +end subroutine passed + +END MODULE TSTIMAGE + + +MODULE TSTIMAGE_TESTS +CONTAINS !------------------------------------------------------------------------- ! make_image1 @@ -32,6 +54,7 @@ subroutine make_image1() use h5im ! module of H5IM use hdf5 ! module of HDF5 library +USE TSTIMAGE ! module for testing image support routines implicit none @@ -320,20 +343,17 @@ call h5close_f(errcode) ! end subroutine make_image1 -!------------------------------------------------------------------------- -! test_begin -!------------------------------------------------------------------------- +END MODULE TSTIMAGE_TESTS -subroutine test_begin(string) -character(len=*), intent(in) :: string -write(*, fmt = '(14a)', advance = 'no') string -write(*, fmt = '(40x,a)', advance = 'no') ' ' -end subroutine test_begin -!------------------------------------------------------------------------- -! passed -!------------------------------------------------------------------------- +program image_test + +USE TSTIMAGE_TESTS ! module for testing dataset routines + +IMPLICIT NONE + +call make_image1() + +end program image_test + -subroutine passed() -write(*, fmt = '(6a)') 'PASSED' -end subroutine passed |