mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-30 15:32:37 +08:00
Code Issues Packages Projects Releases Wiki Activity

fixed GNU 4.8.5 compilation issue with C_LOC and strings (#2996)

Browse Source
This commit is contained in:
Scot Breitenfeld 2023-05-23 11:16:43 -05:00 committed by GitHub
parent a888742959
commit 545484c743
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/testpar/async.F90
View File

@ -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)