blob: 168d77907ef4b868df82ee4c2b80efa7137610cd [file] [log] [blame]
! RUN: %S/test_errors.sh %s %t %flang_fc1
subroutine s1
implicit none
!ERROR: IMPLICIT statement after IMPLICIT NONE or IMPLICIT NONE(TYPE) statement
implicit integer(a-z)
end subroutine
subroutine s2
implicit none(type)
!ERROR: IMPLICIT statement after IMPLICIT NONE or IMPLICIT NONE(TYPE) statement
implicit integer(a-z)
end subroutine