14 lines
318 B
Fortran
14 lines
318 B
Fortran
|
! RUN: %python %S/test_errors.py %s %flang_fc1
|
||
|
|
subroutine s1
|
||
|
|
implicit integer(a-c)
|
||
|
|
!ERROR: More than one implicit type specified for 'c'
|
||
|
|
implicit real(c-g)
|
||
|
|
end
|
||
|
|
|
||
|
|
subroutine s2
|
||
|
|
implicit integer(a-c)
|
||
|
|
implicit real(8)(d)
|
||
|
|
!ERROR: More than one implicit type specified for 'a'
|
||
|
|
implicit integer(f), real(a)
|
||
|
|
end
|