mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-12-21 07:51:46 +08:00
Code Issues Packages Projects Releases Wiki Activity
a9724dfd6c
hdf5/fortran/test/tH5A.f90

627 lines
22 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/tH5A.f90
!
! NAME
! tH5A.f90
!
! FUNCTION
! Basic testing of Fortran H5A APIs.
!
! 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-r13256] Updated fortran source code with new THG copyright. Tested: kagiso.
2007-02-08 01:55:01 +08:00
! Copyright by The HDF Group. *
[svn-r5940] Purpose: Bug fix, code improvement Description: Fortran tests didn't cleanup created files. Also HDF5_PREFIX and HDF5_PARAPREFIX were not used to specify location of the files. There was a redundant file in the testpar directory that contained an error reporting function used by both serial and parallel tests. Solution: Created library h5test_fortran.a that contains functions used by the serial and parallel tests. It includes Fortran and C functions that may be called from Fortran programs to report errors, to modify file names and to cleanup files after run. Modified test code to use new functions. Platforms tested: Linux 2.2 (eirene) serial IRIX64 (modi4) parallel with HDF5_PREFIX and HDF5_PARAPREFIX set to $SCR Solris 2.7 with mpich 1.2.4 with HDF5_PARAPREFIX set to /tmp/epourmal
2002-09-24 06:06:01 +08:00
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
! *
! This file is part of HDF5. The full HDF5 copyright notice, including *
! terms governing use, modification, and redistribution, is contained in *
! the files COPYING and Copyright.html. COPYING can be found at the root *
! of the source code distribution tree; Copyright.html can be found at the *
! root level of an installed copy of the electronic HDF5 document set and *
! is linked from the top-level documents page. It can also be found at *
[svn-r13256] Updated fortran source code with new THG copyright. Tested: kagiso.
2007-02-08 01:55:01 +08:00
! http://hdfgroup.org/HDF5/doc/Copyright.html. 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-r5940] Purpose: Bug fix, code improvement Description: Fortran tests didn't cleanup created files. Also HDF5_PREFIX and HDF5_PARAPREFIX were not used to specify location of the files. There was a redundant file in the testpar directory that contained an error reporting function used by both serial and parallel tests. Solution: Created library h5test_fortran.a that contains functions used by the serial and parallel tests. It includes Fortran and C functions that may be called from Fortran programs to report errors, to modify file names and to cleanup files after run. Modified test code to use new functions. Platforms tested: Linux 2.2 (eirene) serial IRIX64 (modi4) parallel with HDF5_PREFIX and HDF5_PARAPREFIX set to $SCR Solris 2.7 with mpich 1.2.4 with HDF5_PARAPREFIX set to /tmp/epourmal
2002-09-24 06:06:01 +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
! CONTAINS SUBROUTINES
! attribute_test
!
!
!*****
[svn-r5940] Purpose: Bug fix, code improvement Description: Fortran tests didn't cleanup created files. Also HDF5_PREFIX and HDF5_PARAPREFIX were not used to specify location of the files. There was a redundant file in the testpar directory that contained an error reporting function used by both serial and parallel tests. Solution: Created library h5test_fortran.a that contains functions used by the serial and parallel tests. It includes Fortran and C functions that may be called from Fortran programs to report errors, to modify file names and to cleanup files after run. Modified test code to use new functions. Platforms tested: Linux 2.2 (eirene) serial IRIX64 (modi4) parallel with HDF5_PREFIX and HDF5_PARAPREFIX set to $SCR Solris 2.7 with mpich 1.2.4 with HDF5_PARAPREFIX set to /tmp/epourmal
2002-09-24 06:06:01 +08:00
SUBROUTINE attribute_test(cleanup, total_error)
[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
! This subroutine tests following functionalities:
[svn-r5940] Purpose: Bug fix, code improvement Description: Fortran tests didn't cleanup created files. Also HDF5_PREFIX and HDF5_PARAPREFIX were not used to specify location of the files. There was a redundant file in the testpar directory that contained an error reporting function used by both serial and parallel tests. Solution: Created library h5test_fortran.a that contains functions used by the serial and parallel tests. It includes Fortran and C functions that may be called from Fortran programs to report errors, to modify file names and to cleanup files after run. Modified test code to use new functions. Platforms tested: Linux 2.2 (eirene) serial IRIX64 (modi4) parallel with HDF5_PREFIX and HDF5_PARAPREFIX set to $SCR Solris 2.7 with mpich 1.2.4 with HDF5_PARAPREFIX set to /tmp/epourmal
2002-09-24 06:06:01 +08:00
! h5acreate_f, h5awrite_f, h5aclose_f,h5aread_f, h5aopen_name_f,
! h5aget_name_f,h5aget_space_f, h5aget_type_f,
[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
!
USE HDF5 ! This module contains all necessary modules
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
IMPLICIT NONE
[svn-r5940] Purpose: Bug fix, code improvement Description: Fortran tests didn't cleanup created files. Also HDF5_PREFIX and HDF5_PARAPREFIX were not used to specify location of the files. There was a redundant file in the testpar directory that contained an error reporting function used by both serial and parallel tests. Solution: Created library h5test_fortran.a that contains functions used by the serial and parallel tests. It includes Fortran and C functions that may be called from Fortran programs to report errors, to modify file names and to cleanup files after run. Modified test code to use new functions. Platforms tested: Linux 2.2 (eirene) serial IRIX64 (modi4) parallel with HDF5_PREFIX and HDF5_PARAPREFIX set to $SCR Solris 2.7 with mpich 1.2.4 with HDF5_PARAPREFIX set to /tmp/epourmal
2002-09-24 06:06:01 +08:00
LOGICAL, INTENT(IN) :: cleanup
[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
INTEGER, INTENT(OUT) :: total_error
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
[svn-r5967] Purpose: Make Intel (and other) C and F90 compilers happy Description: There were several warnings about missing function prototypes and wrongly defined string in the test program. Solution: Fix the code to include proper header files and function prototypes. Fix the string. Platforms tested: Platinum (IA32) and arabica (Solaris 2.7)
2002-10-09 05:43:49 +08:00
CHARACTER(LEN=5), PARAMETER :: filename = "atest" !File name
[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
CHARACTER(LEN=80) :: fix_filename
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CHARACTER(LEN=9), PARAMETER :: dsetname = "atestdset" !Dataset name
CHARACTER(LEN=11), PARAMETER :: aname = "attr_string" !String Attribute name
[svn-r2730] Purpose: Bug fix. Description: fortranlib_test.f90 had a typo in the format string. Would not compile on O2K. Test did not check the length of the attribute name. Solution: Fixed format strings. Added more code to test returned attribute name length. Platforms tested: O2K, Linux
2000-10-25 04:56:04 +08:00
CHARACTER(LEN=14), PARAMETER :: aname2 = "attr_character"!Character Attribute name
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CHARACTER(LEN=11), PARAMETER :: aname3 = "attr_double" !DOuble Attribute name
CHARACTER(LEN=9), PARAMETER :: aname4 = "attr_real" !Real Attribute name
CHARACTER(LEN=12), PARAMETER :: aname5 = "attr_integer" !Integer Attribute name
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
CHARACTER(LEN=9), PARAMETER :: aname6 = "attr_null" !Null Attribute name
[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-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
!data space rank and dimensions
!
INTEGER, PARAMETER :: RANK = 2
INTEGER, PARAMETER :: NX = 4
INTEGER, PARAMETER :: NY = 5
[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
INTEGER(HID_T) :: file_id ! File identifier
INTEGER(HID_T) :: dset_id ! Dataset identifier
INTEGER(HID_T) :: dataspace ! Dataspace identifier for dataset
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +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
INTEGER(HID_T) :: attr_id !String Attribute identifier
INTEGER(HID_T) :: attr2_id !Character Attribute identifier
INTEGER(HID_T) :: attr3_id !Double Attribute identifier
INTEGER(HID_T) :: attr4_id !Real Attribute identifier
INTEGER(HID_T) :: attr5_id !Integer Attribute identifier
INTEGER(HID_T) :: attr6_id !Null Attribute identifier
INTEGER(HID_T) :: aspace_id !String Attribute Dataspace identifier
[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(HID_T) :: aspace2_id !Character Attribute Dataspace identifier
[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
INTEGER(HID_T) :: aspace6_id !Null Attribute Dataspace identifier
INTEGER(HID_T) :: atype_id !String Attribute Datatype identifier
INTEGER(HID_T) :: atype2_id !Character Attribute Datatype identifier
INTEGER(HID_T) :: atype3_id !Double Attribute Datatype identifier
INTEGER(HID_T) :: atype4_id !Real Attribute Datatype identifier
INTEGER(HID_T) :: atype5_id !Integer Attribute Datatype identifier
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
INTEGER(HSIZE_T), DIMENSION(1) :: adims = (/2/) ! Attribute dimension
INTEGER(HSIZE_T), DIMENSION(1) :: adims2 = (/1/) ! Attribute dimension
INTEGER :: arank = 1 ! Attribure rank
INTEGER(SIZE_T) :: attrlen ! Length of the attribute string
[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
INTEGER(HID_T) :: attr_space !Returned String Attribute Space identifier
INTEGER(HID_T) :: attr2_space !Returned other Attribute Space identifier
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
INTEGER(HID_T) :: attr_type !Returned Attribute Datatype identifier
INTEGER(HID_T) :: attr2_type !Returned CHARACTER Attribute Datatype identifier
INTEGER(HID_T) :: attr3_type !Returned DOUBLE Attribute Datatype identifier
INTEGER(HID_T) :: attr4_type !Returned REAL Attribute Datatype identifier
INTEGER(HID_T) :: attr5_type !Returned INTEGER Attribute Datatype identifier
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
INTEGER(HID_T) :: attr6_type !Returned NULL Attribute Datatype identifier
[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
INTEGER :: num_attrs !number of attributes
[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(HSIZE_T) :: attr_storage ! attributes storage requirements .MSB.
[svn-r5492] Purpose: Code clean up. Description: Many F90 compilers were not happy about character*(*) declarations. Solution: Used F90 character(len=*) declarations. Platforms tested: Solaris 2.7 and Linux 2.4
2002-06-01 04:11:54 +08:00
CHARACTER(LEN=256) :: attr_name !buffer to put attr_name
[svn-r2730] Purpose: Bug fix. Description: fortranlib_test.f90 had a typo in the format string. Would not compile on O2K. Test did not check the length of the attribute name. Solution: Fixed format strings. Added more code to test returned attribute name length. Platforms tested: O2K, Linux
2000-10-25 04:56:04 +08:00
INTEGER(SIZE_T) :: name_size = 80 !attribute name length
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
[svn-r5492] Purpose: Code clean up. Description: Many F90 compilers were not happy about character*(*) declarations. Solution: Used F90 character(len=*) declarations. Platforms tested: Solaris 2.7 and Linux 2.4
2002-06-01 04:11:54 +08:00
CHARACTER(LEN=35), DIMENSION(2) :: attr_data ! String attribute data
[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
CHARACTER(LEN=35), DIMENSION(2) :: aread_data ! Buffer to put read back
[svn-r2730] Purpose: Bug fix. Description: fortranlib_test.f90 had a typo in the format string. Would not compile on O2K. Test did not check the length of the attribute name. Solution: Fixed format strings. Added more code to test returned attribute name length. Platforms tested: O2K, Linux
2000-10-25 04:56:04 +08:00
! string attr data
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CHARACTER :: attr_character_data = 'A'
[svn-r22824] FIX: HDFFV-8118: Support Fortran compiler flags that change the default size of integer and real Tested: jam(gnu,intel), machine with gcc 4.7 and C long double = 16 bytes.
2012-09-28 03:13:13 +08:00
REAL(KIND=Fortran_DOUBLE), DIMENSION(1) :: attr_double_data = 3.459
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
REAL, DIMENSION(1) :: attr_real_data = 4.0
INTEGER, DIMENSION(1) :: attr_integer_data = 5
[svn-r8404] Purpose: Maintenance Description: h5dwrite/read_f and h5awrite_read_f functions were overloaded with dims argument being of type INTEGER and INTEGER(HSIZE_T). We promised to remove overloading in 1.4 release. It was removed from documentation but not from the source code. Solution: Finish code cleanup. Platforms tested: Solaris 2.7 32 and 64 bit, and copper with --enable- parallel. Windows are broken, so Kent and Xuan will test it with their changes later. Misc. update:
2004-04-23 01:18:46 +08:00
INTEGER(HSIZE_T), DIMENSION(7) :: data_dims
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +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
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CHARACTER :: aread_character_data ! variable to put read back Character attr data
INTEGER, DIMENSION(1) :: aread_integer_data ! variable to put read back integer attr data
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
INTEGER, DIMENSION(1) :: aread_null_data = 7 ! variable to put read back null attr data
[svn-r22824] FIX: HDFFV-8118: Support Fortran compiler flags that change the default size of integer and real Tested: jam(gnu,intel), machine with gcc 4.7 and C long double = 16 bytes.
2012-09-28 03:13:13 +08:00
REAL(KIND=Fortran_DOUBLE), DIMENSION(1) :: aread_double_data ! variable to put read back double attr data
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
REAL, DIMENSION(1) :: aread_real_data ! variable to put read back real attr data
!
[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
!general purpose integer
!
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
INTEGER :: i, j
INTEGER :: error ! Error flag
[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-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!The dimensions for the dataset.
!
INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/NX,NY/)
!
[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
!data buffers
!
[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, DIMENSION(NX,NY) :: data_in
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
!Initialize data_in buffer
!
[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
DO i = 1, NX
DO j = 1, NY
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
data_in(i,j) = (i-1) + (j-1)
[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
END DO
END DO
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
! Initialize attribute's data
!
[svn-r2730] Purpose: Bug fix. Description: fortranlib_test.f90 had a typo in the format string. Would not compile on O2K. Test did not check the length of the attribute name. Solution: Fixed format strings. Added more code to test returned attribute name length. Platforms tested: O2K, Linux
2000-10-25 04:56:04 +08:00
attr_data(1) = 'Dataset character attribute'
[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
attr_data(2) = 'Some other string here '
attrlen = LEN(attr_data(1))
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
! Create the file.
!
[svn-r5940] Purpose: Bug fix, code improvement Description: Fortran tests didn't cleanup created files. Also HDF5_PREFIX and HDF5_PARAPREFIX were not used to specify location of the files. There was a redundant file in the testpar directory that contained an error reporting function used by both serial and parallel tests. Solution: Created library h5test_fortran.a that contains functions used by the serial and parallel tests. It includes Fortran and C functions that may be called from Fortran programs to report errors, to modify file names and to cleanup files after run. Modified test code to use new functions. Platforms tested: Linux 2.2 (eirene) serial IRIX64 (modi4) parallel with HDF5_PREFIX and HDF5_PARAPREFIX set to $SCR Solris 2.7 with mpich 1.2.4 with HDF5_PARAPREFIX set to /tmp/epourmal
2002-09-24 06:06:01 +08:00
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, 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
IF (error .NE. 0) THEN
WRITE(*,*) "Cannot modify file name"
STOP
ENDIF
[svn-r5940] Purpose: Bug fix, code improvement Description: Fortran tests didn't cleanup created files. Also HDF5_PREFIX and HDF5_PARAPREFIX were not used to specify location of the files. There was a redundant file in the testpar directory that contained an error reporting function used by both serial and parallel tests. Solution: Created library h5test_fortran.a that contains functions used by the serial and parallel tests. It includes Fortran and C functions that may be called from Fortran programs to report errors, to modify file names and to cleanup files after run. Modified test code to use new functions. Platforms tested: Linux 2.2 (eirene) serial IRIX64 (modi4) parallel with HDF5_PREFIX and HDF5_PARAPREFIX set to $SCR Solris 2.7 with mpich 1.2.4 with HDF5_PARAPREFIX set to /tmp/epourmal
2002-09-24 06:06:01 +08:00
CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5fcreate_f",error,total_error)
!
[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
!Create data space for the dataset.
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
CALL h5screate_simple_f(RANK, dims, dataspace, error)
CALL check("h5screate_simple_f",error,total_error)
!
[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
! create dataset in the file.
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
CALL h5dcreate_f(file_id, dsetname, H5T_NATIVE_INTEGER, dataspace, &
dset_id, error)
CALL check("h5dcreate_f",error,total_error)
!
! Write data_in to the dataset
!
[svn-r3861] Purpose: Code maintenance Description: read/write APIs have been changed. Solution: Made necessary changes to the tests. Platforms tested: Windows 98, Linux, Solaris 2.7, O2K, T3E
2001-04-27 11:50:22 +08:00
data_dims(1) = NX
data_dims(2) = NY
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, data_in, data_dims, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5dwrite_f",error,total_error)
!
[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
! Create scalar data space for the String attribute.
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
CALL h5screate_simple_f(arank, adims, aspace_id, error)
CALL check("h5screate_simple_f",error,total_error)
!
[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
! Create scalar data space for all other attributes.
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
CALL h5screate_simple_f(arank, adims2, aspace2_id, error)
CALL check("h5screate_simple_f",error,total_error)
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +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
! Create null data space for null attributes.
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
!
CALL h5screate_f(H5S_NULL_F, aspace6_id, error)
CALL check("h5screate_f",error,total_error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
! Create datatype for the String attribute.
!
CALL h5tcopy_f(H5T_NATIVE_CHARACTER, atype_id, error)
CALL check("h5tcopy_f",error,total_error)
CALL h5tset_size_f(atype_id, attrlen, error)
CALL check("h5tset_size_f",error,total_error)
!
! Create datatype for the Character attribute.
!
CALL h5tcopy_f(H5T_NATIVE_CHARACTER, atype2_id, error)
CALL check("h5tcopy_f",error,total_error)
!
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
! Create datatype for the Double attribute.
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
CALL h5tcopy_f(H5T_NATIVE_DOUBLE, atype3_id, error)
CALL check("h5tcopy_f",error,total_error)
!
! Create datatype for the Real attribute.
!
CALL h5tcopy_f(H5T_NATIVE_REAL, atype4_id, error)
CALL check("h5tcopy_f",error,total_error)
!
! Create datatype for the Integer attribute.
!
CALL h5tcopy_f(H5T_NATIVE_INTEGER, atype5_id, error)
CALL check("h5tcopy_f",error,total_error)
!
! Create dataset String attribute.
!
CALL h5acreate_f(dset_id, aname, atype_id, aspace_id, &
attr_id, error)
CALL check("h5acreate_f",error,total_error)
!
! Create dataset CHARACTER attribute.
!
CALL h5acreate_f(dset_id, aname2, atype2_id, aspace2_id, &
attr2_id, error)
CALL check("h5acreate_f",error,total_error)
[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-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
! Create dataset DOUBLE attribute.
!
CALL h5acreate_f(dset_id, aname3, atype3_id, aspace2_id, &
attr3_id, error)
CALL check("h5acreate_f",error,total_error)
!
! Create dataset REAL attribute.
!
CALL h5acreate_f(dset_id, aname4, atype4_id, aspace2_id, &
attr4_id, error)
CALL check("h5acreate_f",error,total_error)
!
! Create dataset INTEGER attribute.
!
CALL h5acreate_f(dset_id, aname5, atype5_id, aspace2_id, &
attr5_id, error)
CALL check("h5acreate_f",error,total_error)
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
!
! Create dataset NULL attribute of INTEGER.
!
[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-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
CALL h5acreate_f(dset_id, aname6, atype5_id, aspace6_id, &
attr6_id, 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-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
CALL check("h5acreate_f",error,total_error)
[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-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
! Write the String attribute data.
!
[svn-r3861] Purpose: Code maintenance Description: read/write APIs have been changed. Solution: Made necessary changes to the tests. Platforms tested: Windows 98, Linux, Solaris 2.7, O2K, T3E
2001-04-27 11:50:22 +08:00
data_dims(1) = 2
CALL h5awrite_f(attr_id, atype_id, attr_data, data_dims, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5awrite_f",error,total_error)
!
! Write the Character attribute data.
!
[svn-r3861] Purpose: Code maintenance Description: read/write APIs have been changed. Solution: Made necessary changes to the tests. Platforms tested: Windows 98, Linux, Solaris 2.7, O2K, T3E
2001-04-27 11:50:22 +08:00
CALL h5awrite_f(attr2_id, atype2_id, attr_character_data, data_dims, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5awrite_f",error,total_error)
!
! Write the DOUBLE attribute data.
!
[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
data_dims(1) = 1
[svn-r3861] Purpose: Code maintenance Description: read/write APIs have been changed. Solution: Made necessary changes to the tests. Platforms tested: Windows 98, Linux, Solaris 2.7, O2K, T3E
2001-04-27 11:50:22 +08:00
CALL h5awrite_f(attr3_id, atype3_id, attr_double_data, data_dims, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5awrite_f",error,total_error)
!
! Write the Real attribute data.
!
[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
data_dims(1) = 1
[svn-r8404] Purpose: Maintenance Description: h5dwrite/read_f and h5awrite_read_f functions were overloaded with dims argument being of type INTEGER and INTEGER(HSIZE_T). We promised to remove overloading in 1.4 release. It was removed from documentation but not from the source code. Solution: Finish code cleanup. Platforms tested: Solaris 2.7 32 and 64 bit, and copper with --enable- parallel. Windows are broken, so Kent and Xuan will test it with their changes later. Misc. update:
2004-04-23 01:18:46 +08:00
CALL h5awrite_f(attr4_id, atype4_id, attr_real_data, data_dims, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5awrite_f",error,total_error)
!
! Write the Integer attribute data.
!
[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
data_dims(1) = 1
[svn-r3861] Purpose: Code maintenance Description: read/write APIs have been changed. Solution: Made necessary changes to the tests. Platforms tested: Windows 98, Linux, Solaris 2.7, O2K, T3E
2001-04-27 11:50:22 +08:00
CALL h5awrite_f(attr5_id, atype5_id, attr_integer_data, data_dims, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5awrite_f",error,total_error)
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
!
! Write the NULL attribute data(nothing can be written).
!
CALL h5awrite_f(attr6_id, atype5_id, attr_integer_data, data_dims, error)
CALL check("h5awrite_f",error,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
!
! check the amount of storage that is required for the specified attribute .MSB.
!
CALL h5aget_storage_size_f(attr_id, attr_storage, error)
CALL check("h5aget_storage_size_f",error,total_error)
! CALL VERIFY("h5aget_storage_size_f",attr_storage,*SizeOf(attr_storage),total_error)
CALL h5aget_storage_size_f(attr2_id, attr_storage, error)
CALL check("h5aget_storage_size_f",error,total_error)
! CALL verify("h5aget_storage_size_f",attr_storage,1,total_error)
CALL h5aget_storage_size_f(attr3_id, attr_storage, error)
CALL check("h5aget_storage_size_f",error,total_error)
! CALL verify("h5aget_storage_size_f",attr_storage,8,total_error)
CALL h5aget_storage_size_f(attr4_id, attr_storage, error)
CALL check("h5aget_storage_size_f",error,total_error)
! CALL verify("h5aget_storage_size_f",attr_storage,4,total_error)
CALL h5aget_storage_size_f(attr5_id, attr_storage, error)
CALL check("h5aget_storage_size_f",error,total_error)
! CALL verify("h5aget_storage_size_f",attr_storage,4,total_error)
CALL h5aget_storage_size_f(attr6_id, attr_storage, error)
CALL check("h5aget_storage_size_f",error,total_error)
! CALL verify("h5aget_storage_size_f",attr_storage,0,total_error)
[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-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +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
! Close the attribute.
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
CALL h5aclose_f(attr_id, error)
CALL check("h5aclose_f",error,total_error)
CALL h5aclose_f(attr2_id, error)
CALL check("h5aclose_f",error,total_error)
CALL h5aclose_f(attr3_id, error)
CALL check("h5aclose_f",error,total_error)
CALL h5aclose_f(attr4_id, error)
CALL check("h5aclose_f",error,total_error)
CALL h5aclose_f(attr5_id, error)
CALL check("h5aclose_f",error,total_error)
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
CALL h5aclose_f(attr6_id, error)
CALL check("h5aclose_f",error,total_error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL h5tclose_f(atype_id, error)
CALL check("h5tclose_f",error,total_error)
CALL h5tclose_f(atype2_id, error)
CALL check("h5tclose_f",error,total_error)
CALL h5tclose_f(atype3_id, error)
CALL check("h5tclose_f",error,total_error)
CALL h5tclose_f(atype4_id, error)
CALL check("h5tclose_f",error,total_error)
CALL h5tclose_f(atype5_id, error)
CALL check("h5tclose_f",error,total_error)
!
! Terminate access to the data space.
!
CALL h5sclose_f(aspace_id, error)
CALL check("h5sclose_f",error,total_error)
CALL h5sclose_f(aspace2_id, error)
CALL check("h5sclose_f",error,total_error)
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
CALL h5sclose_f(aspace6_id, error)
CALL check("h5sclose_f",error,total_error)
[svn-r2730] Purpose: Bug fix. Description: fortranlib_test.f90 had a typo in the format string. Would not compile on O2K. Test did not check the length of the attribute name. Solution: Fixed format strings. Added more code to test returned attribute name length. Platforms tested: O2K, Linux
2000-10-25 04:56:04 +08:00
!
! Terminate access to the dataset.
!
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f",error,total_error)
!
! Terminate access to the file.
!
CALL h5fclose_f(file_id, error)
CALL check("h5fclose_f",error,total_error)
!
! Open file
!
[svn-r5940] Purpose: Bug fix, code improvement Description: Fortran tests didn't cleanup created files. Also HDF5_PREFIX and HDF5_PARAPREFIX were not used to specify location of the files. There was a redundant file in the testpar directory that contained an error reporting function used by both serial and parallel tests. Solution: Created library h5test_fortran.a that contains functions used by the serial and parallel tests. It includes Fortran and C functions that may be called from Fortran programs to report errors, to modify file names and to cleanup files after run. Modified test code to use new functions. Platforms tested: Linux 2.2 (eirene) serial IRIX64 (modi4) parallel with HDF5_PREFIX and HDF5_PARAPREFIX set to $SCR Solris 2.7 with mpich 1.2.4 with HDF5_PARAPREFIX set to /tmp/epourmal
2002-09-24 06:06:01 +08:00
CALL h5fopen_f(fix_filename, H5F_ACC_RDWR_F, file_id, error)
[svn-r2730] Purpose: Bug fix. Description: fortranlib_test.f90 had a typo in the format string. Would not compile on O2K. Test did not check the length of the attribute name. Solution: Fixed format strings. Added more code to test returned attribute name length. Platforms tested: O2K, Linux
2000-10-25 04:56:04 +08:00
CALL check("h5open_f",error,total_error)
!
! Reopen dataset
!
CALL h5dopen_f(file_id, dsetname, dset_id, error)
CALL check("h5dopen_f",error,total_error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
!open the String attrbute by name
!
CALL h5aopen_name_f(dset_id, aname, attr_id, error)
CALL check("h5aopen_name_f",error,total_error)
!
!open the CHARACTER attrbute by name
!
CALL h5aopen_name_f(dset_id, aname2, attr2_id, error)
CALL check("h5aopen_name_f",error,total_error)
!
!open the DOUBLE attrbute by name
!
CALL h5aopen_name_f(dset_id, aname3, attr3_id, error)
CALL check("h5aopen_name_f",error,total_error)
!
!open the REAL attrbute by name
!
CALL h5aopen_name_f(dset_id, aname4, attr4_id, error)
CALL check("h5aopen_name_f",error,total_error)
[svn-r2730] Purpose: Bug fix. Description: fortranlib_test.f90 had a typo in the format string. Would not compile on O2K. Test did not check the length of the attribute name. Solution: Fixed format strings. Added more code to test returned attribute name length. Platforms tested: O2K, Linux
2000-10-25 04:56:04 +08:00
!
!open the INTEGER attrbute by name
!
CALL h5aopen_name_f(dset_id, aname5, attr5_id, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5aopen_idx_f",error,total_error)
[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-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
!
!open the NULL attrbute by name
!
CALL h5aopen_name_f(dset_id, aname6, attr6_id, error)
CALL check("h5aopen_idx_f",error,total_error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
!get the attrbute name
!
CALL h5aget_name_f(attr5_id, name_size, attr_name, error)
CALL check("h5aget_name_f",error,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
IF (attr_name(1:12) .NE. aname5) THEN
[svn-r2730] Purpose: Bug fix. Description: fortranlib_test.f90 had a typo in the format string. Would not compile on O2K. Test did not check the length of the attribute name. Solution: Fixed format strings. Added more code to test returned attribute name length. Platforms tested: O2K, Linux
2000-10-25 04:56:04 +08:00
total_error = total_error + 1
[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
END IF
IF (error .NE. 12) THEN
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
total_error = total_error + 1
[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
END IF
[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-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
!get the STRING attrbute space
!
CALL h5aget_space_f(attr_id, attr_space, error)
CALL check("h5aget_space_f",error,total_error)
!
!get other attrbute space
!
CALL h5aget_space_f(attr2_id, attr2_space, error)
CALL check("h5aget_space_f",error,total_error)
!
!get the string attrbute datatype
!
CALL h5aget_type_f(attr_id, attr_type, error)
CALL check("h5aget_type_f",error,total_error)
!
!get the character attrbute datatype
!
CALL h5aget_type_f(attr2_id, attr2_type, error)
CALL check("h5aget_type_f",error,total_error)
!
!get the double attrbute datatype
!
CALL h5aget_type_f(attr3_id, attr3_type, error)
CALL check("h5aget_type_f",error,total_error)
!
!get the real attrbute datatype
!
CALL h5aget_type_f(attr4_id, attr4_type, error)
CALL check("h5aget_type_f",error,total_error)
!
!get the integer attrbute datatype
!
CALL h5aget_type_f(attr5_id, attr5_type, error)
CALL check("h5aget_type_f",error,total_error)
[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-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
!
!get the null attrbute datatype
!
CALL h5aget_type_f(attr6_id, attr6_type, error)
CALL check("h5aget_type_f",error,total_error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
!get number of attributes
!
CALL h5aget_num_attrs_f(dset_id, num_attrs, error)
CALL check("h5aget_num_attrs_f",error,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
IF (num_attrs .NE. 6) THEN
WRITE(*,*) "got number of attributes wrong", num_attrs
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
total_error = total_error +1
[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
END IF
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
!set the read back data type's size
!
CALL h5tcopy_f(H5T_NATIVE_CHARACTER, atype_id, error)
CALL check("h5tcopy_f",error,total_error)
CALL h5tset_size_f(atype_id, attrlen, error)
CALL check("h5tset_size_f",error,total_error)
!
!read the string attribute data back to memory
!
[svn-r3861] Purpose: Code maintenance Description: read/write APIs have been changed. Solution: Made necessary changes to the tests. Platforms tested: Windows 98, Linux, Solaris 2.7, O2K, T3E
2001-04-27 11:50:22 +08:00
data_dims(1) = 2
CALL h5aread_f(attr_id, atype_id, aread_data, data_dims, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5aread_f",error,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
IF ( (aread_data(1) .NE. attr_data(1)) .OR. (aread_data(2) .NE. attr_data(2)) ) THEN
WRITE(*,*) "Read back string attrbute is wrong", aread_data(1), aread_data(2)
[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
total_error = total_error + 1
[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
END IF
[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-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
!read the CHARACTER attribute data back to memory
!
[svn-r3861] Purpose: Code maintenance Description: read/write APIs have been changed. Solution: Made necessary changes to the tests. Platforms tested: Windows 98, Linux, Solaris 2.7, O2K, T3E
2001-04-27 11:50:22 +08:00
CALL h5aread_f(attr2_id, H5T_NATIVE_CHARACTER, aread_character_data, data_dims, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5aread_f",error,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
IF (aread_character_data .NE. 'A' ) THEN
WRITE(*,*) "Read back character attrbute is wrong ",aread_character_data
[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
total_error = total_error + 1
[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
END IF
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
!read the double attribute data back to memory
!
[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
data_dims(1) = 1
[svn-r3861] Purpose: Code maintenance Description: read/write APIs have been changed. Solution: Made necessary changes to the tests. Platforms tested: Windows 98, Linux, Solaris 2.7, O2K, T3E
2001-04-27 11:50:22 +08:00
CALL h5aread_f(attr3_id, H5T_NATIVE_DOUBLE, aread_double_data, data_dims, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5aread_f",error,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
IF (aread_double_data(1) .NE. 3.459 ) THEN
WRITE(*,*) "Read back double attrbute is wrong", aread_double_data(1)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
total_error = total_error + 1
[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
END IF
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
!read the real attribute data back to memory
!
[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
data_dims(1) = 1
[svn-r3861] Purpose: Code maintenance Description: read/write APIs have been changed. Solution: Made necessary changes to the tests. Platforms tested: Windows 98, Linux, Solaris 2.7, O2K, T3E
2001-04-27 11:50:22 +08:00
CALL h5aread_f(attr4_id, H5T_NATIVE_REAL, aread_real_data, data_dims, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5aread_f",error,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
IF (aread_real_data(1) .NE. 4.0 ) THEN
WRITE(*,*) "Read back real attrbute is wrong ", aread_real_data
[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
total_error = total_error + 1
END IF
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
!read the Integer attribute data back to memory
!
[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
data_dims(1) = 1
[svn-r3861] Purpose: Code maintenance Description: read/write APIs have been changed. Solution: Made necessary changes to the tests. Platforms tested: Windows 98, Linux, Solaris 2.7, O2K, T3E
2001-04-27 11:50:22 +08:00
CALL h5aread_f(attr5_id, H5T_NATIVE_INTEGER, aread_integer_data, data_dims, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5aread_f",error,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
IF (aread_integer_data(1) .NE. 5 ) THEN
WRITE(*,*) "Read back integer attrbute is wrong ", aread_integer_data
[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
total_error = total_error + 1
END IF
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
!
!read the null attribute data. nothing can be read.
!
[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
data_dims(1) = 1
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
CALL h5aread_f(attr6_id, H5T_NATIVE_INTEGER, aread_null_data, data_dims, error)
CALL check("h5aread_f",error,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
IF (aread_null_data(1) .NE. 7 ) THEN
WRITE(*,*) "Read back null attrbute is wrong ", aread_null_data
[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
total_error = total_error + 1
END IF
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +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
! Close the attribute.
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
!
CALL h5aclose_f(attr_id, error)
CALL check("h5aclose_f",error,total_error)
CALL h5aclose_f(attr2_id, error)
CALL check("h5aclose_f",error,total_error)
CALL h5aclose_f(attr3_id, error)
CALL check("h5aclose_f",error,total_error)
CALL h5aclose_f(attr4_id, error)
CALL check("h5aclose_f",error,total_error)
CALL h5aclose_f(attr5_id, error)
CALL check("h5aclose_f",error,total_error)
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
CALL h5aclose_f(attr6_id, error)
CALL check("h5aclose_f",error,total_error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +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
! Delete the attribute from the Dataset.
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +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 h5adelete_f(dset_id, aname, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL check("h5adelete_f",error,total_error)
!
!get number of attributes
!
CALL h5aget_num_attrs_f(dset_id, num_attrs, error)
CALL check("h5aget_num_attrs_f",error,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
IF (num_attrs .NE. 5) THEN
WRITE(*,*) "got number of attributes wrong", num_attrs
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
total_error = total_error +1
[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
END IF
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL h5sclose_f(attr_space, error)
CALL check("h5sclose_f",error,total_error)
CALL h5sclose_f(attr2_space, error)
CALL check("h5sclose_f",error,total_error)
!
! Terminate access to the data type.
!
CALL h5tclose_f(attr_type, error)
CALL check("h5tclose_f",error,total_error)
CALL h5tclose_f(attr2_type, error)
CALL check("h5tclose_f",error,total_error)
CALL h5tclose_f(attr3_type, error)
CALL check("h5tclose_f",error,total_error)
CALL h5tclose_f(attr4_type, error)
CALL check("h5tclose_f",error,total_error)
CALL h5tclose_f(attr5_type, error)
CALL check("h5tclose_f",error,total_error)
[svn-r8594] Purpose: new test Description: Add null dataset and attribute tests for Fortran. Platforms tested: verbena pgf90(only Fortran test is involved).
2004-05-28 06:13:03 +08:00
CALL h5tclose_f(attr6_type, error)
CALL check("h5tclose_f",error,total_error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +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
!
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
! End access to the dataset and release resources used by it.
[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-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f",error,total_error)
[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-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
! Close the file.
!
CALL h5fclose_f(file_id, error)
CALL check("h5fclose_f",error,total_error)
[svn-r5940] Purpose: Bug fix, code improvement Description: Fortran tests didn't cleanup created files. Also HDF5_PREFIX and HDF5_PARAPREFIX were not used to specify location of the files. There was a redundant file in the testpar directory that contained an error reporting function used by both serial and parallel tests. Solution: Created library h5test_fortran.a that contains functions used by the serial and parallel tests. It includes Fortran and C functions that may be called from Fortran programs to report errors, to modify file names and to cleanup files after run. Modified test code to use new functions. Platforms tested: Linux 2.2 (eirene) serial IRIX64 (modi4) parallel with HDF5_PREFIX and HDF5_PARAPREFIX set to $SCR Solris 2.7 with mpich 1.2.4 with HDF5_PARAPREFIX set to /tmp/epourmal
2002-09-24 06:06:01 +08:00
!
! Remove the file
!
[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
IF (cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
[svn-r2714] Purpose: Added more Fortran tests Description: tH5A.f90 - attribute interface test tH5I.f90 - identifier interface test Solution: Two new files were added to test H5A and H5I interfaces. Platforms tested: Solaris 2.7, Linux
2000-10-21 04:51:49 +08:00
RETURN
END SUBROUTINE attribute_test
Reference in New Issue Copy Permalink