From 545484c7434df6de28dda4eb3781b37a38d62693 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Tue, 23 May 2023 11:16:43 -0500
Subject: fixed GNU 4.8.5 compilation issue with C_LOC and strings (#2996)

---
 fortran/testpar/async.F90 | 4 ++--
 1 file 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)
-- 
cgit v0.12