Commit 2ef73bb4 by Tobias Burnus Committed by Tobias Burnus

associated.c: Check for associated(NULL,NULL).

2006-12-17  Tobias Burnus  <burnus@net-b.de>

    * 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).

From-SVN: r119989
parent 23f35163
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> 2006-12-16 Manuel Lopez-Ibanez <manu@gcc.gnu.org>
PR middle-end/7651 PR middle-end/7651
...@@ -17,6 +17,8 @@ contains ...@@ -17,6 +17,8 @@ contains
! the target argument is not present (case (i)) ! the target argument is not present (case (i))
if (.not. associated (b)) call abort () if (.not. associated (b)) call abort ()
deallocate (a) deallocate (a)
nullify(a)
if(associated(a,a)) call abort()
allocate (a(2,1,2)) allocate (a(2,1,2))
b => a b => a
if (.not.associated (b)) call abort () 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> 2006-12-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/30145 PR libfortran/30145
......
...@@ -39,6 +39,8 @@ associated (const gfc_array_void *pointer, const gfc_array_void *target) ...@@ -39,6 +39,8 @@ associated (const gfc_array_void *pointer, const gfc_array_void *target)
{ {
int n, rank; int n, rank;
if (GFC_DESCRIPTOR_DATA (pointer) == NULL)
return 0;
if (GFC_DESCRIPTOR_DATA (pointer) != GFC_DESCRIPTOR_DATA (target)) if (GFC_DESCRIPTOR_DATA (pointer) != GFC_DESCRIPTOR_DATA (target))
return 0; return 0;
if (GFC_DESCRIPTOR_DTYPE (pointer) != GFC_DESCRIPTOR_DTYPE (target)) if (GFC_DESCRIPTOR_DTYPE (pointer) != GFC_DESCRIPTOR_DTYPE (target))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment