<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=https://github.com/llvm/llvm-project/issues/68856>68856</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Execution error of a WRITE statement with an unopened unit in a parallel region
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang
      </td>
    </tr>

    <tr>
      <th>Assignees</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Reporter</th>
      <td>
          yus3710-fj
      </td>
    </tr>
</table>

<pre>
    This is an issue from Fujitsu testsuite.

The execution of a program compiled by flang-new terminates with a fatal error.
In the program, there is a `WRITE` statement in a parallel region and the unit specified in that is not opened explicitly.
The execution terminates normally when OpenMP is disabled.

The following are the test program, Flang-new and gfortran execution result.

```fortran
! test.f90
!$omp parallel
write(1,*) 'OK'
!$omp end parallel
end
```
```console
$ flang-new -v test.f90 -fopenmp
flang-new version 18.0.0 (https://github.com/llvm/llvm-project.git dae91f5dbc5bee579eac7f4cbb71e86f2934817f)
Target: aarch64-unknown-linux-gnu
Thread model: posix
InstalledDir: /path/to/install/bin
Found candidate GCC installation: /path/to/gcc/11.2.0/lib/gcc/aarch64-unknown-linux-gnu/11.2.0
Selected GCC installation: /path/to/gcc/11.2.0/lib/gcc/aarch64-unknown-linux-gnu/11.2.0
Candidate multilib: .;@m64
Selected multilib: .;@m64
 "/path/to/install/bin/flang-new" -fc1 -triple aarch64-unknown-linux-gnu -emit-obj -fopenmp -fcolor-diagnostics -mrelocation-model pic -pic-level 2 -pic-is-pie -target-cpu generic -target-feature +neon -target-feature +v8a -o /tmp/test-f33630.o -x f95-cpp-input test.f90
 "/usr/bin/ld" -pie -EL --hash-style=gnu --eh-frame-hdr -m aarch64linux -dynamic-linker /lib/ld-linux-aarch64.so.1 -o a.out /lib/../lib64/Scrt1.o /lib/../lib64/crti.o /path/to/gcc/11.2.0/lib/gcc/aarch64-unknown-linux-gnu/11.2.0/crtbeginS.o -L/path/to/install/lib/clang/18/lib/aarch64-unknown-linux-gnu -L/path/to/gcc/11.2.0/lib/gcc/aarch64-unknown-linux-gnu/11.2.0 -L/path/to/gcc/11.2.0/lib/gcc/aarch64-unknown-linux-gnu/11.2.0/../../../../lib64 -L/lib/../lib64 -L/usr/lib/../lib64 -L/lib -L/usr/lib /tmp/test-f33630.o -L/path/to/install/lib -lFortran_main -lFortranRuntime -lFortranDecimal -lm -lomp -L/path/to/install/lib -lgcc --as-needed -lgcc_s --no-as-needed -lpthread -lc -lgcc --as-needed -lgcc_s --no-as-needed /path/to/gcc/11.2.0/lib/gcc/aarch64-unknown-linux-gnu/11.2.0/crtendS.o /lib/../lib64/crtn.o
$ ./a.out
$ OMP_NUM_THREADS=4 ./a.out

fatal Fortran runtime error(/path/to/test.f90:2): Attempted output to read-only file
Aborted (core dumped)
$ flang-new test.f90
$ ./a.out
$ cat fort.1 
 OK
```
```console
$ gfortran -v test.f90 -fopenmp
Driving: gfortran -v test.f90 -fopenmp -l gfortran -l m -shared-libgcc
Using built-in specs.
COLLECT_GCC=gfortran
Target: aarch64-redhat-linux
Configured with: ../configure --enable-bootstrap --enable-languages=c,c++,fortran,lto --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --with-bugurl=http://bugzilla.redhat.com/bugzilla --enable-shared --enable-threads=posix --enable-checking=release --enable-multilib --with-system-zlib --enable-__cxa_atexit --disable-libunwind-exceptions --enable-gnu-unique-object --enable-linker-build-id --with-gcc-major-version-only --with-linker-hash-style=gnu --enable-plugin --enable-initfini-array --with-isl --disable-libmpx --enable-gnu-indirect-function --build=aarch64-redhat-linux
Thread model: posix
gcc version 8.4.1 20200928 (Red Hat 8.4.1-1) (GCC) 
 :
$ OMP_NUM_THREADS=4 ./a.out
$ cat fort.1
 OK
 OK
 OK
 OK
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJy8V19z4ygS_zTkpQuVhPz3wQ-OHe9u7exla5Kte0whaMlkEOgAJc5--iuQbCeeJHdTN3VVKUc0TdP9o2l-zb1XjUFckek1mW6veB_21q1eel_Oi5zWj1eVlS-r-73yoDxwA8r7HqF2toVd_6iC7yGgD75XATOSb0m-Hn7v9wh4QNEHZQ3YGjh0zjaOtyBs2ymNEqoXqDU3DTX4DAFdqwwP6OFZhT1wqHngGtA560bTvxkIezwaImwThw6Tb0Bm-T-__nZ_Q2Y5-MADtmgCKBN35o5rjRocNtEdbmQy1BsVwHcoVK1QRt2w5yGaMzaA7dCgBDx0WgkV9Ev2Xmiv_DbWtVzrF3jeo4HbDs0ff0ZjUnleaZTfAVRbre2zMg1wh8mjCObr-HYnfKLPTW1dcNy82t6h73V4Y5nM8uFv1B6lrEjWs3qZnySETWzbnfAZ5M9OBSRsURC2IWxN2BIIm9_-Ttj8ciEaebEYjbzw4mIorPFW49HS5FUK0KeTh0DrCH_bDXpnnSd0PsZdLLI8y4GwxT6EzpNyTdiOsF2jwr6vMmFbwnZaPx3_0c7ZRxQha1QAyXFZ1FNZiWmFOJ0vkYt5PRFVNS9wMavZspwsinlN2HI8LO4aDKRcA-dO7GcT2ptvxj4bqpXpD7Qx_fFUHXIJrZWoo3pnvTock9eHCJTcKhenCNt1POwJ2wVL2E4N04TtKjUe2c72RoLgRirJA8Ivmw2Majwe_jtWGiEI2xVFxrI8Rq6qk_Bjz08L0q53qFEElP-n7Tan8NpeBxVNlGvISHlNJnk7m1w49ZkSEMY-RZXtTolEGANaiwJocKrT-PHBAsVWBWqrx1NSxpVWW0el4o2xPijhgbYOtRUJKpoSADolgHZKUI1PqIENA-VppxBoSElFRddDgwZdVB5lNfLQOwTCrg1a8578acGB2nggoe3iL_pA67KclXlmgR6gXk6p6DqqTNeHi6s_ItV7d0JGywRJ8uzmC1C6535PfXjRSMptwoHintaOt0j30gFtj5glqIDKF8PbGKwy39DBKR-0HMEc1TNvsyL6zjPbh7Nelg2fswlhuzvhQpHZD2aFC2qY_HnZmKxW2ChzFwH88mEmDXZFzKS4enESfZJCl9b-J1d_srkjuBc_Cethq8sTGKRD9rw_p1V1ofRhpn4KNFC9G16xh5Yrcx5-7U1QLZ4FWxSq5RqoboHq-Dj9R8uNEEAp99QgSpSD5MEDpca-EXdhKOtUi_9-2c9PTjTy7rMrYTJ7flbjXLpgZ9HtH38-_OOvPx7uf_16s97ekXL7vdrw3CbmNQILboQ6MTHCFheBnSpLuWbxwSzXsA4B2y6Wa9uHVH0sRACpNfoFanV8_teVdSFBtRDWIci-7VCeXt237OCSvLwbouABIu3JChgr3e3vP8hHTiTrYzqydepJmSaG-qk2UP1KQUML1O-5w1gQq3j2ydpfPjLAqlc6UGUSH_Ujodvcfvlys7l_-GWziUX4DaH7npM4lHsehvQZ11tTq6Z3KBOpTo9mRE0c5bGom0hOaWVt8MHx7iyK0Pe8QU_KrSBsIwi7Tn-boyNso4MFSjuHtTqQcjvceKC0jc-6O0kI26XICdu1EQuqTG0_UIhTQGl0mFZ90ztNym1keSeSV_XN30prng0Rj2zvKD0HMIB9Hg_XOIaTeNl5QuxRfEsnunWokftXwBwZx9El_-IDtvTvQTQqPTyIA3_gAQ8qAKUj44_H3JtnZSTFg8AuUgN_XtSYnvZG_avHyC5QhFfQpzeUxqSQVMnj3o0QtOWP1tGRBw83apwdF733cA9WO903sYgex8qoUCujKHeOn8wor9-G0HaHt06reLYoAq17I1IbQgdXSbn9OBk_4caxpB6Z_SKbZAWwnOX5ki1ibfiKEn7lYZihxdCQLOKdiF8joSnXP1bo3hSLi1rxycdFGbmSq1IuyyW_wlUxW87zZVlOplf7FRM8ny5xMq-4zGesnPNZMeeVnMkJLqeFvFIrlrOyyAuWzybLfJrly-VU5rWczeR0KUpBJjm2XOksti-Zdc1Var5Xs8ViOrvSvELtU-POWD1wERZ7eLdK7U7VN55Mcq188GcLQQWduv3UV5Lplkyvhz6VTLdwc-oqU6kfuvbUU79qqIfm3EBvxv44NdHvtdlXvdOrH-vO4u2PQXrCdinOfwcAAP__yCc_Jg">