+2005-07-08 Jakub Jelinek <jakub@redhat.com>
+
+ * primary.c (gfc_match_rvalue): Handle ENTRY the same way
+ as FUNCTION.
+
2005-07-07 Jakub Jelinek <jakub@redhat.com>
* scanner.c (load_line): Add pbuflen argument, don't make
gfc_set_sym_referenced (sym);
- if (sym->attr.function && sym->result == sym
- && (gfc_current_ns->proc_name == sym
+ if (sym->attr.function && sym->result == sym)
+ {
+ if (gfc_current_ns->proc_name == sym
|| (gfc_current_ns->parent != NULL
- && gfc_current_ns->parent->proc_name == sym)))
- goto variable;
+ && gfc_current_ns->parent->proc_name == sym))
+ goto variable;
+
+ if (sym->attr.entry
+ && (sym->ns == gfc_current_ns
+ || sym->ns == gfc_current_ns->parent))
+ {
+ gfc_entry_list *el = NULL;
+
+ for (el = sym->ns->entries; el; el = el->next)
+ if (sym == el->sym)
+ goto variable;
+ }
+ }
if (sym->attr.function || sym->attr.external || sym->attr.intrinsic)
goto function0;
+2005-07-08 Jakub Jelinek <jakub@redhat.com>
+
+ * gfortran.fortran-torture/execute/entry_10.f90: New test.
+
2005-07-07 Geoffrey Keating <geoffk@apple.com>
* gcc.dg/darwin-version-1.c: New.