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