1! RUN: %S/test_errors.sh %s %t %f18 -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