* [Bug fortran/16580] gfortran ICE on test g77.f-torture/execute/intrinsic77.f
2004-07-16 1:10 [Bug fortran/16580] New: gfortran ICE on test g77.f-torture/execute/intrinsic77.f billingd at gcc dot gnu dot org
@ 2004-07-17 3:16 ` pinskia at gcc dot gnu dot org
2004-07-17 3:18 ` pinskia at gcc dot gnu dot org
` (3 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2004-07-17 3:16 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2004-07-17 03:16 -------
Confirmed, here is the reduced testcase for this ICE:
subroutine p_i_chch(f,x1,x2,a,label)
c Check if INTEGER f(x1,x2) equals a for CHARACTER x1 and x2
character*(*) x1,x2
integer f, a
character*(*) label
call c_i(f(x1,x2),a,label)
end
subroutine index_of_substring
intrinsic index
call c_i(INDEX('ABCDEF','C'),3,'INDEX 1')
call p_i_chch(INDEX,'ABCDEF','C',3,'INDEX 2')
end
--
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed| |1
Keywords| |ice-on-valid-code
Last reconfirmed|0000-00-00 00:00:00 |2004-07-17 03:16:26
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16580
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/16580] gfortran ICE on test g77.f-torture/execute/intrinsic77.f
2004-07-16 1:10 [Bug fortran/16580] New: gfortran ICE on test g77.f-torture/execute/intrinsic77.f billingd at gcc dot gnu dot org
2004-07-17 3:16 ` [Bug fortran/16580] " pinskia at gcc dot gnu dot org
@ 2004-07-17 3:18 ` pinskia at gcc dot gnu dot org
2004-07-19 15:28 ` reichelt at gcc dot gnu dot org
` (2 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2004-07-17 3:18 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2004-07-17 03:18 -------
That example should have been without the following line:
call c_i(INDEX('ABCDEF','C'),3,'INDEX 1')
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16580
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/16580] gfortran ICE on test g77.f-torture/execute/intrinsic77.f
2004-07-16 1:10 [Bug fortran/16580] New: gfortran ICE on test g77.f-torture/execute/intrinsic77.f billingd at gcc dot gnu dot org
2004-07-17 3:16 ` [Bug fortran/16580] " pinskia at gcc dot gnu dot org
2004-07-17 3:18 ` pinskia at gcc dot gnu dot org
@ 2004-07-19 15:28 ` reichelt at gcc dot gnu dot org
2004-07-21 21:16 ` tobi at gcc dot gnu dot org
2005-01-06 14:40 ` tobi at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: reichelt at gcc dot gnu dot org @ 2004-07-19 15:28 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From reichelt at gcc dot gnu dot org 2004-07-19 15:28 -------
Here's an even shorter testcase:
=================================
subroutine FOO
intrinsic INDEX
call BAR(INDEX)
end
=================================
--
What |Removed |Added
----------------------------------------------------------------------------
CC| |reichelt at gcc dot gnu dot
| |org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16580
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/16580] gfortran ICE on test g77.f-torture/execute/intrinsic77.f
2004-07-16 1:10 [Bug fortran/16580] New: gfortran ICE on test g77.f-torture/execute/intrinsic77.f billingd at gcc dot gnu dot org
` (2 preceding siblings ...)
2004-07-19 15:28 ` reichelt at gcc dot gnu dot org
@ 2004-07-21 21:16 ` tobi at gcc dot gnu dot org
2005-01-06 14:40 ` tobi at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: tobi at gcc dot gnu dot org @ 2004-07-21 21:16 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From tobi at gcc dot gnu dot org 2004-07-21 21:16 -------
The lines surrounding the assertion read like this:
if (sym->attr.intrinsic)
{
/* Call the resolution function to get the actual name. This is
a nasty hack which relies on the resolution functions only looking
at the first argument. We pass NULL for the second argument
otherwise things like AINT get confused. */
isym = gfc_find_function (sym->name);
assert (isym->resolve.f0 != NULL);
I remember seeing that g95 had some code in place for storing the actual name of
an instrinsic. But I also remember thinking that that code seemed very ad-hoc
(certainly less than this code, though), so I refreained from porting it. (I
currently have very little time, otherwise I'd look much closer into the issues
where I'm only throwing pointers now. sorry)
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16580
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/16580] gfortran ICE on test g77.f-torture/execute/intrinsic77.f
2004-07-16 1:10 [Bug fortran/16580] New: gfortran ICE on test g77.f-torture/execute/intrinsic77.f billingd at gcc dot gnu dot org
` (3 preceding siblings ...)
2004-07-21 21:16 ` tobi at gcc dot gnu dot org
@ 2005-01-06 14:40 ` tobi at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: tobi at gcc dot gnu dot org @ 2005-01-06 14:40 UTC (permalink / raw)
To: gcc-bugs
--
What |Removed |Added
----------------------------------------------------------------------------
OtherBugsDependingO| |19292
nThis| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16580
^ permalink raw reply [flat|nested] 6+ messages in thread