1*6c1ac141SIvan Zhechev! RUN: %python %S/test_errors.py %s %flang_fc1 -fimplicit-none-type-never 208c7d570STim Keithsubroutine s1 308c7d570STim Keith implicit none 408c7d570STim Keith i = j + k ! would be error without -fimplicit-none-type-never 508c7d570STim Keithend 608c7d570STim Keith 708c7d570STim Keithsubroutine s2(a, n) 808c7d570STim Keith implicit none 908c7d570STim Keith real :: a(n) ! would be error without -fimplicit-none-type-never 1008c7d570STim Keith integer :: n 1108c7d570STim Keithend 12