! { 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 |