gcc/testsuite/gfortran.fortran-torture/execute/pr54767.f90

   1 SUBROUTINE XXX (IL, IU)
   2   implicit none
   3   integer, INTENT(IN) :: IL, IU
   4
   5   integer :: NXX (14) = (/ 0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14 /)
   6   integer :: ivvv, ia, ja, iaii
   7   logical :: qop
   8
   9   QOP=.FALSE.
  10
  11   DO IA=IL,IU
  12     JA=NXX(IA)
  13     IF (.NOT. QOP .and. JA.GT.0) THEN
  14       IAII=IA
  15       QOP=.TRUE.
  16     ENDIF
  17
  18     IF (QOP) THEN
  19       ivvv=IA-IAII+1       ! mis-compiled
  20     ENDIF
  21   ENDDO
  22
  23   IF (ivvv.NE.2) THEN
  24     STOP 1
  25   ENDIF
  26 END subroutine
  27
  28 program p
  29   implicit none
  30   CALL XXX (1, 3)
  31 end