[PATCH] PR fortran/25358 committed.

[Steve Kargl]

I've committed the attached patch and test case to
both 4.1 and trunk.  The originator of the PR has
indicated that the patch fixes the bug.  I've bootstrapped
and regression tested the patch on amd64-*-freebsd for
both 4.1 and trunk.

2006-03-31  Asher Langton  <langton2@llnl.gov>

        PR fortran/25358
        *expr.c (gfc_check_assign): Allow cray pointee to be assumes-size.

2006-03-31  Asher Langton  <langton2@llnl.gov>

        PR fortran/25358
        gfortran.dg/cray_pointers_6.f90: New test.

-- 
Steve
-------------- next part --------------
Index: expr.c
===================================================================
--- expr.c	(revision 112399)
+++ expr.c	(working copy)
@@ -1894,7 +1894,7 @@ gfc_check_assign (gfc_expr * lvalue, gfc
 
    if (sym->attr.cray_pointee
        && lvalue->ref != NULL
-       && lvalue->ref->u.ar.type != AR_ELEMENT
+       && lvalue->ref->u.ar.type == AR_FULL
        && lvalue->ref->u.ar.as->cp_was_assumed)
      {
        gfc_error ("Vector assignment to assumed-size Cray Pointee at %L"
-------------- next part --------------
! { dg-do compile }
! { dg-options "-fcray-pointer" }
! PR fortran/25358 
subroutine adw_set
   implicit none
   real*8    Adw_xabcd_8(*)  
   pointer(Adw_xabcd_8_ , Adw_xabcd_8)
   common/ Adw / Adw_xabcd_8_
   integer n
   Adw_xabcd_8(1:n) = 1
   return
end subroutine adw_set