[Bug tree-optimization/113808] New: [14 Regression] FAIL: libgomp.fortran/non-rectangular-loop-1.f90

["rguenth at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=113808

            Bug ID: 113808
           Summary: [14 Regression] FAIL:
                    libgomp.fortran/non-rectangular-loop-1.f90
           Product: gcc
           Version: 14.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: tree-optimization
          Assignee: unassigned at gcc dot gnu.org
          Reporter: rguenth at gcc dot gnu.org
  Target Milestone: ---

The following reduced testcase from libgomp.fortran/non-rectangular-loop-1.f90
fails execution:

program main
  integer :: n,m,p, i,j,k,ll
  n = 11
  m = 23
  p = 27
  !$omp simd collapse(3) lastprivate(k)
  do i = 1, n,2
    do j = 1, m
      do k = 1, i + 41
        if (k > 11 + 41 .or. k < 1) error stop
      end do
    end do
  end do
  if (k /= 53) then
    print *, k, 53
    error stop
  endif
end

when built with -O -msse4.1 -fopenmp-simd

> ./a.out 
          50          53
ERROR STOP 

Error termination. Backtrace:
#0  0x4008ec in ???
#1  0x400909 in ???
#2  0x7f873306f24c in ???
#3  0x400679 in _start
        at ../sysdeps/x86_64/start.S:120
#4  0xffffffffffffffff in ???