diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2007-07-06 08:37:22 -0400 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2007-07-06 08:37:22 -0400 |
| commit | ef7236d25b52738a4de814b587cab39bf8babb08 (patch) | |
| tree | e23e329b9cee8d78d66c5fb40698f15edf6dcf2b /gcc/fortran/dump-parse-tree.c | |
| parent | 004e2fa73b7677e460c760878469d7a6c3759ea4 (diff) | |
| download | gcc-ef7236d25b52738a4de814b587cab39bf8babb08.zip gcc-ef7236d25b52738a4de814b587cab39bf8babb08.tar.gz gcc-ef7236d25b52738a4de814b587cab39bf8babb08.tar.bz2 | |
re PR fortran/32633 (bogus error)
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.
From-SVN: r126413
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 5d26a78..5d181e2 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_) |