24 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -Werror2subroutine s13 call ext(1, 2)4 call myerror('abc')5end6 7subroutine s28 !WARNING: Reference to the procedure 'ext' has an implicit interface that is distinct from another reference: distinct numbers of dummy arguments [-Wincompatible-implicit-interfaces]9 call ext(1.)10 call myerror('abcd') ! don't warn about distinct lengths11end12 13subroutine s314 interface15 !WARNING: The global subprogram 'ext' is not compatible with its local procedure declaration (incompatible procedure attributes: ImplicitInterface) [-Wexternal-interface-mismatch]16 subroutine ext(n)17 integer n18 end19 end interface20 call ext(3)21 !ERROR: Actual argument type 'REAL(4)' is not compatible with dummy argument type 'INTEGER(4)'22 call ext(4.)23end24