flang/test/Semantics/call35.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1 -Werror
   2 subroutine s1
   3   call ext(1, 2)
   4 end
   5
   6 subroutine s2
   7   !WARNING: Reference to the procedure 'ext' has an implicit interface that is distinct from another reference: distinct numbers of dummy arguments
   8   call ext(1.)
   9 end
  10
  11 subroutine s3
  12   interface
  13     !WARNING: The global subprogram 'ext' is not compatible with its local procedure declaration (incompatible procedure attributes: ImplicitInterface)
  14     subroutine ext(n)
  15       integer n
  16     end
  17   end interface
  18   call ext(3)
  19   !ERROR: Actual argument type 'REAL(4)' is not compatible with dummy argument type 'INTEGER(4)'
  20   call ext(4.)
  21 end