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