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