blob: 928829c65137ee6ced20b0ad7f76be3f1ab8a66c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! RUN: %python %S/test_errors.py %s %flang_fc1
subroutine s1
implicit integer(a-z)
!ERROR: IMPLICIT NONE statement after IMPLICIT statement
implicit none
end subroutine
subroutine s2
implicit integer(a-z)
!ERROR: IMPLICIT NONE(TYPE) after IMPLICIT statement
implicit none(type)
end subroutine
|
