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