diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-03-23 21:23:39 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-03-23 21:23:39 (GMT) |
| commit | ce632854c3d542a22018221be1ec47cdad0affe2 (patch) | |
| tree | 29b27353a506fe871196a1bad0bc01077ba8e934 /fortran/test/tH5E_F03.f90 | |
| parent | 9630bfd9749c6a8f470325bb762e64835c3192e9 (diff) | |
| download | hdf5-ce632854c3d542a22018221be1ec47cdad0affe2.zip hdf5-ce632854c3d542a22018221be1ec47cdad0affe2.tar.gz hdf5-ce632854c3d542a22018221be1ec47cdad0affe2.tar.bz2 | |
[svn-r26547] Merged changes from the trunk into the branch:
svn merge -r26029:26536 https://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran
Tested: h5committest
Diffstat (limited to 'fortran/test/tH5E_F03.f90')
| -rw-r--r-- | fortran/test/tH5E_F03.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/test/tH5E_F03.f90 b/fortran/test/tH5E_F03.f90 index 82ba27c..a7d45f2 100644 --- a/fortran/test/tH5E_F03.f90 +++ b/fortran/test/tH5E_F03.f90 @@ -39,11 +39,11 @@ MODULE test_my_hdf5_error_handler CONTAINS -!/**************************************************************** +!*************************************************************** !** !** my_hdf5_error_handler: Custom error callback routine. !** -!****************************************************************/ +!*************************************************************** INTEGER FUNCTION my_hdf5_error_handler(estack_id, data_inout) bind(C) @@ -173,10 +173,10 @@ SUBROUTINE test_error(total_error) !!$#ifdef H5_USE_16_API !!$ if (old_func != (H5E_auto_t)H5Eprint) !!$ TEST_ERROR; -!!$#else /* H5_USE_16_API */ +!!$#else H5_USE_16_API !!$ if (old_func != (H5E_auto2_t)H5Eprint2) !!$ TEST_ERROR; -!!$#endif /* H5_USE_16_API */ +!!$#endif H5_USE_16_API ! set the customized error handling routine |