[LoopReroll] Add an extra defensive check to avoid SCEV assertion.

[llvm-project.git] / flang / test / Semantics / label16.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1
! REQUIRES: shell

subroutine x(n)
   call x1(n)
   if (n == 0) goto 88
   print*, 'x'
contains
   subroutine x1(n)
      if (n == 0) goto 77 ! ok
      print*, 'x1'
      !ERROR: Label '88' was not found
      goto 88
77 end subroutine x1
88 end