[Bug fortran/35940] Array BACK ignored in INDEX intrinsic when other args scalar

[fxcoudert at gcc dot gnu dot org]

--- Comment #7 from fxcoudert at gcc dot gnu dot org  2008-05-12 18:02 
---
Patch committed, fixed on mainline.


-- 

fxcoudert at gcc dot gnu dot org changed:

   What|Removed |Added

 CC||fxcoudert at gcc dot gnu dot
   ||org
 Status|NEW |RESOLVED
 Resolution||FIXED
   Target Milestone|--- |4.4.0


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

[Bug fortran/35940] Array BACK ignored in INDEX intrinsic when other args scalar

[bdavis at gcc dot gnu dot org]

--- Comment #3 from bdavis at gcc dot gnu dot org  2008-04-29 19:23 ---
this looks promising:

Index: gcc/gcc/fortran/simplify.c
===
--- gcc/gcc/fortran/simplify.c  (revision 134801)
+++ gcc/gcc/fortran/simplify.c  (working copy)
@@ -1570,7 +1570,8 @@
   int back, len, lensub;
   int i, j, k, count, index = 0, start;

-  if (x-expr_type != EXPR_CONSTANT || y-expr_type != EXPR_CONSTANT)
+  if (x-expr_type != EXPR_CONSTANT || y-expr_type != EXPR_CONSTANT 
+  || b-expr_type !=  EXPR_CONSTANT)
 return NULL;

   if (b != NULL  b-value.logical != 0)


-- 


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

[Bug fortran/35940] Array BACK ignored in INDEX intrinsic when other args scalar

[jvdelisle at gcc dot gnu dot org]

--- Comment #4 from jvdelisle at gcc dot gnu dot org  2008-04-30 00:00 
---
Note the last line of patch is checking for b != NULL before using it. 
Probably want to do likewise for the added test condition above.


-- 


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

[Bug fortran/35940] Array BACK ignored in INDEX intrinsic when other args scalar

[bdavis at gcc dot gnu dot org]

--- Comment #5 from bdavis at gcc dot gnu dot org  2008-04-30 00:54 ---
close.  here is a better patch.

http://gcc.gnu.org/ml/fortran/2008-04/msg00278.html


-- 


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

[Bug fortran/35940] Array BACK ignored in INDEX intrinsic when other args scalar

[bdavis at gcc dot gnu dot org]

--- Comment #6 from bdavis at gcc dot gnu dot org  2008-04-30 00:55 ---
notice the 6 minutes between the above posts :)
jerry was correct, it needed a NULL check. 


-- 


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

[Bug fortran/35940] Array BACK ignored in INDEX intrinsic when other args scalar

[tkoenig at gcc dot gnu dot org]

--- Comment #2 from tkoenig at gcc dot gnu dot org  2008-04-16 18:09 ---
Confirmed, not a regression.


-- 

tkoenig at gcc dot gnu dot org changed:

   What|Removed |Added

   Keywords||wrong-code


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

[Bug fortran/35940] Array BACK ignored in INDEX intrinsic when other args scalar

[tkoenig at gcc dot gnu dot org]

-- 

tkoenig at gcc dot gnu dot org changed:

   What|Removed |Added

 Status|UNCONFIRMED |NEW
 Ever Confirmed|0   |1
   Last reconfirmed|-00-00 00:00:00 |2008-04-16 18:16:05
   date||


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

[Bug fortran/35940] Array BACK ignored in INDEX intrinsic when other args scalar

[dick dot hendrickson at gmail dot com]

--- Comment #1 from dick dot hendrickson at gmail dot com  2008-04-14 21:49 
---
I forgot to include the output

C:\gfortrangfortran fa1031.f

C:\gfortrana
 T F T F T F T F T F
 1 1 1 1 1 1 1 1 1 1
 4 1 4 1 4 1 4 1 4 1
 4


-- 

dick dot hendrickson at gmail dot com changed:

   What|Removed |Added

 CC||dick dot hendrickson at
   ||gmail dot com


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