This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
Other format: | [Raw text] |
Hello, I have looked at it.Here's an updated patch, I solved the used-as-function arg problem and cleaned it up. Remaining issues are storing the loop index in a gfc_expr and a new problem, translating this loop index to its proper value (there must be a helper for this somewhere),
otherwise we get two FAILs,Didn't look but it might be the change for choosing loopspec[n] in gfc_conv_loop_setup
FAIL: gfortran.fortran-torture/execute/intrinsic_sum.f90 execution, * FAIL: gfortran.dg/intrinsic_intkinds_1.f90 * execution test
reduced testcase for the first one:
program testforall implicit none integer, dimension (3, 3) :: a character(len=9) line
a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/));
write (line, 9000) sum (a, 1) if (line .ne. ' 6 15 24') call abort
9000 format(3I3) end program
where we index the sum () result with 0, 1, 2 instead of 1, 2, 3.
Bye Mikael
Attachment:
inlining.diff
Description: Text document
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |