25 lines
434 B
Fortran
25 lines
434 B
Fortran
! { dg-do compile }
|
|
! PR fortran/32669
|
|
!
|
|
! Contributed by Janus Weil <jaydub66@gmail.com>
|
|
!
|
|
program tfe
|
|
implicit none
|
|
|
|
real,dimension(-1:1) :: w
|
|
real,dimension(1:4) :: x
|
|
real,dimension(0:3) :: y
|
|
real,dimension(-1:2) :: z
|
|
|
|
call sub(x(:))
|
|
call sub(y(:))
|
|
call sub(z(:))
|
|
call sub(w(:)) ! { dg-error "too few elements" }
|
|
|
|
contains
|
|
subroutine sub(a)
|
|
implicit none
|
|
real,dimension(1:4) :: a
|
|
end subroutine sub
|
|
end program tfe
|