[Bug fortran/39861] [4.5 Regression] ICE with INTRINSIC in module: write_symbol(): bad module symbol

["dominiq at lps dot ens dot fr" <gcc-bugzilla@gcc.gnu.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