diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2023-05-23 16:16:43 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2023-05-23 16:16:43 (GMT) |
commit | 545484c7434df6de28dda4eb3781b37a38d62693 (patch) | |
tree | 6ce938797934cfea6b33815d1296f4a46b952c8b /fortran/testpar/async.F90 | |
parent | a888742959249605f83a00f1fd769c15b515969b (diff) | |
download | hdf5-545484c7434df6de28dda4eb3781b37a38d62693.zip hdf5-545484c7434df6de28dda4eb3781b37a38d62693.tar.gz hdf5-545484c7434df6de28dda4eb3781b37a38d62693.tar.bz2 |
fixed GNU 4.8.5 compilation issue with C_LOC and strings (#2996)
Diffstat (limited to 'fortran/testpar/async.F90')
-rw-r--r-- | fortran/testpar/async.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/testpar/async.F90 b/fortran/testpar/async.F90 index 83cd41c..5d2ce38 100644 --- a/fortran/testpar/async.F90 +++ b/fortran/testpar/async.F90 @@ -198,8 +198,8 @@ CONTAINS CALL H5Screate_f(H5S_SCALAR_F, space_id, hdferror) CALL check("H5Screate_f", hdferror, total_error) - f_ptr1 = C_LOC(app_file) - f_ptr2 = C_LOC(app_func) + f_ptr1 = C_LOC(app_file(1:1)) + f_ptr2 = C_LOC(app_func(1:1)) CALL h5acreate_async_f(file_id, attr_name, H5T_NATIVE_INTEGER, space_id, attr_id0, es_id, hdferror, & file=f_ptr1, func=f_ptr2, line=app_line) CALL check("h5acreate_f",hdferror,total_error) |