1! RUN: %S/test_errors.sh %s %t %flang_fc1 2! REQUIRES: shell 3subroutine s1 4 implicit none 5 !ERROR: IMPLICIT statement after IMPLICIT NONE or IMPLICIT NONE(TYPE) statement 6 implicit integer(a-z) 7end subroutine 8 9subroutine s2 10 implicit none(type) 11 !ERROR: IMPLICIT statement after IMPLICIT NONE or IMPLICIT NONE(TYPE) statement 12 implicit integer(a-z) 13end subroutine 14