------- Comment #11 from bergner at gcc dot gnu dot org  2008-02-05 19:34 -------
Now we get a different ICE with the following test case:

bergner@etna:~/gcc/PR29253/bugs> cat _abs_r16.f95 
elemental function _gfortran_specific__abs_r16 (parm)
   real (kind=16), intent (in) :: parm
   real (kind=16) :: _gfortran_specific__abs_r16
   _gfortran_specific__abs_r16 = abs (parm)
end function
bergner@etna:~/gcc/PR29253/bugs>
/home/bergner/gcc/PR29253/build/gcc-mainline-patched-v2/./gcc/gfortran
-B/home/bergner/gcc/PR29253/build/gcc-mainline-patched-v2/./gcc/ 
-fallow-leading-underscore -O0 -msoft-float -c _abs_r16.f95
_abs_r16.f95: In function ‘_gfortran_specific__abs_r16’:
_abs_r16.f95:4: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.


GDB backtrace:

Program received signal SIGSEGV, Segmentation fault.
build_fold_addr_expr (t=0x0) at
/home/bergner/gcc/PR29253/gcc-mainline-patched/gcc/fold-const.c:7905
7905                                               build_pointer_type
(TREE_TYPE (t)),
(gdb) bt 5
#0  build_fold_addr_expr (t=0x0) at
/home/bergner/gcc/PR29253/gcc-mainline-patched/gcc/fold-const.c:7905
#1  0x101d16bc in expand_expr_real_1 (exp=0xf7ed2920, target=0xf7ed2c60,
tmode=TFmode, modifier=EXPAND_NORMAL, 
    alt_rtl=<value optimized out>) at
/home/bergner/gcc/PR29253/gcc-mainline-patched/gcc/expr.c:8757
#2  0x101d16bc in expand_expr_real_1 (exp=0xf7ed2920, target=0xf7ed2c60,
tmode=TFmode, modifier=EXPAND_NORMAL, 
    alt_rtl=<value optimized out>) at
/home/bergner/gcc/PR29253/gcc-mainline-patched/gcc/expr.c:8757
#3  0x101d16bc in expand_expr_real_1 (exp=0xf7ed2920, target=0xf7ed2c60,
tmode=TFmode, modifier=EXPAND_NORMAL, 
    alt_rtl=<value optimized out>) at
/home/bergner/gcc/PR29253/gcc-mainline-patched/gcc/expr.c:8757
#4  0x101d16bc in expand_expr_real_1 (exp=0xf7ed2920, target=0xf7ed2c60,
tmode=TFmode, modifier=EXPAND_NORMAL, 
    alt_rtl=<value optimized out>) at
/home/bergner/gcc/PR29253/gcc-mainline-patched/gcc/expr.c:8757
(More stack frames follow...)
(gdb) frame 1
#1  0x101d16bc in expand_expr_real_1 (exp=0xf7ed2920, target=0xf7ed2c60,
tmode=TFmode, modifier=EXPAND_NORMAL, 
    alt_rtl=<value optimized out>) at
/home/bergner/gcc/PR29253/gcc-mainline-patched/gcc/expr.c:8757
8757              tree call = build_fold_addr_expr (mathfn_built_in (type,
BUILT_IN_FABS));
(gdb) ptree exp
 <abs_expr 0xf7ed2920
    type <real_type 0xf7e9ac40 real(kind=16) TF
        size <integer_cst 0xf7fd7870 constant invariant 128>
        unit size <integer_cst 0xf7fd78a0 constant invariant 16>
        align 128 symtab 0 alias set -1 canonical type 0xf7e9ac40 precision 128
        pointer_to_this <pointer_type 0xf7e9ad90> reference_to_this
<reference_type 0xf7ed19a0>>

    arg 0 <var_decl 0xf7ed1af0 D.602 type <real_type 0xf7e9ac40 real(kind=16)>
        used ignored TF file _abs_r16.f95 line 5 col 0 size <integer_cst
0xf7fd7870 128> unit size <integer_cst 0xf7fd78a0 16>
        align 128 context <function_decl 0xf7ed3600
_gfortran_specific__abs_r16>
        (reg:TF 121 [ D.602 ])
        chain <var_decl 0xf7ed1b60 __result__gfortran_specific__.0 type
<real_type 0xf7e9ac40 real(kind=16)>
            used ignored TF file _abs_r16.f95 line 5 col 0 size <integer_cst
0xf7fd7870 128> unit size <integer_cst 0xf7fd78a0 16>
            align 128 context <function_decl 0xf7ed3600
_gfortran_specific__abs_r16>
            (reg:TF 120 [ __result__gfortran_specific__.0 ]) chain <var_decl
0xf7ed1bd0 D.604>>>>     
(gdb) pr target
(reg:TF 120 [ __result__gfortran_specific__.0 ])


-- 


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