[Bug fortran/16580] gfortran ICE on test g77.f-torture/execute/intrinsic77.f

[pinskia at gcc dot gnu dot org]

------- 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