[flang-commits] [flang] [flang][OpenMP] Add semantic check for target construct (PR #73697)

[Kiran Chandramohan via flang-commits]

kiranchandramohan wrote:

This would not work if it is inside a different function right?

```
program main
  use omp_lib
  integer :: x, y
contains
  subroutine foo()
  !$omp target
  call tmp()
  !$omp end target
  end subroutine
  subroutine tmp()
    x = omp_get_default_device()
    y = omp_get_num_devices()
    call omp_set_default_device(x)
  end subroutine
end program
```

https://github.com/llvm/llvm-project/pull/73697