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:
parent
58b3ebf2df
commit
8e19c582b1
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
Loading…
Reference in New Issue