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

    <tr>
        <th>Summary</th>
        <td>
            [flang] [OpenMP] flang-new crashes (omp taskgroup)
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            new issue
      </td>
    </tr>

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

    <tr>
      <th>Reporter</th>
      <td>
          k-arrows
      </td>
    </tr>
</table>

<pre>
    Test code:
```console
$ cat test.f90
program taskgroup_example
  use omp_lib
  implicit none
 integer :: i

  !$omp parallel
  !$omp single
  !$omp taskgroup
  do i=1,5
    !$omp task
    call do_work(i)
    !$omp end task
  end do
  !$omp end taskgroup
  !$omp end single
 !$omp end parallel

contains

  subroutine do_work(i)
 integer, intent(in) :: i
    print*, "Task ", i, " started"
    ! Do some work here
    print*, "Task ", i, " finished"
  end subroutine do_work

end program taskgroup_example
```

Stack dump:
```console
 #0 0x000055a3abe9dbac llvm::sys::PrintStackTrace(llvm::raw_ostream&, int)
 #1 0x000055a3abe9e1ee SignalHandler(int) Signals.cpp:0:0
 #2 0x00007f16043ef520 (/lib/x86_64-linux-gnu/libc.so.6+0x42520)
 #3 0x000055a3ac27dc2b Fortran::frontend::CodeGenAction::executeAction()
 #4 0x000055a3abebd344 Fortran::frontend::FrontendAction::execute()
 #5 0x000055a3abeb57b1 Fortran::frontend::CompilerInstance::executeAction(Fortran::frontend::FrontendAction&)
 #6 0x000055a3abebf9c0 Fortran::frontend::executeCompilerInvocation(Fortran::frontend::CompilerInstance*)
 #7 0x000055a3abb9a7b2 fc1_main(llvm::ArrayRef<char const*>, char const*)
 #8 0x000055a3abb98980 main
 #9 0x00007f16043d6d90 __libc_start_call_main ./csu/../sysdeps/nptl/libc_start_call_main.h:58:16
#10 0x00007f16043d6e40 call_init ./csu/../csu/libc-start.c:128:20
#11 0x00007f16043d6e40 __libc_start_main ./csu/../csu/libc-start.c:379:5
#12 0x000055a3abb97f05 _start
flang-new: error: unable to execute command: Segmentation fault
flang-new: error: flang frontend command failed due to signal (use -v to see invocation)
flang-new version 17.0.0 (https://github.com/llvm/llvm-project.git 7fff3bfe783953eee18446d30de2f17fe1b68bab)
Target: x86_64-unknown-linux-gnu
Thread model: posix
```

Program arguments:
```console
flang-new -fc1 -triple x86_64-unknown-linux-gnu -emit-obj -fopenmp -fcolor-diagnostics -mrelocation-model pic -pic-level 2 -pic-is-pie -target-cpu x86-64 -o test.o -x f95-cpp-input test.f90
```

cf.
```console
$ gfortran -fopenmp test.f90
$ ./a.out
 Task            1  started
 Task            1  finished
 Task            5  started
 Task            5  finished
 Task 2  started
 Task            2  finished
 Task            4 started
 Task            4  finished
 Task            3  started
 Task            3  finished
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyUV01z4ygT_jX4QkmF0PfBB0_y-t09bO3UTu4uhFoyEwQqQInz77dA8mc88U4qiaWm--mnm-4GM2tFrwDWKP-G8ucVm9xem_VrxIzR73bV6PZj_QLWYa5bQOkGkWdENqgg8y_XymoJi5RmmDOHHVgXdzWZpaPRvWEDdsy-9kZP4w4ObBiPRhhPFrAexp0UzVEkhlEKLhxWWh31hHLQg8GeRLrBYvG5WCCaIJrpYcQjM0xKkJ9XrFD92e1ZfmJ2XGo1Fih9ThB9yo-yW4OznDMpcat379q8IloJROt7RqDaK0P_3urPbI56V4yul68CuV66jn7-z7VyTCh7nTE7NUZPTii4T37JN6JP4VE5v6wQrW92wEc5GuHXN14ZUfrC7Kv_DLaLDFvHjIPWiy-zg581tnoA7BngPRj4PdhOKGH3V7ghRZ-ju4g-ZOrrujyV-KXdD8f4K26nYXzQChjRlGByIISQPGcpa6BuG8axlG_DnD_7YeeH7z7KgPxiGAdEq7OSYe87bZ0BNiBaLHtx3iNE0-TGCyQA-IfoFZN_MNVKv4PVbLSIbcxHz5-EvxMQXYDKLilIlkKXU4IRrRDd-s6k20NV7IoskkJNh6hX07zAY6vjAtFv5JDRnJIrcuklOU7LltMGb7Vxhqk5wM5oX1zt_PakW_g_qA13Qi8KcAA-OVhEns4FfnYdfNOmWfYV_nZ5u-PgFjq_gc7LJvma-jAKCeZPZR1THO6z_-_c_G5f0Clu6HQ1J1_RWRyfWb1pzh6T-BSFb74LGuUVjaZmZUNxx5PdwPxsuKjcjTHs4x_oUPrE98xg3x6hl9P_-TK-ll26qG5cVHVFcIA_qdTXpdoWbU3wzh8gfBfGzM7P5MAJx4huufXFGvtH-2FbGC2iWzU6uZTwrVG8R-kmr1C6SYrj0ZYm5NYrZCQM_51Qwt06mh89ehTQY-7hqAel5Aya3AO9CuVeFHfB07L2tM_Y9CaTZUdyPKPOSp1kqo8UvPtxDsZo4x8mxRoJ2Gm8FBHmehhYKBH8A_oBlAulhDs2yS-hghQfS-yIgzsmJLS4nYIXG6aSHzX-JhC9BRkAFhc1W994wW9grKeQlDGJw5zaOzeGiUq3iG574fZTE3M9-ET5qpw_otHon8Bd3AuHy67r0qaDskrrPAWApMqyok1JC7RLyg6Spqga1pz8vzDTg_ORLcNwUq9Kv6uLoTjr7Q2wFg-6Bem1R23F4Ytz5ftyFjHTTz699sHxcs5D1PEER86IUcIvSeEIBuEi3fzEUadHUMPoDbXUJmoF65W2TnCLo8GAXHIeBfJ4FBxHo-CRhDeQmM4vwkajABy5kI-Ij5P3HRUZjvR8_dM4OuCuziM-jpFQ43R7LbybB97Fjy6YfTdPr3MkN7g0C93CYj0ttYnDxeHiJ8Gn28gvFU73ivsa-SOI_D4EfWRHH7rOHiBkDxHSRyTSW4jTfqzaddrWac1WsE6KitRZVpJitV83admWZZFTmtKmSruWtU0GZZEXeZmzrluJNSU0JRmpSE1yUsR1lkHF6rpM89Rfj1BGYGBCxr5PY236lbB2gnVBSZKuJGtA2vA9hVJf-WHR3_ry55VZh95upt6ijEhhnT2jOOFk-IITugblzxjl3_4eQf313b-ce4kbZvdg_TC5_lpA69Vk5Pr3Jgyi20DRnzUhhH8DAAD__8Cm9Sw">