GFORTRAN module created from frthash.f90 on Thu May 30 10:38:02 2013
If you edit this, you'll get what you deserve.

(() () () () () () () () () () () () () () () () () () () () ())

()

()

()

()

(2 'common' 'common' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (
UNKNOWN 0 ()) 0 0 () () 0 () ())
3 'query' 'common' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (
CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '128'))) 0 0 () () 0 () ())
)

('query' 0 3 'common' 0 2)