16 lines
349 B
Fortran
16 lines
349 B
Fortran
! { 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
|