17 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2!Ensure that argument conversion does not take place when the procedure3!interface is implicit at the point of call, even when the interface4!is known due because the procedure's definition is in the same source file.5 6subroutine test7!CHECK: warning: If the procedure's interface were explicit, this reference would be in error8!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))13end14 15subroutine sameSourceFile(n)16end17