22 lines · plain
1! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s2module m3 interface generic4 procedure :: sub1, sub25 end interface6 contains7 subroutine sub1(x)8 end9 subroutine sub2(j)10 end11end12 13program test14 use m15!CHECK: error: No specific subroutine of generic 'generic' matches the actual arguments16!CHECK: Specific procedure 'sub1' does not match the actual arguments17!CHECK: Actual argument type 'REAL(8)' is not compatible with dummy argument type 'REAL(4)'18!CHECK: Specific procedure 'sub2' does not match the actual arguments19!CHECK: Actual argument type 'REAL(8)' is not compatible with dummy argument type 'INTEGER(4)'20 call generic(1.d0)21end22