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