[Bug fortran/35478] New: internal compiler error: Segmentation fault

[Bug fortran/35478] New: internal compiler error: Segmentation fault

[dennis dot wassel at googlemail dot com]

When trying to build some data processing stuff (using an interface for some
median functions in a module), I get an "internal compiler error: Segmentation
fault".
This code snippet should *not* compile anyway (there being no median function
taking two arguments) but I think a compiler segfault is a rather drastic way
of telling me :-)

----------------
 Command line:
----------------
gfortran -v -save-temps -c main.f90

--------------------
 Compiler output:
--------------------
Using built-in specs.
Target: i686-pc-linux-gnu
Configured with: /home/dwassel/Installationen/gcc-4.2.3/configure
--prefix=/home/dwassel --program-suffix=-4.2.3 --enable-languages=c,c++,fortran
--with-gmp=/home/dwassel --with-mpfr=/home/dwassel --with-arch=i686
--with-tune=i686
Thread model: posix
gcc version 4.2.3
 /localdata/bin/../libexec/gcc/i686-pc-linux-gnu/4.2.3/f951 main.f90 -quiet
-dumpbase main.f90 -mtune=i686 -march=i686 -auxbase main -version -I
/localdata/bin/../lib/gcc/i686-pc-linux-gnu/4.2.3/finclude -o main.s
GNU F95 version 4.2.3 (i686-pc-linux-gnu)
        compiled by GNU C version 4.2.3.
GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
main.f90:46.9:

  data = median(rawData, work)
        1
Error: There is no specific function for the generic 'median' at (1)
main.f90:19: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

-------------
 My System:
-------------
Linux version 2.6.18-6-k7 (Debian 2.6.18.dfsg.1-18etch1) (waldi@debian.org)
(gcc version 4.1.2 20061115 (prerelease) (Debian 4.1.1-21)) #1 SMP Sun Feb 10
22:16:15 UTC 2008

---------------------------------------
 The original source code (main.f90):
---------------------------------------
MODULE auxiliary

  IMPLICIT NONE

  INTEGER, PARAMETER, PRIVATE :: dp = SELECTED_REAL_KIND(15)

  INTERFACE median
     MODULE PROCEDURE R_valmed, I_valmed, D_valmed
  END INTERFACE

  PUBLIC  :: median
  PRIVATE :: R_valmed, I_valmed, D_valmed

CONTAINS

  RECURSIVE FUNCTION D_valmed (XDONT) RESULT (res_med)
    Real (kind=dp), Dimension (:), Intent (In) :: XDONT
    Real (kind=dp) :: res_med
    res_med = 0.0d0
  END FUNCTION D_valmed

  RECURSIVE FUNCTION R_valmed (XDONT) RESULT (res_med)
    Real, Dimension (:), Intent (In) :: XDONT
    Real :: res_med
    res_med = 0.0
  END FUNCTION R_valmed

  RECURSIVE FUNCTION I_valmed (XDONT) RESULT (res_med)
    Integer, Dimension (:), Intent (In)  :: XDONT
    Integer :: res_med
    res_med = 0
  END FUNCTION I_valmed

END MODULE auxiliary


PROGRAM main

  USE auxiliary

  IMPLICIT NONE

  INTEGER, PARAMETER    :: dp = SELECTED_REAL_KIND(15)
  REAL(kind=dp) :: rawData(2), data, work(3)

  data = median(rawData, work)

END PROGRAM main


-------------------------------
 -save-temp output (main.s):
-------------------------------
        .file   "main.f90"
        .text
.globl __auxiliary__i_valmed
        .type   __auxiliary__i_valmed, @function
__auxiliary__i_valmed:
        pushl   %ebp
        movl    %esp, %ebp
        subl    $16, %esp
        movl    $0, -4(%ebp)
        movl    -4(%ebp), %eax
        leave
        ret
        .size   __auxiliary__i_valmed, .-__auxiliary__i_valmed
.globl __auxiliary__r_valmed
        .type   __auxiliary__r_valmed, @function
