[Bug fortran/103506] New: [10/11/12 Regression] ICE in gfc_free_namespace, at fortran/symbol.c:4039

["gscfq@t-online.de" <gcc-bugzilla@gcc.gnu.org>]

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

            Bug ID: 103506
           Summary: [10/11/12 Regression] ICE in gfc_free_namespace, at
                    fortran/symbol.c:4039
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Started between 20190818 and 20190825 :


$ cat z1.f90
module m
stop
end
program p
call m
end


$ cat z2.f90
module m
continue
end
program p
call m
end


$ cat z3.f90
module m
do
end
program p
call m
end


$ gfortran-12-20211128 -c z1.f90
z1.f90:2:4:

    2 | stop
      |    1
Error: Unexpected STOP statement in MODULE at (1)
z1.f90:5:6:

    1 | module m
      |        2
......
    5 | call m
      |      1
Error: Global name 'm' at (1) is already being used as a MODULE at (2)
f951: internal compiler error: in gfc_free_namespace, at fortran/symbol.c:4039
0x87bf15 gfc_free_namespace(gfc_namespace*&)
        ../../gcc/fortran/symbol.c:4039
0x87c459 gfc_symbol_done_2()
        ../../gcc/fortran/symbol.c:4105
0x8140f8 gfc_done_2()
        ../../gcc/fortran/misc.c:382
0x83152a clean_up_modules
        ../../gcc/fortran/parse.c:6596
0x8314ec clean_up_modules
        ../../gcc/fortran/parse.c:6586
0x83d9d1 translate_all_program_units
        ../../gcc/fortran/parse.c:6661
0x83d9d1 gfc_parse_file()
        ../../gcc/fortran/parse.c:6925
0x88b37f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:216