[Bug fortran/42517] New: Bogus runtime error with -fopemp -fcheck=recursion

["janus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

Consider this simple test case:

use omp_lib
implicit none
integer :: i

!$omp parallel do
do i=1,10
  call sub(i)
end do
!$omp end parallel do

contains

  subroutine sub (n)
    integer :: n
    print '(A,i3,A,i3)',"loop =",n," | thread =",omp_get_thread_num()
    call sleep(1)
  end subroutine

end


Compiling this with -fopenmp gives the expected results. But when adding
-fcheck=recursion, one gets a runtime error:

Fortran runtime error: Recursive call to nonrecursive procedure 'sub'

-fcheck=recursion is new in 4.5, therefore I'm not sure if one can call this a
regression. In any case this bug makes -fcheck=all unusable for OpenMP code.


-- 
           Summary: Bogus runtime error with -fopemp -fcheck=recursion
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Keywords: wrong-code, openmp
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: janus at gcc dot gnu dot org


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