| ! { dg-do run } | |
| ! | |
| ! Testcase for pr57117 | |
| implicit none | |
| type :: ti | |
| integer :: i | |
| end type | |
| class(ti), allocatable :: x(:,:), z(:) | |
| integer :: i | |
| allocate(x(3,3)) | |
| x%i = reshape([( i, i = 1, 9 )], [3, 3]) | |
| allocate(z(9), source=reshape(x, (/ 9 /))) | |
| if (any( z%i /= [( i, i = 1, 9 )])) STOP 1 | |
| deallocate (x, z) | |
| end | |