gcc/fortran/expr.c

1828 	  if (!gfc_notify_std (GFC_STD_F2003, "LEN part_ref at %C"))
1846 	  if (!gfc_notify_std (GFC_STD_F2003, "KIND part_ref at %C"))
1857 	  if (!gfc_notify_std (GFC_STD_F2008, "RE part_ref at %C"))
1869 	  if (!gfc_notify_std (GFC_STD_F2008, "IM part_ref at %C"))
3658 	  gfc_error ("Assignment to a LEN or KIND part_ref at %L is not "
5905   gfc_ref *ref, *part_ref = NULL;
5946 	part_ref  = ref;
5955       && ((part_ref
5956 	   && !part_ref->u.c.component->attr.contiguous
5957 	   && part_ref->u.c.component->attr.pointer)
5958 	  || (!part_ref