! { dg-do run } | |
! { dg-options "-fbounds-check" } | |
program main | |
real, dimension(2,2) :: result | |
real, dimension(6) :: source | |
real, dimension(2) :: pad | |
call random_number (source) | |
call random_number (pad) | |
result = reshape(source, shape(result),pad=pad(1:0)) | |
result = reshape(source, shape(result)) | |
result = reshape(source, shape(result),pad=pad) | |
end program main |