git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/31215 (ICE on valid code with gfortran) 

2007-03-24  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/31215
	* trans-expr.c (gfc_apply_interface_mapping_to_expr): Return
	int result that is non-zero if the expression is the function
	result.  Only the characteristics of the result expression
	can be used in a procedure interface, so simplify LEN in situ
	using its character length.

	PR fortran/31219
	PR fortran/31200
	* trans-expr.c (gfc_conv_function_call): Do not use
	gfc_conv_expr_reference for actual pointer function with formal
	target because a temporary is created that does not transfer
	the reference correctly.  Do not indirect formal pointer
	functions since it is the function reference that is needed.

2007-03-24  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/31219
	* gfortran.dg/pointer_function_actual_1.f90: New test.

	PR fortran/31200
	* gfortran.dg/pointer_function_actual_2.f90: New test.

	PR fortran/31215
	* gfortran.dg/result_in_spec_1.f90: New test.

From-SVN: r123184
This commit is contained in:
Paul Thomas 2007-03-24 14:17:34 +00:00
parent 6a661315c2
commit cca643862d
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/fortran/ChangeLog
View File

@ -7,7 +7,7 @@
can be used in a procedure interface, so simplify LEN in situ can be used in a procedure interface, so simplify LEN in situ
using its character length. using its character length.
PR fortran/31219 PR fortran/31209
PR fortran/31200 PR fortran/31200
* trans-expr.c (gfc_conv_function_call): Do not use * trans-expr.c (gfc_conv_function_call): Do not use
gfc_conv_expr_reference for actual pointer function with formal gfc_conv_expr_reference for actual pointer function with formal

2
gcc/testsuite/ChangeLog
View File

@ -1,6 +1,6 @@
2007-03-24 Paul Thomas <pault@gcc.gnu.org> 2007-03-24 Paul Thomas <pault@gcc.gnu.org>
PR fortran/31219 PR fortran/31209
* gfortran.dg/pointer_function_actual_1.f90: New test. * gfortran.dg/pointer_function_actual_1.f90: New test.
PR fortran/31200 PR fortran/31200

2
gcc/testsuite/gfortran.dg/pointer_function_actual_1.f90
View File

@ -1,5 +1,5 @@
! { dg-do run } ! { dg-do run }
! Tests the fix for PR31219, in which an ICE would result because ! Tests the fix for PR31209, in which an ICE would result because
! the reference to the pointer function f would be indirected, as ! the reference to the pointer function f would be indirected, as
! if it were the result that is being passed. ! if it were the result that is being passed.
! !