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

    <tr>
        <th>Summary</th>
        <td>
            flang openmp default(none) error for label
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          jdenny-ornl
      </td>
    </tr>
</table>

<pre>
    Using LLVM main at f905877f2039, I see the following behavior:

```
$ cat tmp.F90
program hello
  !$omp parallel do default(none)
  label: do i=1,5
    print *, 'i=', i
  enddo label
end program hello

$ flang-new -fopenmp tmp.F90
error: Semantic errors in tmp.F90
./tmp.F90:3:3: error: The DEFAULT(NONE) clause requires that 'label' must be listed in a data-sharing attribute clause
    label: do i=1,5
    ^^^^^
./tmp.F90:5:9: error: The DEFAULT(NONE) clause requires that 'label' must be listed in a data-sharing attribute clause
    enddo label
          ^^^^^
```

My understanding is that labels are not relevant to `default(none)`.  Indeed gfortran (tested 12.2.0) compiles the above program successfully.

This use of labels appears many times in Fortran code in [UMT](https://github.com/LLNL/UMT) and prevents Flang from building it with OpenMP support.
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJzEVE1v4zgM_TXyhYhh0_HXwYdMUwMDpJ0Ftt27bNGxBrLkleQW-fcLOU473Ra7xwkcG6Ioku-RT9w5edZEDcu_sfwY8cWPxjY_BWl92RmrVdQZcWmendRnOJ3-eoCJSw3cw1AneVWWAyZZzfAOvoMjAj8SDEYp8xoOdDTyF2ksyw4sObLk9i6S7bkucQ899-CnOW7rzThbc7Z8gpGUMlcTAMOU4d5MM8zccqVIgTAgaOCL8gwrbTQxrG_uinekWHYITpJlx5ThXX7bBJit1B4YHkL5DMvgwrAMK3nzIi2E2QKtJtICvqjtHcmguD7vNL3CbjAz6Wn-CIysXQmBP2ni2sseVosDqT86xgzbmyE7ZNsf3s4_jQTH-_bwfHpiWD3-eLxnWEOv-OIILP29SEsO_MgDxvIKAUuYFuehI1DSeRIhKwfBPd-5kdvQNO69ld3iaYv1Ttj_8Mny-w_PFyhylh3q34ziU0vh7fclgn9P6_p-uMCiBVnnuRYhn9yKXOM64JZAGw-WFL1w7cEbYEXyeVSLJAb4rgWRgPNgrLdcA8PK0wosxRjjZKXETLNUKxcEvDMv9DaHbul7cm5YlLrEv1b5NEoHgUgzvBU2z8Stg4nrC3g50Tp47Za4N4LCmuXfnh-eWH5kWI3ezy4oGFuG7Vn6ceni3kwM29Pp8cSwDa5YA1-lQS-kvYM2yAAGayboFqmuHHl4lX6EHzPphz_ALfNsrI8j0WSizmoeUZOWSZWmyT7Po7Ephn2RZjyjvcj7LKlSLMqqHGos-jyjTkSywQT3CaZFWidllsSYY0aCV1gWJdWZYPuEJi5VrNTLFBt7jqRzCzUVJlhHV0rWuw9x1S3LDlfNMkSGd7-Y3aZWF3byY2SbEHLXLWfH9kkYQ_eexEuvqFmPwnYHfOr8VQIwGHttTbRY1fwH1yH49tnN1vyk3jNsVziOYbsi-icAAP__4izH-w">