22 lines · plain
1!RUN: %python %S/test_errors.py %s %flang_fc1 -Werror -pedantic2module m3 interface4 integer function foo1()5 end function6 integer function foo2(j)7 end function8 integer function foo3()9 end function10 end interface11end module12 13subroutine test()14 integer, external :: foo115!WARNING: The external interface 'foo2' is not compatible with an earlier definition (distinct numbers of dummy arguments) [-Wexternal-interface-mismatch]16 integer, external :: foo217 integer, external :: foo318 call bar(foo1())19 call bar(foo2())20 call baz(foo3)21end subroutine22