* PRs 100650 and 49324: intrinsic assignment of reshaped derived type array constructor
@ 2023-06-21 4:30 Damian Rouson
0 siblings, 0 replies; only message in thread
From: Damian Rouson @ 2023-06-21 4:30 UTC (permalink / raw)
To: fortran
[-- Attachment #1: Type: text/plain, Size: 693 bytes --]
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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2023-06-21 4:31 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-06-21 4:30 PRs 100650 and 49324: intrinsic assignment of reshaped derived type array constructor Damian Rouson
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).