2005-11-27 Bernhard Fischer <rep.nop@aon.at>
* gfortran.h: remove superfluous whitespace and use GNU
comment-style for the documentation of backend_decl.
From-SVN: r107571
+2005-11-27 Bernhard Fischer <rep.nop@aon.at>
+
+ * gfortran.h: remove superfluous whitespace and use GNU
+ comment-style for the documentation of backend_decl.
+
2005-11-27 Steven G. Kargl <kargls@comcast.net>
PR fortran/24917
2005-11-27 Steven G. Kargl <kargls@comcast.net>
PR fortran/24917
ENUM_BITFIELD (ifsrc) if_source:2;
ENUM_BITFIELD (procedure_type) proc:3;
ENUM_BITFIELD (ifsrc) if_source:2;
ENUM_BITFIELD (procedure_type) proc:3;
/* Special attributes for Cray pointers, pointees. */
/* Special attributes for Cray pointers, pointees. */
- unsigned cray_pointer:1, cray_pointee:1;
+ unsigned cray_pointer:1, cray_pointee:1;
}
symbol_attribute;
/* The following three structures are used to identify a location in
}
symbol_attribute;
/* The following three structures are used to identify a location in
gfc_file is used to maintain a tree of the source files and how
they include each other
gfc_file is used to maintain a tree of the source files and how
they include each other
which file it resides in
locus point to the sourceline and the character in the source
which file it resides in
locus point to the sourceline and the character in the source
{
struct gfc_file *included_by, *next, *up;
int inclusion_line, line;
char *filename;
} gfc_file;
{
struct gfc_file *included_by, *next, *up;
int inclusion_line, line;
char *filename;
} gfc_file;
-typedef struct gfc_linebuf
+typedef struct gfc_linebuf
{
#ifdef USE_MAPPED_LOCATION
source_location location;
{
#ifdef USE_MAPPED_LOCATION
source_location location;
#define gfc_linebuf_header_size (offsetof (gfc_linebuf, line))
#define gfc_linebuf_header_size (offsetof (gfc_linebuf, line))
{
char *nextc;
gfc_linebuf *lb;
{
char *nextc;
gfc_linebuf *lb;
int use_assoc, saved;
char name[GFC_MAX_SYMBOL_LEN + 1];
struct gfc_symbol *head;
int use_assoc, saved;
char name[GFC_MAX_SYMBOL_LEN + 1];
struct gfc_symbol *head;
gfc_common_head;
#define gfc_get_common_head() gfc_getmem(sizeof(gfc_common_head))
gfc_common_head;
#define gfc_get_common_head() gfc_getmem(sizeof(gfc_common_head))
/* Tree containing all the user-defined operators in the namespace. */
gfc_symtree *uop_root;
/* Tree containing all the common blocks. */
/* Tree containing all the user-defined operators in the namespace. */
gfc_symtree *uop_root;
/* Tree containing all the common blocks. */
- gfc_symtree *common_root;
+ gfc_symtree *common_root;
/* If set_flag[letter] is set, an implicit type has been set for letter. */
int set_flag[GFC_LETTERS];
/* If set_flag[letter] is set, an implicit type has been set for letter. */
int set_flag[GFC_LETTERS];
ext; /* Points to additional structures required by statement */
/* Backend_decl is used for cycle and break labels in do loops, and
ext; /* Points to additional structures required by statement */
/* Backend_decl is used for cycle and break labels in do loops, and
- * probably for other constructs as well, once we translate them. */
+ probably for other constructs as well, once we translate them. */
tree backend_decl;
}
gfc_code;
tree backend_decl;
}
gfc_code;