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: gs...@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
