[Bug fortran/102113] New: parsing error in assigned goto

[Bug fortran/102113] New: parsing error in assigned goto

[wvermin at gmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102113

            Bug ID: 102113
           Summary: parsing error in assigned goto
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: wvermin at gmail dot com
  Target Milestone: ---

This program produces an error:

   program p
      assign 10 to i
      goto i,(10,20 )
10    continue
20    continue
   end program

    3 |       goto i,(10,20 )
      |                    1
Error: Syntax error in GOTO statement at (1)

The error disappears by changing '20 )' into '20)'

[Bug fortran/102113] parsing error in assigned goto

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102113

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
     Ever confirmed|0                           |1
   Last reconfirmed|                            |2021-08-28
                 CC|                            |kargl at gcc dot gnu.org
             Status|UNCONFIRMED                 |NEW

--- Comment #1 from kargl at gcc dot gnu.org ---
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index b1105481099..d0cb5048787 100644
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -4079,7 +4079,7 @@ gfc_match_goto (void)
        }
       while (gfc_match_char (',') == MATCH_YES);

-      if (gfc_match (")%t") != MATCH_YES)
+      if (gfc_match (" )%t") != MATCH_YES)
        goto syntax;

       if (head == NULL)

[Bug fortran/102113] parsing error in assigned goto

[anlauf at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102113

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |anlauf at gcc dot gnu.org

--- Comment #2 from anlauf at gcc dot gnu.org ---
Steve,

are you going to submit your patch?

[Bug fortran/102113] parsing error in assigned goto

[sgk at troutmask dot apl.washington.edu]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102113

--- Comment #3 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
On Mon, Aug 30, 2021 at 07:28:06PM +0000, anlauf at gcc dot gnu.org wrote:
> 
> are you going to submit your patch?
> 

The patch has been submitted to bugzilla.
That's as far as I can go.

[Bug fortran/102113] parsing error in assigned goto

[cvs-commit at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102113

--- Comment #4 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Harald Anlauf <anlauf@gcc.gnu.org>:

https://gcc.gnu.org/g:a7083b83e45852540a4a09ee11b74dc28d777399

commit r12-3233-ga7083b83e45852540a4a09ee11b74dc28d777399
Author: Harald Anlauf <anlauf@gmx.de>
Date:   Mon Aug 30 23:07:56 2021 +0200

    Fortran - fix whitespace issue during parsing of assigned goto

    gcc/fortran/ChangeLog:

            PR fortran/102113
            * match.c (gfc_match_goto): Allow for whitespace in parsing list
            of labels.

    gcc/testsuite/ChangeLog:

            PR fortran/102113
            * gfortran.dg/goto_9.f90: New test.

[Bug fortran/102113] parsing error in assigned goto

[anlauf at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102113

anlauf at gcc dot gnu.org changed:

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

--- Comment #5 from anlauf at gcc dot gnu.org ---
Fixed.

[Bug fortran/102113] parsing error in assigned goto

[cvs-commit at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102113

--- Comment #6 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The releases/gcc-11 branch has been updated by Harald Anlauf
<anlauf@gcc.gnu.org>:

https://gcc.gnu.org/g:95553bfcc3a69afc2a2bc02aeafac6e92d3dea1e

commit r11-8957-g95553bfcc3a69afc2a2bc02aeafac6e92d3dea1e
Author: Harald Anlauf <anlauf@gmx.de>
Date:   Mon Aug 30 23:07:56 2021 +0200

    Fortran - fix whitespace issue during parsing of assigned goto

    gcc/fortran/ChangeLog:

            PR fortran/102113
            * match.c (gfc_match_goto): Allow for whitespace in parsing list
            of labels.

    gcc/testsuite/ChangeLog:

            PR fortran/102113
            * gfortran.dg/goto_9.f90: New test.

    (cherry picked from commit a7083b83e45852540a4a09ee11b74dc28d777399)