You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
307 B
14 lines
307 B
! RUN: %S/test_errors.sh %s %t %f18
|
|
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
|