[Bug fortran/82568] New: ICE with do-loop inside BLOCK inside omp

[chinoune.mehdi at hotmail dot com]

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

            Bug ID: 82568
           Summary: ICE with do-loop inside BLOCK inside omp
           Product: gcc
           Version: 6.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: chinoune.mehdi at hotmail dot com
  Target Milestone: ---

gfortran gives an internal compiler error with this code :

PROGRAM OMP_BLOCK
  IMPLICIT NONE

  INTEGER :: I !,J

  !$OMP PARALLEL DO !PRIVATE(J)
  ! Declaring j outside of OMP and put it in private solves the problem
  DO I=1,2
    BLOCK
      INTEGER :: J

      DO J=1,2
        PRINT*,I,J
      END DO

    END BLOCK
  END DO

END PROGRAM OMP_BLOCK

tested with gfortran 6/7/8 Linux-64 and gfortran-7 MinGW-64