gfortran assertion fail in trans-decl.c:411 gfc_finish_var_decl

[Jonathan Wright <wright at esrf dot fr>]

Hi there, 

Tried out gfortran today following instructions to build it being posted
on comp.lang.fortran. Source attached. Compiler output is below. Code
compiles fairly cleanly with other fortrans (uses $ edit descriptor
extension, but that did not seem to be the problem here).

Thanks for doing a great job!

Jon
---

crunch:~/nuweb/bug % /users/wright/gfortran//gcc-ssa/bin/gfortran -v 
-save-temps id31sum.f90
Driving: /users/wright/gfortran//gcc-ssa/bin/gfortran -v -save-temps 
id31sum.f90
 -lgfortranbegin -lgfortran -lm -shared-libgcc
Reading specs from
/users/wright/gfortran/gcc-ssa/bin/../lib/gcc/i686-pc-linux-gnu/3.5-tree-ssa/specs
Configured with: ../gcc/configure --disable-checking --prefix=/tmp/gcc-ssa
--enable-languages=c,c++,f95 --with-gmp=/usr
Thread model: posix
gcc version 3.5-tree-ssa 20040423 (merged 20040414)

/users/wright/gfortran/gcc-ssa/bin/../libexec/gcc/i686-pc-linux-gnu/3.5-tree-ss
a/f951 id31sum.f90 -quiet -dumpbase id31sum.f90 -mtune=pentiumpro -auxbase
id31sum -version -o id31sum.s
GNU F95 version 3.5-tree-ssa 20040423 (merged 20040414)
(i686-pc-linux-gnu)
        compiled by GNU C version 3.5-tree-ssa 20040423 (merged 20040414).
GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
f951: ../../gcc/gcc/fortran/trans-decl.c:411: gfc_finish_var_decl:
Assertion `current_function_decl == (tree) ((void *)0)' failed.
id31sum.f90: In function `split':
id31sum.f90:73: internal compiler error: Aborted
Please submit a full bug report,
with preprocessed source if appropriate.               

crunch:~/nuweb/bug % uname -a
Linux crunch 2.4.20-64GB-SMP #1 SMP Wed Dec 17 18:20:26 UTC 2003 i686
unknown unknown GNU/Linux

Attachment: id31sum.f90
Description: Text document