diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2009-06-07 13:33:34 -0400 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-06-07 19:33:34 +0200 |
| commit | c430a6f9f8d4b0c65daa2a300378b31ccfacb9d7 (patch) | |
| tree | 48c9eeaebfafed289ed9dd624607342231223647 /gcc/fortran/expr.c | |
| parent | a16d978fca0146aebb9e2ec46236d3cd03554695 (diff) | |
| download | gcc-c430a6f9f8d4b0c65daa2a300378b31ccfacb9d7.zip gcc-c430a6f9f8d4b0c65daa2a300378b31ccfacb9d7.tar.gz gcc-c430a6f9f8d4b0c65daa2a300378b31ccfacb9d7.tar.bz2 | |
re PR fortran/25104 ([F2003] Non-initialization expr. as case-selector)
2009-06-07 Daniel Franke <franke.daniel@gmail.com>
PR fortran/25104
PR fortran/29962
* array.c (gfc_append_constructor): Added NULL-check.
* check.c (gfc_check_spread): Check DIM.
(gfc_check_unpack): Check that the ARRAY arguments provides
enough values for MASK.
* intrinsic.h (gfc_simplify_spread): New prototype.
(gfc_simplify_unpack): Likewise.
* intrinsic.c (add_functions): Added new simplifier callbacks.
* simplify.c (gfc_simplify_spread): New.
(gfc_simplify_unpack): New.
* expr.c (check_transformational): Allow additional
* transformational
intrinsics in initialization expression.
2009-06-07 Daniel Franke <franke.daniel@gmail.com>
PR fortran/25104
PR fortran/29962
* gfortran.dg/spread_init_expr.f03: New.
* gfortran.dg/unpack_init_expr.f03: New.
* gfortran.dg/intrinsic_argument_conformance_2.f90: Adjusted
error message.
From-SVN: r148250
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index a6a3a3b..f76c35e 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -2130,7 +2130,8 @@ check_transformational (gfc_expr *e) static const char * const trans_func_f2003[] = { "all", "any", "count", "dot_product", "matmul", "null", "pack", "product", "repeat", "reshape", "selected_char_kind", "selected_int_kind", - "selected_real_kind", "sum", "transfer", "transpose", "trim", NULL + "selected_real_kind", "spread", "sum", "transfer", "transpose", + "trim", "unpack", NULL }; int i; |