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