gcc/testsuite/gfortran.dg/argument_checking_22.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

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