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