Re: F2018 REDUCE intrinsic

2025-03-05 Thread Paul Richard Thomas
Hi Andre, Thanks for all these comments, aka early review: > > + if (formal->sym->attr.allocatable || formal->sym->attr.allocatable > + || formal->sym->attr.pointer || formal->sym->attr.pointer > + || formal->sym->attr.optional || formal->sym->attr.optional > + || formal->sym->ts

Re: F2018 REDUCE intrinsic

2025-03-03 Thread Andre Vehreschild
Hi Paul, what do want us to do with it? Let me give an early review: In gfc_resolve_reduce, I think you duplicate the test for the function having optional formal arguments. Ones in this block: + if (formal->sym->attr.allocatable || formal->sym->attr.allocatable + || formal->sym->attr.po