1! RUN: %S/test_errors.sh %s %t %f18
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