OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/38863 (WHERE with multiple elemental defined assignments gives wrong answer) 

2009-04-08  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/38863
	* trans-array.c (gfc_trans_deferred_array): Return if this
	is a result variable.

2009-04-08  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/38863
	* gfortran.dg/alloc_comp_result_1.f90: New test.

From-SVN: r145714
This commit is contained in:
Paul Thomas 2009-04-08 08:59:34 +00:00
parent 8e481a2ca6
commit bafc96b4a4
4 changed files with 46 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2009-04-08 Paul Thomas <pault@gcc.gnu.org>
PR fortran/38863
* trans-array.c (gfc_trans_deferred_array): Return if this
is a result variable.
2009-04-07 Janus Weil <janus@gcc.gnu.org>
PR fortran/38152

4
gcc/fortran/trans-array.c
View File

@ -5825,8 +5825,8 @@ gfc_trans_deferred_array (gfc_symbol * sym, tree body)
gfc_trans_vla_type_sizes (sym, &fnblock);
}
/* Dummy and use associated variables don't need anything special. */
if (sym->attr.dummy || sym->attr.use_assoc)
/* Dummy, use associated and result variables don't need anything special. */
if (sym->attr.dummy || sym->attr.use_assoc || sym->attr.result)
{
gfc_add_expr_to_block (&fnblock, body);

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2009-04-08 Paul Thomas <pault@gcc.gnu.org>
PR fortran/38863
* gfortran.dg/alloc_comp_result_1.f90: New test.
2009-04-07 Jason Merrill <jason@redhat.com>
PR c++/34691

33
gcc/testsuite/gfortran.dg/alloc_comp_result_1.f90 Normal file
View File

@ -0,0 +1,33 @@
! { dg-do run }
! Test the fix for PR38802, in which the nulling of the result 'p'
! in 'a_fun' would cause a segfault.
!
! Posted on the gfortran list by Marco Restelli http://gcc.gnu.org/ml/fortran/2009-01/
!
module mod_a
implicit none
public :: a_fun, t_1, t_2
private
type t_1
real :: coeff
end type t_1
type t_2
type(t_1), allocatable :: mons(:)
end type t_2
contains
function a_fun(r) result(p)
integer, intent(in) :: r
type(t_2) :: p(r+1)
p = t_2 ([t_1 (99)])
end function a_fun
end module mod_a
program test
use mod_a, only: a_fun, t_1, t_2
implicit none
type(t_2) x(1)
x = a_fun(0)
if (any (x(1)%mons%coeff .ne. 99)) call abort
end program test
! { dg-final { cleanup-modules "mod_a" } }