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