[Bug fortran/88300] New: [9 Regression] Bogus 'Labeled DO statement' for a labeled CONTINUE

[anlauf at gmx dot de]

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

            Bug ID: 88300
           Summary: [9 Regression] Bogus 'Labeled DO statement' for a
                    labeled CONTINUE
           Product: gcc
           Version: 9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: anlauf at gmx dot de
  Target Milestone: ---

I get with 9-trunk:

% cat gfcbug151.f90
subroutine gfcbug151 ()
!  goto 999
999 continue
end subroutine gfcbug151

% gfc-trunk -c -std=f2018 gfcbug151.f90
gfcbug151.f90:3:3:

    3 | 999 continue
      |   1
Warning: Fortran 2018 obsolescent feature: Labeled DO statement at (1)

The message should be triggered on an actual DO statement,
not on a label that might have different uses.