diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-07-12 01:23:39 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-07-12 01:23:39 +0000 |
| commit | 597073ace8549d2a934a1fe7d9402e1f63e91220 (patch) | |
| tree | 965224cf14305213a75803cd0d6ba965b02e9514 /gcc/fortran/trans.h | |
| parent | 247fec6ee6f9e831b62a1672abc0cc8a7ffb360e (diff) | |
| download | gcc-597073ace8549d2a934a1fe7d9402e1f63e91220.zip gcc-597073ace8549d2a934a1fe7d9402e1f63e91220.tar.gz gcc-597073ace8549d2a934a1fe7d9402e1f63e91220.tar.bz2 | |
expr.c (gfc_check_assign_symbol): Handle pointer assignments.
* expr.c (gfc_check_assign_symbol): Handle pointer assignments.
* trans-array.c (gfc_trans_auto_array_allocation): Remove
initialization code.
* trans-common.c (create_common): Use gfc_conv_initializer.
* trans-decl.c (gfc_get_symbol_decl): Use gfc_conv_initializer.
* trans-expr.c (gfc_conv_initializer): New function.
(gfc_conv_structure): Use it.
* trans.h (gfc_conv_initializer): Add prototype.
testsuite/
* gfortran.dg/pointer_init_1.f90: New test.
From-SVN: r84542
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 6119e58..fe8db4e 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -374,6 +374,9 @@ void gfc_build_builtin_function_decls (void); /* Return the variable decl for a symbol. */ tree gfc_get_symbol_decl (gfc_symbol *); +/* Build a static initializer. */ +tree gfc_conv_initializer (gfc_expr *, gfc_typespec *, tree, bool, bool); + /* Substitute a temporary variable in place of the real one. */ void gfc_shadow_sym (gfc_symbol *, tree, gfc_saved_var *); |