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

2008-10-01 Thread pinskia at gcc dot gnu dot org 


--- Comment #1 from pinskia at gcc dot gnu dot org  2008-10-01 20:10 ---
Reduced testcase:
  module data_C 
  integer, dimension(200) :: l 
  integer ::v
  equivalence ( l(1),  l0 )
  end module data_C 
  subroutine nudata(a, l) 
  USE data_C, only:   v
  integer  :: l(*) 
  end subroutine nudata


-- 

pinskia at gcc dot gnu dot org changed:

   What|Removed |Added

 Status|UNCONFIRMED |NEW
 Ever Confirmed|0   |1
  GCC build triplet|i586-pc-linux-gnu   |
   GCC host triplet|i686-pc-linux-gnu   |
 GCC target triplet|i586-pc-linux-gnu   |
   Keywords||ice-on-valid-code
   Last reconfirmed|-00-00 00:00:00 |2008-10-01 20:10:57
   date||
Summary|ICE: Segmentation fault |ICE with use only and
   ||equivalent


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

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

2008-10-01 Thread 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

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

2008-10-01 Thread dominiq at lps dot ens dot fr 


--- Comment #3 from dominiq at lps dot ens dot fr  2008-10-01 21:24 ---
The ICE also disappears if 'l' is replaced by say 'l1' in the module data_C.


-- 


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