1! RUN: %B/test/Semantics/test_errors.sh %s %flang %t
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