diff options
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 8768cb6..50cd6da 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -1,6 +1,6 @@ /* Simplify intrinsic functions at compile-time. - Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 - Free Software Foundation, Inc. + Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, + 2010 Free Software Foundation, Inc. Contributed by Andy Vaught & Katherine Holcomb This file is part of GCC. @@ -1928,6 +1928,7 @@ gfc_simplify_exp (gfc_expr *x) return range_check (result, "EXP"); } + gfc_expr * gfc_simplify_exponent (gfc_expr *x) { @@ -3935,6 +3936,17 @@ gfc_simplify_null (gfc_expr *mold) gfc_expr * +gfc_simplify_num_images (void) +{ + gfc_expr *result; + /* FIXME: gfc_current_locus is wrong. */ + result = gfc_constant_result (BT_INTEGER, gfc_default_integer_kind, &gfc_current_locus); + mpz_set_si (result->value.integer, 1); + return result; +} + + +gfc_expr * gfc_simplify_or (gfc_expr *x, gfc_expr *y) { gfc_expr *result; |