[Bug ada/60163] New: Ada style checks: token spacing enforces space only around the first of several multiplying operators

[piotr.trojanek at gmail dot com]

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

            Bug ID: 60163
           Summary: Ada style checks: token spacing enforces space only
                    around the first of several multiplying operators
           Product: gcc
           Version: 4.7.4
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: ada
          Assignee: unassigned at gcc dot gnu.org
          Reporter: piotr.trojanek at gmail dot com

Created attachment 32116
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=32116&action=edit
Example of wrong

The -gnatyt option of the GNAT Ada compiler should check if binary operators
other than ** are surrounded by spaces. However, it works correctly only for
the first of several multiplying operators in an expression.

For example, expression "x * x + x*x" does not trigger any warning.

When compiling the attached file with "gnatmake -gnatyt -gnatwe -gnatf style"
there should be 4 warning messages, but currently there are only 2.

The problem occurs in the 4.7.4 version of the GNAT compiler; tested on Linux
x86_64, but probably is platform-independent.