I just added a shorter reproducer (below) to PR 100650. Is this also
related to PR 49324?
Damian
% cat reshape-array-constructor.f90
implicit none
type foo_t
integer, allocatable :: bar(:)
end type
type(foo_t) foo(2,1)
integer :: i, j, n(2,2,1) = reshape([-1,-1,1,1], [2,2,1])
foo = reshape([([(foo_t(merge(0, 1, n(:,i,j) > 0)), i=1,2)], j=1,1)],
[2,1])
print *, merge(0, 1, n(:,1,1) > 0), foo(1,1)%bar
print *, merge(0, 1, n(:,2,1) > 0), foo(2,1)%bar
end
% gfortran reshape-array-constructor.f90
% ./a.out
1 1 786120848 65240
0 0 786120848 65240
% gfortran --version
GNU Fortran (Homebrew GCC 13.1.0) 13.1.0
