GFORTRAN module created from n3regex.f90 on Thu May 30 10:06:58 2013 If you edit this, you'll get what you deserve. (() () () () () () () () () () () () () () () () () () () () ()) () () () () (2 'c_escape' 'n3regex' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN SAVE) (CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '1'))) 0 0 () () 0 () ()) 3 'hit' 'n3regex' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION ALWAYS_EXPLICIT) (LOGICAL 4 ()) 4 0 (5 6) () 7 () ()) 8 'n3regex' 'n3regex' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) ( UNKNOWN 0 ()) 0 0 () () 0 () ()) 9 'match_here' 'n3regex' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE RECURSIVE ALWAYS_EXPLICIT) (UNKNOWN 0 ()) 10 0 (11 12 13) () 0 () ()) 14 'sym_anychar' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '500') () 0 () ()) 15 'sym_count_base' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '1000') () 0 () ()) 16 'sym_eol' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '-128') () 0 () ()) 17 'sym_headfix' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '540') () 0 () ()) 18 'sym_isdigit' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '560') () 0 () ()) 19 'sym_isword' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '562') () 0 () ()) 20 'sym_isspace' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '563') () 0 () ()) 21 'sym_isalpha' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '561') () 0 () ()) 22 'preprocess_pattern' 'n3regex' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 ()) 23 0 (24 25) () 0 () ()) 26 'sym_plus' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '502') () 0 () ()) 27 'sym_reversed_set' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '521') () 0 () ()) 28 'sym_question' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '501') () 0 () ()) 29 'sym_normal_set' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '520') () 0 () ()) 30 'sym_tailfix' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '541') () 0 () ()) 31 'sym_star' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '503') () 0 () ()) 32 'sym_isxdigit' 'n3regex' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '564') () 0 () ()) 33 'match' 'n3regex' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 34 0 (35 36 37 38) () 0 () ()) 39 'fmatch' 'n3regex' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (LOGICAL 4 ()) 40 0 (41 42 43 44) () 39 () ()) 41 'pattern' '' 40 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () 0 () ()) 43 'start' '' 40 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 24 'pattern' '' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () 0 () ()) 44 'length' '' 40 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 25 'symbols' '' 23 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DIMENSION DUMMY) (INTEGER 4 ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 ()) 0 '1') ()) 0 () ()) 11 'ipat' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DIMENSION DUMMY) ( INTEGER 4 ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 ()) 0 '1') ()) 0 () ()) 12 'text' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 ( ())) 0 0 () () 0 () ()) 13 'length' '' 10 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 6 'c' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 (( CONSTANT (INTEGER 4 ()) 0 '1'))) 0 0 () () 0 () ()) 5 'ipat' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DIMENSION DUMMY) ( INTEGER 4 ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 ()) 0 '1') ()) 0 () ()) 35 'pattern' '' 34 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 (())) 0 0 () () 0 () ()) 37 'start' '' 34 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 38 'length' '' 34 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 36 'text' '' 34 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 ( ())) 0 0 () () 0 () ()) 7 'result' '' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) ( LOGICAL 4 ()) 0 0 () () 0 () ()) 42 'text' '' 40 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 ( ())) 0 0 () () 0 () ()) ) ('fmatch' 0 39 'c_escape' 0 2 'match' 0 33 'hit' 0 3 'sym_isxdigit' 0 32 'preprocess_pattern' 0 22 'match_here' 0 9 'n3regex' 0 8 'sym_isalpha' 0 21 'sym_headfix' 0 17 'sym_eol' 0 16 'sym_count_base' 0 15 'sym_anychar' 0 14 'sym_isspace' 0 20 'sym_isdigit' 0 18 'sym_isword' 0 19 'sym_star' 0 31 'sym_normal_set' 0 29 'sym_question' 0 28 'sym_plus' 0 26 'sym_reversed_set' 0 27 'sym_tailfix' 0 30)