! Call Mismatch Test
! Contact: Arnaud Desitter
! 9 February 2005
module m1
contains
 subroutine s1(a,b)
   integer :: a(:), b(size(a))
 end subroutine s1
end module m1
program p1
 use m1
 integer :: a(11), b(10)
 ! Illegal call because size(b)<size(a)
 call s1(a,b)
 print *, "call mismatch not detected!"
end program p1