diff options
| author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-03-24 14:17:34 +0000 |
|---|---|---|
| committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-03-24 14:17:34 +0000 |
| commit | 99ad623febd84d2a9cf4c2d0ad950c48c650a624 (patch) | |
| tree | 5d90c02adec7cdecf23098f0c6826986bf7eb6bb | |
| parent | 7f7ca309c408b8d552921ae1e0bfc0a7a45d236d (diff) | |
| download | gcc-99ad623febd84d2a9cf4c2d0ad950c48c650a624.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123184 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/fortran/ChangeLog | 2 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pointer_function_actual_1.f90 | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ee5faa74215..99c67fc6764 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -7,7 +7,7 @@ can be used in a procedure interface, so simplify LEN in situ using its character length. - PR fortran/31219 + PR fortran/31209 PR fortran/31200 * trans-expr.c (gfc_conv_function_call): Do not use gfc_conv_expr_reference for actual pointer function with formal diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4b1505e74fb..b5049ac1823 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,6 +1,6 @@ 2007-03-24 Paul Thomas <pault@gcc.gnu.org> - PR fortran/31219 + PR fortran/31209 * gfortran.dg/pointer_function_actual_1.f90: New test. PR fortran/31200 diff --git a/gcc/testsuite/gfortran.dg/pointer_function_actual_1.f90 b/gcc/testsuite/gfortran.dg/pointer_function_actual_1.f90 index 91c340c3dc8..b3cb2727007 100644 --- a/gcc/testsuite/gfortran.dg/pointer_function_actual_1.f90 +++ b/gcc/testsuite/gfortran.dg/pointer_function_actual_1.f90 @@ -1,5 +1,5 @@ ! { 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 ! if it were the result that is being passed. ! |