From 8f2b565d54b4bbf8e1a8e70f1e9bcf660e1cdc5d Mon Sep 17 00:00:00 2001 From: Daniel Franke Date: Sun, 4 Jan 2009 11:05:42 -0500 Subject: re PR fortran/38718 (some simplifiers for elemental intrinsics missing; required for init expressions) gcc/fortran: 2009-01-04 Daniel Franke PR fortran/38718 * simplify.c (gfc_simplify_merge): New. * intrinsic.h (gfc_simplify_merge): New prototype. * intrinsic.c (add_functions): Added simplification for MERGE. gcc/testsuite: 2009-01-04 Daniel Franke PR fortran/38718 * gfortran.dg/merge_init_expr.f90: New. From-SVN: r143053 --- gcc/fortran/intrinsic.h | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/intrinsic.h') diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h index 0e0bd3a..69aadf6 100644 --- a/gcc/fortran/intrinsic.h +++ b/gcc/fortran/intrinsic.h @@ -270,6 +270,7 @@ gfc_expr *gfc_simplify_llt (gfc_expr *, gfc_expr *); gfc_expr *gfc_simplify_log (gfc_expr *); gfc_expr *gfc_simplify_log10 (gfc_expr *); gfc_expr *gfc_simplify_logical (gfc_expr *, gfc_expr *); +gfc_expr *gfc_simplify_merge (gfc_expr *, gfc_expr *, gfc_expr *); gfc_expr *gfc_simplify_min (gfc_expr *); gfc_expr *gfc_simplify_minval (gfc_expr *, gfc_expr*, gfc_expr*); gfc_expr *gfc_simplify_max (gfc_expr *); -- cgit v1.1