[Bug fortran/46753] New: ICE: OpenMP - in extract_omp_for_data, at omp-low.c:335

[longb at cray dot com]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46753

           Summary: ICE: OpenMP - in extract_omp_for_data, at
                    omp-low.c:335
           Product: gcc
           Version: 4.5.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: longb@cray.com


> cat test.f90
program F03_E_3a
   use omp_lib
   implicit none
   integer, parameter :: NT = 4 
   integer, parameter :: INT32_MAX = 2147483647 ! 2**31-1
   integer :: i, j, thread_num = -1

   call omp_set_dynamic(.false.)
   call omp_set_num_threads(NT)

   !$omp parallel do collapse(2) schedule(static, 1) lastprivate(thread_num)
   do i = 1, INT32_MAX - 1
      do j = 0, NT-1
         thread_num = omp_get_thread_num()
         if (j /= thread_num) then
            print *, 'FAIL - j == ', j, ' (expected ', thread_num, ')'
            stop 1
         end if
      end do
   end do
   !$omp end parallel do

end program F03_E_3a


> gfortran -fopenmp test.f90
test.f90: In function 'f03_e_3a':
test.f90:11:0: internal compiler error: in extract_omp_for_data, at
omp-low.c:335
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.