gcc/testsuite/gfortran.dg/actual_array_interface_2.f90

   1 ! { dg-do compile }
   2 program gprogram
   3    implicit none
   4    real, dimension(-2:0) :: my_arr
   5    call fill_array(my_arr)
   6    contains
   7       subroutine  fill_array(arr)
   8          implicit none
   9          real, dimension(-2:0), intent(out) :: arr
  10          arr = 42
  11       end subroutine fill_array
  12 end program gprogram
  13