diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2009-06-06 14:51:29 -0400 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-06-06 20:51:29 +0200 |
| commit | 7ba8c18c1eb8ab48d44a9735c9974ae09b8dd9d4 (patch) | |
| tree | fd5f22b85c7834a1bd7f940233ff37789a1b2dc3 /gcc/fortran/intrinsic.h | |
| parent | dbb0ce047b0299395e1f7140ec6474cf402498ca (diff) | |
| download | gcc-7ba8c18c1eb8ab48d44a9735c9974ae09b8dd9d4.zip gcc-7ba8c18c1eb8ab48d44a9735c9974ae09b8dd9d4.tar.gz gcc-7ba8c18c1eb8ab48d44a9735c9974ae09b8dd9d4.tar.bz2 | |
re PR fortran/32890 (Compile-time detect of LHS/RHS missmatch for PACK)
fortran/
2009-06-06 Daniel Franke <franke.daniel@gmail.com>
PR fortran/32890
* intrinsic.h (gfc_simplify_pack): New prototype.
* intrinsic.c (add_functions): Added simplifier-callback to PACK.
* simplify.c (is_constant_array_expr): Moved to beginning of file.
(gfc_simplify_pack): New.
* check.c (gfc_check_pack): Check that VECTOR has enough elements.
Added safeguards for empty arrays.
testsuite/
2009-06-06 Daniel Franke <franke.daniel@gmail.com>
PR fortran/32890
* gfortran.dg/pack_assign_1.f90: New.
* gfortran.dg/pack_vector_1.f90: New.
From-SVN: r148237
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 7e8bc73..4a4aa5a 100644 --- a/gcc/fortran/intrinsic.h +++ b/gcc/fortran/intrinsic.h @@ -289,6 +289,7 @@ gfc_expr *gfc_simplify_null (gfc_expr *); gfc_expr *gfc_simplify_idnint (gfc_expr *); gfc_expr *gfc_simplify_not (gfc_expr *); gfc_expr *gfc_simplify_or (gfc_expr *, gfc_expr *); +gfc_expr *gfc_simplify_pack (gfc_expr *, gfc_expr *, gfc_expr *); gfc_expr *gfc_simplify_precision (gfc_expr *); gfc_expr *gfc_simplify_radix (gfc_expr *); gfc_expr *gfc_simplify_range (gfc_expr *); |