diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2007-05-08 11:58:25 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2007-05-08 11:58:25 +0000 |
| commit | a9b43781dbc0c38ea33062cd96825defbcb1ca2d (patch) | |
| tree | 51128533ef6fb2920b355241338a655d8bf897aa /gcc/fortran/array.c | |
| parent | a6d99bb44a3fd7c3bcfb402dc89ae7b3979073c0 (diff) | |
| download | gcc-a9b43781dbc0c38ea33062cd96825defbcb1ca2d.zip gcc-a9b43781dbc0c38ea33062cd96825defbcb1ca2d.tar.gz gcc-a9b43781dbc0c38ea33062cd96825defbcb1ca2d.tar.bz2 | |
re PR fortran/29397 (Constant logical expression with parameter array)
2007-05-08 Paul Thomas <pault@gcc.gnu.org>
PR fortran/29397
PR fortran/29400
* decl.c (add_init_expr_to_sym): Expand a scalar initializer
for a parameter array into an array expression with the right
shape.
* array.c (spec_dimen_size): Remove static attribute.
* gfortran.h : Prototype for spec_dimen_size.
2007-05-08 Paul Thomas <pault@gcc.gnu.org>
PR fortran/29397
* gfortran.dg/parameter_array_init_1.f90: New test.
PR fortran/29400
* gfortran.dg/parameter_array_init_2.f90: New test.
From-SVN: r124541
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 895bccc..9359624 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -1714,7 +1714,7 @@ gfc_get_array_element (gfc_expr *array, int element) /* Get the size of single dimension of an array specification. The array is guaranteed to be one dimensional. */ -static try +try spec_dimen_size (gfc_array_spec *as, int dimen, mpz_t *result) { if (as == NULL) |