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