Cross Reference: /src/external/gpl3/gcc.old/dist/gcc/fortran/simplify.cc

Lines Matching defs:LENGTH
318       HOST_WIDE_INT length;
356 		gfc_extract_hwi (len, &length);
357 		string = gfc_get_wide_string (length + 1);
358 		gfc_wide_memset (string, 0, length);
363 		gfc_extract_hwi (len, &length);
364 		string = gfc_get_wide_string (length + 1);
365 		gfc_wide_memset (string, 255, length);
369 		length = 0;
373 	    string[length] = '\0';
374 	    e->value.character.length = length;
909   len = e->value.character.length;
937   len = e->value.character.length;
2550 	  s_len = mpz_get_ui (array->ts.u.cl->length->value.integer);
3276   if (e->value.character.length != 1)
3278       gfc_error ("Argument of IACHAR at %L must be of length one", &e->where);
3474   if (e->value.character.length != 1)
3476       gfc_error ("Argument of ICHAR at %L must be of length one", &e->where);
3527   len = x->value.character.length;
3528   lensub = y->value.character.length;
4460 /* Check for constant length of a substring.  */
4466   HOST_WIDE_INT istart, iend, length;
4492     length = iend - istart + 1;
4494     length = 0;
4496   /* Fix substring length.  */
4497   e->value.character.length = length;
4516       mpz_set_si (result->value.integer, e->value.character.length);
4519   else if (e->ts.u.cl != NULL && e->ts.u.cl->length != NULL
4520 	   && e->ts.u.cl->length->expr_type == EXPR_CONSTANT
4521 	   && e->ts.u.cl->length->ts.type == BT_INTEGER)
4524       mpz_set (result->value.integer, e->ts.u.cl->length->value.integer);
4544 	       && e->ref->u.c.component->ts.u.cl->length)
4552 							     ->length->symtree
4563 				  ->u.c.component->ts.u.cl->length->symtree
4663   len = e->value.character.length;
5097 #define LENGTH(x) ((x)->value.character.length)
5099 	if (LENGTH (extremum) < LENGTH(arg))
5103 	    STRING(extremum) = gfc_get_wide_string (LENGTH(arg) + 1);
5105 		      LENGTH(extremum) * sizeof (gfc_char_t));
5106 	    gfc_wide_memset (&STRING(extremum)[LENGTH(extremum)], ' ',
5107 			       LENGTH(arg) - LENGTH(extremum));
5108 	    STRING(extremum)[LENGTH(arg)] = '\0';  /* For debugger  */
5109 	    LENGTH(extremum) = LENGTH(arg);
5116 	    STRING(extremum) = gfc_get_wide_string (LENGTH(extremum) + 1);
5118 		      LENGTH(arg) * sizeof (gfc_char_t));
5119 	    gfc_wide_memset (&STRING(extremum)[LENGTH(arg)], ' ',
5120 			       LENGTH(extremum) - LENGTH(arg));
5121 	    STRING(extremum)[LENGTH(extremum)] = '\0';  /* For debugger  */
5123 #undef LENGTH
6770   /* If we don't know the character length, we can do no more.  */
6771   if (e->ts.u.cl && e->ts.u.cl->length
6772 	&& e->ts.u.cl->length->expr_type == EXPR_CONSTANT)
6774       len = gfc_mpz_get_hwi (e->ts.u.cl->length->value.integer);
6778 	     && (e->ts.u.cl == NULL || e->ts.u.cl->length == NULL))
6780       len = e->value.character.length;
6785   /* If the source length is 0, any value of NCOPIES is valid
6806 		      e->ts.u.cl->length->value.integer);
6837       (e->ts.u.cl->length &&
6838        mpz_sgn (e->ts.u.cl->length->value.integer) != 0))
6849   len = e->value.character.length;
7253   len = e->value.character.length;
7254   lenc = c->value.character.length;
7667       && (!x->ts.u.cl || !x->ts.u.cl->length
7668 	  || x->ts.u.cl->length->expr_type != EXPR_CONSTANT))
7698       && (!x->ts.u.cl || !x->ts.u.cl->length
7699 	  || x->ts.u.cl->length->expr_type != EXPR_CONSTANT))
7911 	gfc_internal_error ("Failure getting length of a constant array.");
8194     gfc_internal_error ("Failure getting length of a constant array.");
8205   /* Set result character length, if needed.  Note that this needs to be
8210 length = mold_element->value.character.length;
8212       /* Let the typespec of the result inherit the string length.
8214       if (mold_element->ts.u.cl->length)
8215 	result->ts.u.cl->length = gfc_copy_expr (mold_element->ts.u.cl->length);
8217 	result->ts.u.cl->length =
8219 			    mold_element->value.character.length);
8300   len = e->value.character.length;
8579   len = s->value.character.length;
8580   lenset = set->value.character.length;
8878       result->value.character.length = e->value.character.length;
8880 	= gfc_get_wide_string (e->value.character.length + 1);
8882 	      (e->value.character.length + 1) * sizeof (gfc_char_t));
8885       for (i = 0; i < result->value.character.length; i++)
OpenGrok
