gcc/testsuite/gfortran.dg/warn_argument_mismatch_1.f90

   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
   7 subroutine s1(x)
   8   implicit none
   9   integer, intent(in) :: x
  10   print *, x
  11 end subroutine
  12
  13 subroutine s2(x)
  14   implicit none
  15   integer, intent(in) :: x(1)
  16   print *, x
  17 end subroutine
  18
  19 subroutine s3(x)
  20   implicit none
  21   integer, intent(in) :: x(2)
  22   print *, x
  23 end subroutine
  24
  25 implicit none
  26 integer :: x, y(1)
  27 real :: r
  28
  29 call s1(r)
  30 call s1(y)
  31 call s2(x)
  32 call s3(y)
  33
  34 end