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]

Re: [Patch, fortran] PR30407 - Elemental functions in WHERE assignments wrongly rejected


On Sat, Jan 27, 2007 at 05:03:32PM +0100, Paul Thomas wrote:

> 2007-01-23  Paul Thomas  <pault@gcc.gnu.org>
> 
> 	PR fortran/30407
> 	* trans-expr.c (gfc_conv_operator_assign): New function.
> 	* trans.h : Add prototype for gfc_conv_operator_assign.
> 	* trans-stmt.c (gfc_trans_where_assign): Add a gfc_symbol for
> 	a potential operator assignment subroutine.  If it is non-NULL
> 	call gfc_conv_operator_assign instead of the first assignment.
> 	( gfc_trans_where_2): In the case of an operator assignment,
> 	extract the argument expressions from the code for the
> 	subroutine call and pass the symbol to gfc_trans_where_assign.
> 	resolve.c (resolve_where, gfc_resolve_where_code_in_forall,
> 	gfc_resolve_forall_body): Resolve the subroutine call for
> 	operator assignments.
> 
> 2007-01-23  Paul Thomas  <pault@gcc.gnu.org>
> 
> 	PR fortran/30407
> 	* gfortran.dg/where_operator_assign_1.f90: New test.
> 	* gfortran.dg/where_operator_assign_2.f90: New test.

OK trunk and 4.2 after some fermentation in trunk.

-- 
Steve


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]