1! { dg-do compile } 2! PR fortran/32669 3! 4! Contributed by Janus Weil <jaydub66@gmail.com> 5! 6program tfe 7implicit none 8 9real,dimension(-1:1) :: w 10real,dimension(1:4) :: x 11real,dimension(0:3) :: y 12real,dimension(-1:2) :: z 13 14call sub(x(:)) 15call sub(y(:)) 16call sub(z(:)) 17call sub(w(:)) ! { dg-warning "too few elements" } 18 19contains 20 subroutine sub(a) 21 implicit none 22 real,dimension(1:4) :: a 23 end subroutine sub 24end program tfe 25