diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-11-21 16:25:23 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-11-21 16:25:23 +0000 |
| commit | b1c1d761c1db41d94e6791c0b4f8a476e91fa671 (patch) | |
| tree | 6c2e1fd6488ddc49dce31cef0d3fa88c4d1e95f5 /gcc/fortran/intrinsic.h | |
| parent | d43e15a4243b9e3436fcfa9f38e4d0df9af63074 (diff) | |
| download | gcc-b1c1d761c1db41d94e6791c0b4f8a476e91fa671.zip gcc-b1c1d761c1db41d94e6791c0b4f8a476e91fa671.tar.gz gcc-b1c1d761c1db41d94e6791c0b4f8a476e91fa671.tar.bz2 | |
simplify.c (gfc_simplify_cshift): Implement simplification of CSHIFT.
2015-11-21 Steven G. Kargl <kargl@gcc.gnu.org>
* simplify.c (gfc_simplify_cshift): Implement simplification of CSHIFT.
(gfc_simplify_spread): Remove a FIXME and add error condition.
* intrinsic.h: Prototype for gfc_simplify_cshift
* intrinsic.c (add_functions): Use gfc_simplify_cshift.
2015-11-21 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.dg/simplify_cshift_1.f90: New test.
From-SVN: r230709
Diffstat (limited to 'gcc/fortran/intrinsic.h')
| -rw-r--r-- | gcc/fortran/intrinsic.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h index 971cf7c..ca2ad30 100644 --- a/gcc/fortran/intrinsic.h +++ b/gcc/fortran/intrinsic.h @@ -271,6 +271,7 @@ gfc_expr *gfc_simplify_conjg (gfc_expr *); gfc_expr *gfc_simplify_cos (gfc_expr *); gfc_expr *gfc_simplify_cosh (gfc_expr *); gfc_expr *gfc_simplify_count (gfc_expr *, gfc_expr *, gfc_expr *); +gfc_expr *gfc_simplify_cshift (gfc_expr *, gfc_expr *, gfc_expr *); gfc_expr *gfc_simplify_dcmplx (gfc_expr *, gfc_expr *); gfc_expr *gfc_simplify_dble (gfc_expr *); gfc_expr *gfc_simplify_digits (gfc_expr *); |