diff options
| author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-08 11:58:25 +0000 |
|---|---|---|
| committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-08 11:58:25 +0000 |
| commit | 7baa3fb4cb203c907ec40ca7a17f4dd43be0f886 (patch) | |
| tree | 51128533ef6fb2920b355241338a655d8bf897aa /gcc/fortran/array.c | |
| parent | 31afe052d8e7cf5456e78ee66537ca70e313e9c2 (diff) | |
| download | gcc-7baa3fb4cb203c907ec40ca7a17f4dd43be0f886.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124541 138bc75d-0d04-0410-961f-82ee72b054a4
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 895bccc14d1..9359624efec 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) |