fix pr/45972
[official-gcc.git] / gcc / testsuite / gfortran.dg / reshape_4.f90
blob92208e57da59ee4152d9cba6281b7901701ecfca
1 ! { dg-do run }
2 ! { dg-options "-fbounds-check" }
3 program main
4 real, dimension(2,2) :: result
5 real, dimension(6) :: source
6 real, dimension(2) :: pad
8 call random_number (source)
9 call random_number (pad)
11 result = reshape(source, shape(result),pad=pad(1:0))
12 result = reshape(source, shape(result))
13 result = reshape(source, shape(result),pad=pad)
15 end program main