! { dg-do compile } | |
double precision :: arr(5, 8) | |
call bar (arr) | |
contains | |
subroutine foo (arr) | |
double precision :: arr(:,:) | |
arr(3, 4) = 24 | |
end subroutine foo | |
subroutine bar (arr) | |
double precision :: arr(5,*) | |
call foo (arr) ! { dg-error "cannot be an assumed-size array" } | |
call foo (arr (:, :8)) | |
end subroutine | |
end |