diff options
| author | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-04-17 10:58:35 +0000 |
|---|---|---|
| committer | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-04-17 10:58:35 +0000 |
| commit | b1fa14aaa2870ddb02159d82695798918c91127d (patch) | |
| tree | 08f47fe7d69580b7de218fc0af24e86c990f2ceb /gcc/f/symbol.h | |
| parent | d3a18328063ee958908ff755c7980d63bd563a75 (diff) | |
| download | ppe42-gcc-b1fa14aaa2870ddb02159d82695798918c91127d.tar.gz ppe42-gcc-b1fa14aaa2870ddb02159d82695798918c91127d.zip | |
rewrite to use block/scope structure of GBE
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26515 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/f/symbol.h')
| -rw-r--r-- | gcc/f/symbol.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/f/symbol.h b/gcc/f/symbol.h index 6082669ea95..0c7262cd0a6 100644 --- a/gcc/f/symbol.h +++ b/gcc/f/symbol.h @@ -151,11 +151,13 @@ struct _ffesymbol_ away. */ bool explicit_where; /* TRUE if INTRINSIC/EXTERNAL explicit. */ bool namelisted; /* TRUE if in NAMELIST (needs static alloc). */ + bool assigned; /* TRUE if ever ASSIGNed to. */ }; #define ffesymbol_accretes(s) ((s)->accretes) #define ffesymbol_accretion(s) ((s)->accretion) #define ffesymbol_arraysize(s) ((s)->array_size) +#define ffesymbol_assigned(s) ((s)->assigned) #define ffesymbol_attr(s,a) ((s)->attrs & ((ffesymbolAttrs) 1 << (a))) #define ffesymbol_attrs(s) ((s)->attrs) const char *ffesymbol_attrs_string (ffesymbolAttrs attrs); @@ -231,6 +233,7 @@ bool ffesymbol_retractable (void); #define ffesymbol_set_accretes(s,a) ((s)->accretes = (a)) #define ffesymbol_set_accretion(s,a) ((s)->accretion = (a)) #define ffesymbol_set_arraysize(s,a) ((s)->array_size = (a)) +#define ffesymbol_set_assigned(s,a) ((s)->assigned = (a)) #define ffesymbol_set_attr(s,a) ((s)->attrs |= ((ffesymbolAttrs) 1 << (a))) #define ffesymbol_set_attrs(s,a) ((s)->attrs = (a)) #define ffesymbol_set_common(s,c) ((s)->common = (c)) |
