! { 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

Reply via email to