[Bug fortran/50073] New: gfortran must not accept function name when result name is present

[Bug fortran/50073] New: gfortran must not accept function name when result name is present

[zeccav at gmail dot com]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50073

             Bug #: 50073
           Summary: gfortran must not accept function name when result
                    name is present
    Classification: Unclassified
           Product: gcc
           Version: 4.6.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: zeccav@gmail.com


Created attachment 25001
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=25001
just compile it, gfortran must reject it

gfortran must not accept function name when result name is present

[Bug fortran/50073] gfortran must not accept function name when result name is present

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50073

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |accepts-invalid
                 CC|                            |janus at gcc dot gnu.org

--- Comment #1 from janus at gcc dot gnu.org 2011-08-13 12:44:18 UTC ---
Confirmed.

However, the following variant is rejected correctly:


function fun() result(f)
  integer :: fun
  f = 0
end



  integer :: fun
                1
Error: Function name 'fun' not allowed at (1)

[Bug fortran/50073] gfortran must not accept function name when result name is present

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50073

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |ASSIGNED
   Last reconfirmed|                            |2011-08-13
         AssignedTo|unassigned at gcc dot       |janus at gcc dot gnu.org
                   |gnu.org                     |
     Ever Confirmed|0                           |1

--- Comment #2 from janus at gcc dot gnu.org 2011-08-13 14:54:28 UTC ---
Mine (have a patch).

[Bug fortran/50073] gfortran must not accept function name when result name is present

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50073

--- Comment #3 from janus at gcc dot gnu.org 2011-08-14 09:37:28 UTC ---
Author: janus
Date: Sun Aug 14 09:37:25 2011
New Revision: 177745

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=177745
Log:
2011-08-14  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/50073
    * decl.c (check_function_name): New function, separated off from
    'variable_decl' and slightly extended.
    (variable_decl,attr_decl1): Call it.


2011-08-14  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/50073
    * gfortran.dg/func_result_7.f90: New.

Added:
    trunk/gcc/testsuite/gfortran.dg/func_result_7.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/decl.c
    trunk/gcc/testsuite/ChangeLog

[Bug fortran/50073] gfortran must not accept function name when result name is present

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50073

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED

--- Comment #4 from janus at gcc dot gnu.org 2011-08-14 09:43:22 UTC ---
Fixed with r177745. Closing.

Thanks for the report!