PR fortran/42858
* array.c (gfc_array_dimen_size): Fix intrinsic procedure
check.
2010-01-25 Tobias Burnus <burnus@net-b.de>
PR fortran/42858
* gfortran.dg/generic_21.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@156214
138bc75d-0d04-0410-961f-
82ee72b054a4
+2010-01-25 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/42858
+ * array.c (gfc_array_dimen_size): Fix intrinsic procedure
+ check.
+
2010-01-24 Paul Thomas <pault@gcc.gnu.org>
PR fortran/41044
2010-01-24 Paul Thomas <pault@gcc.gnu.org>
PR fortran/41044
- Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006, 2007, 2008
+ Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006, 2007, 2008, 2009, 2010
Free Software Foundation, Inc.
Contributed by Andy Vaught
Free Software Foundation, Inc.
Contributed by Andy Vaught
}
if (array->symtree->n.sym->attr.generic
}
if (array->symtree->n.sym->attr.generic
- && !array->symtree->n.sym->attr.intrinsic)
+ && array->value.function.esym != NULL)
{
if (spec_dimen_size (array->value.function.esym->as, dimen, result)
== FAILURE)
{
if (spec_dimen_size (array->value.function.esym->as, dimen, result)
== FAILURE)
+2010-01-25 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/42858
+ * gfortran.dg/generic_21.f90: New test.
+
2010-01-25 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
PR testsuite/41522
2010-01-25 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
PR testsuite/41522
--- /dev/null
+! { dg-do compile }
+!
+! PR fortran/42858
+!
+! Contributed by Harald Anlauf
+!
+module gfcbug102
+ implicit none
+ type t_vector_segm
+ real ,pointer :: x(:) => NULL()
+ end type t_vector_segm
+
+ type t_vector
+ integer :: n_s = 0
+ type (t_vector_segm) ,pointer :: s (:) => NULL()
+ end type t_vector
+
+ interface sqrt
+ module procedure sqrt_vector
+ end interface sqrt
+
+contains
+ function sqrt_vector (x) result (y)
+ type (t_vector) :: y
+ type (t_vector) ,intent(in) :: x
+ integer :: i
+ do i = 1, y% n_s
+ y% s(i)% x = sqrt (x% s(i)% x)
+ end do
+ end function sqrt_vector
+end module gfcbug102
+
+! { dg-final { cleanup-modules "gfcbug102" } }