[Bug fortran/66056] Segmentation fault for lonely label in type

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #3 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
The following test file generates an endless compilation for every
subroutine. It's worth looking deeper.


$ cat type_with_lonely_numbers.f90
program p
   call s1
   call s2
   call s3
   call s4
   call s5
   call s6

contains

   subroutine s1
      type t
         integer :: n = 1
         1 !
         1 !
      end type
      type(t) :: a
      print *, a
   end

   subroutine s2
      type t
         integer :: n = 1
         ; 1 ;
         ; 1 ;
      end type
      type(t) :: a
      print *, a
   end

   subroutine s3
      type t
         integer :: n = 1
         1.2 !
         1.2 !
      end type
      type(t) :: a
      print *, a
   end

   subroutine s4
      type t
         integer :: n = 1
         ; 1.2 ;
         ; 1.2 ;
      end type
      type(t) :: a
      print *, a
   end

   subroutine s5
      type t
         integer :: n = 1
         1=2 !
         1=2 !
      end type
      type(t) :: a
      print *, a
   end

   subroutine s6
      type t
         integer :: n = 1
         1-2 !
         1-2 !
      end type
      type(t) :: a
      print *, a
   end
end