[Bug fortran/42162] New: Internal compiler error while compiling simple fortran code.

["pattakosn at yahoo dot com" <gcc-bugzilla at gcc dot gnu dot org>]

I get this error while trying to compile a simple code which (I think) is valid
omp. I tried gfortran 4.3.3 (ubuntu 9.04 amd64 server) 4.4.1 (ubuntu 9.10
amd64) and 4.5.0 20091105 . This is the code that triggered it:

PROGRAM ordered
IMPLICIT NONE
INTEGER :: i
!$omp parallel do
   do i=1,2
      write(*,*) 'calling',i
      call work(i)
   enddo
!$omp end parallel do

STOP
END PROGRAM ordered

subroutine work(k)
IMPLICIT NONE
INTEGER :: k, OMP_GET_THREAD_NUM
!$omp do
   do k=1,3
      write(*,*) OMP_GET_THREAD_NUM(), k
   enddo
!$omp end do
return
END subroutine work


-- 
           Summary: Internal compiler error while compiling simple fortran
                    code.
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: pattakosn at yahoo dot com
  GCC host triplet: x86_64-pc-linux-bnu


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