mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-12-27 08:01:04 +08:00
Code Issues Packages Projects Releases Wiki Activity
3ea21ccb3e
hdf5/fortran/test/fortranlib_test_1_8.F90

126 lines
4.0 KiB
Fortran
Raw Normal View History

[svn-r21248] Mereged the F2003 branch into the trunk. Items merged: fortran directory, src/libhdf5.settings.in configure.in configure MANIFEST Tested: (all platforms used by daily tests, both with --enable-fortran and --enable-fortran2003)
2011-08-18 22:32:47 +08:00
!****h* root/fortran/test/fortranlib_test_1_8.f90
!
! NAME
! fortranlib_test_1_8.f90
!
! FUNCTION
! Basic testing of Fortran API's introduced in 1.8 release.
!
! COPYRIGHT
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
[svn-r14923] Maintenance: This check-in merges changes from the fortran_1_8 branch back into the trunk (up to revision 14921) Platforms tested: kagiso with g95 and Intel compilers; more testing will be done after checking in a fresh copy from the trunk. New code itself was tested with all Fortran compilers available at THG
2008-05-04 07:39:37 +08:00
! Copyright by The HDF Group. *
! All rights reserved. *
! *
! This file is part of HDF5. The full HDF5 copyright notice, including *
! terms governing use, modification, and redistribution, is contained in *
Merge pull request #426 in HDFFV/hdf5 from ~LRKNOX/hdf5_lrk:hdf5_1_10 to hdf5_1_10 * commit '54957d37f5aa73912763dbb6e308555e863c43f4': Commit copyright header change for src/H5PLpkg.c which was added after running script to make changes. Add new files in release_docs to MANIFEST. Cimmit changes to Makefile.in(s) and H5PL.c that resulted from running autogen.sh. Merge pull request #407 in HDFFV/hdf5 from ~LRKNOX/hdf5_lrk:hdf5_1_10_1 to hdf5_1_10_1 Change copyright headers to replace url referring to file to be removed and replace it with new url for COPYING file.
2017-04-18 03:32:16 +08:00
! the COPYING file, which can be found at the root of the source code *
Update license url part2 (#333) * Modify temporary rpath for testing in java example scripts. * Update URL in source file Copyright headers for web copy of COPYING file - files not in src or test.
2021-02-17 22:52:36 +08:00
! distribution tree, or in https://www.hdfgroup.org/licenses. *
Merge pull request #426 in HDFFV/hdf5 from ~LRKNOX/hdf5_lrk:hdf5_1_10 to hdf5_1_10 * commit '54957d37f5aa73912763dbb6e308555e863c43f4': Commit copyright header change for src/H5PLpkg.c which was added after running script to make changes. Add new files in release_docs to MANIFEST. Cimmit changes to Makefile.in(s) and H5PL.c that resulted from running autogen.sh. Merge pull request #407 in HDFFV/hdf5 from ~LRKNOX/hdf5_lrk:hdf5_1_10_1 to hdf5_1_10_1 Change copyright headers to replace url referring to file to be removed and replace it with new url for COPYING file.
2017-04-18 03:32:16 +08:00
! If you do not have access to either file, you may request a copy from *
! help@hdfgroup.org. *
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
[svn-r21248] Mereged the F2003 branch into the trunk. Items merged: fortran directory, src/libhdf5.settings.in configure.in configure MANIFEST Tested: (all platforms used by daily tests, both with --enable-fortran and --enable-fortran2003)
2011-08-18 22:32:47 +08:00
!*****
[svn-r14923] Maintenance: This check-in merges changes from the fortran_1_8 branch back into the trunk (up to revision 14921) Platforms tested: kagiso with g95 and Intel compilers; more testing will be done after checking in a fresh copy from the trunk. New code itself was tested with all Fortran compilers available at THG
2008-05-04 07:39:37 +08:00
PROGRAM fortranlibtest
USE HDF5
[svn-r24967] Maintenance: Reorganized and cleaned the code to remove compiler warnings in the Fortran test code and examples. Platforms tested: Manual testing in place and using srcdir on jam, platypus, and emu with default and PGI, Intel and new GNU compilers. ifort compiler was also tested with -i8 and -r8 flags on jam. CMake tested on jam.
2014-04-06 23:56:21 +08:00
USE THDF5_1_8
USE TH5_MISC
[svn-r14923] Maintenance: This check-in merges changes from the fortran_1_8 branch back into the trunk (up to revision 14921) Platforms tested: kagiso with g95 and Intel compilers; more testing will be done after checking in a fresh copy from the trunk. New code itself was tested with all Fortran compilers available at THG
2008-05-04 07:39:37 +08:00
IMPLICIT NONE
INTEGER :: total_error = 0
[svn-r14972] Purpose: Corrected the way the total number of errors are summed up.
2008-05-13 01:48:23 +08:00
INTEGER :: error
INTEGER :: ret_total_error
[svn-r14923] Maintenance: This check-in merges changes from the fortran_1_8 branch back into the trunk (up to revision 14921) Platforms tested: kagiso with g95 and Intel compilers; more testing will be done after checking in a fresh copy from the trunk. New code itself was tested with all Fortran compilers available at THG
2008-05-04 07:39:37 +08:00
INTEGER :: majnum, minnum, relnum
[svn-r15737] Description: Changed the tests so that the *.h5 test files are removed depending on the HDF5_NOCLEANUP environment variable. bug 696
2008-10-01 05:05:39 +08:00
LOGICAL :: cleanup, status
[svn-r14923] Maintenance: This check-in merges changes from the fortran_1_8 branch back into the trunk (up to revision 14921) Platforms tested: kagiso with g95 and Intel compilers; more testing will be done after checking in a fresh copy from the trunk. New code itself was tested with all Fortran compilers available at THG
2008-05-04 07:39:37 +08:00
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
CALL h5open_f(error)
[svn-r15737] Description: Changed the tests so that the *.h5 test files are removed depending on the HDF5_NOCLEANUP environment variable. bug 696
2008-10-01 05:05:39 +08:00
cleanup = .TRUE.
CALL h5_env_nocleanup_f(status)
IF(status) cleanup=.FALSE.
[svn-r14923] Maintenance: This check-in merges changes from the fortran_1_8 branch back into the trunk (up to revision 14921) Platforms tested: kagiso with g95 and Intel compilers; more testing will be done after checking in a fresh copy from the trunk. New code itself was tested with all Fortran compilers available at THG
2008-05-04 07:39:37 +08:00
WRITE(*,*) ' ========================== '
WRITE(*,*) ' FORTRAN 1.8 tests '
WRITE(*,*) ' ========================== '
CALL h5get_libversion_f(majnum, minnum, relnum, total_error)
IF(total_error .EQ. 0) THEN
WRITE(*, '(" FORTRANLIB_TEST is linked with HDF5 Library version ")', advance="NO")
Fix for shared fortran libraries on mac (HDFFV-2772).
2017-05-19 05:32:26 +08:00
WRITE(*, '(I0)', advance="NO") majnum
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
WRITE(*, '(".")', advance="NO")
Fix for shared fortran libraries on mac (HDFFV-2772).
2017-05-19 05:32:26 +08:00
WRITE(*, '(I0)', advance="NO") minnum
[svn-r14923] Maintenance: This check-in merges changes from the fortran_1_8 branch back into the trunk (up to revision 14921) Platforms tested: kagiso with g95 and Intel compilers; more testing will be done after checking in a fresh copy from the trunk. New code itself was tested with all Fortran compilers available at THG
2008-05-04 07:39:37 +08:00
WRITE(*, '(" release ")', advance="NO")
Fix for shared fortran libraries on mac (HDFFV-2772).
2017-05-19 05:32:26 +08:00
WRITE(*, '(I0)') relnum
[svn-r14923] Maintenance: This check-in merges changes from the fortran_1_8 branch back into the trunk (up to revision 14921) Platforms tested: kagiso with g95 and Intel compilers; more testing will be done after checking in a fresh copy from the trunk. New code itself was tested with all Fortran compilers available at THG
2008-05-04 07:39:37 +08:00
ELSE
total_error = total_error + 1
ENDIF
WRITE(*,*)
[svn-r25169] Removed duplicate tests in fortranlib_test_1_8.f90 and fortranlib_test.f90. Thus removing the dependency on tH5F.f90, which was causing compilation race-conditions in cmake. Tested: jam (gnu)
2014-05-06 22:18:30 +08:00
CALL h5eset_auto_f(0, ret_total_error)
IF(ret_total_error.NE.0) &
CALL write_test_status(ret_total_error, &
' h5eset_auto_f', &
[svn-r15065] Description: Broke-up longer lines over multiple lines Removed unused variables.
2008-05-22 04:08:24 +08:00
total_error)
[svn-r14923] Maintenance: This check-in merges changes from the fortran_1_8 branch back into the trunk (up to revision 14921) Platforms tested: kagiso with g95 and Intel compilers; more testing will be done after checking in a fresh copy from the trunk. New code itself was tested with all Fortran compilers available at THG
2008-05-04 07:39:37 +08:00
[svn-r14972] Purpose: Corrected the way the total number of errors are summed up.
2008-05-13 01:48:23 +08:00
ret_total_error = 0
CALL attribute_test_1_8(cleanup, ret_total_error)
[svn-r15065] Description: Broke-up longer lines over multiple lines Removed unused variables.
2008-05-22 04:08:24 +08:00
CALL write_test_status(ret_total_error, &
' Testing attributes', &
total_error)
[svn-r14924] Commented out new tests since they failcompletely on linew while passing on smirom and kagiso.
2008-05-04 12:28:05 +08:00
[svn-r14972] Purpose: Corrected the way the total number of errors are summed up.
2008-05-13 01:48:23 +08:00
ret_total_error = 0
CALL group_test(cleanup, ret_total_error)
[svn-r15065] Description: Broke-up longer lines over multiple lines Removed unused variables.
2008-05-22 04:08:24 +08:00
CALL write_test_status(ret_total_error, &
' Testing groups', &
total_error)
[svn-r14924] Commented out new tests since they failcompletely on linew while passing on smirom and kagiso.
2008-05-04 12:28:05 +08:00
[svn-r14972] Purpose: Corrected the way the total number of errors are summed up.
2008-05-13 01:48:23 +08:00
ret_total_error = 0
CALL test_h5o(cleanup, ret_total_error)
[svn-r15065] Description: Broke-up longer lines over multiple lines Removed unused variables.
2008-05-22 04:08:24 +08:00
CALL write_test_status(ret_total_error, &
' Testing object interface', &
total_error)
[svn-r14924] Commented out new tests since they failcompletely on linew while passing on smirom and kagiso.
2008-05-04 12:28:05 +08:00
[svn-r14972] Purpose: Corrected the way the total number of errors are summed up.
2008-05-13 01:48:23 +08:00
ret_total_error = 0
CALL dtransform(cleanup, ret_total_error)
[svn-r15065] Description: Broke-up longer lines over multiple lines Removed unused variables.
2008-05-22 04:08:24 +08:00
CALL write_test_status(ret_total_error, &
' Testing data transform', &
total_error)
[svn-r14924] Commented out new tests since they failcompletely on linew while passing on smirom and kagiso.
2008-05-04 12:28:05 +08:00
[svn-r14972] Purpose: Corrected the way the total number of errors are summed up.
2008-05-13 01:48:23 +08:00
ret_total_error = 0
[svn-r26481] Removed compiler warnings. HDF5-239 Tested: h5committest.
2015-03-20 03:14:19 +08:00
CALL test_h5s_encode(ret_total_error)
[svn-r15065] Description: Broke-up longer lines over multiple lines Removed unused variables.
2008-05-22 04:08:24 +08:00
CALL write_test_status(ret_total_error, &
[svn-r21248] Mereged the F2003 branch into the trunk. Items merged: fortran directory, src/libhdf5.settings.in configure.in configure MANIFEST Tested: (all platforms used by daily tests, both with --enable-fortran and --enable-fortran2003)
2011-08-18 22:32:47 +08:00
' Testing dataspace encoding and decoding', &
[svn-r15065] Description: Broke-up longer lines over multiple lines Removed unused variables.
2008-05-22 04:08:24 +08:00
total_error)
[svn-r14926] Maintenance: More cleanup in the test output and enabled another test for linew before daily tests start.
2008-05-04 12:54:06 +08:00
[svn-r21248] Mereged the F2003 branch into the trunk. Items merged: fortran directory, src/libhdf5.settings.in configure.in configure MANIFEST Tested: (all platforms used by daily tests, both with --enable-fortran and --enable-fortran2003)
2011-08-18 22:32:47 +08:00
ret_total_error = 0
CALL test_scaleoffset(cleanup, ret_total_error )
CALL write_test_status(ret_total_error, &
' Testing scaleoffset filter', &
total_error)
[svn-r14923] Maintenance: This check-in merges changes from the fortran_1_8 branch back into the trunk (up to revision 14921) Platforms tested: kagiso with g95 and Intel compilers; more testing will be done after checking in a fresh copy from the trunk. New code itself was tested with all Fortran compilers available at THG
2008-05-04 07:39:37 +08:00
[svn-r26479] Fix for: HDFFV-9162 h5pget_class_f should return hid_t for classtype Also removed all left over C comment artifacts /* and */ in the Fortran comments. Tested: h5committest
2015-03-20 01:11:47 +08:00
ret_total_error = 0
[svn-r26481] Removed compiler warnings. HDF5-239 Tested: h5committest.
2015-03-20 03:14:19 +08:00
CALL test_genprop_basic_class(ret_total_error )
[svn-r26479] Fix for: HDFFV-9162 h5pget_class_f should return hid_t for classtype Also removed all left over C comment artifacts /* and */ in the Fortran comments. Tested: h5committest
2015-03-20 01:11:47 +08:00
CALL write_test_status(ret_total_error, &
' Testing basic generic property list class creation functionality', &
total_error)
Added new Fortran API wrappers (#3511) * Added new wrappers for h5get_free_list_sizes_f H5Sselect_intersect_block_f H5Sselect_shape_same_f h5pget_no_selection_io_cause_f h5pget_mpio_no_collective_cause_f H5Lvisit_by_name_f H5Lvisit_f H5Fget_info_f h5dwrite_chunk_f h5dread_chunk_f * added h5pget_file_space_page_size_f, h5pset_file_space_page_size_f, h5pget_file_space_strategy_f, h5pset_file_space_strategy_f, h5info tests * added fortran tests * Update tH5F.F90
2023-09-08 06:25:07 +08:00
ret_total_error = 0
CALL test_freelist(ret_total_error)
CALL write_test_status(ret_total_error, &
' Testing free list', &
total_error)
[svn-r14923] Maintenance: This check-in merges changes from the fortran_1_8 branch back into the trunk (up to revision 14921) Platforms tested: kagiso with g95 and Intel compilers; more testing will be done after checking in a fresh copy from the trunk. New code itself was tested with all Fortran compilers available at THG
2008-05-04 07:39:37 +08:00
WRITE(*,*)
WRITE(*,*) ' ============================================ '
WRITE(*, fmt = '(19x, 27a)', advance='NO') ' FORTRAN tests completed with '
WRITE(*, fmt = '(i4)', advance='NO') total_error
WRITE(*, fmt = '(12a)' ) ' error(s) ! '
WRITE(*,*) ' ============================================ '
CALL h5close_f(error)
! if errors detected, exit with non-zero code.
IF (total_error .NE. 0) CALL h5_exit_f (1)
END PROGRAM fortranlibtest
Reference in New Issue Copy Permalink