llvm/flang/test/Semantics/implicit09.f90

! RUN: %python %S/test_errors.py %s %flang_fc1 -fimplicit-none-type-never
subroutine s1
  implicit none
  i = j + k  ! would be error without -fimplicit-none-type-never
end

subroutine s2(a, n)
  implicit none
  real :: a(n)  ! would be error without -fimplicit-none-type-never
  integer :: n
end