1! RUN: %S/test_errors.sh %s %t %flang_fc1 -fimplicit-none-type-never
2! REQUIRES: shell
3subroutine s1
4  implicit none
5  i = j + k  ! would be error without -fimplicit-none-type-never
6end
7
8subroutine s2(a, n)
9  implicit none
10  real :: a(n)  ! would be error without -fimplicit-none-type-never
11  integer :: n
12end
13