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