From 7baa3fb4cb203c907ec40ca7a17f4dd43be0f886 Mon Sep 17 00:00:00 2001 From: pault Date: Tue, 8 May 2007 11:58:25 +0000 Subject: 2007-05-08 Paul Thomas 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 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 --- gcc/fortran/gfortran.h | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/gfortran.h') diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index df0896dd068..2030ec29bb2 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -2121,6 +2121,7 @@ void gfc_insert_constructor (gfc_expr *, gfc_constructor *); gfc_constructor *gfc_get_constructor (void); tree gfc_conv_array_initializer (tree type, gfc_expr * expr); try spec_size (gfc_array_spec *, mpz_t *); +try spec_dimen_size (gfc_array_spec *, int, mpz_t *); int gfc_is_compile_time_shape (gfc_array_spec *); /* interface.c -- FIXME: some of these should be in symbol.c */ -- cgit v1.2.1