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