34 lines
651 B
Fortran
34 lines
651 B
Fortran
! { dg-do compile }
|
|
! PR fortran/32323
|
|
! Array sections with vector subscripts are not allowed
|
|
! with dummy arguments which have VOLATILE or INTENT OUT/INOUT
|
|
!
|
|
! Contributed by terry@chem.gu.se
|
|
!
|
|
module mod
|
|
implicit none
|
|
contains
|
|
subroutine aa(v)
|
|
integer,dimension(:),volatile::v
|
|
write(*,*)size(v)
|
|
v=0
|
|
end subroutine aa
|
|
subroutine bb(v)
|
|
integer,dimension(:),intent(out)::v
|
|
write(*,*)size(v)
|
|
v=0
|
|
end subroutine bb
|
|
end module mod
|
|
|
|
program ff
|
|
use mod
|
|
implicit none
|
|
integer,dimension(10)::w
|
|
w=1
|
|
call aa(w(2:4))
|
|
call aa(w((/3,2,1/))) ! { dg-error "vector subscript" }
|
|
call bb(w(2:4))
|
|
call bb(w((/3,2,1/))) ! { dg-error "vector subscript" }
|
|
write(*,*)w
|
|
end
|