gcc/testsuite/gfortran.dg/argument_checking_10.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/34425
   4 !
   5 ! Contributed by Joost VandeVondele
   6 !
   7 IMPLICIT NONE
   8 INTEGER :: i(-1:1)
   9 INTEGER :: j(-2:-1)
  10 CALL S(i)
  11 CALL S(j) ! { dg-warning "Actual argument contains too few elements for dummy argument 'i' .2/3." }
  12 CONTAINS
  13  SUBROUTINE S(i)
  14   INTEGER :: i(0:2)
  15  END SUBROUTINE
  16 END