1! { dg-do compile }
2! { dg-options "-std=legacy -Wno-argument-mismatch" }
3!
4! No warnings should be output here with -Wno-argument-mismatch.
5!
6
7subroutine s1(x)
8  implicit none
9  integer, intent(in) :: x
10  print *, x
11end subroutine
12
13subroutine s2(x)
14  implicit none
15  integer, intent(in) :: x(1)
16  print *, x
17end subroutine
18
19subroutine s3(x)
20  implicit none
21  integer, intent(in) :: x(2)
22  print *, x
23end subroutine
24
25implicit none
26integer :: x, y(1)
27real :: r
28
29call s1(r)
30call s1(y)
31call s2(x)
32call s3(y)
33
34end
35