diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2007-07-31 20:48:21 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2007-07-31 20:48:21 +0000 |
| commit | 14b1261a5b25da80aa1cbc2936397b472c7928d1 (patch) | |
| tree | 9598cc4636d48369d60b3160281677613dd67f13 /gcc/fortran | |
| parent | e439ba28035c2e4249497495308b9df4ebc69690 (diff) | |
| download | gcc-14b1261a5b25da80aa1cbc2936397b472c7928d1.zip gcc-14b1261a5b25da80aa1cbc2936397b472c7928d1.tar.gz gcc-14b1261a5b25da80aa1cbc2936397b472c7928d1.tar.bz2 | |
re PR fortran/32942 (Wrong code with with -fdefault-integer-8)
2007-07-31 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/32942
* gfortran.dg/exponent_2.f90: New test.
2007-07-31 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/32942
*trans-intrinsic.c (gfc_conv_intrinsic_exponent): Convert to correct
type.
From-SVN: r127105
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-intrinsic.c | 10 |
2 files changed, 13 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 6fda297..ce3e62c 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-07-31 Steven G. Kargl <kargl@gcc.gnu.org> + + PR fortran/32942 + *trans-intrinsic.c (gfc_conv_intrinsic_exponent): Convert to correct + type. + 2007-07-29 Jerry DeLisle <jvdelisle@gcc.gnu.org> * invoke.texi: Document -fsign-zero flag. diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index 8f57ae1..578cd7f 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -718,9 +718,9 @@ gfc_conv_intrinsic_lib_function (gfc_se * se, gfc_expr * expr) /* Generate code for EXPONENT(X) intrinsic function. */ static void -gfc_conv_intrinsic_exponent (gfc_se * se, gfc_expr * expr) +gfc_conv_intrinsic_exponent (gfc_se *se, gfc_expr *expr) { - tree arg, fndecl; + tree arg, fndecl, type; gfc_expr *a1; gfc_conv_intrinsic_function_args (se, expr, &arg, 1); @@ -744,7 +744,9 @@ gfc_conv_intrinsic_exponent (gfc_se * se, gfc_expr * expr) gcc_unreachable (); } - se->expr = build_call_expr (fndecl, 1, arg); + /* Convert it to the required type. */ + type = gfc_typenode_for_spec (&expr->ts); + se->expr = fold_convert (type, build_call_expr (fndecl, 1, arg)); } /* Evaluate a single upper or lower bound. */ @@ -2527,7 +2529,9 @@ gfc_conv_intrinsic_ishft (gfc_se * se, gfc_expr * expr) build_int_cst (type, 0), tmp); } + /* Circular shift. AKA rotate or barrel shift. */ + static void gfc_conv_intrinsic_ishftc (gfc_se * se, gfc_expr * expr) { |