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