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