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