1!RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s 2!Ensure that argument conversion does not take place when the procedure 3!interface is implicit at the point of call, even when the interface 4!is known due because the procedure's definition is in the same source file. 5 6subroutine test 7!CHECK: warning: If the procedure's interface were explicit, this reference would be in error 8!CHECK: because: Actual argument type 'INTEGER(8)' is not compatible with dummy argument type 'INTEGER(4)' 9!CHECK: CALL samesourcefile((1_8)) 10 call sameSourceFile((1_8)) 11!CHECK: CALL somewhereelse((2_8)) 12 call somewhereElse((2_8)) 13end 14 15subroutine sameSourceFile(n) 16end 17