On Tue, Nov 15, 2022 at 05:13:19PM -0800, Steve Kargl via Fortran wrote:
>
> This patch allows the above to compile and execute.
> It has only had some light testing, and I do not know
> if nested forall and implied-do loops do work. Feel
> free to commit as I cannot.
For nested implied-do loops, the patch appears to do
the right thing on
program foo
implicit none
integer, parameter :: m = 4, n = 3
integer k, x(m*n)
print '(*(I0,1X))', [(i, (i*j, integer :: j=1, n), integer :: i=1, m)]
x = [((i*j, integer :: j=1, n), integer :: i=1, m)]
print '(*(I0,1X))', x
end program foo
--
Steve
