[llvm] [flang][runtime] Refine state associated with child I/O (PR #150461)

[via llvm-commits]

ronlieb wrote:

hi @klausler   ran into a regression in our hpc2021 testing,  bisects to this PR.
if you have access to the suite, should be reproducible with any of the MPI, OMP, or TGT builds
Failure seen in 519, 528.,535
if you need a smaller reproducer , i will try and produce one

Thread 1 "weather_base.cl" received signal SIGSEGV, Segmentation fault.
0x00007ffff74a547e in __GI___libc_free (mem=0x1) at ./malloc/malloc.c:3368
warning: 3368   ./malloc/malloc.c: No such file or directory
(gdb) bt
#0  0x00007ffff74a547e in __GI___libc_free (mem=0x1) at ./malloc/malloc.c:3368
#1  0x00007ffff7e406b0 in Fortran::runtime::io::UnitMap::CloseAll(Fortran::runtime::io::IoErrorHandler&) ()
   from /opt/openmpi-5.0.6-flang-new/lib/libmpi_usempif08.so.40
#2  0x00007ffff7e3a0db in Fortran::runtime::io::ExternalFileUnit::CloseAll(Fortran::runtime::io::IoErrorHandler&) ()
   from /opt/openmpi-5.0.6-flang-new/lib/libmpi_usempif08.so.40
#3  0x0000000000258c96 in CloseAllExternalUnits(char const*) ()
#4  0x00000000002590fd in _FortranAProgramEndStatement ()
#5  0x0000000000228012 in main () at miniWeather.fppized.f90:894
#6  0x00007ffff7429d90 in __libc_start_call_main (main=main at entry=0x228000 <main>, argc=argc at entry=9, argv=argv at entry=0x7fffffffe6b8)
    at ../sysdeps/nptl/libc_start_call_main.h:58
#7  0x00007ffff7429e40 in __libc_start_main_impl (main=0x228000 <main>, argc=9, argv=0x7fffffffe6b8, init=<optimized out>,
    fini=<optimized out>, rtld_fini=<optimized out>, stack_end=0x7fffffffe6a8) at ../csu/libc-start.c:392
#8  0x00000000002216b5 in _start ()



https://github.com/llvm/llvm-project/pull/150461