Tested on hppa64-hp-hpux11.11.

Okay?

Dave
---

libgfortran: Don't quote ENV_PPID and ENV_BASE in caf/shmem/shared_memory.c

ENV_PPID and ENV_BASE are declared previously as strings and they
don't need to be quoted.

2026-06-12  John David Anglin  <[email protected]>

libgfortran/ChangeLog:

        * caf/shmem/shared_memory.c (shared_memory_set_env): Don't
        quote ENV_PPID.
        (shared_memory_init) Don't quote ENV_BASE.

diff --git a/libgfortran/caf/shmem/shared_memory.c 
b/libgfortran/caf/shmem/shared_memory.c
index a42b0963697..6cf0c80eeb6 100644
--- a/libgfortran/caf/shmem/shared_memory.c
+++ b/libgfortran/caf/shmem/shared_memory.c
@@ -75,7 +75,7 @@ shared_memory_set_env (pid_t pid)
   int res;
 
   /* HP-UX / Legacy Fallback using putenv */
-  res = snprintf (buffer, 28, "%s=%d", "ENV_PPID", (int)pid);
+  res = snprintf (buffer, 28, "%s=%d", ENV_PPID, (int)pid);
   if (res != -1)
     putenv (buffer);
 #endif
@@ -257,7 +268,7 @@ shared_memory_init (shared_memory_act *mem, size_t size)
       int res;
 
       /* HP-UX / Legacy Fallback using putenv */
-      res = snprintf (buffer, 28, "%s=%p", "ENV_BASE", mem->glbl.base);
+      res = snprintf (buffer, 28, "%s=%p", ENV_BASE, mem->glbl.base);
       if (res != -1)
        putenv (buffer);
 #endif

Attachment: signature.asc
Description: PGP signature

Reply via email to