1! RUN: %S/test_errors.sh %s %t %f18
2subroutine s1
3  implicit none
4  !ERROR: More than one IMPLICIT NONE statement
5  implicit none(type)
6end subroutine
7
8subroutine s2
9  implicit none(external)
10  !ERROR: More than one IMPLICIT NONE statement
11  implicit none
12end subroutine
13