1! RUN: %python %S/test_errors.py %s %flang_fc1 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