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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Execution error (Segmentation fault) when an allocatable array is used in task construct with a firstprivate clause in a parallel construct with a private clause
        </td>
    </tr>

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

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

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

<pre>
    ```
Version of flang-new : 19.0.0(cbcdf126ccc774c063b5d5140c1393ff5305dded)/AArch64
```

When an `allocatable` array is used in `task` construct with a `firstprivate` clause in a `parallel` construct with a `private` clause, the execution terminates abnormally (Segmentation fault).  

Execution terminates normally in the following cases:
- Array (a) is not an `allocatable` array, or
- Do not write `task` construct

The following are the test program, Flang-new, Gfortran and ifort compilation/execution result.

omp3_task_firstprivate_013_232.f90:
```fortran
program main
  integer(4),allocatable::a(:)
  allocate(a(10))
 a(9)=100
!$omp parallel private(a)
!$omp task firstprivate(a)
 a(9)=10
!$omp end task
!$omp end parallel
  write(6,*) "a(9) = ", a(9)
end program main
```

```
$ export OMP_NUM_THREADS=2; flang-new -fopenmp omp3_task_firstprivate_013_232.f90; ./a.out
Segmentation fault (core dumped)
$
```

```
$ export OMP_NUM_THREADS=2; gfortran -fopenmp omp3_task_firstprivate_013_232.f90; ./a.out
 a(9) = 100
$
```

```
$ export OMP_NUM_THREADS=2; ifort -qopenmp -diag-disable=10448 omp3_task_firstprivate_013_232.f90; ./a.out
 a(9) = 100
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJy8VVGPozYQ_jXOixVkxsDCAw_Z49K-bO_Uu7aPkTGG-Gowtc3l9t9XNpAlm72qUk-VoiS25xvPfPN5hlkru0GIEqWPKK12bHJnbUp9HvS-_bKrdfNcoowsH1IhcvhdGCv1gHWLW8WGbj-IC0b0gOMiIhFBkPOaN20MGef84SHhJKN12qRxQnhMC9q2KSVp04gGQYHgeDgYfs6S2fmru-bvP85iwGzAKCNMKc2ZY7USKCOYGcOesbR4sqLBMpg4Zv_0Z1wP1pmJO3yR7oyZP2ulsW408itzAc8Vm6zwwHA8MsOUEup78DskgnfYnQUW3wSfnGfFCdPLgTlhMasHbXqm1DNGkH8SXS8Gx4JVyyblEBQRxttE37_l5upEDuGuViulL3LoMGdWWEQX8B4fAhsIcoag8KwM2v0Dbz54bVZwpYP5xUgn3qRxG-jnmziYESEyJ6zDo9GdYb13flzl4Rc_tdo4w3whGyz9AnPdj1IFRhAcXzg0wk7KRdsLdT_Skw_ptC3hicT0BBSitiBXHq4SWi6cd5ewcM_ksoOxHJzohEGQJ0GK77Ys0QOiB4Yg9_-gWDGLiZhZzmMSkOux3wpLWsVk1TDECBLdj3iVF151NFfqtZlPE98odWt3e8drrBiagH9r_6ruJZVQagR5huAdAp8kRgCre4xo5de-dtcrAzL4uqPzzZf7ehMSLL6NvvYfnj6efvnt6fT551_fH6pPiFaA6OOmo-xbPYqhH_G_Kf0jjhAcWaSnRab3r82_C66NwM3Uj3PvWWP6kQl0q8z_W_z4pgwbLf3QYOdnuP9riXTfSNbtG2nnB1DFJEny_yX-XVPSpqAF24kyfojjBEgRk925zOKmSWmdNUmSZUWbUF7whzZnMcl5wdOHnSyBQEIoZASSOCURKUjR1iTJY5axHChKiOiZVJFSX_tIm24nrZ1EmWcZxDvFaqFsmH4AMw2z5hFA0KJfpdXOlB6-r6fOooQoaZ19ceikU2GChoaH0gqljx9GMTx9RGmFX5q6MEab784CfFnG3KYL3Q-40BzuZtO2MjdD7dpy7iC31rvJqPLs3BjmCRwRHDvpzlMdcd0jOPpcl5_9aPQXwR2CY2DSIjgGMv8OAAD__5DpfPM">