26 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Regression test for bug #1191513interface sub4 subroutine sub1(ifun)5 interface6 integer function ifun()7 end8 end interface9 end10 subroutine sub2(rfun)11 real rfun12 external rfun13 end14end interface15integer ifun16real rfun17complex zfun18external ifun, rfun, zfun, xfun19call sub(ifun)20call sub(rfun)21!ERROR: No specific subroutine of generic 'sub' matches the actual arguments22call sub(zfun)23!ERROR: The actual arguments to the generic procedure 'sub' matched multiple specific procedures, perhaps due to use of NULL() without MOLD= or an actual procedure with an implicit interface24call sub(xfun)25end26