Commit f0d0757e by Asher Langton Committed by Steven G. Kargl

re PR fortran/25358 (vector assignment to assumed-size Cray Pointee error)

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.

From-SVN: r112594
parent b890ea50
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-30 Paul Thomas <paulthomas2@wanadoo.fr>
Bud Davis <bdavis9659@sbcglobal.net>
......
......@@ -1894,7 +1894,7 @@ gfc_check_assign (gfc_expr * lvalue, gfc_expr * rvalue, int conform)
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"
......
2006-03-31 Asher Langton <langton2@llnl.gov>
PR fortran/25358
gfortran.dg/cray_pointers_6.f90: New test.
2006-03-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/26890
! { 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
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