gcc/testsuite/gfortran.dg/assumed_dummy_2.f90

   1 ! { dg-do compile }
   2
   3   double precision :: arr(5, 8)
   4   call bar (arr)
   5 contains
   6   subroutine foo (arr)
   7     double precision :: arr(:,:)
   8     arr(3, 4) = 24
   9   end subroutine foo
  10   subroutine bar (arr)
  11     double precision :: arr(5,*)
  12     call foo (arr)   ! { dg-error "cannot be an assumed-size array" }
  13     call foo (arr (:, :8))
  14   end subroutine
  15 end