[Bug fortran/37706] ICE with use only and equivalent

[dominiq at lps dot ens dot fr]

------- Comment #2 from dominiq at lps dot ens dot fr  2008-10-01 20:26 -------
Confirmed, reduced code:

      module data_C 
      integer, dimension(200) :: l 
      integer :: l0
      integer :: l24, l27, l28, l29
      equivalence ( l(1), l0 )
      end module data_C 

      subroutine nudata(nlibe, a, l) 
      USE data_C, only:  l24, l27, l28, l29
      implicit none
      integer  :: nlibe 
      integer  :: l(*) 
      real :: a(*)
      return  
      end subroutine nudata
end

The ICE disappears if the line

      equivalence ( l(1), l0 )

is commented.


-- 


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