1! { dg-do run }
2! { dg-options "-fbounds-check" }
3program main
4  real, dimension(2,2) :: result
5  real, dimension(6) :: source
6  real, dimension(2) :: pad
7
8  call random_number (source)
9  call random_number (pad)
10
11  result = reshape(source, shape(result),pad=pad(1:0))
12  result = reshape(source, shape(result))
13  result = reshape(source, shape(result),pad=pad)
14
15end program main
16