[Bug fortran/58024] New: ICE due to segmentation fault

[Bug fortran/58024] New: ICE due to segmentation fault

[townsend at astro dot wisc.edu]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58024

            Bug ID: 58024
           Summary: ICE due to segmentation fault
           Product: gcc
           Version: 4.9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: townsend at astro dot wisc.edu

Created attachment 30569
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=30569&action=edit
Gzipped tar archive containing source files mentioned in report

I'm encountering a segfault (and subsequent ICE) when compiling the attached
code with the command

gfortran -fopenmp -c core_kinds.f90 core_order.f90
core_linalg.f90core_parallel.f90 gyre_ext_arith.f90 gyre_linalg.f90
gyre_sysmtx.f90

(Apologies for the length of the submitted source; I've tried narrowing down
the problem but it comes and goes when I comment out random parts of the code.
I suspect some kind of overflow somewhere).

When using the above command to compile, I get

gyre_sysmtx.f90: In function '__gyre_sysmtx_MOD_factorize_slu_c._omp_fn.0':
gyre_sysmtx.f90:408:0: internal compiler error: Segmentation fault: 11
           if(recon_mtx_) then
 ^

gyre_sysmtx.f90:408:0: internal compiler error: Abort trap: 6
gfortran.exec: internal compiler error: Abort trap: 6 (program f951)
/Applications/madsdk/bin/gfortran: line 7: 58897 Abort trap: 6          
/Applications/madsdk/bin/gfortran.exec -ffpe-summary=none -fopenmp -c
core_kinds.f90 core_order.f90 core_linalg.f90 core_parallel.f90
gyre_ext_arith.f90 gyre_linalg.f90 gyre_sysmtx.f90

gfortran -v gives:

Using built-in specs.
COLLECT_GCC=/Applications/madsdk/bin/gfortran.exec
COLLECT_LTO_WRAPPER=/Applications/madsdk/libexec/gcc/x86_64-apple-darwin11.4.2/4.9.0/lto-wrapper
Target: x86_64-apple-darwin11.4.2
Configured with: ./configure CC='gcc -D_FORTIFY_SOURCE=0'
--build=x86_64-apple-darwin11.4.2 --prefix=/Applications/madsdk
--with-gmp=/Applications/madsdk --with-mpfr=/Applications/madsdk
--with-mpc=/Applications/madsdk --enable-languages=c,c++,fortran
--disable-multilib --disable-nls
Thread model: posix
gcc version 4.9.0 20130724 (experimental) (GCC) 

FYI, the source code is from the GYRE project:

https://bitbucket.org/rhdtownsend/gyre/wiki/Home

[Bug fortran/58024] ICE due to segmentation fault

[Joost.VandeVondele at mat dot ethz.ch]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58024

Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2013-07-30
                 CC|                            |Joost.VandeVondele at mat dot ethz
                   |                            |.ch
     Ever confirmed|0                           |1

--- Comment #1 from Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> ---
Using 

 gfortran -c -fopenmp  --param=ggc-min-heapsize=0 --param=ggc-min-expand=0 
bug.f90

the testcase reduces to

subroutine factorize_slu_r ()
  factor_loop : do
     !$OMP PARALLEL DO SCHEDULE (DYNAMIC) PRIVATE (info)
     reduce_loop : do k = 1, n-l, 2*l
  if(.NOT. (info >= 0)) then
    stop
  endif
     end do reduce_loop
  end do factor_loop
end subroutine factorize_slu_r


bug.f90: In function ‘factorize_slu_r’:
bug.f90:10:0: internal compiler error: Segmentation fault
 end subroutine factorize_slu_r
 ^
0x9bbe5f crash_signal
    ../../gcc/gcc/toplev.c:334
0x661303 lookup_page_table_entry
    ../../gcc/gcc/ggc-page.c:593
0x661303 ggc_set_mark(void const*)
    ../../gcc/gcc/ggc-page.c:1467
0x85262a gt_ggc_mx_loop(void*)
    /data/vjoost/gnu/gcc_trunk/obj/gcc/gtype-desc.c:896
0x851dc9 gt_ggc_mx_basic_block_def(void*)
    /data/vjoost/gnu/gcc_trunk/obj/gcc/gtype-desc.c:1418
0x8525c5 gt_ggc_mx_control_flow_graph(void*)
    /data/vjoost/gnu/gcc_trunk/obj/gcc/gtype-desc.c:970
