[Bug fortran/32343] New: ICE with arrays and vector valued functions from a used module

[Bug fortran/32343] New: ICE with arrays and vector valued functions from a used module

[terry at chem dot gu dot se]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 2256 bytes --]

[tjf@fkpc167]$ cat radiimod.f90
module SortedRadii
implicit none
integer::Nr
real(kind=8),dimension(5)::aux2
contains

function GetEpsR(i) result (x)
integer,intent(in)::i
real(kind=8),dimension(Nr)::x
x=1
end function GetEpsR

end module SortedRadii
[tjf@fkpc167]$ gfortran -c radiimod.f90
[tjf@fkpc167]$ cat acmod.f90
module AC
use SortedRadii
implicit none

contains

function Emax(Jtot,j,omega) result (Em)
integer,intent(in)::Jtot,j,omega
real(kind=8)::Em
integer::n,ri
  n=5
  aux2(1:n)=GetEpsR(j)+(/(ri,ri=1,n)/)
end function Emax

end module
[tjf@fkpc167]$ gfortran -v -c acmod.f90
Using built-in specs.
Target: x86_64-unknown-linux-gnu
Configured with: ./configure --disable-multilib --enable-languages=fortran
Thread model: posix
gcc version 4.2.0 20070501 (prerelease)
 /usr/local/libexec/gcc/x86_64-unknown-linux-gnu/4.2.0/f951 acmod.f90 -quiet
-dumpbase acmod.f90 -mtune=generic -auxbase acmod -version -I
/usr/local/lib/gcc/x86_64-unknown-linux-gnu/4.2.0/finclude -o /tmp/ccDqZ5yW.s
GNU F95 version 4.2.0 20070501 (prerelease) (x86_64-unknown-linux-gnu)
        compiled by GNU C version 4.2.0 20070501 (prerelease).
GGC heuristics: --param ggc-min-expand=89 --param ggc-min-heapsize=112193
acmod.f90: In function ‘emax’:
acmod.f90:11: internal compiler error: in gfc_get_symbol_decl, at
fortran/trans-decl.c:863
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


I suspect the problem comes from the fact that the size of the vector returned
by GetEpsR is comes from Nr in SortedRadii while the others come from n in AC. 
(It's up to the caller to make sure these are the same before Emax is called.) 
The ICE goes away if the 'n's in the aux2 assignment line are changed to 5s or
'Nr's.


-- 
           Summary: ICE with arrays and vector valued functions from a used
                    module
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: terry at chem dot gu dot se
  GCC host triplet: x86_64-unknown-linux-gnu


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

[Bug fortran/32343] ICE with arrays and vector valued functions from a used module

[terry at chem dot gu dot se]

------- Comment #1 from terry at chem dot gu dot se  2007-06-14 15:24 -------
Or maybe not.  If x is explicitly 5-element in GetEpsR (no reference to Nr) the
ICE still occurs.


-- 


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

[Bug fortran/32343] ICE with arrays and vector valued functions from a used module

[burnus at gcc dot gnu dot org]

------- Comment #2 from burnus at gcc dot gnu dot org  2007-06-15 05:59 -------
I can reproduce this with 4.1.3 and 4.2, but not with 4.3.


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
      Known to fail|                            |4.2.0 4.1.3
      Known to work|                            |4.3.0


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

[Bug fortran/32343] [4.1/4.2 only] ICE with arrays and vector valued functions from a used module

[burnus at gcc dot gnu dot org]

------- Comment #3 from burnus at gcc dot gnu dot org  2007-06-25 09:53 -------
Could you try it with gfortran 4.3, available from:
http://gcc.gnu.org/wiki/GFortranBinaries

As this is fixed in 4.3 and it is neither a regression nor a wrong-code bug, I
don't think we will fix it for 4.2 due to lack of time/manpower and due to the
"regression fixes and docs only" rule of GCC.


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   GCC host triplet|x86_64-unknown-linux-gnu    |
            Summary|ICE with arrays and vector  |[4.1/4.2 only] ICE with
                   |valued functions from a used|arrays and vector valued
                   |module                      |functions from a used module


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

[Bug fortran/32343] [4.1/4.2 only] ICE with arrays and vector valued functions from a used module

[fxcoudert at gcc dot gnu dot org]

------- Comment #4 from fxcoudert at gcc dot gnu dot org  2007-08-08 17:32 -------
4.1 and 4.2 only means closing as WONTFIX, sorry :(

Please reopen if this bug happens with the latest gfortran.


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|                            |WONTFIX


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