[Bug fortran/105836] New: [OpenMP] segfault when assigning after firstprivate + allocate

[burnus at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=105836

            Bug ID: 105836
           Summary: [OpenMP] segfault when assigning after firstprivate +
                    allocate
           Product: gcc
           Version: 13.0
            Status: UNCONFIRMED
          Keywords: openmp, wrong-code
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: burnus at gcc dot gnu.org
                CC: jakub at gcc dot gnu.org
  Target Milestone: ---

Created attachment 53077
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=53077&action=edit
Testcase (test.f90) - compile (-fopenmp) + run

Testcase – see attachment or (reduced from)
  testsuite/libgomp.fortran/allocate-1.f90 with a 'x = ...' added
at the end of 'subroutine foo'.

  !$omp parallel
    !$omp task firstprivate(x) allocate(h: x)
       ...
    !$omp end task
  !$omp end parallel
 x = 5  ! segfault at runtime

The C code works, i.e. libgomp.c-c++-common/allocate-1.c