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

            Bug ID: 103286
           Summary: ICE in resolve_select, at fortran/resolve.c:8848
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

Affects versions down to at least r5 (follow-up of pr99853) :
(gcc configured with --enable-checking=yes)


$ cat z1.f90
program p
   select case (.true.)
   case (1_8)
   case (:0)
   end select
end


$ gfortran-12-20211114 -c z1.f90
z1.f90:2:16:

    2 |    select case (.true.)
      |                1
Warning: Extension: Conversion from LOGICAL(4) to INTEGER(8) at (1)

Segmentation fault
0xf04a8f crash_signal
        ../../gcc/toplev.c:322
0x7d6bd8 gfc_format_decoder
        ../../gcc/fortran/error.c:1062
0x1d8de90 pp_format(pretty_printer*, text_info*)
        ../../gcc/pretty-print.c:1475
0x1d6ff25 diagnostic_report_diagnostic(diagnostic_context*, diagnostic_info*)
        ../../gcc/diagnostic.c:1346
0x7d6d99 gfc_report_diagnostic
        ../../gcc/fortran/error.c:874
0x7d6f28 gfc_error_opt
        ../../gcc/fortran/error.c:1444
0x7d8780 gfc_error(char const*, ...)
        ../../gcc/fortran/error.c:1473
0x847920 resolve_select
        ../../gcc/fortran/resolve.c:8848
0x851447 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:12169
0x853307 resolve_codes
        ../../gcc/fortran/resolve.c:17535
0x8533ce gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:17570
0x83b684 resolve_all_program_units
        ../../gcc/fortran/parse.c:6573
0x83b684 gfc_parse_file()
        ../../gcc/fortran/parse.c:6829
0x8896bf gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:216

Reply via email to