OSDN Git Service

2006-05-21 Paul Thomas <pault@gcc.gnu.org>
authorpault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 21 May 2006 11:53:02 +0000 (11:53 +0000)
committerpault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 21 May 2006 11:53:02 +0000 (11:53 +0000)
commit84c27833a4b3b8a9a1a011ac98acfed58dc719ef
tree4171568da927dcd7eb831eb7f19bfd1b5b93c3d1
parentb4b95037621197aabee523dae805cbf5196e8386
2006-05-21  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/27613
* primary.c (gfc_match_rvalue): Test if symbol represents a
direct recursive function reference.  Error if array valued,
go to function0 otherwise.

2006-05-21  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/27613
* gfortran.dg/recursive_reference_1.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@113951 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/primary.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/recursive_reference_1.f90 [new file with mode: 0644]