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

re PR fortran/51904 (ICE on SIZE function evaluation) 

2012-01-19  Tobias Burnus  <burnus@net-b.de>

        PR fortran/51904
        * expr.c (gfc_build_intrinsic_call): Also set the symtree.

2012-01-19  Tobias Burnus  <burnus@net-b.de>

        PR fortran/51904
        * gfortran.dg/intrinsic_size_2.f90: New.

From-SVN: r183310
This commit is contained in:
Tobias Burnus 2012-01-19 21:22:33 +01:00 committed by Tobias Burnus
parent 58b3ebf2df
commit 8e19c582b1
4 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2012-01-19 Tobias Burnus <burnus@net-b.de>
PR fortran/51904
* expr.c (gfc_build_intrinsic_call): Also set the symtree.
2012-01-18 Paul Thomas <pault@gcc.gnu.org>
PR fortran/51634

5
gcc/fortran/expr.c
View File

@ -4519,6 +4519,11 @@ gfc_build_intrinsic_call (const char* name, locus where, unsigned numarg, ...)
result->value.function.name = name;
result->value.function.isym = isym;
result->symtree = gfc_find_symtree (gfc_current_ns->sym_root, name);
gcc_assert (result->symtree
&& (result->symtree->n.sym->attr.flavor == FL_PROCEDURE
|| result->symtree->n.sym->attr.flavor == FL_UNKNOWN));
va_start (ap, numarg);
atail = NULL;
for (i = 0; i < numarg; ++i)

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2012-01-19 Tobias Burnus <burnus@net-b.de>
PR fortran/51904
* gfortran.dg/intrinsic_size_2.f90: New.
2012-01-19 Jason Merrill <jason@redhat.com>
PR c++/51889

17
gcc/testsuite/gfortran.dg/intrinsic_size_2.f90 Normal file
View File

@ -0,0 +1,17 @@
! { dg-do compile }
!
! PR fortran/51904
!
! Contributed by David Sagan.
!
call qp_draw_polyline_basic([1.0,2.0])
contains
subroutine qp_draw_polyline_basic (x)
implicit none
real :: x(:), f
integer :: i
f = 0
print *, size(f*x)
end subroutine
end