[Bug libfortran/124330] [16 Regression] shared_memory.c:72:3: error: implicit declaration of function 'SetEnvironmentVariable' [-Wimplicit-function-declaration]

[cvs-commit at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=124330

--- Comment #7 from GCC Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Jerry DeLisle <jvdelisle@gcc.gnu.org>:

https://gcc.gnu.org/g:4a9c76b78cd4a3bc8107efe23a3bd7de205eb901

commit r16-7873-g4a9c76b78cd4a3bc8107efe23a3bd7de205eb901
Author: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date:   Mon Mar 2 20:02:58 2026 -0800

    Fortran: Fix failures on windows and hpux systems [PR124330]

    Co-authored-by: John David Anglin <danglin@gcc.gnu.org>

            PR fortran/124330

    libgfortran/ChangeLog:

            * caf/shmem/shared_memory.c: Fix filenames for WIN32
            includes.
            (shared_memory_set_env): Use putenv() for HPUX and as
            a fallback where setenv () is not available.
            (NAME_MAX): Replace with SHM_NAME_MAX.
            (SHM_NAME_MAX): Use this to avoid duplicating NAME_MAX
            used elsewhere.
            * caf/shmem/supervisor.c (get_image_num_from_envvar): Add
            a fallback for HPUX. Add additional comment to explain why
            the number of cores is used in lieu of GFORTRAN_NUM_IMAGES.