GFORTRAN module created from n3fmt.f90 on Thu May 30 10:37:28 2013
If you edit this, you'll get what you deserve.

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

()

(('hex' '' 2))

()

()

(3 'dfmt_decimal' 'n3fmt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE) (UNKNOWN 0 ()) 4 0 (5 6 7) () 0 () ())
8 'fmt_decimal' 'n3fmt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE) (UNKNOWN 0 ()) 9 0 (10 11) () 0 () ())
12 'digit' 'n3fmt' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
DIMENSION) (CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '1'))) 0 0 () (
ARRAY (CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '1'))) 1 (((CONSTANT (
CHARACTER 1 ()) 0 1 '0') ()) ((CONSTANT (CHARACTER 1 ()) 0 1 '1') ()) (
(CONSTANT (CHARACTER 1 ()) 0 1 '2') ()) ((CONSTANT (CHARACTER 1 ()) 0 1
'3') ()) ((CONSTANT (CHARACTER 1 ()) 0 1 '4') ()) ((CONSTANT (CHARACTER
1 ()) 0 1 '5') ()) ((CONSTANT (CHARACTER 1 ()) 0 1 '6') ()) ((CONSTANT (
CHARACTER 1 ()) 0 1 '7') ()) ((CONSTANT (CHARACTER 1 ()) 0 1 '8') ()) (
(CONSTANT (CHARACTER 1 ()) 0 1 '9') ()) ((CONSTANT (CHARACTER 1 ()) 0 1
'A') ()) ((CONSTANT (CHARACTER 1 ()) 0 1 'B') ()) ((CONSTANT (CHARACTER
1 ()) 0 1 'C') ()) ((CONSTANT (CHARACTER 1 ()) 0 1 'D') ()) ((CONSTANT (
CHARACTER 1 ()) 0 1 'E') ()) ((CONSTANT (CHARACTER 1 ()) 0 1 'F') ())) (
'16')) (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '0') (CONSTANT (INTEGER 4
()) 0 '15')) 0 () ())
13 'fmt_hexa' 'n3fmt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE) (UNKNOWN 0 ()) 14 0 (15 16) () 0 () ())
17 'dfmt_hex' 'n3fmt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE) (UNKNOWN 0 ()) 18 0 (19 20 21) () 0 () ())
2 'i4_hex' 'n3fmt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
FUNCTION) (CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '8'))) 22 0 (23) ()
24 () ())
25 'n3fmt' 'n3fmt' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (
UNKNOWN 0 ()) 0 0 () () 0 () ())
26 'hexdigit2val' 'n3fmt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE) (UNKNOWN 0 ()) 27 0 (28 29) () 0 () ())
23 'i' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0
0 () () 0 () ())
24 'result' '' 22 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT)
(CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '8'))) 0 0 () () 0 () ())
28 'c' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 ((
CONSTANT (INTEGER 4 ()) 0 '1'))) 0 0 () () 0 () ())
29 'result' '' 27 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4
()) 0 0 () () 0 () ())
20 'x' '' 18 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0
0 () () 0 () ())
6 'x' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0
() () 0 () ())
15 'x' '' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0
0 () () 0 () ())
16 'buf' '' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 (
())) 0 0 () () 0 () ())
10 'x' '' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0
() () 0 () ())
11 'buf' '' 9 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 (
())) 0 0 () () 0 () ())
7 'stat' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
5 'buf' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 (()))
0 0 () () 0 () ())
21 'stat' '' 18 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
19 'buf' '' 18 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 (
())) 0 0 () () 0 () ())
)

('hexdigit2val' 0 26 'dfmt_hex' 0 17 'dfmt_decimal' 0 3 'fmt_hexa' 0 13
'digit' 0 12 'fmt_decimal' 0 8 'n3fmt' 0 25 'i4_hex' 0 2)