14 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12subroutine s13 implicit integer(a-c)4 !ERROR: More than one implicit type specified for 'c'5 implicit real(c-g)6end7 8subroutine s29 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)13end14