diff options
| author | dfranke <dfranke@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-06 12:37:22 +0000 |
|---|---|---|
| committer | dfranke <dfranke@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-06 12:37:22 +0000 |
| commit | 3cd3c66792ab7ee6d75d168f1e065f26bcba2e30 (patch) | |
| tree | e23e329b9cee8d78d66c5fb40698f15edf6dcf2b /gcc/fortran/dump-parse-tree.c | |
| parent | 11582f4e8968ad4f3d776027a4ac34127b58d7a0 (diff) | |
| download | ppe42-gcc-3cd3c66792ab7ee6d75d168f1e065f26bcba2e30.tar.gz ppe42-gcc-3cd3c66792ab7ee6d75d168f1e065f26bcba2e30.zip | |
gcc/fortran:
2007-05-06 Daniel Franke <franke.daniel@gmail.com>
PR fortran/32633
* symbol.c (save_status): New.
* gfortran.h (save_status): Added external declaration.
(check_conflict): Check for conflicting explicite SAVE statements
only.
(gen_special_c_interop_ptr): Use SAVE_EXPLICIT constant.
* module.c (ab_attribute, attr_bits): Removed enumerator value
AB_SAVE for save attribute.
(mio_symbol_attribute): Import/export the full SAVE status,
removed usage of AB_SAVE.
* dump-parse-tree.c (gfc_show_attr): Dump full SAVE status.
* decl.c (add_init_expr_to_sym): Set SAVE_IMPLICIT only if not
already explicit.
gcc/testsuite:
2007-07-06 Daniel Franke <franke.daniel@gmail.com>
* gfortran.dg/save_parameter.f90: New test.
* gfortran.dg/module_md5_1.f90: Updated MD5 sum.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126413 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 5d26a78af1b..5d181e2ab24 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -542,10 +542,11 @@ void gfc_show_attr (symbol_attribute *attr) { - gfc_status ("(%s %s %s %s", gfc_code2string (flavors, attr->flavor), + gfc_status ("(%s %s %s %s %s", gfc_code2string (flavors, attr->flavor), gfc_intent_string (attr->intent), gfc_code2string (access_types, attr->access), - gfc_code2string (procedures, attr->proc)); + gfc_code2string (procedures, attr->proc), + gfc_code2string (save_status, attr->save)); if (attr->allocatable) gfc_status (" ALLOCATABLE"); @@ -561,8 +562,6 @@ gfc_show_attr (symbol_attribute *attr) gfc_status (" POINTER"); if (attr->protected) gfc_status (" PROTECTED"); - if (attr->save) - gfc_status (" SAVE"); if (attr->value) gfc_status (" VALUE"); if (attr->volatile_) |