__auxiliary__r_valmed:
        pushl   %ebp
        movl    %esp, %ebp
        subl    $20, %esp
        movl    $0x00000000, %eax
        movl    %eax, -4(%ebp)
        movl    -4(%ebp), %eax
        movl    %eax, -20(%ebp)
        flds    -20(%ebp)
        leave
        ret
        .size   __auxiliary__r_valmed, .-__auxiliary__r_valmed
.globl __auxiliary__d_valmed
        .type   __auxiliary__d_valmed, @function
__auxiliary__d_valmed:
        pushl   %ebp
        movl    %esp, %ebp
        subl    $16, %esp
        fldz
        fstpl   -8(%ebp)
        fldl    -8(%ebp)
        leave
        ret
        .size   __auxiliary__d_valmed, .-__auxiliary__d_valmed


-- 
           Summary: internal compiler error: Segmentation fault
           Product: gcc
           Version: 4.2.3
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dennis dot wassel at googlemail dot com
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


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

[Bug fortran/35478] internal compiler error: Segmentation fault

[dominiq at lps dot ens dot fr]

------- Comment #1 from dominiq at lps dot ens dot fr  2008-03-06 10:57 -------
Confirmed with 4.2.3, fixed at least in 4.3.0 2008021 and  trunk (4.4.0):

pr35478.f90:46.9:

  data = median(rawData, work)
        1
Error: There is no specific function for the generic 'median' at (1)


-- 


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

[Bug fortran/35478] [4.2 regression] internal compiler error: Segmentation fault

[fxcoudert at gcc dot gnu dot org]

------- Comment #2 from fxcoudert at gcc dot gnu dot org  2008-03-07 11:57 -------
Confirmed on i686-linux; it is a 4.2 regression, as it used to work with 4.0.4
and 4.1.2. It was fixed in 4.3 and 4.4, and it's an ICE on invalid code, so
chances that we fix it are really close to zero. (I actually think we should
close this as WONTFIX.)

PS: I've also checked that mainline does not give any warning with valgrind on
this testcase, nor on a modified, valid-code testcase.


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |fxcoudert at gcc dot gnu dot
                   |                            |org
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |ice-on-invalid-code
      Known to fail|                            |4.2.3
      Known to work|                            |4.0.4 4.1.2 4.3.0 4.4.0
   Last reconfirmed|0000-00-00 00:00:00         |2008-03-07 11:57:30
               date|                            |
            Summary|internal compiler error:    |[4.2 regression] internal
                   |Segmentation fault          |compiler error: Segmentation
                   |                            |fault


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

[Bug fortran/35478] [4.2 regression] internal compiler error: Segmentation fault

[pinskia at gcc dot gnu dot org]

-- 

pinskia at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |pinskia at gcc dot gnu dot
                   |                            |org
   Target Milestone|---                         |4.2.4


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

[Bug fortran/35478] [4.2 regression] internal compiler error: Segmentation fault

[jvdelisle at gcc dot gnu dot org]

------- Comment #3 from jvdelisle at gcc dot gnu dot org  2008-03-14 05:36 -------
I agree we should close this.  Check the gfortran wiki for binaries of the
lates versions of gfortran.  I will submit a test case to avoid further
regressions.


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |jvdelisle at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2008-03-07 11:57:30         |2008-03-14 05:36:52
               date|                            |


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

[Bug fortran/35478] [4.2 regression] internal compiler error: Segmentation fault

[jvdelisle at gcc dot gnu dot org]

------- Comment #4 from jvdelisle at gcc dot gnu dot org  2008-03-15 07:32 -------
Subject: Bug 35478

Author: jvdelisle
Date: Sat Mar 15 07:32:13 2008
New Revision: 133239

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=133239
Log:
2008-03-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR testsuite/35478
        gfortran.dg/generic_16.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/generic_16.f90
Modified:
    trunk/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/35478] [4.2 regression] internal compiler error: Segmentation fault

[jvdelisle at gcc dot gnu dot org]

------- Comment #5 from jvdelisle at gcc dot gnu dot org  2008-03-15 07:34 -------
Closing. Thankyou for bug report.  Test case committed.


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED


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