GFORTRAN module created from n3io1.f90 on Thu May 30 10:06:58 2013
If you edit this, you'll get what you deserve.

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

()

()

()

()

(2 'delete' 'n3io1' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE) (UNKNOWN 0 ()) 3 0 (4 5) () 0 () ())
6 'iostat' 'n3io1' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN SAVE)
(INTEGER 4 ()) 0 0 () () 0 () ())
7 'n3io1' 'n3io1' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (
UNKNOWN 0 ()) 0 0 () () 0 () ())
8 'omit_iostat' 'n3io1' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
SAVE) (LOGICAL 4 ()) 0 0 () () 0 () ())
9 'iounit_new' 'n3io1' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE) (UNKNOWN 0 ()) 10 0 (11) () 0 () ())
12 'writeln' 'n3io1' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 ()) 13 0 (14 15) () 0 () ())
16 'open' 'n3io1' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION
ALWAYS_EXPLICIT) (INTEGER 4 ()) 17 0 (18 19 20 21 22 23) () 16 () ())
11 'iunit' '' 10 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
4 'file' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 (()))
0 0 () () 0 () ())
5 'iostat' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
18 'file' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 (
())) 0 0 () () 0 () ())
20 'access' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) (
CHARACTER 1 (())) 0 0 () () 0 () ())
19 'form' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) (
CHARACTER 1 (())) 0 0 () () 0 () ())
21 'status' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) (
CHARACTER 1 (())) 0 0 () () 0 () ())
23 'action' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) (
CHARACTER 1 (())) 0 0 () () 0 () ())
22 'recl' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) (
INTEGER 4 ()) 0 0 () () 0 () ())
15 'unit' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) (
INTEGER 4 ()) 0 0 () () 0 () ())
14 'line' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 (
())) 0 0 () () 0 () ())
)

('open' 0 16 'iounit_new' 0 9 'iostat' 0 6 'delete' 0 2 'omit_iostat' 0
8 'n3io1' 0 7 'writeln' 0 12)