| ! { dg-do compile } | |
| ! { dg-options "-fallow-argument-mismatch" } | |
| ! PR 91556 - check that only a single warning iw emitted for type | |
| ! mismatch (and that the check is also done in contained procedures). | |
| program main | |
| real :: a | |
| call foo(a) ! { dg-warning "Type mismatch" } | |
| contains | |
| subroutine bar | |
| integer :: b | |
| complex :: c | |
| call foo(b) ! { dg-warning "Type mismatch" } | |
| call foo(c) | |
| end subroutine bar | |
| end program main |