diff options
| author | eedelman <eedelman@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-12 17:34:15 +0000 |
|---|---|---|
| committer | eedelman <eedelman@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-12 17:34:15 +0000 |
| commit | 34da51b6668b6c396631589bfc67913db8691da2 (patch) | |
| tree | 567b946985b670e7b860c5ac6728f1f803b19ebb /libjava/classpath/java/lang/ref/Reference.java | |
| parent | 634efbeebe693c3955dda2ff00ddb36d4ea5a83e (diff) | |
| download | ppe42-gcc-34da51b6668b6c396631589bfc67913db8691da2.tar.gz ppe42-gcc-34da51b6668b6c396631589bfc67913db8691da2.zip | |
fortran/
2006-02-12 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/25806
* trans-array.c (gfc_trans_allocate_array_storage): New argument
dealloc; free the temporary only if dealloc is true.
(gfc_trans_allocate_temp_array): New argument bool dealloc, to be
passed onwards to gfc_trans_allocate_array_storage.
(gfc_trans_array_constructor, gfc_conv_loop_setup): Update call to
gfc_trans_allocate_temp_array.
* trans-array.h (gfc_trans_allocate_temp_array): Update function
prototype.
* trans-expr.c (gfc_conv_function_call): Set new argument 'dealloc'
to gfc_trans_allocate_temp_array to false in case of functions
returning pointers.
(gfc_trans_arrayfunc_assign): Return NULL for functions returning
pointers.
testsuite/
2006-02-12 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/25806
* gfortran.dg/ret_pointer_2.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@110893 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libjava/classpath/java/lang/ref/Reference.java')
0 files changed, 0 insertions, 0 deletions
