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

Lines Matching refs:Real
212 /* Convert a real string to an expression node.  */
220   mpfr_set_str (e->value.real, buffer, 10, GFC_RND_MODE);
226 /* Convert a pair of real, constant expression nodes to a single
230 convert_complex (gfc_expr *real, gfc_expr *imag, int kind)
234   e = gfc_get_constant_expr (BT_COMPLEX, kind, &real->where);
235   mpc_set_fr_fr (e->value.complex, real->value.real, imag->value.real,
511 /* Match a real constant of some sort.  Allow a signed constant if signflag
590 			   "real-literal-constant at %C"))
594 		     "Extension: exponent-letter %<q%> in real-literal-constant "
615 	  gfc_error ("Missing exponent in real number at %C");
693 	  gfc_error ("Real number at %C has a %<d%> exponent and an explicit "
703 	  gfc_error ("Real number at %C has a %<q%> exponent and an explicit "
708       /* The maximum possible real kind type parameter is 16.  First, try
718 			 "real-literal-constant at %C");
730 	  gfc_error ("Invalid real kind %d at %C", kind);
737     mpfr_neg (e->value.real, e->value.real, GFC_RND_MODE);
745       gfc_error ("Real constant overflows its kind at %C");
750 	gfc_warning (OPT_Wunderflow, "Real constant underflows its kind at %C");
751       mpfr_set_ui (e->value.real, 0, GFC_RND_MODE);
800 	  mpfr_sub (r, r, e->value.real, GFC_RND_MODE);
1304 /* Match a real or imaginary part of a complex constant that is a
1383   *result = e;		/* e is a scalar, real, constant expression.  */
1392 /* Match a real or imaginary part of a complex number.  */
1416   gfc_expr *e, *real, *imag;
1424   real = imag = e = NULL;
1432   m = match_complex_part (&real);
1442 	 converting an integer to real.  Throw this away here.  */
1450   /* If m is error, then something was wrong with the real part and we
1486   if (real->ts.type == BT_REAL)
1489 	kind = gfc_kind_max (real, imag);
1491 	kind = real->ts.kind;
1504   if (real->ts.type != BT_REAL || kind != real->ts.kind)
1505     gfc_convert_type (real, &target, 2);
1509   e = convert_complex (real, imag, kind);
1512   gfc_free_expr (real);
1524   gfc_free_expr (real);
3615       /* A statement of the form "REAL, parameter :: a(0:10) = 1" will
OpenGrok
