Ping. On 2026-06-12 2:41 p.m., John David Anglin wrote: > 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
-- John David Anglin [email protected]
