1! RUN: %S/test_errors.sh %s %t %f18 2subroutine s1 3 implicit integer(a-z) 4 !ERROR: IMPLICIT NONE statement after IMPLICIT statement 5 implicit none 6end subroutine 7 8subroutine s2 9 implicit integer(a-z) 10 !ERROR: IMPLICIT NONE(TYPE) after IMPLICIT statement 11 implicit none(type) 12end subroutine 13