! { dg-do compile } ! { dg-options "-O2 -fopenmp" } program nestomp integer :: j j = 8 call bar contains subroutine foo (i) integer :: i !$omp atomic j = j + 1 end subroutine subroutine bar integer :: i i = 6 !$omp parallel call foo(i) !$omp end parallel end subroutine end
Guess this is related to 25261, tree-nested.c really needs work for OpenMP. -- Summary: ICE in initialize_inlined_parameters Product: gcc Version: 4.2.0 Status: UNCONFIRMED Keywords: openmp Severity: normal Priority: P3 Component: middle-end AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: jakub at gcc dot gnu dot org BugsThisDependsOn: 25261 http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28790