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

    <tr>
        <th>Summary</th>
        <td>
            [flang][OpenMP] Compilation error of DO directive in OpenMP program with variables of integer*1
        </td>
    </tr>

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

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

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

<pre>
    ```
Version of flang-new : 17.0.0(3e0866bf616bf7b293cec93d06d030dd11d7911f)
```

`DO` directive in OpenMP program with variables of `integer*1` is compile-time error.
`integer*2` has the same result. However, `integer*4` and `integer*8` have no problem with compilationn.

The following are the test program, flang-new, gfortran and ifort compilation result.

omp_PARALLEL_DO_i1_008_2.f90:
```fortran
program main
  integer*1 i,ia
  integer*1 :: ioff=70
  integer*1 :: loop=50
  ia = 0
!$omp parallel
!$omp do schedule(static)
  do i=1+ioff, loop+ioff
     if (i.eq.loop+ioff) ia = i
  end do
!$omp end do
!$omp end parallel
  if (ia.eq.loop+ioff) then
 write(6,*)'OK'
  else
     write(6,*)'NG'
  endif
  stop
end program main
```

```
$ flang-new -flang-experimental-exec -fopenmp omp_PARALLEL_DO_i1_008_2.f90
error: loc("/home/users/ea01/ea0178/CT/fort/tp/reproducer_OpenMP/fomp_add00/omp_PARALLEL_DO_i1_008_2.f90":8:3): 'arith.cmpi' op requires all operands op have the same type
error: verification of lowering to FIR failed
$
```

```
$ gfortran -fopenmp omp_PARALLEL_DO_i1_008_2.f90
$
```

```
$ ifort -qopenmp omp_PARALLEL_DO_i1_008_2.f90
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJykVd1u4zYTfRr6ZmCBGtr6ufCFY336WjRtFotFbw1KGllcUKJC0vbu2xeUbMdJswGCAgYsDodzzvzwUDqnDgPRhq0f2LpYyKPvjN2YbjDL9vuiMs3PDUv45ccLxrd_k3XKDGBaaLUcDsuBzsDEFuI04hFnmAniWZJUbRInVZtWmIua6lw0PGm44E0Tx02ax3HLMJ9DvkG4GYsnlnBolKXaqxOBGuBppOHPLzBac7Cyh7PyHZykVbLS5AInlnA1eDqQZbiNw3nloDb9qDQtveoJyFpjoxvIizcG70468B2Bkz2BJXfUPoLfzJlOwWf3Ov4qnJBD89qazXFOBIMJTCtNF6YzD-mVGYboPtlvHUFrtDZnNRxAWpo4eHL-mmrAvtU7LA6tsd7KYcJXYXEf_kr9HsT04_7L9uv28fF_j_viaa_iPefZHqM250xs3_TiEn62XuvdS3WxANyVGRTDnZLv7YTAYgvKtC0TRco_8NHGjEwU6xcfCUwUcB0LjBmuTD_CKK3UmvRbe2PA1R01R00MM-elV_VtyCBsKyaKmOHDRAd3M-RlefECANUCw0xF9BzdO2B-ZaSuzjQ00Ji3PH5tfc38hiTfgfIdXUt9tsqHjBKGO4bbkBKmT38wTG88tKO7BN498Nf_7w8Mjbql7LwZ5--J4796_av7-cqIqzs9WM6f9GMkq3oavNRL-kE1LFsz0tCP8OEwzlzCPZ3nomaYMUSGZWd6YlgeHVnHsCTJ48tfmjEsd98YlmFyGZZ-ZFhaGq1pjjXZ_Swd034_7mXTcM6w_JAHIhPbjImtCCUUW2CYSqt8F9X9qBimYEaw9HxUlhxIrcGMZOXQuLAxScBNS_zPkd4kdiKrWlXPF9a0oM2ZbBAAb6D8_Su0UmlqbvX9XDNu-vCJkn8aZNad5fN_Rlg0G9HkIpcL2sRJmmSp4Ot80W1E3GYiWdFaNpxzFGmW4qqqhKyp4jGvFmqDHAVH5DzhqziPkiSvV9W6ygRinqyJrTj1UulI61MfGXtYKOeOtEl4lvKFlhVpd33_7CY4LavjwbEV18p593LMK6-nl3IabrYu2PrhMlTrAnZ34jt1OHS0ePrk83Uni4uj1ZvO-9EFfcSSYXlQvjtWUW16hmXgdflbjtZ8pzpM_ZRbuBpTev8EAAD__zi6T30">