1! RUN: %python %S/test_errors.py %s %flang_fc1
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