0e1bb1d835
When the interface of a procedure is implicit at the point of call, don't perform actual argument type conversion to the types of the dummy arguments. This was inadvertently taking place in a case where the procedure has an implicit interface but was also defined in the same source file, so that its characteristics were known.
17 lines
658 B
Fortran
17 lines
658 B
Fortran
!RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
|
|
!Ensure that argument conversion does not take place when the procedure
|
|
!interface is implicit at the point of call, even when the interface
|
|
!is known due because the procedure's definition is in the same source file.
|
|
|
|
subroutine test
|
|
!CHECK: warning: If the procedure's interface were explicit, this reference would be in error
|
|
!CHECK: because: Actual argument type 'INTEGER(8)' is not compatible with dummy argument type 'INTEGER(4)'
|
|
!CHECK: CALL samesourcefile((1_8))
|
|
call sameSourceFile((1_8))
|
|
!CHECK: CALL somewhereelse((2_8))
|
|
call somewhereElse((2_8))
|
|
end
|
|
|
|
subroutine sameSourceFile(n)
|
|
end
|