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

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

! RUN: %S/test_errors.sh %s %t %flang_fc1
! REQUIRES: shell
subroutine s1
  block
    !ERROR: IMPLICIT statement is not allowed in a BLOCK construct
    implicit logical(a)
  end block
end subroutine