------- 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
