diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-18 00:48:05 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-18 00:48:05 +0000 |
| commit | d9b3f26bfd2dcda4c60d6317ac42db8d348b398d (patch) | |
| tree | c59d49b2984c03bcf5e5f018b12cc2f44288e7a1 /gcc/fortran/gfortran.h | |
| parent | 86a940c6087fcf3e23586a30dc4e8354dce6a1d0 (diff) | |
| download | ppe42-gcc-d9b3f26bfd2dcda4c60d6317ac42db8d348b398d.tar.gz ppe42-gcc-d9b3f26bfd2dcda4c60d6317ac42db8d348b398d.zip | |
PR fortran/13930
* decl.c (add_init_expr_to_sym): Remove incorrect check.
(default_initializer): Move to expr.c.
(variable_decl): Don't assign default initializer to variables.
* expr.c (gfc_default_initializer): Move to here.
* gfortran.h (gfc_default_initializer): Add prototype.
* resolve.c (resolve_symbol): Check for illegal initializers.
Assign default initializer.
testsuite/
* gfortran.fortran-torture/execute/der_init_4.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81966 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/gfortran.h')
| -rw-r--r-- | gcc/fortran/gfortran.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 498e63b6c9b..211aafdbbdc 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -1545,6 +1545,8 @@ try gfc_check_assign (gfc_expr *, gfc_expr *, int); try gfc_check_pointer_assign (gfc_expr *, gfc_expr *); try gfc_check_assign_symbol (gfc_symbol *, gfc_expr *); +gfc_expr *gfc_default_initializer (gfc_typespec *); + /* st.c */ extern gfc_code new_st; |
