GFORTRAN module created from n3error.f90 on Thu May 30 10:37:28 2013 If you edit this, you'll get what you deserve. (() () () () () () () () () () () () () () () () () () () () ()) () () () () (2 'ebackspace' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '17') () 0 () ()) 3 'ealloc' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '3') () 0 () ()) 4 'die' 'n3error' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 ()) 5 0 (6 7 8) () 0 () ()) 9 'ebadclass' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '7') () 0 () ()) 10 'eclosed' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '19') () 0 () ()) 11 'eclose' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '16') () 0 () ()) 12 'eblkno' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '26') () 0 () ()) 13 'edupname' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '6') () 0 () ()) 14 'edealloc' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '4') () 0 () ()) 15 'eblankname' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '5') () 0 () ()) 16 'einqname' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '23') () 0 () ()) 17 'einval' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '11') () 0 () ()) 18 'eexperimental' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '12') () 0 () ()) 19 'ebadid' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '8') () 0 () ()) 20 'enoclosedunit' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '20') () 0 () ()) 21 'elongname' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '21') () 0 () ()) 22 'eiolen' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '22') () 0 () ()) 23 'enotinit' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '9') () 0 () ()) 24 'erdonly' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '24') () 0 () ()) 25 'eread' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '14') () 0 () ()) 26 'erewind' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '18') () 0 () ()) 27 'error_add' 'n3error' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 28 0 (29 30) () 0 () ()) 31 'errmsg' 'n3error' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DIMENSION DATA) (CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '48'))) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ()) 0 '26')) 0 () ()) 32 'eopen' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '15') () 0 () ()) 33 'error_count' 'n3error' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 34 0 (35) () 0 () ()) 36 'error_peek' 'n3error' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 37 0 (38 39 40) () 0 () ()) 41 'error_set' 'n3error' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 42 0 (43 44) () 0 () ()) 45 'ethrough' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '1') () 0 () ()) 46 'etabful' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '2') () 0 () ()) 47 'ewronly' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '25') () 0 () ()) 48 'message_len' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '80') () 0 () ()) 49 'reftab' 'n3error' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DIMENSION DATA) (INTEGER 4 ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ()) 0 '2951')) 0 () ()) 50 'n3error' 'n3error' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) ( UNKNOWN 0 ()) 0 0 () () 0 () ()) 51 'n3errnum' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '40') () 0 () ()) 52 'trace' 'n3error' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 ()) 53 0 (54 55) () 0 () ()) 56 'ewrite' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '13') () 0 () ()) 57 'error_clear' 'n3error' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 0 0 () () 0 () ()) 58 'enotfound' 'n3error' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '10') () 0 () ()) 43 'xref' '' 42 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 44 'code' '' 42 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 29 'xref' '' 28 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 35 'count' '' 34 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 30 'code' '' 28 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 38 'n' '' 37 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 39 'message' '' 37 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) ( CHARACTER 1 (())) 0 0 () () 0 () ()) 54 'unit' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) ( INTEGER 4 ()) 0 0 () () 0 () ()) 55 'prefix' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) ( CHARACTER 1 (())) 0 0 () () 0 () ()) 6 'xref' '' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) ( INTEGER 4 ()) 0 0 () () 0 () ()) 8 'unit' '' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) ( INTEGER 4 ()) 0 0 () () 0 () ()) 7 'code' '' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) ( INTEGER 4 ()) 0 0 () () 0 () ()) 40 'reference' '' 37 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) ( CHARACTER 1 (())) 0 0 () () 0 () ()) ) ('enotfound' 0 58 'eiolen' 0 22 'ebadid' 0 19 'ebadclass' 0 9 'die' 0 4 'ealloc' 0 3 'ebackspace' 0 2 'eexperimental' 0 18 'eblankname' 0 15 'edealloc' 0 14 'eblkno' 0 12 'eclose' 0 11 'eclosed' 0 10 'edupname' 0 13 'einval' 0 17 'einqname' 0 16 'elongname' 0 21 'enoclosedunit' 0 20 'error_clear' 0 57 'eopen' 0 32 'enotinit' 0 23 'erewind' 0 26 'eread' 0 25 'erdonly' 0 24 'errmsg' 0 31 'error_add' 0 27 'error_peek' 0 36 'error_count' 0 33 'ewrite' 0 56 'etabful' 0 46 'error_set' 0 41 'ethrough' 0 45 'trace' 0 52 'n3errnum' 0 51 'message_len' 0 48 'ewronly' 0 47 'n3error' 0 50 'reftab' 0 49)