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"