! { 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