1! RUN: %B/test/Semantics/test_errors.sh %s %flang %t
2subroutine s1
3  implicit integer(a-c)
4  !ERROR: More than one implicit type specified for 'c'
5  implicit real(c-g)
6end
7
8subroutine s2
9  implicit integer(a-c)
10  implicit real(8)(d)
11  !ERROR: More than one implicit type specified for 'a'
12  implicit integer(f), real(a)
13end
14