| ! { dg-do compile } | |
| ! | |
| ! PR fortran/34425 | |
| ! | |
| ! Contributed by Joost VandeVondele | |
| ! | |
| IMPLICIT NONE | |
| INTEGER :: i(-1:1) | |
| INTEGER :: j(-2:-1) | |
| CALL S(i) | |
| CALL S(j) ! { dg-warning "Actual argument contains too few elements for dummy argument 'i' .2/3." } | |
| CONTAINS | |
| SUBROUTINE S(i) | |
| INTEGER :: i(0:2) | |
| END SUBROUTINE | |
| END |