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