summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2023-10-13 16:39:06 (GMT)
committerGitHub <noreply@github.com>2023-10-13 16:39:06 (GMT)
commit6aaa960d900b59a442e28c264ca0562449ebd05b (patch)
tree80cfe25088321ce27a5e111dfebd75b2e4138bd6 /fortran
parenteda1344a72d0f85e4532c504f1e9ecc025a87a21 (diff)
downloadhdf5-6aaa960d900b59a442e28c264ca0562449ebd05b.zip
hdf5-6aaa960d900b59a442e28c264ca0562449ebd05b.tar.gz
hdf5-6aaa960d900b59a442e28c264ca0562449ebd05b.tar.bz2
Fixes test failure for gfortran -O2 and -O3, -fdefault-real-16 (#3662)
* added cmake ieee flag for nagfor * fixes gfortran -O2 and -O3, -fdefault-real-16 * fixed sync * updated release notes
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/tH5P_F03.F903
1 files changed, 1 insertions, 2 deletions
diff --git a/fortran/test/tH5P_F03.F90 b/fortran/test/tH5P_F03.F90
index 4f390d5..24934eb 100644
--- a/fortran/test/tH5P_F03.F90
+++ b/fortran/test/tH5P_F03.F90
@@ -146,7 +146,6 @@ SUBROUTINE test_create(total_error)
! Compound datatype test
f_ptr = C_LOC(fill_ctype)
-
CALL H5Pget_fill_value_f(dcpl, comp_type_id, f_ptr, error)
CALL check("H5Pget_fill_value_f",error, total_error)
@@ -184,6 +183,7 @@ SUBROUTINE test_create(total_error)
CALL VERIFY("***ERROR: Returned wrong fill value (real)", rfill, 2.0, total_error)
! For the actual compound type
+ f_ptr = C_LOC(fill_ctype)
CALL H5Pset_fill_value_f(dcpl, comp_type_id, f_ptr, error)
CALL check("H5Pget_fill_value_f",error, total_error)
@@ -254,7 +254,6 @@ SUBROUTINE test_create(total_error)
CALL check("H5Dget_create_plist_f", error, total_error)
f_ptr = C_LOC(rd_c)
-
CALL H5Pget_fill_value_f(dcpl, comp_type_id, f_ptr, error)
CALL check("H5Pget_fill_value_f", error, total_error)
CALL verify("***ERROR: Returned wrong fill value", rd_c%a, fill_ctype%a, total_error)