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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] Incorrect execution result when an if clause is specified for a dependent task in a sibling task that has a task dependency
        </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(1a498103ee5c4d101e70dc49db11938d8b87b518)/AArch64
```

In `sibling tasks` that have `task dependence`, when an `if` clause (the result is .false.) is specified for a `dependent task`, the execution result is incorrect.

The result is correct when line 27 of the program is changed as follows:
- Change `scalar-logical-expression` result specified in `if` clause from .false. to .true.
```
    !$omp task shared(x) depend(in: x) if(x .ne. 0) ! if(.true.)
```
- Delete the `if` clause
```
    !$omp task shared(x) depend(in: x)              ! no if clause
```

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

taskdepend_054_2231.f90:
```fortran
module taskdepend_mod
  integer, parameter :: ans=1
contains
  subroutine init(x)
    integer :: x
    x = 2
  end subroutine init
 subroutine test(x)
    integer :: x
    if (x .ne. ans) then
 print *, "NG"
    else
       print *, "OK"
    end if
  end subroutine test
end module taskdepend_mod

program main
  use taskdepend_mod
  integer :: x
  call init(x)
!$omp parallel
!$omp single
!$omp task shared(x) depend(out: x)
  x = x - 1
!$omp end task
!$omp task shared(x) depend(in: x) if(x .eq. 0) ! if(.false.)
 call test(x)
!$omp end task
!$omp end single
!$omp end parallel
end program main
```

```
$ export OMP_NUM_THREADS=2; flang-new -fopenmp taskdepend_054_2231.f90; ./a.out
 NG
$
```

```
$ export OMP_NUM_THREADS=2; gfortran -fopenmp taskdepend_054_2231.f90; ./a.out
 OK
$
```

```
$ export OMP_NUM_THREADS=2; ifort -qopenmp -diag-disable=10448 taskdepend_054_2231.f90; ./a.out
 OK
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJy0Vl-PnDYQ_zTelxEIDOzCwz7sZbtpFOUuatO-ngwM4NTYxDa5zbevbOD29k-vSnU9nVgx9vz7_WaGYcbwViJuSXZHsv2KjbZTeqs6qYLm66pU9Y8tWUfzf7Qn0e5P1IYrCaqBRjDZBhKfgCQ7iIswCiNC85ilRR5HCWJWpXUcxbiJ6iot6jKOiySv8zLflFmcE1oQetjtdNWt08n4ha_p-UECWUeGl4LLFiwzfxmyjsB2zELHvqM7dVKocUBZo6zQWaDv4KlDCcyr88bpVIKNBoHQ3HYIGs0oLHADYcOEwZDQwr2ZASvecKyhURqYU19MW-9_Nu9s4BGr0TpATta4rJTWWNnwZRpfzjzON6YQBZcIdOMwdTYHrVrNen-tY7LFGpiBRgmhngxJZnsBvPOHHpyKCaYDoVpeMRHgcdBoHE0u6dnpKSt-jUijVb-gAFZBaPWI4U1SAAAIjQlNVT94OMB0TGNNaH50CE5YEZpz6erCy3jjTiGUGELkBITGk3D2RIubzgLYo0CLHpeLoN8uurM_F5lUwJvX3JwonWhxlcn0FKZFYxcOXZkcljZxL-8bpa1mrixr4O4FKtUPXDBXRIQeLgvqrIZcPlMCj1GWPlKaxGFTRM818Rzl7GWS9qoeBcIL5V7VC1xcWmxRu9gGplmPFrXrZwcOk4Yk-3i6WilpGZdmUTRjqdVoXelyye2M74mF2fBi63g6OQJJ9kAXAcr6yth09ELqQP0JF7yBU8G5NGjhuJkBgUFzaYHQnUubUHr_nlB60kax0D7XxOX9h4_n9z2X_5CPj9wfuYNXuJieS_P3jC_RguvQV9m7QqBiQlzTcmoMR7UQKC7lhstW4KX0tTZSo136aHE-8XuEAOJLSw4CP0F_wsONMYLfrsbI8wSfo_AIXFXNv0fi2buJgjs5x81Lrvi6OSouhTQFPA6u_R8-fX68_-PT45dff_tlt_-dJHtKkrsXH9egUQPKGaSb3X8HIaEHFjoupuzv3z_7ecug2mV6_ZeYHj7-LzFNQzT4NgcU1Jy1Qc0NKwW66RWlaf6WYa7qbVIXScFWuI03cZblaZblq27LNptmXTYJw6ZkFWuSPKnWNErKaF1sYlau-JZGNI2yOIm8XlixKsuyfLMu64ThJiVphD3jIhTiex8q3a64MSNui7ig65VgJQrjVzVKp2zdFKLvCKW-Wtxbtl_prVMPyrE1JI0EN9acDFpuhV_3_FeJZHuS3T0MKD99JtkePiyby_Ves-xSz9_FW5vS-ZrkFg0GLxe3ZWkzwOB8ZfuxGrXYdtYOfsOhB0IPLbfdWIaV6gk9uAzmn2DQ6itWltCDx8cQevAQ_R0AAP__5Pcptg">