! { dg-do compile }
! { dg-options "-std=legacy -Wno-argument-mismatch" }
!
! No warnings should be output here with -Wno-argument-mismatch.
!

subroutine s1(x)
  implicit none
  integer, intent(in) :: x
  print *, x
end subroutine

subroutine s2(x)
  implicit none
  integer, intent(in) :: x(1)
  print *, x
end subroutine

subroutine s3(x)
  implicit none
  integer, intent(in) :: x(2)
  print *, x
end subroutine

implicit none
integer :: x, y(1)
real :: r

call s1(r)
call s1(y)
call s2(x)
call s3(y)

end