[Bug fortran/34545] ICE when compiling Fortran 95 code

["dfranke at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #6 from dfranke at gcc dot gnu dot org  2007-12-21 09:47 -------
I can not reproduce the valgrind error, but ...

> module blk1_mod
>  implicit none
>  integer :: numclusters = 2
> end module blk1_mod

... the ICE goes away if 'numclusters' is defined as a parameter.

Further reduced testcase:
module blk1_mod
  implicit none
  integer :: numclusters = 2
end module blk1_mod

module kmeans_aux
  implicit none
  contains
    function get_nfirst( ) result(fnres)
      use blk1_mod, only: numclusters
      implicit none
      real :: fnres(numclusters)
    end function get_nfirst
end module kmeans_aux

program kmeans_driver
   use blk1_mod
   use kmeans_aux
   implicit none
   integer, allocatable :: nfirst(:)
   allocate(nfirst(1:numclusters))
   nfirst(1:numclusters) = get_nfirst( )
end program kmeans_driver


-- 

dfranke at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |dfranke at gcc dot gnu dot
                   |                            |org


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