[Bug fortran/91959] New: [8/9/10 Regression] Accepts invalid variable declaration %x

[gscfq@t-online.de]

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

            Bug ID: 91959
           Summary: [8/9/10 Regression] Accepts invalid variable
                    declaration %x
           Product: gcc
           Version: 10.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Starting with gcc-8 (before 20180525) :


$ cat z1.f90
program p
   implicit none
   integer :: %a
   a = 1
   print *, a
end


$ cat z2.f90
program p
   implicit none
   type t
      integer :: %n
   end type
   type(t) :: %a
   a = t(1)
   print *, a
   a%n = 2
   print *, a
end



$ gfortran-7 -c z1.f90
z1.f90:3:15:

    integer :: %a
               1
Error: Invalid character in name at (1)
z1.f90:4:4:

    a = 1
    1
Error: Symbol 'a' at (1) has no IMPLICIT type


$ gfortran-10-20190929 -c z1.f90
$ gfortran-10-20190929 -std=f2008 z1.f90 && ./a.out
           1


$ gfortran-10-20190929 z2.f90 && ./a.out
           1
           2