diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-09 08:35:36 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-09 08:35:36 +0000 |
| commit | de0c4488fdfa38f2c6c01b098b416b8772572e54 (patch) | |
| tree | 062189decd4fd69dc34c13ea034acb58e8725c39 /gcc/fortran/gfortran.h | |
| parent | 3ee48c5c950c555b8caf331fc0cf464c820c72e6 (diff) | |
| download | gcc-de0c4488fdfa38f2c6c01b098b416b8772572e54.tar.gz | |
2009-08-05 Tobias Burnus <burnus@net-b.de>
PR fortran/40955
* gfortran.h (ext_attr_id_t): Add typedef for this enum.
(gfc_add_ext_attribute): Use it.
* decl.c (gfc_match_gcc_attributes): Ditto.
* expr.c (gfc_check_pointer_assign): Ditto.
* symbol.c (gfc_add_ext_attribute): Ditto.
(gfc_copy_attr): Copy also ext_attr.
* resolve.c (resolve_fl_derived,resolve_symbol): Ditto.
* module.c (mio_symbol_attribute): Save ext_attr in the mod
* file.
2009-08-05 Tobias Burnus <burnus@net-b.de>
PR fortran/40955
* gfortran.dg/module_md5_1.f90: Update MD5 check sum.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150589 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/gfortran.h')
| -rw-r--r-- | gcc/fortran/gfortran.h | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index da3d5f052b8..cefe3ec1c8f 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -621,7 +621,7 @@ extern CInteropKind_t c_interop_kinds_table[]; /* Structure and list of supported extension attributes. */ -enum +typedef enum { EXT_ATTR_DLLIMPORT = 0, EXT_ATTR_DLLEXPORT, @@ -629,7 +629,8 @@ enum EXT_ATTR_CDECL, EXT_ATTR_FASTCALL, EXT_ATTR_LAST, EXT_ATTR_NUM = EXT_ATTR_LAST -}; +} +ext_attr_id_t; typedef struct { @@ -2334,7 +2335,7 @@ gfc_try gfc_set_default_type (gfc_symbol *, int, gfc_namespace *); void gfc_set_sym_referenced (gfc_symbol *); gfc_try gfc_add_attribute (symbol_attribute *, locus *); -gfc_try gfc_add_ext_attribute (symbol_attribute *, unsigned, locus *); +gfc_try gfc_add_ext_attribute (symbol_attribute *, ext_attr_id_t, locus *); gfc_try gfc_add_allocatable (symbol_attribute *, locus *); gfc_try gfc_add_dimension (symbol_attribute *, const char *, locus *); gfc_try gfc_add_external (symbol_attribute *, locus *); |