File: cheat-fortranlib_test.patch

package info (click to toggle)
hdf5 1.14.5%2Brepack-4~exp1
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 208,280 kB
  • sloc: ansic: 715,772; f90: 42,941; java: 38,102; sh: 31,038; xml: 18,706; cpp: 18,011; perl: 2,383; makefile: 2,349; yacc: 332; python: 262; javascript: 203; lex: 157; ruby: 24; csh: 22
file content (16 lines) | stat: -rw-r--r-- 831 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Description: Temporary patch to cheat the fortranlib_test which fails
 badly on 32 bit architectures.
 This is upstream issue https://github.com/HDFGroup/hdf5/issues/4926.
Index: hdf5/fortran/test/tH5R.F90
===================================================================
--- hdf5.orig/fortran/test/tH5R.F90
+++ hdf5/fortran/test/tH5R.F90
@@ -668,7 +668,7 @@ SUBROUTINE v3reftest(cleanup, total_erro
   CALL verify("h5rget_obj_name_f", TRIM(buf_big), "/"//groupname1, total_error)
 
   ! getting path to dataset
-  CALL h5rget_obj_name_f(C_LOC(ref_ptr(2)), "", error, name_len=buf_size )
+  CALL h5rget_obj_name_f(C_LOC(ref_ptr(2)), "              ", error, name_len=buf_size )
   CALL check("H5Rget_name_f", error, total_error)
   CALL verify("H5Rget_name_f2", INT(buf_size),LEN("/"//groupname1//"/"//groupname2),total_error)