0x853f93 gt_ggc_mx_function
    /data/vjoost/gnu/gcc_trunk/obj/gcc/gtype-desc.c:1269
0x853f93 gt_ggc_mx_function(void*)
    /data/vjoost/gnu/gcc_trunk/obj/gcc/gtype-desc.c:1263
0x5eadb1 gt_ggc_mx_lang_tree_node(void*)
    ./gt-fortran-f95-lang.h:294
0x850be7 gt_ggc_mx_rtx_def(void*)
    /data/vjoost/gnu/gcc_trunk/obj/gcc/gtype-desc.c:2115
0x850603 gt_ggc_mx_rtx_def(void*)
    /data/vjoost/gnu/gcc_trunk/obj/gcc/gtype-desc.c:2307
0x851df9 gt_ggc_mx_basic_block_def(void*)
>From gcc-bugs-return-426951-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org Tue Jul 30 07:21:25 2013
Return-Path: <gcc-bugs-return-426951-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Delivered-To: listarch-gcc-bugs@gcc.gnu.org
Received: (qmail 31493 invoked by alias); 30 Jul 2013 07:21:25 -0000
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-bugs.gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
Delivered-To: mailing list gcc-bugs@gcc.gnu.org
Received: (qmail 31402 invoked by uid 48); 30 Jul 2013 07:21:21 -0000
From: "burnus at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/57530] [OOP] Wrongly rejects  type_pointer => class_target (which have identical declared type)
Date: Tue, 30 Jul 2013 07:21:00 -0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: fortran
X-Bugzilla-Version: 4.9.0
X-Bugzilla-Keywords: rejects-valid
X-Bugzilla-Severity: normal
X-Bugzilla-Who: burnus at gcc dot gnu.org
X-Bugzilla-Status: UNCONFIRMED
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags:
X-Bugzilla-Changed-Fields:
Message-ID: <bug-57530-4-2B6zIwdVfX@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-57530-4@http.gcc.gnu.org/bugzilla/>
References: <bug-57530-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: 7bit
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
X-SW-Source: 2013-07/txt/msg01458.txt.bz2
Content-length: 1157

http://gcc.gnu.org/bugzilla/show_bug.cgi?idW530

--- Comment #6 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Author: burnus
Date: Tue Jul 30 07:18:54 2013
New Revision: 201328

URL: http://gcc.gnu.org/viewcvs?rev 1328&root=gcc&view=rev
Log:
2013-07-30  Tobias Burnus  <burnus@net-b.de>

        PR fortran/57530
        * trans-expr.c (gfc_trans_class_assign): Handle CLASS array
        functions.
        (gfc_trans_pointer_assign): Ditto and support pointer assignment
        of a polymorphic var to a nonpolymorphic var.

2013-07-30  Tobias Burnus  <burnus@net-b.de>

        PR fortran/57530
        * gfortran.dg/pointer_assign_8.f90: New.
        * gfortran.dg/pointer_assign_9.f90: New.
        * gfortran.dg/pointer_assign_10.f90: New.
        * gfortran.dg/pointer_assign_11.f90: New.


Added:
    trunk/gcc/testsuite/gfortran.dg/pointer_assign_10.f90
    trunk/gcc/testsuite/gfortran.dg/pointer_assign_11.f90
    trunk/gcc/testsuite/gfortran.dg/pointer_assign_8.f90
    trunk/gcc/testsuite/gfortran.dg/pointer_assign_9.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/testsuite/ChangeLog

[Bug middle-end/58024] [4.9 Regression] segfault with -fopenmp

[rguenth at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58024

Richard Biener <rguenth at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |4.9.0

[Bug middle-end/58024] [4.9 Regression] segfault with -fopenmp

[mpolacek at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58024

Marek Polacek <mpolacek at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |mpolacek at gcc dot gnu.org

--- Comment #2 from Marek Polacek <mpolacek at gcc dot gnu.org> ---
Dup of PR57461?

[Bug middle-end/58024] [4.9 Regression] segfault with -fopenmp

[Joost.VandeVondele at mat dot ethz.ch]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58024

Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
         Resolution|---                         |DUPLICATE

--- Comment #3 from Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> ---
(In reply to Marek Polacek from comment #2)
> Dup of PR57461?

yes, almost certainly so. I've pasted the testcase there, since it is
conveniently small.

*** This bug has been marked as a duplicate of bug 57461 ***