| ! { dg-do run } |
| ! { dg-additional-options "-Wexternal-argument-mismatch" } |
| ! PR 119074 - the code is legal, but it makes sense to warn anyway. |
| |
| program main |
| external ex1,ex2 |
| call foo(ex1,1) |
| call foo(ex2,2) |
| end program main |
| |
| subroutine ex1(n) |
| integer :: n |
| if (n /= 1) error stop |
| end subroutine ex1 |
| |
| subroutine ex2(n,m) |
| integer :: n,m |
| if (n /= 2) error stop |
| if (m /= 3) error stop |
| end subroutine ex2 |
| |
| subroutine foo(a,n) |
| external a |
| if (n == 1) call a(1) ! { dg-warning "Different argument lists" } |
| if (n == 2) call a(2,3) ! { dg-warning "Different argument lists" } |
| end subroutine foo |
