FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

primary.c (gfc_match_rvalue): Handle ENTRY the same way as FUNCTION.

Browse source 
* primary.c (gfc_match_rvalue): Handle ENTRY the same way
	as FUNCTION.

	* gfortran.fortran-torture/execute/entry_10.f90: New test.

From-SVN: r101758
This commit is contained in:
Jakub Jelinek 2005-07-08 12:06:57 +02:00 • committed by Jakub Jelinek
parent 29f9d52d10
commit 0921bc44f7
4 changed files with 39 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View file

@ -1,3 +1,8 @@
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

21
gcc/fortran/primary.c
View file

@ -1846,11 +1846,24 @@ gfc_match_rvalue (gfc_expr ** result)
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;

4
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,7 @@
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.

13
gcc/testsuite/gfortran.fortran-torture/execute/entry_10.f90 Normal file
View file

@ -0,0 +1,13 @@
function foo ()
foo = 4
foo = foo / 2
return
entry bar ()
bar = 9
bar = bar / 3
end
program entrytest
if (foo () .ne. 2) call abort ()
if (bar () .ne. 3) call abort ()
end