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

re PR fortran/16861 ([4.0 only] segfault with doubly used module) 

PR fortran/16861
	* resolve.c (resolve_variable): If e->symtree is not set, this
	ought to be a FAILURE, and not a segfault.
	* gfortran.dg/pr16861.f90: New test.

From-SVN: r98391
This commit is contained in:
Francois-Xavier Coudert 2005-04-19 09:10:05 +02:00 committed by François-Xavier Coudert
parent 1334b570e3
commit 009e94d4e6
4 changed files with 46 additions and 0 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 @@
2005-04-19 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR fortran/16861
* resolve.c (resolve_variable): If e->symtree is not set, this
ought to be a FAILURE, and not a segfault.
2005-04-17 Paul Thomas <pault@gcc.gnu.org>
PR fortran/17472

3
gcc/fortran/resolve.c
View File

@ -2111,6 +2111,9 @@ resolve_variable (gfc_expr * e)
if (e->ref && resolve_ref (e) == FAILURE)
return FAILURE;
if (e->symtree == NULL)
return FAILURE;
sym = e->symtree->n.sym;
if (sym->attr.flavor == FL_PROCEDURE && !sym->attr.function)
{

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2005-04-18 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR fortran/16861
* gfortran.dg/pr16861.f90: New test.
2005-04-18 James A. Morrison <phython@gcc.gnu.org>
* gcc.dg/pr21085.c: New test.

32
gcc/testsuite/gfortran.dg/pr16861.f90 Normal file
View File

@ -0,0 +1,32 @@
! PR fortran/16861
! { dg-do run }
module foo
integer :: i
end module foo
module bar
contains
subroutine baz(j)
use foo
integer, dimension(i) :: j
integer :: n
do n = 1, i
if (j(n) /= n**2) call abort
end do
end subroutine baz
end module bar
subroutine quus()
use foo
use bar
i = 2
call baz ((/1,4/))
i = 7
call baz ((/1,4,9,16,25,36,49/))
end subroutine quus
program test
call quus
end program test