OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

decl.c (gfc_match_entry): Allow ENTRY without parentheses even in FUNCTIONs. 

* decl.c (gfc_match_entry): Allow ENTRY without parentheses
	even in FUNCTIONs.

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

From-SVN: r101672
This commit is contained in:
Jakub Jelinek 2005-07-07 00:12:25 +02:00 committed by Jakub Jelinek
parent ef0087a7a0
commit 3c2d01f108
4 changed files with 34 additions and 1 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-07 Jakub Jelinek <jakub@redhat.com>
* decl.c (gfc_match_entry): Allow ENTRY without parentheses
even in FUNCTIONs.
2005-07-03 Kazu Hirata <kazu@codesourcery.com>
* gfortran.texi, intrinsic.texi: Fix typos.

2
gcc/fortran/decl.c
View File

@ -2395,7 +2395,7 @@ gfc_match_entry (void)
else
{
/* An entry in a function. */
m = gfc_match_formal_arglist (entry, 0, 0);
m = gfc_match_formal_arglist (entry, 0, 1);
if (m != MATCH_YES)
return MATCH_ERROR;

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2005-07-07 Jakub Jelinek <jakub@redhat.com>
* gfortran.fortran-torture/execute/entry_9.f90: New test.
2005-07-06 Fariborz Jahanian <fjahanian@apple.com>
* gcc.dg/20030324-1.c: Remove -fforce-mem option.

24
gcc/testsuite/gfortran.fortran-torture/execute/entry_9.f90 Normal file
View File

@ -0,0 +1,24 @@
! Test alternate entry points for functions when the result types
! of all entry points match
function f1 (a)
integer a, f1, e1
f1 = 15 + a
return
entry e1
e1 = 42
end function
function f2 ()
real f2, e2
entry e2
e2 = 45
end function
program entrytest
integer f1, e1
real f2, e2
if (f1 (6) .ne. 21) call abort ()
if (e1 () .ne. 42) call abort ()
if (f2 () .ne. 45) call abort ()
if (e2 () .ne. 45) call abort ()
end