This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug fortran/70260] New: ICE: gimplification failed


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

            Bug ID: 70260
           Summary: ICE: gimplification failed
           Product: gcc
           Version: 6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

A situation where gimplification fails :


$ cat z1.f90
module m
   interface gkind
      procedure g
   end interface
contains
   integer function g()
      g => 1
   end
   subroutine f(x)
      character(kind=kind(gkind())) :: x
   end
end


$ gfortran-6 -c z1.f90
gimplification failed:
&__result_g <addr_expr 0x2af0602cbdc0
    type <pointer_type 0x2af06014b930
        type <integer_type 0x2af0601367e0 integer(kind=4) public SI
            size <integer_cst 0x2af060132e10 constant 32>
            unit size <integer_cst 0x2af060132e28 constant 4>
            align 32 symtab 0 alias set -1 canonical type 0x2af0601367e0
precision 32 min <integer_cst 0x2af060132dc8 -2147483648> max <integer_cst
0x2af060132de0 2147483647>
            pointer_to_this <pointer_type 0x2af06014b930>>
        unsigned DI
        size <integer_cst 0x2af060132bd0 constant 64>
        unit size <integer_cst 0x2af060132be8 constant 8>
        align 64 symtab 0 alias set -1 canonical type 0x2af06014b930>

    arg 0 <var_decl 0x2af05ef7e990 __result_g type <integer_type 0x2af0601367e0
integer(kind=4)>
        addressable used decl_5 SI file z1.f90 line 6 col 0 size <integer_cst
0x2af060132e10 32> unit size <integer_cst 0x2af060132e28 4>
        align 32 context <function_decl 0x2af0602f1540 g>>
    z1.f90:7:0 start: z1.f90:7:0 finish: z1.f90:7:0>
z1.f90:7:0:

       g => 1

internal compiler error: gimplification failed



Before :

$ gfortran-5 -c z1.f90
z1.f90:7:0:

       g => 1
 ^
internal compiler error: in gimplify_expr, at gimplify.c:9063



Working variant :

$ cat z2.f90
module m
   interface gkind
      procedure g
   end interface
contains
   integer function g()
      g = 1
   end
   subroutine f(x)
      character(kind=kind(gkind())) :: x
   end
end

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]