gcc/testsuite/gfortran.dg/assumed_dummy_2.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

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