* intrinsics/associated.c: Check for associated(NULL,NULL).
2006-12-17 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/associated_2.f90: Add test for associated(NULL,NULL).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@119989
138bc75d-0d04-0410-961f-
82ee72b054a4
+2006-12-17 Tobias Burnus <burnus@net-b.de>
+
+ * gfortran.dg/associated_2.f90: Add test for associated(NULL,NULL).
+
2006-12-16 Manuel Lopez-Ibanez <manu@gcc.gnu.org>
PR middle-end/7651
! the target argument is not present (case (i))
if (.not. associated (b)) call abort ()
deallocate (a)
+ nullify(a)
+ if(associated(a,a)) call abort()
allocate (a(2,1,2))
b => a
if (.not.associated (b)) call abort ()
+2006-12-17 Tobias Burnus <burnus@net-b.de>
+
+ * intrinsics/associated.c: Check for associated(NULL,NULL).
+
2006-12-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/30145
{
int n, rank;
+ if (GFC_DESCRIPTOR_DATA (pointer) == NULL)
+ return 0;
if (GFC_DESCRIPTOR_DATA (pointer) != GFC_DESCRIPTOR_DATA (target))
return 0;
if (GFC_DESCRIPTOR_DTYPE (pointer) != GFC_DESCRIPTOR_DTYPE (target))