1! { dg-do compile }
2program 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
12end program gprogram
13
14