View | Details | Raw Unified | Return to bug 27998
Collapse All | Expand All | Context: (Patch / File /
)

(-)gcc/fortran/decl.c (+4 lines)
 Lines 724-729    Link Here 
724
  slen = expr->value.character.length;
724
  slen = expr->value.character.length;
725
  if (len != slen)
725
  if (len != slen)
726
    {
726
    {
727
      if (gfc_notification_std (GFC_STD_F2003) != SILENT)
728
	gfc_warning_now ("constant character length mismatch at %L "
729
			 "(%d/%d expected)", &expr->where, slen, len);
730
727
      s = gfc_getmem (len);
731
      s = gfc_getmem (len);
728
      memcpy (s, expr->value.character.string, MIN (len, slen));
732
      memcpy (s, expr->value.character.string, MIN (len, slen));
729
      if (len > slen)
733
      if (len > slen)

Return to bug 27998