This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/39861] [4.5 Regression] ICE with INTRINSIC in module: write_symbol(): bad module symbol
- From: "dominiq at lps dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 23 Apr 2009 11:25:46 -0000
- Subject: [Bug fortran/39861] [4.5 Regression] ICE with INTRINSIC in module: write_symbol(): bad module symbol
- References: <bug-39861-12313@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #2 from dominiq at lps dot ens dot fr 2009-04-23 11:25 -------
> Where does the symbol 'x' come from?
Good question! The code generate a file vector_calculus.mod0 containing:
GFORTRAN module version '0' created from pr36192_mod_red.f90 on Thu Apr 23
13:17:45 2009
MD5:00000000000000000000000000000000 -- If you edit this, you'll get what you
deserve.
(() () () () () () () () () () () () () () () () () () () () () () () ()
() () ())
()
()
()
()
(2 'dot_product' '(intrinsic)' 'dot_product' 1 ((PROCEDURE
UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN INTRINSIC FUNCTION) (REAL 4 0 0
REAL ()) 3 0 (4 5) () 2 () () () 0 0)
6 'len' 'vector_calculus' 'len' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN FUNCTION ALWAYS_EXPLICIT) (REAL 4 0 0 REAL ()) 7 0 (8) () 6
() () () 0 0)
9 'sqrt' '(intrinsic)' 'sqrt' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC
DECL UNKNOWN INTRINSIC FUNCTION) (REAL 4 0 0 REAL ()) 10 0 (11) () 9 ()
() () 0 0)
12 'vector_calculus' 'vector_calculus' 'vector_calculus' 1 ((MODULE
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ())
0 0 () () 0 () () () 0 0)
8 'r' '' 'r' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION
DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4
0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
the only 'x' being in "ALWAYS_EXPLICIT".
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39861