FortranParserExtras_FortranParser08.java
// $ANTLR 3.5.2 FortranParser08.g 2015-08-19 12:28:42
package fortran.ofp.parser.java;
import org.antlr.runtime.*;
import java.util.Stack;
import java.util.List;
import java.util.ArrayList;
import java.util.Map;
import java.util.HashMap;
@SuppressWarnings("all")
public class FortranParserExtras_FortranParser08 extends FortranParser {
public static final int EOF=-1;
public static final int Alphanumeric_Character=4;
public static final int BINARY_CONSTANT=5;
public static final int CONTINUE_CHAR=6;
public static final int DQ_Rep_Char=7;
public static final int Digit=8;
public static final int Digit_String=9;
public static final int HEX_CONSTANT=10;
public static final int LINE_COMMENT=11;
public static final int Letter=12;
public static final int MISC_CHAR=13;
public static final int OCTAL_CONSTANT=14;
public static final int PREPROCESS_LINE=15;
public static final int Rep_Char=16;
public static final int SQ_Rep_Char=17;
public static final int Special_Character=18;
public static final int T_ABSTRACT=19;
public static final int T_ACQUIRED_LOCK=20;
public static final int T_ALL=21;
public static final int T_ALLOCATABLE=22;
public static final int T_ALLOCATE=23;
public static final int T_ALLOCATE_STMT_1=24;
public static final int T_AND=25;
public static final int T_ARITHMETIC_IF_STMT=26;
public static final int T_ASSIGN=27;
public static final int T_ASSIGNMENT=28;
public static final int T_ASSIGNMENT_STMT=29;
public static final int T_ASSOCIATE=30;
public static final int T_ASTERISK=31;
public static final int T_ASYNCHRONOUS=32;
public static final int T_AT=33;
public static final int T_BACKSPACE=34;
public static final int T_BEGIN_KEYWORDS=35;
public static final int T_BIND=36;
public static final int T_BLOCK=37;
public static final int T_BLOCKDATA=38;
public static final int T_CALL=39;
public static final int T_CASE=40;
public static final int T_CHARACTER=41;
public static final int T_CHAR_CONSTANT=42;
public static final int T_CHAR_STRING_EDIT_DESC=43;
public static final int T_CLASS=44;
public static final int T_CLOSE=45;
public static final int T_CODIMENSION=46;
public static final int T_COLON=47;
public static final int T_COLON_COLON=48;
public static final int T_COMMA=49;
public static final int T_COMMON=50;
public static final int T_COMPLEX=51;
public static final int T_CONCURRENT=52;
public static final int T_CONTAINS=53;
public static final int T_CONTIGUOUS=54;
public static final int T_CONTINUE=55;
public static final int T_CONTROL_EDIT_DESC=56;
public static final int T_COPOINTER=57;
public static final int T_COTARGET=58;
public static final int T_CRITICAL=59;
public static final int T_CYCLE=60;
public static final int T_DATA=61;
public static final int T_DATA_EDIT_DESC=62;
public static final int T_DEALLOCATE=63;
public static final int T_DEFAULT=64;
public static final int T_DEFERRED=65;
public static final int T_DEFINED_OP=66;
public static final int T_DIGIT_STRING=67;
public static final int T_DIMENSION=68;
public static final int T_DO=69;
public static final int T_DOUBLE=70;
public static final int T_DOUBLECOMPLEX=71;
public static final int T_DOUBLEPRECISION=72;
public static final int T_EDIT_DESC_MISC=73;
public static final int T_ELEMENTAL=74;
public static final int T_ELSE=75;
public static final int T_ELSEIF=76;
public static final int T_ELSEWHERE=77;
public static final int T_END=78;
public static final int T_ENDASSOCIATE=79;
public static final int T_ENDBLOCK=80;
public static final int T_ENDBLOCKDATA=81;
public static final int T_ENDCRITICAL=82;
public static final int T_ENDDO=83;
public static final int T_ENDENUM=84;
public static final int T_ENDFILE=85;
public static final int T_ENDFORALL=86;
public static final int T_ENDFUNCTION=87;
public static final int T_ENDIF=88;
public static final int T_ENDINTERFACE=89;
public static final int T_ENDMODULE=90;
public static final int T_ENDPROCEDURE=91;
public static final int T_ENDPROGRAM=92;
public static final int T_ENDSELECT=93;
public static final int T_ENDSUBMODULE=94;
public static final int T_ENDSUBROUTINE=95;
public static final int T_ENDTYPE=96;
public static final int T_ENDWHERE=97;
public static final int T_END_KEYWORDS=98;
public static final int T_ENTRY=99;
public static final int T_ENUM=100;
public static final int T_ENUMERATOR=101;
public static final int T_EOF=102;
public static final int T_EOS=103;
public static final int T_EQ=104;
public static final int T_EQUALS=105;
public static final int T_EQUIVALENCE=106;
public static final int T_EQV=107;
public static final int T_EQ_EQ=108;
public static final int T_EQ_GT=109;
public static final int T_ERROR=110;
public static final int T_EVENT=111;
public static final int T_EXIT=112;
public static final int T_EXTENDS=113;
public static final int T_EXTERNAL=114;
public static final int T_FALSE=115;
public static final int T_FILE=116;
public static final int T_FINAL=117;
public static final int T_FINISH=118;
public static final int T_FLUSH=119;
public static final int T_FORALL=120;
public static final int T_FORALL_CONSTRUCT_STMT=121;
public static final int T_FORALL_STMT=122;
public static final int T_FORMAT=123;
public static final int T_FORMATTED=124;
public static final int T_FUNCTION=125;
public static final int T_GE=126;
public static final int T_GENERIC=127;
public static final int T_GO=128;
public static final int T_GOTO=129;
public static final int T_GREATERTHAN=130;
public static final int T_GREATERTHAN_EQ=131;
public static final int T_GT=132;
public static final int T_HOLLERITH=133;
public static final int T_IDENT=134;
public static final int T_IF=135;
public static final int T_IF_STMT=136;
public static final int T_IMAGES=137;
public static final int T_IMPLICIT=138;
public static final int T_IMPORT=139;
public static final int T_IN=140;
public static final int T_INCLUDE=141;
public static final int T_INCLUDE_NAME=142;
public static final int T_INOUT=143;
public static final int T_INQUIRE=144;
public static final int T_INQUIRE_STMT_2=145;
public static final int T_INTEGER=146;
public static final int T_INTENT=147;
public static final int T_INTERFACE=148;
public static final int T_INTRINSIC=149;
public static final int T_KIND=150;
public static final int T_LABEL_DO_TERMINAL=151;
public static final int T_LBRACKET=152;
public static final int T_LE=153;
public static final int T_LEN=154;
public static final int T_LESSTHAN=155;
public static final int T_LESSTHAN_EQ=156;
public static final int T_LOCK=157;
public static final int T_LOCKSET=158;
public static final int T_LOGICAL=159;
public static final int T_LPAREN=160;
public static final int T_LT=161;
public static final int T_MEMORY=162;
public static final int T_MINUS=163;
public static final int T_MODULE=164;
public static final int T_NAMELIST=165;
public static final int T_NE=166;
public static final int T_NEQV=167;
public static final int T_NONE=168;
public static final int T_NON_INTRINSIC=169;
public static final int T_NON_OVERRIDABLE=170;
public static final int T_NOPASS=171;
public static final int T_NOT=172;
public static final int T_NO_LANGUAGE_EXTENSION=173;
public static final int T_NULLIFY=174;
public static final int T_ONLY=175;
public static final int T_OPEN=176;
public static final int T_OPERATOR=177;
public static final int T_OPTIONAL=178;
public static final int T_OR=179;
public static final int T_OUT=180;
public static final int T_PARAMETER=181;
public static final int T_PASS=182;
public static final int T_PAUSE=183;
public static final int T_PERCENT=184;
public static final int T_PERIOD=185;
public static final int T_PERIOD_EXPONENT=186;
public static final int T_PLUS=187;
public static final int T_POINTER=188;
public static final int T_POWER=189;
public static final int T_PRECISION=190;
public static final int T_PRINT=191;
public static final int T_PRIVATE=192;
public static final int T_PROCEDURE=193;
public static final int T_PROGRAM=194;
public static final int T_PROTECTED=195;
public static final int T_PTR_ASSIGNMENT_STMT=196;
public static final int T_PUBLIC=197;
public static final int T_PURE=198;
public static final int T_RBRACKET=199;
public static final int T_READ=200;
public static final int T_REAL=201;
public static final int T_REAL_CONSTANT=202;
public static final int T_RECURSIVE=203;
public static final int T_RESULT=204;
public static final int T_RETURN=205;
public static final int T_REWIND=206;
public static final int T_RPAREN=207;
public static final int T_SAVE=208;
public static final int T_SELECT=209;
public static final int T_SELECTCASE=210;
public static final int T_SELECTTYPE=211;
public static final int T_SEQUENCE=212;
public static final int T_SLASH=213;
public static final int T_SLASH_EQ=214;
public static final int T_SLASH_SLASH=215;
public static final int T_SPAWN=216;
public static final int T_STMT_FUNCTION=217;
public static final int T_STOP=218;
public static final int T_SUBMODULE=219;
public static final int T_SUBROUTINE=220;
public static final int T_SYNC=221;
public static final int T_TARGET=222;
public static final int T_TEAM=223;
public static final int T_THEN=224;
public static final int T_TO=225;
public static final int T_TOPOLOGY=226;
public static final int T_TRUE=227;
public static final int T_TYPE=228;
public static final int T_UNDERSCORE=229;
public static final int T_UNFORMATTED=230;
public static final int T_UNLOCK=231;
public static final int T_USE=232;
public static final int T_VALUE=233;
public static final int T_VOLATILE=234;
public static final int T_WAIT=235;
public static final int T_WHERE=236;
public static final int T_WHERE_CONSTRUCT_STMT=237;
public static final int T_WHERE_STMT=238;
public static final int T_WHILE=239;
public static final int T_WITH=240;
public static final int T_WITHTEAM=241;
public static final int T_WRITE=242;
public static final int WS=243;
// delegates
public FortranParser[] getDelegates() {
return new FortranParser[] {};
}
// delegators
public FortranParserExtras gFortranParserExtras;
public FortranParserExtras gParent;
public FortranParserExtras_FortranParser08(TokenStream input, FortranParserExtras gFortranParserExtras) {
this(input, new RecognizerSharedState(), gFortranParserExtras);
}
public FortranParserExtras_FortranParser08(TokenStream input, RecognizerSharedState state, FortranParserExtras gFortranParserExtras) {
super(input, state);
this.gFortranParserExtras = gFortranParserExtras;
gParent = gFortranParserExtras;
}
@Override public String[] getTokenNames() { return FortranParserExtras.tokenNames; }
@Override public String getGrammarFileName() { return "FortranParser08.g"; }
int gCount1;
int gCount2;
public void initialize(String[] args, String kind, String filename, String path) {
action = FortranParserActionFactory.newAction(args, this, kind, filename);
initialize(this, action, filename, path);
action.start_of_file(filename, path);
}
public void eofAction() {
action.end_of_file(filename, pathname);
}
// $ANTLR start "main_program"
// FortranParser08.g:155:1: main_program : ( program_stmt )? specification_part ( execution_part )? ( internal_subprogram_part )? end_program_stmt ;
public final void main_program() throws RecognitionException {
boolean hasProgramStmt = false;
boolean hasExecutionPart = false;
boolean hasInternalSubprogramPart = false;
action.main_program__begin();
try {
// FortranParser08.g:163:4: ( ( program_stmt )? specification_part ( execution_part )? ( internal_subprogram_part )? end_program_stmt )
// FortranParser08.g:163:8: ( program_stmt )? specification_part ( execution_part )? ( internal_subprogram_part )? end_program_stmt
{
// FortranParser08.g:163:8: ( program_stmt )?
int alt1=2;
int LA1_0 = input.LA(1);
if ( (LA1_0==T_DIGIT_STRING) ) {
int LA1_1 = input.LA(2);
if ( (LA1_1==T_PROGRAM) ) {
alt1=1;
}
}
else if ( (LA1_0==T_PROGRAM) ) {
alt1=1;
}
switch (alt1) {
case 1 :
// FortranParser08.g:163:10: program_stmt
{
pushFollow(FOLLOW_program_stmt_in_main_program136);
program_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasProgramStmt = true;}
}
break;
}
pushFollow(FOLLOW_specification_part_in_main_program150);
gFortranParserExtras.specification_part();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:165:8: ( execution_part )?
int alt2=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA2_1 = input.LA(2);
if ( ((LA2_1 >= T_ALLOCATE && LA2_1 <= T_ALLOCATE_STMT_1)||(LA2_1 >= T_ARITHMETIC_IF_STMT && LA2_1 <= T_ASSIGN)||(LA2_1 >= T_ASSIGNMENT_STMT && LA2_1 <= T_ASSOCIATE)||LA2_1==T_BACKSPACE||LA2_1==T_BLOCK||LA2_1==T_CALL||LA2_1==T_CLOSE||LA2_1==T_CONTINUE||(LA2_1 >= T_CRITICAL && LA2_1 <= T_CYCLE)||LA2_1==T_DEALLOCATE||LA2_1==T_DO||LA2_1==T_ENDFILE||LA2_1==T_ERROR||LA2_1==T_EXIT||LA2_1==T_FLUSH||(LA2_1 >= T_FORALL_CONSTRUCT_STMT && LA2_1 <= T_FORALL_STMT)||(LA2_1 >= T_GO && LA2_1 <= T_GOTO)||(LA2_1 >= T_IDENT && LA2_1 <= T_IF_STMT)||(LA2_1 >= T_INQUIRE && LA2_1 <= T_INQUIRE_STMT_2)||LA2_1==T_LOCK||LA2_1==T_NULLIFY||LA2_1==T_OPEN||LA2_1==T_PAUSE||LA2_1==T_PRINT||LA2_1==T_PTR_ASSIGNMENT_STMT||LA2_1==T_READ||(LA2_1 >= T_RETURN && LA2_1 <= T_REWIND)||(LA2_1 >= T_SELECT && LA2_1 <= T_SELECTTYPE)||LA2_1==T_STOP||LA2_1==T_SYNC||LA2_1==T_UNLOCK||LA2_1==T_WAIT||LA2_1==T_WHERE_STMT||LA2_1==T_WRITE) ) {
alt2=1;
}
else if ( (LA2_1==T_END) ) {
int LA2_3 = input.LA(3);
if ( (LA2_3==T_FILE) ) {
alt2=1;
}
}
}
break;
case T_ALLOCATE:
case T_ALLOCATE_STMT_1:
case T_ARITHMETIC_IF_STMT:
case T_ASSIGN:
case T_ASSIGNMENT_STMT:
case T_ASSOCIATE:
case T_BACKSPACE:
case T_BLOCK:
case T_CALL:
case T_CLOSE:
case T_CONTINUE:
case T_CRITICAL:
case T_CYCLE:
case T_DEALLOCATE:
case T_DO:
case T_ENDFILE:
case T_ERROR:
case T_EXIT:
case T_FLUSH:
case T_FORALL_CONSTRUCT_STMT:
case T_FORALL_STMT:
case T_GO:
case T_GOTO:
case T_IDENT:
case T_IF:
case T_IF_STMT:
case T_INQUIRE:
case T_INQUIRE_STMT_2:
case T_LOCK:
case T_NULLIFY:
case T_OPEN:
case T_PAUSE:
case T_PRINT:
case T_PTR_ASSIGNMENT_STMT:
case T_READ:
case T_RETURN:
case T_REWIND:
case T_SELECT:
case T_SELECTCASE:
case T_SELECTTYPE:
case T_STOP:
case T_SYNC:
case T_UNLOCK:
case T_WAIT:
case T_WHERE_CONSTRUCT_STMT:
case T_WHERE_STMT:
case T_WRITE:
{
alt2=1;
}
break;
case T_END:
{
int LA2_3 = input.LA(2);
if ( (LA2_3==T_FILE) ) {
alt2=1;
}
}
break;
}
switch (alt2) {
case 1 :
// FortranParser08.g:165:10: execution_part
{
pushFollow(FOLLOW_execution_part_in_main_program161);
execution_part();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasExecutionPart = true;}
}
break;
}
// FortranParser08.g:166:8: ( internal_subprogram_part )?
int alt3=2;
int LA3_0 = input.LA(1);
if ( (LA3_0==T_DIGIT_STRING) ) {
int LA3_1 = input.LA(2);
if ( (LA3_1==T_CONTAINS) ) {
alt3=1;
}
}
else if ( (LA3_0==T_CONTAINS) ) {
alt3=1;
}
switch (alt3) {
case 1 :
// FortranParser08.g:166:10: internal_subprogram_part
{
pushFollow(FOLLOW_internal_subprogram_part_in_main_program177);
internal_subprogram_part();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasInternalSubprogramPart = true;}
}
break;
}
pushFollow(FOLLOW_end_program_stmt_in_main_program191);
end_program_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {
action.main_program(hasProgramStmt, hasExecutionPart, hasInternalSubprogramPart);
}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "main_program"
// $ANTLR start "ext_function_subprogram"
// FortranParser08.g:176:1: ext_function_subprogram : ( prefix )? function_subprogram ;
public final void ext_function_subprogram() throws RecognitionException {
boolean hasPrefix=false;
try {
// FortranParser08.g:178:5: ( ( prefix )? function_subprogram )
// FortranParser08.g:178:9: ( prefix )? function_subprogram
{
// FortranParser08.g:178:9: ( prefix )?
int alt4=2;
int LA4_0 = input.LA(1);
if ( (LA4_0==T_CHARACTER||LA4_0==T_CLASS||LA4_0==T_COMPLEX||(LA4_0 >= T_DOUBLE && LA4_0 <= T_DOUBLEPRECISION)||LA4_0==T_ELEMENTAL||LA4_0==T_INTEGER||LA4_0==T_LOGICAL||LA4_0==T_PURE||LA4_0==T_REAL||LA4_0==T_RECURSIVE||LA4_0==T_TYPE) ) {
alt4=1;
}
switch (alt4) {
case 1 :
// FortranParser08.g:178:10: prefix
{
pushFollow(FOLLOW_prefix_in_ext_function_subprogram228);
prefix();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasPrefix=true;}
}
break;
}
pushFollow(FOLLOW_function_subprogram_in_ext_function_subprogram234);
function_subprogram();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.ext_function_subprogram(hasPrefix);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "ext_function_subprogram"
// $ANTLR start "declaration_construct"
// FortranParser08.g:214:1: declaration_construct : ( derived_type_def | entry_stmt | enum_def | format_stmt | interface_block | parameter_stmt | procedure_declaration_stmt | other_specification_stmt | type_declaration_stmt | stmt_function_stmt );
public final void declaration_construct() throws RecognitionException {
try {
// FortranParser08.g:216:4: ( derived_type_def | entry_stmt | enum_def | format_stmt | interface_block | parameter_stmt | procedure_declaration_stmt | other_specification_stmt | type_declaration_stmt | stmt_function_stmt )
int alt8=10;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
switch ( input.LA(2) ) {
case T_TYPE:
{
int LA8_2 = input.LA(3);
if ( (LA8_2==T_LPAREN) ) {
alt8=9;
}
else if ( ((LA8_2 >= T_COLON_COLON && LA8_2 <= T_COMMA)||LA8_2==T_IDENT) ) {
alt8=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 8, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ENTRY:
{
alt8=2;
}
break;
case T_ENUM:
{
alt8=3;
}
break;
case T_FORMAT:
{
alt8=4;
}
break;
case T_ABSTRACT:
case T_INTERFACE:
{
alt8=5;
}
break;
case T_PARAMETER:
{
alt8=6;
}
break;
case T_PROCEDURE:
{
alt8=7;
}
break;
case T_ALLOCATABLE:
case T_ASYNCHRONOUS:
case T_BIND:
case T_CODIMENSION:
case T_COMMON:
case T_DATA:
case T_DIMENSION:
case T_EQUIVALENCE:
case T_EXTERNAL:
case T_INTENT:
case T_INTRINSIC:
case T_NAMELIST:
case T_OPTIONAL:
case T_POINTER:
case T_PRIVATE:
case T_PROTECTED:
case T_PUBLIC:
case T_SAVE:
case T_TARGET:
case T_VALUE:
case T_VOLATILE:
{
alt8=8;
}
break;
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
{
alt8=9;
}
break;
case T_STMT_FUNCTION:
{
alt8=10;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 8, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_TYPE:
{
int LA8_2 = input.LA(2);
if ( (LA8_2==T_LPAREN) ) {
alt8=9;
}
else if ( ((LA8_2 >= T_COLON_COLON && LA8_2 <= T_COMMA)||LA8_2==T_IDENT) ) {
alt8=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 8, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ENTRY:
{
alt8=2;
}
break;
case T_ENUM:
{
alt8=3;
}
break;
case T_FORMAT:
{
alt8=4;
}
break;
case T_ABSTRACT:
case T_INTERFACE:
{
alt8=5;
}
break;
case T_PARAMETER:
{
alt8=6;
}
break;
case T_PROCEDURE:
{
alt8=7;
}
break;
case T_ALLOCATABLE:
case T_ASYNCHRONOUS:
case T_BIND:
case T_CODIMENSION:
case T_COMMON:
case T_DATA:
case T_DIMENSION:
case T_EQUIVALENCE:
case T_EXTERNAL:
case T_INTENT:
case T_INTRINSIC:
case T_NAMELIST:
case T_OPTIONAL:
case T_POINTER:
case T_PRIVATE:
case T_PROTECTED:
case T_PUBLIC:
case T_SAVE:
case T_TARGET:
case T_VALUE:
case T_VOLATILE:
{
alt8=8;
}
break;
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
{
alt8=9;
}
break;
case T_STMT_FUNCTION:
{
alt8=10;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 8, 0, input);
throw nvae;
}
switch (alt8) {
case 1 :
// FortranParser08.g:216:8: derived_type_def
{
pushFollow(FOLLOW_derived_type_def_in_declaration_construct320);
derived_type_def();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:217:8: entry_stmt
{
pushFollow(FOLLOW_entry_stmt_in_declaration_construct329);
entry_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 3 :
// FortranParser08.g:218:8: enum_def
{
pushFollow(FOLLOW_enum_def_in_declaration_construct338);
enum_def();
state._fsp--;
if (state.failed) return;
}
break;
case 4 :
// FortranParser08.g:219:8: format_stmt
{
pushFollow(FOLLOW_format_stmt_in_declaration_construct347);
format_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 5 :
// FortranParser08.g:220:8: interface_block
{
pushFollow(FOLLOW_interface_block_in_declaration_construct356);
interface_block();
state._fsp--;
if (state.failed) return;
}
break;
case 6 :
// FortranParser08.g:221:8: parameter_stmt
{
pushFollow(FOLLOW_parameter_stmt_in_declaration_construct365);
parameter_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 7 :
// FortranParser08.g:222:8: procedure_declaration_stmt
{
pushFollow(FOLLOW_procedure_declaration_stmt_in_declaration_construct374);
procedure_declaration_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 8 :
// FortranParser08.g:223:8: other_specification_stmt
{
pushFollow(FOLLOW_other_specification_stmt_in_declaration_construct383);
other_specification_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 9 :
// FortranParser08.g:224:8: type_declaration_stmt
{
pushFollow(FOLLOW_type_declaration_stmt_in_declaration_construct392);
gFortranParserExtras.type_declaration_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 10 :
// FortranParser08.g:225:8: stmt_function_stmt
{
pushFollow(FOLLOW_stmt_function_stmt_in_declaration_construct401);
stmt_function_stmt();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {action.declaration_construct();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "declaration_construct"
// $ANTLR start "execution_part"
// FortranParser08.g:229:1: execution_part : executable_construct ( execution_part_construct )* ;
public final void execution_part() throws RecognitionException {
try {
// FortranParser08.g:233:2: ( executable_construct ( execution_part_construct )* )
// FortranParser08.g:233:4: executable_construct ( execution_part_construct )*
{
pushFollow(FOLLOW_executable_construct_in_execution_part420);
gFortranParserExtras.executable_construct();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:234:3: ( execution_part_construct )*
loop9:
while (true) {
int alt9=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA9_1 = input.LA(2);
if ( (LA9_1==T_END) ) {
int LA9_3 = input.LA(3);
if ( (LA9_3==T_FILE) ) {
alt9=1;
}
}
else if ( ((LA9_1 >= T_ALLOCATE && LA9_1 <= T_ALLOCATE_STMT_1)||(LA9_1 >= T_ARITHMETIC_IF_STMT && LA9_1 <= T_ASSIGN)||(LA9_1 >= T_ASSIGNMENT_STMT && LA9_1 <= T_ASSOCIATE)||LA9_1==T_BACKSPACE||LA9_1==T_BLOCK||LA9_1==T_CALL||LA9_1==T_CLOSE||LA9_1==T_CONTINUE||(LA9_1 >= T_CRITICAL && LA9_1 <= T_DATA)||LA9_1==T_DEALLOCATE||LA9_1==T_DO||LA9_1==T_ENDFILE||LA9_1==T_ENTRY||LA9_1==T_ERROR||LA9_1==T_EXIT||LA9_1==T_FLUSH||(LA9_1 >= T_FORALL_CONSTRUCT_STMT && LA9_1 <= T_FORMAT)||(LA9_1 >= T_GO && LA9_1 <= T_GOTO)||(LA9_1 >= T_IDENT && LA9_1 <= T_IF_STMT)||(LA9_1 >= T_INQUIRE && LA9_1 <= T_INQUIRE_STMT_2)||LA9_1==T_LOCK||LA9_1==T_NULLIFY||LA9_1==T_OPEN||LA9_1==T_PAUSE||LA9_1==T_PRINT||LA9_1==T_PTR_ASSIGNMENT_STMT||LA9_1==T_READ||(LA9_1 >= T_RETURN && LA9_1 <= T_REWIND)||(LA9_1 >= T_SELECT && LA9_1 <= T_SELECTTYPE)||LA9_1==T_STOP||LA9_1==T_SYNC||LA9_1==T_UNLOCK||LA9_1==T_WAIT||LA9_1==T_WHERE_STMT||LA9_1==T_WRITE) ) {
alt9=1;
}
}
break;
case T_END:
{
int LA9_3 = input.LA(2);
if ( (LA9_3==T_FILE) ) {
alt9=1;
}
}
break;
case T_ALLOCATE:
case T_ALLOCATE_STMT_1:
case T_ARITHMETIC_IF_STMT:
case T_ASSIGN:
case T_ASSIGNMENT_STMT:
case T_ASSOCIATE:
case T_BACKSPACE:
case T_BLOCK:
case T_CALL:
case T_CLOSE:
case T_CONTINUE:
case T_CRITICAL:
case T_CYCLE:
case T_DATA:
case T_DEALLOCATE:
case T_DO:
case T_ENDFILE:
case T_ENTRY:
case T_ERROR:
case T_EXIT:
case T_FLUSH:
case T_FORALL_CONSTRUCT_STMT:
case T_FORALL_STMT:
case T_FORMAT:
case T_GO:
case T_GOTO:
case T_IDENT:
case T_IF:
case T_IF_STMT:
case T_INQUIRE:
case T_INQUIRE_STMT_2:
case T_LOCK:
case T_NULLIFY:
case T_OPEN:
case T_PAUSE:
case T_PRINT:
case T_PTR_ASSIGNMENT_STMT:
case T_READ:
case T_RETURN:
case T_REWIND:
case T_SELECT:
case T_SELECTCASE:
case T_SELECTTYPE:
case T_STOP:
case T_SYNC:
case T_UNLOCK:
case T_WAIT:
case T_WHERE_CONSTRUCT_STMT:
case T_WHERE_STMT:
case T_WRITE:
{
alt9=1;
}
break;
}
switch (alt9) {
case 1 :
// FortranParser08.g:234:5: execution_part_construct
{
pushFollow(FOLLOW_execution_part_construct_in_execution_part426);
execution_part_construct();
state._fsp--;
if (state.failed) return;
}
break;
default :
break loop9;
}
}
}
if ( state.backtracking==0 ) {
action.execution_part();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "execution_part"
// $ANTLR start "execution_part_construct"
// FortranParser08.g:238:1: execution_part_construct : ( executable_construct | format_stmt | entry_stmt | data_stmt );
public final void execution_part_construct() throws RecognitionException {
try {
// FortranParser08.g:242:2: ( executable_construct | format_stmt | entry_stmt | data_stmt )
int alt10=4;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
switch ( input.LA(2) ) {
case T_ALLOCATE:
case T_ALLOCATE_STMT_1:
case T_ARITHMETIC_IF_STMT:
case T_ASSIGN:
case T_ASSIGNMENT_STMT:
case T_ASSOCIATE:
case T_BACKSPACE:
case T_BLOCK:
case T_CALL:
case T_CLOSE:
case T_CONTINUE:
case T_CRITICAL:
case T_CYCLE:
case T_DEALLOCATE:
case T_DO:
case T_END:
case T_ENDFILE:
case T_ERROR:
case T_EXIT:
case T_FLUSH:
case T_FORALL_CONSTRUCT_STMT:
case T_FORALL_STMT:
case T_GO:
case T_GOTO:
case T_IDENT:
case T_IF:
case T_IF_STMT:
case T_INQUIRE:
case T_INQUIRE_STMT_2:
case T_LOCK:
case T_NULLIFY:
case T_OPEN:
case T_PAUSE:
case T_PRINT:
case T_PTR_ASSIGNMENT_STMT:
case T_READ:
case T_RETURN:
case T_REWIND:
case T_SELECT:
case T_SELECTCASE:
case T_SELECTTYPE:
case T_STOP:
case T_SYNC:
case T_UNLOCK:
case T_WAIT:
case T_WHERE_STMT:
case T_WRITE:
{
alt10=1;
}
break;
case T_FORMAT:
{
alt10=2;
}
break;
case T_ENTRY:
{
alt10=3;
}
break;
case T_DATA:
{
alt10=4;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 10, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ALLOCATE:
case T_ALLOCATE_STMT_1:
case T_ARITHMETIC_IF_STMT:
case T_ASSIGN:
case T_ASSIGNMENT_STMT:
case T_ASSOCIATE:
case T_BACKSPACE:
case T_BLOCK:
case T_CALL:
case T_CLOSE:
case T_CONTINUE:
case T_CRITICAL:
case T_CYCLE:
case T_DEALLOCATE:
case T_DO:
case T_END:
case T_ENDFILE:
case T_ERROR:
case T_EXIT:
case T_FLUSH:
case T_FORALL_CONSTRUCT_STMT:
case T_FORALL_STMT:
case T_GO:
case T_GOTO:
case T_IDENT:
case T_IF:
case T_IF_STMT:
case T_INQUIRE:
case T_INQUIRE_STMT_2:
case T_LOCK:
case T_NULLIFY:
case T_OPEN:
case T_PAUSE:
case T_PRINT:
case T_PTR_ASSIGNMENT_STMT:
case T_READ:
case T_RETURN:
case T_REWIND:
case T_SELECT:
case T_SELECTCASE:
case T_SELECTTYPE:
case T_STOP:
case T_SYNC:
case T_UNLOCK:
case T_WAIT:
case T_WHERE_CONSTRUCT_STMT:
case T_WHERE_STMT:
case T_WRITE:
{
alt10=1;
}
break;
case T_FORMAT:
{
alt10=2;
}
break;
case T_ENTRY:
{
alt10=3;
}
break;
case T_DATA:
{
alt10=4;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 10, 0, input);
throw nvae;
}
switch (alt10) {
case 1 :
// FortranParser08.g:242:4: executable_construct
{
pushFollow(FOLLOW_executable_construct_in_execution_part_construct446);
gFortranParserExtras.executable_construct();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:243:4: format_stmt
{
pushFollow(FOLLOW_format_stmt_in_execution_part_construct453);
format_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 3 :
// FortranParser08.g:244:4: entry_stmt
{
pushFollow(FOLLOW_entry_stmt_in_execution_part_construct458);
entry_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 4 :
// FortranParser08.g:245:4: data_stmt
{
pushFollow(FOLLOW_data_stmt_in_execution_part_construct463);
data_stmt();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.execution_part_construct();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "execution_part_construct"
// $ANTLR start "internal_subprogram_part"
// FortranParser08.g:257:1: internal_subprogram_part : contains_stmt ( internal_subprogram )* ;
public final void internal_subprogram_part() throws RecognitionException {
int count = 0;
try {
// FortranParser08.g:259:4: ( contains_stmt ( internal_subprogram )* )
// FortranParser08.g:259:8: contains_stmt ( internal_subprogram )*
{
pushFollow(FOLLOW_contains_stmt_in_internal_subprogram_part488);
contains_stmt();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:260:8: ( internal_subprogram )*
loop11:
while (true) {
int alt11=2;
int LA11_0 = input.LA(1);
if ( (LA11_0==T_DIGIT_STRING) ) {
int LA11_1 = input.LA(2);
if ( (LA11_1==T_ELEMENTAL||LA11_1==T_FUNCTION||LA11_1==T_PURE||LA11_1==T_RECURSIVE||LA11_1==T_SUBROUTINE) ) {
alt11=1;
}
}
else if ( (LA11_0==T_CHARACTER||LA11_0==T_CLASS||LA11_0==T_COMPLEX||(LA11_0 >= T_DOUBLE && LA11_0 <= T_DOUBLEPRECISION)||LA11_0==T_ELEMENTAL||LA11_0==T_FUNCTION||LA11_0==T_INTEGER||LA11_0==T_LOGICAL||LA11_0==T_PURE||LA11_0==T_REAL||LA11_0==T_RECURSIVE||LA11_0==T_SUBROUTINE||LA11_0==T_TYPE) ) {
alt11=1;
}
switch (alt11) {
case 1 :
// FortranParser08.g:260:10: internal_subprogram
{
pushFollow(FOLLOW_internal_subprogram_in_internal_subprogram_part499);
internal_subprogram();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count += 1;}
}
break;
default :
break loop11;
}
}
if ( state.backtracking==0 ) { action.internal_subprogram_part(count); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "internal_subprogram_part"
// $ANTLR start "internal_subprogram"
// FortranParser08.g:266:1: internal_subprogram : ( ( prefix )? function_subprogram | subroutine_subprogram );
public final void internal_subprogram() throws RecognitionException {
try {
// FortranParser08.g:270:2: ( ( prefix )? function_subprogram | subroutine_subprogram )
int alt13=2;
switch ( input.LA(1) ) {
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_FUNCTION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
case T_TYPE:
{
alt13=1;
}
break;
case T_RECURSIVE:
{
switch ( input.LA(2) ) {
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DIGIT_STRING:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_FUNCTION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
case T_TYPE:
{
alt13=1;
}
break;
case T_RECURSIVE:
{
int LA13_7 = input.LA(3);
if ( (LA13_7==T_CHARACTER||LA13_7==T_CLASS||LA13_7==T_COMPLEX||LA13_7==T_DIGIT_STRING||(LA13_7 >= T_DOUBLE && LA13_7 <= T_DOUBLEPRECISION)||LA13_7==T_ELEMENTAL||LA13_7==T_FUNCTION||LA13_7==T_INTEGER||LA13_7==T_LOGICAL||LA13_7==T_PURE||LA13_7==T_REAL||LA13_7==T_RECURSIVE||LA13_7==T_TYPE) ) {
alt13=1;
}
else if ( (LA13_7==T_SUBROUTINE) ) {
alt13=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 13, 7, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PURE:
{
int LA13_8 = input.LA(3);
if ( (LA13_8==T_CHARACTER||LA13_8==T_CLASS||LA13_8==T_COMPLEX||LA13_8==T_DIGIT_STRING||(LA13_8 >= T_DOUBLE && LA13_8 <= T_DOUBLEPRECISION)||LA13_8==T_ELEMENTAL||LA13_8==T_FUNCTION||LA13_8==T_INTEGER||LA13_8==T_LOGICAL||LA13_8==T_PURE||LA13_8==T_REAL||LA13_8==T_RECURSIVE||LA13_8==T_TYPE) ) {
alt13=1;
}
else if ( (LA13_8==T_SUBROUTINE) ) {
alt13=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 13, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELEMENTAL:
{
int LA13_9 = input.LA(3);
if ( (LA13_9==T_CHARACTER||LA13_9==T_CLASS||LA13_9==T_COMPLEX||LA13_9==T_DIGIT_STRING||(LA13_9 >= T_DOUBLE && LA13_9 <= T_DOUBLEPRECISION)||LA13_9==T_ELEMENTAL||LA13_9==T_FUNCTION||LA13_9==T_INTEGER||LA13_9==T_LOGICAL||LA13_9==T_PURE||LA13_9==T_REAL||LA13_9==T_RECURSIVE||LA13_9==T_TYPE) ) {
alt13=1;
}
else if ( (LA13_9==T_SUBROUTINE) ) {
alt13=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 13, 9, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_SUBROUTINE:
{
alt13=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 13, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PURE:
{
switch ( input.LA(2) ) {
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DIGIT_STRING:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_FUNCTION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
case T_TYPE:
{
alt13=1;
}
break;
case T_RECURSIVE:
{
int LA13_7 = input.LA(3);
if ( (LA13_7==T_CHARACTER||LA13_7==T_CLASS||LA13_7==T_COMPLEX||LA13_7==T_DIGIT_STRING||(LA13_7 >= T_DOUBLE && LA13_7 <= T_DOUBLEPRECISION)||LA13_7==T_ELEMENTAL||LA13_7==T_FUNCTION||LA13_7==T_INTEGER||LA13_7==T_LOGICAL||LA13_7==T_PURE||LA13_7==T_REAL||LA13_7==T_RECURSIVE||LA13_7==T_TYPE) ) {
alt13=1;
}
else if ( (LA13_7==T_SUBROUTINE) ) {
alt13=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 13, 7, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PURE:
{
int LA13_8 = input.LA(3);
if ( (LA13_8==T_CHARACTER||LA13_8==T_CLASS||LA13_8==T_COMPLEX||LA13_8==T_DIGIT_STRING||(LA13_8 >= T_DOUBLE && LA13_8 <= T_DOUBLEPRECISION)||LA13_8==T_ELEMENTAL||LA13_8==T_FUNCTION||LA13_8==T_INTEGER||LA13_8==T_LOGICAL||LA13_8==T_PURE||LA13_8==T_REAL||LA13_8==T_RECURSIVE||LA13_8==T_TYPE) ) {
alt13=1;
}
else if ( (LA13_8==T_SUBROUTINE) ) {
alt13=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 13, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELEMENTAL:
{
int LA13_9 = input.LA(3);
if ( (LA13_9==T_CHARACTER||LA13_9==T_CLASS||LA13_9==T_COMPLEX||LA13_9==T_DIGIT_STRING||(LA13_9 >= T_DOUBLE && LA13_9 <= T_DOUBLEPRECISION)||LA13_9==T_ELEMENTAL||LA13_9==T_FUNCTION||LA13_9==T_INTEGER||LA13_9==T_LOGICAL||LA13_9==T_PURE||LA13_9==T_REAL||LA13_9==T_RECURSIVE||LA13_9==T_TYPE) ) {
alt13=1;
}
else if ( (LA13_9==T_SUBROUTINE) ) {
alt13=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 13, 9, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_SUBROUTINE:
{
alt13=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 13, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELEMENTAL:
{
switch ( input.LA(2) ) {
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DIGIT_STRING:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_FUNCTION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
case T_TYPE:
{
alt13=1;
}
break;
case T_RECURSIVE:
{
int LA13_7 = input.LA(3);
if ( (LA13_7==T_CHARACTER||LA13_7==T_CLASS||LA13_7==T_COMPLEX||LA13_7==T_DIGIT_STRING||(LA13_7 >= T_DOUBLE && LA13_7 <= T_DOUBLEPRECISION)||LA13_7==T_ELEMENTAL||LA13_7==T_FUNCTION||LA13_7==T_INTEGER||LA13_7==T_LOGICAL||LA13_7==T_PURE||LA13_7==T_REAL||LA13_7==T_RECURSIVE||LA13_7==T_TYPE) ) {
alt13=1;
}
else if ( (LA13_7==T_SUBROUTINE) ) {
alt13=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 13, 7, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PURE:
{
int LA13_8 = input.LA(3);
if ( (LA13_8==T_CHARACTER||LA13_8==T_CLASS||LA13_8==T_COMPLEX||LA13_8==T_DIGIT_STRING||(LA13_8 >= T_DOUBLE && LA13_8 <= T_DOUBLEPRECISION)||LA13_8==T_ELEMENTAL||LA13_8==T_FUNCTION||LA13_8==T_INTEGER||LA13_8==T_LOGICAL||LA13_8==T_PURE||LA13_8==T_REAL||LA13_8==T_RECURSIVE||LA13_8==T_TYPE) ) {
alt13=1;
}
else if ( (LA13_8==T_SUBROUTINE) ) {
alt13=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 13, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELEMENTAL:
{
int LA13_9 = input.LA(3);
if ( (LA13_9==T_CHARACTER||LA13_9==T_CLASS||LA13_9==T_COMPLEX||LA13_9==T_DIGIT_STRING||(LA13_9 >= T_DOUBLE && LA13_9 <= T_DOUBLEPRECISION)||LA13_9==T_ELEMENTAL||LA13_9==T_FUNCTION||LA13_9==T_INTEGER||LA13_9==T_LOGICAL||LA13_9==T_PURE||LA13_9==T_REAL||LA13_9==T_RECURSIVE||LA13_9==T_TYPE) ) {
alt13=1;
}
else if ( (LA13_9==T_SUBROUTINE) ) {
alt13=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 13, 9, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_SUBROUTINE:
{
alt13=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 13, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_DIGIT_STRING:
{
int LA13_5 = input.LA(2);
if ( (LA13_5==T_FUNCTION) ) {
alt13=1;
}
else if ( (LA13_5==T_ELEMENTAL||LA13_5==T_PURE||LA13_5==T_RECURSIVE||LA13_5==T_SUBROUTINE) ) {
alt13=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 13, 5, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_SUBROUTINE:
{
alt13=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 13, 0, input);
throw nvae;
}
switch (alt13) {
case 1 :
// FortranParser08.g:270:4: ( prefix )? function_subprogram
{
// FortranParser08.g:270:4: ( prefix )?
int alt12=2;
int LA12_0 = input.LA(1);
if ( (LA12_0==T_CHARACTER||LA12_0==T_CLASS||LA12_0==T_COMPLEX||(LA12_0 >= T_DOUBLE && LA12_0 <= T_DOUBLEPRECISION)||LA12_0==T_ELEMENTAL||LA12_0==T_INTEGER||LA12_0==T_LOGICAL||LA12_0==T_PURE||LA12_0==T_REAL||LA12_0==T_RECURSIVE||LA12_0==T_TYPE) ) {
alt12=1;
}
switch (alt12) {
case 1 :
// FortranParser08.g:270:6: prefix
{
pushFollow(FOLLOW_prefix_in_internal_subprogram539);
prefix();
state._fsp--;
if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_function_subprogram_in_internal_subprogram544);
function_subprogram();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:271:4: subroutine_subprogram
{
pushFollow(FOLLOW_subroutine_subprogram_in_internal_subprogram549);
subroutine_subprogram();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.internal_subprogram();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "internal_subprogram"
// $ANTLR start "other_specification_stmt"
// FortranParser08.g:301:1: other_specification_stmt : ( access_stmt | allocatable_stmt | asynchronous_stmt | bind_stmt | codimension_stmt | common_stmt | data_stmt | dimension_stmt | equivalence_stmt | external_stmt | intent_stmt | intrinsic_stmt | namelist_stmt | optional_stmt | pointer_stmt | protected_stmt | save_stmt | target_stmt | volatile_stmt | value_stmt );
public final void other_specification_stmt() throws RecognitionException {
try {
// FortranParser08.g:303:4: ( access_stmt | allocatable_stmt | asynchronous_stmt | bind_stmt | codimension_stmt | common_stmt | data_stmt | dimension_stmt | equivalence_stmt | external_stmt | intent_stmt | intrinsic_stmt | namelist_stmt | optional_stmt | pointer_stmt | protected_stmt | save_stmt | target_stmt | volatile_stmt | value_stmt )
int alt14=20;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
switch ( input.LA(2) ) {
case T_PRIVATE:
case T_PUBLIC:
{
alt14=1;
}
break;
case T_ALLOCATABLE:
{
alt14=2;
}
break;
case T_ASYNCHRONOUS:
{
alt14=3;
}
break;
case T_BIND:
{
alt14=4;
}
break;
case T_CODIMENSION:
{
alt14=5;
}
break;
case T_COMMON:
{
alt14=6;
}
break;
case T_DATA:
{
alt14=7;
}
break;
case T_DIMENSION:
{
alt14=8;
}
break;
case T_EQUIVALENCE:
{
alt14=9;
}
break;
case T_EXTERNAL:
{
alt14=10;
}
break;
case T_INTENT:
{
alt14=11;
}
break;
case T_INTRINSIC:
{
alt14=12;
}
break;
case T_NAMELIST:
{
alt14=13;
}
break;
case T_OPTIONAL:
{
alt14=14;
}
break;
case T_POINTER:
{
alt14=15;
}
break;
case T_PROTECTED:
{
alt14=16;
}
break;
case T_SAVE:
{
alt14=17;
}
break;
case T_TARGET:
{
alt14=18;
}
break;
case T_VOLATILE:
{
alt14=19;
}
break;
case T_VALUE:
{
alt14=20;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 14, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PRIVATE:
case T_PUBLIC:
{
alt14=1;
}
break;
case T_ALLOCATABLE:
{
alt14=2;
}
break;
case T_ASYNCHRONOUS:
{
alt14=3;
}
break;
case T_BIND:
{
alt14=4;
}
break;
case T_CODIMENSION:
{
alt14=5;
}
break;
case T_COMMON:
{
alt14=6;
}
break;
case T_DATA:
{
alt14=7;
}
break;
case T_DIMENSION:
{
alt14=8;
}
break;
case T_EQUIVALENCE:
{
alt14=9;
}
break;
case T_EXTERNAL:
{
alt14=10;
}
break;
case T_INTENT:
{
alt14=11;
}
break;
case T_INTRINSIC:
{
alt14=12;
}
break;
case T_NAMELIST:
{
alt14=13;
}
break;
case T_OPTIONAL:
{
alt14=14;
}
break;
case T_POINTER:
{
alt14=15;
}
break;
case T_PROTECTED:
{
alt14=16;
}
break;
case T_SAVE:
{
alt14=17;
}
break;
case T_TARGET:
{
alt14=18;
}
break;
case T_VOLATILE:
{
alt14=19;
}
break;
case T_VALUE:
{
alt14=20;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 14, 0, input);
throw nvae;
}
switch (alt14) {
case 1 :
// FortranParser08.g:303:8: access_stmt
{
pushFollow(FOLLOW_access_stmt_in_other_specification_stmt575);
access_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:304:8: allocatable_stmt
{
pushFollow(FOLLOW_allocatable_stmt_in_other_specification_stmt584);
allocatable_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 3 :
// FortranParser08.g:305:8: asynchronous_stmt
{
pushFollow(FOLLOW_asynchronous_stmt_in_other_specification_stmt593);
asynchronous_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 4 :
// FortranParser08.g:306:8: bind_stmt
{
pushFollow(FOLLOW_bind_stmt_in_other_specification_stmt602);
bind_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 5 :
// FortranParser08.g:307:8: codimension_stmt
{
pushFollow(FOLLOW_codimension_stmt_in_other_specification_stmt611);
codimension_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 6 :
// FortranParser08.g:308:8: common_stmt
{
pushFollow(FOLLOW_common_stmt_in_other_specification_stmt636);
common_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 7 :
// FortranParser08.g:309:8: data_stmt
{
pushFollow(FOLLOW_data_stmt_in_other_specification_stmt645);
data_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 8 :
// FortranParser08.g:310:8: dimension_stmt
{
pushFollow(FOLLOW_dimension_stmt_in_other_specification_stmt654);
dimension_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 9 :
// FortranParser08.g:311:8: equivalence_stmt
{
pushFollow(FOLLOW_equivalence_stmt_in_other_specification_stmt663);
equivalence_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 10 :
// FortranParser08.g:312:8: external_stmt
{
pushFollow(FOLLOW_external_stmt_in_other_specification_stmt672);
external_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 11 :
// FortranParser08.g:313:8: intent_stmt
{
pushFollow(FOLLOW_intent_stmt_in_other_specification_stmt681);
intent_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 12 :
// FortranParser08.g:314:8: intrinsic_stmt
{
pushFollow(FOLLOW_intrinsic_stmt_in_other_specification_stmt690);
intrinsic_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 13 :
// FortranParser08.g:315:8: namelist_stmt
{
pushFollow(FOLLOW_namelist_stmt_in_other_specification_stmt699);
namelist_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 14 :
// FortranParser08.g:316:8: optional_stmt
{
pushFollow(FOLLOW_optional_stmt_in_other_specification_stmt708);
optional_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 15 :
// FortranParser08.g:317:8: pointer_stmt
{
pushFollow(FOLLOW_pointer_stmt_in_other_specification_stmt717);
pointer_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 16 :
// FortranParser08.g:318:8: protected_stmt
{
pushFollow(FOLLOW_protected_stmt_in_other_specification_stmt726);
protected_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 17 :
// FortranParser08.g:319:8: save_stmt
{
pushFollow(FOLLOW_save_stmt_in_other_specification_stmt735);
save_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 18 :
// FortranParser08.g:320:8: target_stmt
{
pushFollow(FOLLOW_target_stmt_in_other_specification_stmt744);
target_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 19 :
// FortranParser08.g:321:8: volatile_stmt
{
pushFollow(FOLLOW_volatile_stmt_in_other_specification_stmt753);
volatile_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 20 :
// FortranParser08.g:322:8: value_stmt
{
pushFollow(FOLLOW_value_stmt_in_other_specification_stmt762);
value_stmt();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {action.specification_stmt();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "other_specification_stmt"
// $ANTLR start "keyword"
// FortranParser08.g:451:1: keyword returns [Token tk] : name ;
public final Token keyword() throws RecognitionException {
Token tk = null;
Token name1 =null;
try {
// FortranParser08.g:455:2: ( name )
// FortranParser08.g:455:4: name
{
pushFollow(FOLLOW_name_in_keyword1084);
name1=name();
state._fsp--;
if (state.failed) return tk;
if ( state.backtracking==0 ) {tk = name1;}
}
if ( state.backtracking==0 ) {
action.keyword();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "keyword"
// $ANTLR start "name"
// FortranParser08.g:469:1: name returns [Token tk] : T_IDENT ;
public final Token name() throws RecognitionException {
Token tk = null;
Token T_IDENT2=null;
try {
// FortranParser08.g:470:2: ( T_IDENT )
// FortranParser08.g:470:4: T_IDENT
{
T_IDENT2=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_name1111); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_IDENT2; action.name(tk); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "name"
// $ANTLR start "constant"
// FortranParser08.g:475:1: constant : ( literal_constant | T_IDENT );
public final void constant() throws RecognitionException {
Token T_IDENT3=null;
try {
// FortranParser08.g:476:2: ( literal_constant | T_IDENT )
int alt17=2;
int LA17_0 = input.LA(1);
if ( (LA17_0==BINARY_CONSTANT||LA17_0==HEX_CONSTANT||LA17_0==OCTAL_CONSTANT||LA17_0==T_CHAR_CONSTANT||LA17_0==T_DIGIT_STRING||LA17_0==T_FALSE||LA17_0==T_HOLLERITH||LA17_0==T_LPAREN||LA17_0==T_REAL_CONSTANT||LA17_0==T_TRUE) ) {
alt17=1;
}
else if ( (LA17_0==T_IDENT) ) {
int LA17_2 = input.LA(2);
if ( (LA17_2==T_CHAR_CONSTANT) ) {
alt17=1;
}
else if ( (LA17_2==EOF) ) {
alt17=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 17, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 17, 0, input);
throw nvae;
}
switch (alt17) {
case 1 :
// FortranParser08.g:476:4: literal_constant
{
pushFollow(FOLLOW_literal_constant_in_constant1127);
literal_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.constant(null); }
}
break;
case 2 :
// FortranParser08.g:477:4: T_IDENT
{
T_IDENT3=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_constant1134); if (state.failed) return;
if ( state.backtracking==0 ) { action.constant(T_IDENT3); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "constant"
// $ANTLR start "scalar_constant"
// FortranParser08.g:480:1: scalar_constant : constant ;
public final void scalar_constant() throws RecognitionException {
try {
// FortranParser08.g:484:5: ( constant )
// FortranParser08.g:484:10: constant
{
pushFollow(FOLLOW_constant_in_scalar_constant1161);
constant();
state._fsp--;
if (state.failed) return;
}
if ( state.backtracking==0 ) {
action.scalar_constant();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "scalar_constant"
// $ANTLR start "literal_constant"
// FortranParser08.g:488:1: literal_constant : ( int_literal_constant | real_literal_constant | complex_literal_constant | logical_literal_constant | char_literal_constant | boz_literal_constant | hollerith_literal_constant );
public final void literal_constant() throws RecognitionException {
try {
// FortranParser08.g:492:4: ( int_literal_constant | real_literal_constant | complex_literal_constant | logical_literal_constant | char_literal_constant | boz_literal_constant | hollerith_literal_constant )
int alt18=7;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA18_1 = input.LA(2);
if ( (LA18_1==T_UNDERSCORE) ) {
int LA18_8 = input.LA(3);
if ( (LA18_8==T_CHAR_CONSTANT) ) {
alt18=5;
}
else if ( (LA18_8==T_DIGIT_STRING||LA18_8==T_IDENT) ) {
alt18=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 18, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA18_1==EOF||LA18_1==T_AND||LA18_1==T_ASTERISK||(LA18_1 >= T_COLON && LA18_1 <= T_COMMA)||LA18_1==T_DEFINED_OP||(LA18_1 >= T_EOS && LA18_1 <= T_EQ)||(LA18_1 >= T_EQV && LA18_1 <= T_EQ_EQ)||LA18_1==T_GE||(LA18_1 >= T_GREATERTHAN && LA18_1 <= T_GT)||LA18_1==T_LE||(LA18_1 >= T_LESSTHAN && LA18_1 <= T_LESSTHAN_EQ)||LA18_1==T_LT||LA18_1==T_MINUS||(LA18_1 >= T_NE && LA18_1 <= T_NEQV)||LA18_1==T_OR||LA18_1==T_PLUS||LA18_1==T_POWER||LA18_1==T_RBRACKET||LA18_1==T_RPAREN||(LA18_1 >= T_SLASH && LA18_1 <= T_SLASH_SLASH)) ) {
alt18=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 18, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_REAL_CONSTANT:
{
alt18=2;
}
break;
case T_LPAREN:
{
alt18=3;
}
break;
case T_FALSE:
case T_TRUE:
{
alt18=4;
}
break;
case T_CHAR_CONSTANT:
case T_IDENT:
{
alt18=5;
}
break;
case BINARY_CONSTANT:
case HEX_CONSTANT:
case OCTAL_CONSTANT:
{
alt18=6;
}
break;
case T_HOLLERITH:
{
alt18=7;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 18, 0, input);
throw nvae;
}
switch (alt18) {
case 1 :
// FortranParser08.g:492:8: int_literal_constant
{
pushFollow(FOLLOW_int_literal_constant_in_literal_constant1185);
int_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:493:8: real_literal_constant
{
pushFollow(FOLLOW_real_literal_constant_in_literal_constant1194);
real_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 3 :
// FortranParser08.g:494:8: complex_literal_constant
{
pushFollow(FOLLOW_complex_literal_constant_in_literal_constant1203);
complex_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 4 :
// FortranParser08.g:495:8: logical_literal_constant
{
pushFollow(FOLLOW_logical_literal_constant_in_literal_constant1212);
logical_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 5 :
// FortranParser08.g:496:8: char_literal_constant
{
pushFollow(FOLLOW_char_literal_constant_in_literal_constant1221);
char_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 6 :
// FortranParser08.g:497:8: boz_literal_constant
{
pushFollow(FOLLOW_boz_literal_constant_in_literal_constant1230);
boz_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 7 :
// FortranParser08.g:498:8: hollerith_literal_constant
{
pushFollow(FOLLOW_hollerith_literal_constant_in_literal_constant1239);
hollerith_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.literal_constant();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "literal_constant"
// $ANTLR start "int_constant"
// FortranParser08.g:506:1: int_constant : ( int_literal_constant | T_IDENT );
public final void int_constant() throws RecognitionException {
Token T_IDENT4=null;
try {
// FortranParser08.g:507:2: ( int_literal_constant | T_IDENT )
int alt19=2;
int LA19_0 = input.LA(1);
if ( (LA19_0==T_DIGIT_STRING) ) {
alt19=1;
}
else if ( (LA19_0==T_IDENT) ) {
alt19=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 19, 0, input);
throw nvae;
}
switch (alt19) {
case 1 :
// FortranParser08.g:507:4: int_literal_constant
{
pushFollow(FOLLOW_int_literal_constant_in_int_constant1259);
int_literal_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.int_constant(null); }
}
break;
case 2 :
// FortranParser08.g:508:4: T_IDENT
{
T_IDENT4=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_int_constant1266); if (state.failed) return;
if ( state.backtracking==0 ) { action.int_constant(T_IDENT4); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "int_constant"
// $ANTLR start "char_constant"
// FortranParser08.g:514:1: char_constant : ( char_literal_constant | T_IDENT );
public final void char_constant() throws RecognitionException {
Token T_IDENT5=null;
try {
// FortranParser08.g:515:2: ( char_literal_constant | T_IDENT )
int alt20=2;
int LA20_0 = input.LA(1);
if ( (LA20_0==T_CHAR_CONSTANT||LA20_0==T_DIGIT_STRING) ) {
alt20=1;
}
else if ( (LA20_0==T_IDENT) ) {
int LA20_2 = input.LA(2);
if ( (LA20_2==T_CHAR_CONSTANT) ) {
alt20=1;
}
else if ( (LA20_2==EOF||LA20_2==T_EOS) ) {
alt20=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 20, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 20, 0, input);
throw nvae;
}
switch (alt20) {
case 1 :
// FortranParser08.g:515:4: char_literal_constant
{
pushFollow(FOLLOW_char_literal_constant_in_char_constant1286);
char_literal_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.int_constant(null); }
}
break;
case 2 :
// FortranParser08.g:516:4: T_IDENT
{
T_IDENT5=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_char_constant1293); if (state.failed) return;
if ( state.backtracking==0 ) { action.int_constant(T_IDENT5); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "char_constant"
// $ANTLR start "intrinsic_operator"
// FortranParser08.g:520:1: intrinsic_operator returns [Token tk] : ( power_op | mult_op | add_op | concat_op | rel_op | not_op | and_op | or_op | equiv_op );
public final Token intrinsic_operator() throws RecognitionException {
Token tk = null;
Token power_op6 =null;
Token mult_op7 =null;
Token add_op8 =null;
Token concat_op9 =null;
Token rel_op10 =null;
Token not_op11 =null;
Token and_op12 =null;
Token or_op13 =null;
Token equiv_op14 =null;
try {
// FortranParser08.g:524:2: ( power_op | mult_op | add_op | concat_op | rel_op | not_op | and_op | or_op | equiv_op )
int alt21=9;
switch ( input.LA(1) ) {
case T_POWER:
{
alt21=1;
}
break;
case T_ASTERISK:
case T_SLASH:
{
alt21=2;
}
break;
case T_MINUS:
case T_PLUS:
{
alt21=3;
}
break;
case T_SLASH_SLASH:
{
alt21=4;
}
break;
case T_EQ:
case T_EQ_EQ:
case T_GE:
case T_GREATERTHAN:
case T_GREATERTHAN_EQ:
case T_GT:
case T_LE:
case T_LESSTHAN:
case T_LESSTHAN_EQ:
case T_LT:
case T_NE:
case T_SLASH_EQ:
{
alt21=5;
}
break;
case T_NOT:
{
alt21=6;
}
break;
case T_AND:
{
alt21=7;
}
break;
case T_OR:
{
alt21=8;
}
break;
case T_EQV:
case T_NEQV:
{
alt21=9;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return tk;}
NoViableAltException nvae =
new NoViableAltException("", 21, 0, input);
throw nvae;
}
switch (alt21) {
case 1 :
// FortranParser08.g:524:4: power_op
{
pushFollow(FOLLOW_power_op_in_intrinsic_operator1320);
power_op6=power_op();
state._fsp--;
if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = power_op6; }
}
break;
case 2 :
// FortranParser08.g:525:4: mult_op
{
pushFollow(FOLLOW_mult_op_in_intrinsic_operator1327);
mult_op7=mult_op();
state._fsp--;
if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = mult_op7; }
}
break;
case 3 :
// FortranParser08.g:526:4: add_op
{
pushFollow(FOLLOW_add_op_in_intrinsic_operator1335);
add_op8=add_op();
state._fsp--;
if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = add_op8; }
}
break;
case 4 :
// FortranParser08.g:527:4: concat_op
{
pushFollow(FOLLOW_concat_op_in_intrinsic_operator1343);
concat_op9=concat_op();
state._fsp--;
if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = concat_op9; }
}
break;
case 5 :
// FortranParser08.g:528:4: rel_op
{
pushFollow(FOLLOW_rel_op_in_intrinsic_operator1350);
rel_op10=rel_op();
state._fsp--;
if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = rel_op10; }
}
break;
case 6 :
// FortranParser08.g:529:4: not_op
{
pushFollow(FOLLOW_not_op_in_intrinsic_operator1358);
not_op11=not_op();
state._fsp--;
if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = not_op11; }
}
break;
case 7 :
// FortranParser08.g:530:4: and_op
{
pushFollow(FOLLOW_and_op_in_intrinsic_operator1366);
and_op12=and_op();
state._fsp--;
if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = and_op12; }
}
break;
case 8 :
// FortranParser08.g:531:4: or_op
{
pushFollow(FOLLOW_or_op_in_intrinsic_operator1374);
or_op13=or_op();
state._fsp--;
if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = or_op13; }
}
break;
case 9 :
// FortranParser08.g:532:4: equiv_op
{
pushFollow(FOLLOW_equiv_op_in_intrinsic_operator1382);
equiv_op14=equiv_op();
state._fsp--;
if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = equiv_op14; }
}
break;
}
if ( state.backtracking==0 ) {
action.intrinsic_operator();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "intrinsic_operator"
// $ANTLR start "defined_operator"
// FortranParser08.g:537:1: defined_operator : ( T_DEFINED_OP | extended_intrinsic_op );
public final void defined_operator() throws RecognitionException {
Token T_DEFINED_OP15=null;
Token extended_intrinsic_op16 =null;
try {
// FortranParser08.g:538:2: ( T_DEFINED_OP | extended_intrinsic_op )
int alt22=2;
int LA22_0 = input.LA(1);
if ( (LA22_0==T_DEFINED_OP) ) {
alt22=1;
}
else if ( (LA22_0==T_AND||LA22_0==T_ASTERISK||LA22_0==T_EQ||(LA22_0 >= T_EQV && LA22_0 <= T_EQ_EQ)||LA22_0==T_GE||(LA22_0 >= T_GREATERTHAN && LA22_0 <= T_GT)||LA22_0==T_LE||(LA22_0 >= T_LESSTHAN && LA22_0 <= T_LESSTHAN_EQ)||LA22_0==T_LT||LA22_0==T_MINUS||(LA22_0 >= T_NE && LA22_0 <= T_NEQV)||LA22_0==T_NOT||LA22_0==T_OR||LA22_0==T_PLUS||LA22_0==T_POWER||(LA22_0 >= T_SLASH && LA22_0 <= T_SLASH_SLASH)) ) {
alt22=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 22, 0, input);
throw nvae;
}
switch (alt22) {
case 1 :
// FortranParser08.g:538:4: T_DEFINED_OP
{
T_DEFINED_OP15=(Token)match(input,T_DEFINED_OP,FOLLOW_T_DEFINED_OP_in_defined_operator1397); if (state.failed) return;
if ( state.backtracking==0 ) { action.defined_operator(T_DEFINED_OP15, false); }
}
break;
case 2 :
// FortranParser08.g:540:4: extended_intrinsic_op
{
pushFollow(FOLLOW_extended_intrinsic_op_in_defined_operator1419);
extended_intrinsic_op16=extended_intrinsic_op();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.defined_operator(extended_intrinsic_op16, true); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "defined_operator"
// $ANTLR start "extended_intrinsic_op"
// FortranParser08.g:545:1: extended_intrinsic_op returns [Token tk] : intrinsic_operator ;
public final Token extended_intrinsic_op() throws RecognitionException {
Token tk = null;
Token intrinsic_operator17 =null;
try {
// FortranParser08.g:549:2: ( intrinsic_operator )
// FortranParser08.g:549:4: intrinsic_operator
{
pushFollow(FOLLOW_intrinsic_operator_in_extended_intrinsic_op1455);
intrinsic_operator17=intrinsic_operator();
state._fsp--;
if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = intrinsic_operator17; }
}
if ( state.backtracking==0 ) {
action.extended_intrinsic_op();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "extended_intrinsic_op"
// $ANTLR start "label"
// FortranParser08.g:554:1: label returns [Token tk] : T_DIGIT_STRING ;
public final Token label() throws RecognitionException {
Token tk = null;
Token T_DIGIT_STRING18=null;
try {
// FortranParser08.g:555:5: ( T_DIGIT_STRING )
// FortranParser08.g:555:7: T_DIGIT_STRING
{
T_DIGIT_STRING18=(Token)match(input,T_DIGIT_STRING,FOLLOW_T_DIGIT_STRING_in_label1477); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_DIGIT_STRING18; action.label(T_DIGIT_STRING18); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "label"
// $ANTLR start "label_list"
// FortranParser08.g:559:1: label_list :lbl= label ( T_COMMA lbl= label )* ;
public final void label_list() throws RecognitionException {
Token lbl =null;
int count=0;
try {
// FortranParser08.g:561:5: (lbl= label ( T_COMMA lbl= label )* )
// FortranParser08.g:561:10: lbl= label ( T_COMMA lbl= label )*
{
if ( state.backtracking==0 ) {action.label_list__begin();}
pushFollow(FOLLOW_label_in_label_list1510);
lbl=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:563:13: ( T_COMMA lbl= label )*
loop23:
while (true) {
int alt23=2;
int LA23_0 = input.LA(1);
if ( (LA23_0==T_COMMA) ) {
alt23=1;
}
switch (alt23) {
case 1 :
// FortranParser08.g:563:15: T_COMMA lbl= label
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_label_list1529); if (state.failed) return;
pushFollow(FOLLOW_label_in_label_list1533);
lbl=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop23;
}
}
if ( state.backtracking==0 ) {action.label_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "label_list"
// $ANTLR start "type_spec"
// FortranParser08.g:574:1: type_spec : ( intrinsic_type_spec | derived_type_spec );
public final void type_spec() throws RecognitionException {
try {
// FortranParser08.g:578:2: ( intrinsic_type_spec | derived_type_spec )
int alt24=2;
int LA24_0 = input.LA(1);
if ( (LA24_0==T_CHARACTER||LA24_0==T_COMPLEX||(LA24_0 >= T_DOUBLE && LA24_0 <= T_DOUBLEPRECISION)||LA24_0==T_INTEGER||LA24_0==T_LOGICAL||LA24_0==T_REAL) ) {
alt24=1;
}
else if ( (LA24_0==T_IDENT) ) {
alt24=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 24, 0, input);
throw nvae;
}
switch (alt24) {
case 1 :
// FortranParser08.g:578:4: intrinsic_type_spec
{
pushFollow(FOLLOW_intrinsic_type_spec_in_type_spec1573);
intrinsic_type_spec();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:579:4: derived_type_spec
{
pushFollow(FOLLOW_derived_type_spec_in_type_spec1578);
derived_type_spec();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.type_spec();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "type_spec"
// $ANTLR start "type_param_value"
// FortranParser08.g:584:1: type_param_value : ( expr | T_ASTERISK | T_COLON );
public final void type_param_value() throws RecognitionException {
try {
// FortranParser08.g:585:2: ( expr | T_ASTERISK | T_COLON )
int alt25=3;
switch ( input.LA(1) ) {
case BINARY_CONSTANT:
case HEX_CONSTANT:
case OCTAL_CONSTANT:
case T_CHAR_CONSTANT:
case T_DEFINED_OP:
case T_DIGIT_STRING:
case T_FALSE:
case T_HOLLERITH:
case T_IDENT:
case T_LBRACKET:
case T_LPAREN:
case T_MINUS:
case T_NOT:
case T_PLUS:
case T_REAL_CONSTANT:
case T_TRUE:
{
alt25=1;
}
break;
case T_ASTERISK:
{
alt25=2;
}
break;
case T_COLON:
{
alt25=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 25, 0, input);
throw nvae;
}
switch (alt25) {
case 1 :
// FortranParser08.g:585:4: expr
{
pushFollow(FOLLOW_expr_in_type_param_value1591);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.type_param_value(true, false, false); }
}
break;
case 2 :
// FortranParser08.g:586:4: T_ASTERISK
{
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_type_param_value1599); if (state.failed) return;
if ( state.backtracking==0 ) { action.type_param_value(false, true, false); }
}
break;
case 3 :
// FortranParser08.g:587:4: T_COLON
{
match(input,T_COLON,FOLLOW_T_COLON_in_type_param_value1606); if (state.failed) return;
if ( state.backtracking==0 ) { action.type_param_value(false, false, true); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "type_param_value"
// $ANTLR start "intrinsic_type_spec"
// FortranParser08.g:598:1: intrinsic_type_spec : ( T_INTEGER ( kind_selector )? | T_REAL ( kind_selector )? | T_DOUBLE T_PRECISION | T_DOUBLEPRECISION | T_COMPLEX ( kind_selector )? | T_DOUBLE T_COMPLEX | T_DOUBLECOMPLEX | T_CHARACTER ( char_selector )? | T_LOGICAL ( kind_selector )? );
public final void intrinsic_type_spec() throws RecognitionException {
Token T_INTEGER19=null;
Token T_REAL20=null;
Token T_DOUBLE21=null;
Token T_PRECISION22=null;
Token T_DOUBLEPRECISION23=null;
Token T_COMPLEX24=null;
Token T_DOUBLE25=null;
Token T_COMPLEX26=null;
Token T_DOUBLECOMPLEX27=null;
Token T_CHARACTER28=null;
Token T_LOGICAL29=null;
boolean hasKindSelector = false;
try {
// FortranParser08.g:600:2: ( T_INTEGER ( kind_selector )? | T_REAL ( kind_selector )? | T_DOUBLE T_PRECISION | T_DOUBLEPRECISION | T_COMPLEX ( kind_selector )? | T_DOUBLE T_COMPLEX | T_DOUBLECOMPLEX | T_CHARACTER ( char_selector )? | T_LOGICAL ( kind_selector )? )
int alt31=9;
switch ( input.LA(1) ) {
case T_INTEGER:
{
alt31=1;
}
break;
case T_REAL:
{
alt31=2;
}
break;
case T_DOUBLE:
{
int LA31_3 = input.LA(2);
if ( (LA31_3==T_PRECISION) ) {
alt31=3;
}
else if ( (LA31_3==T_COMPLEX) ) {
alt31=6;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 31, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_DOUBLEPRECISION:
{
alt31=4;
}
break;
case T_COMPLEX:
{
alt31=5;
}
break;
case T_DOUBLECOMPLEX:
{
alt31=7;
}
break;
case T_CHARACTER:
{
alt31=8;
}
break;
case T_LOGICAL:
{
alt31=9;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 31, 0, input);
throw nvae;
}
switch (alt31) {
case 1 :
// FortranParser08.g:600:4: T_INTEGER ( kind_selector )?
{
T_INTEGER19=(Token)match(input,T_INTEGER,FOLLOW_T_INTEGER_in_intrinsic_type_spec1632); if (state.failed) return;
// FortranParser08.g:600:14: ( kind_selector )?
int alt26=2;
int LA26_0 = input.LA(1);
if ( (LA26_0==T_LPAREN) ) {
int LA26_1 = input.LA(2);
if ( (LA26_1==BINARY_CONSTANT||LA26_1==HEX_CONSTANT||LA26_1==OCTAL_CONSTANT||LA26_1==T_CHAR_CONSTANT||(LA26_1 >= T_DEFINED_OP && LA26_1 <= T_DIGIT_STRING)||LA26_1==T_FALSE||LA26_1==T_HOLLERITH||LA26_1==T_KIND||LA26_1==T_LBRACKET||LA26_1==T_LPAREN||LA26_1==T_MINUS||LA26_1==T_NOT||LA26_1==T_PLUS||LA26_1==T_REAL_CONSTANT||LA26_1==T_TRUE) ) {
alt26=1;
}
else if ( (LA26_1==T_IDENT) ) {
switch ( input.LA(3) ) {
case T_AND:
case T_ASTERISK:
case T_CHAR_CONSTANT:
case T_DEFINED_OP:
case T_EQ:
case T_EQV:
case T_EQ_EQ:
case T_GE:
case T_GREATERTHAN:
case T_GREATERTHAN_EQ:
case T_GT:
case T_LBRACKET:
case T_LE:
case T_LESSTHAN:
case T_LESSTHAN_EQ:
case T_LPAREN:
case T_LT:
case T_NE:
case T_NEQV:
case T_OR:
case T_PERCENT:
case T_PLUS:
case T_POWER:
case T_SLASH:
case T_SLASH_EQ:
case T_SLASH_SLASH:
{
alt26=1;
}
break;
case T_MINUS:
{
int LA26_5 = input.LA(4);
if ( (LA26_5==T_IDENT) ) {
int LA26_7 = input.LA(5);
if ( (LA26_7==T_AND||LA26_7==T_ASTERISK||LA26_7==T_CHAR_CONSTANT||LA26_7==T_DEFINED_OP||LA26_7==T_EQ||(LA26_7 >= T_EQV && LA26_7 <= T_EQ_EQ)||LA26_7==T_GE||(LA26_7 >= T_GREATERTHAN && LA26_7 <= T_GT)||(LA26_7 >= T_LBRACKET && LA26_7 <= T_LE)||(LA26_7 >= T_LESSTHAN && LA26_7 <= T_LESSTHAN_EQ)||(LA26_7 >= T_LPAREN && LA26_7 <= T_LT)||LA26_7==T_MINUS||(LA26_7 >= T_NE && LA26_7 <= T_NEQV)||LA26_7==T_OR||LA26_7==T_PERCENT||LA26_7==T_PLUS||LA26_7==T_POWER||(LA26_7 >= T_SLASH && LA26_7 <= T_SLASH_SLASH)) ) {
alt26=1;
}
else if ( (LA26_7==T_RPAREN) ) {
int LA26_6 = input.LA(6);
if ( (LA26_6==T_CHARACTER||LA26_6==T_CLASS||LA26_6==T_COLON_COLON||LA26_6==T_COMPLEX||LA26_6==T_DIGIT_STRING||(LA26_6 >= T_DOUBLE && LA26_6 <= T_DOUBLEPRECISION)||LA26_6==T_ELEMENTAL||LA26_6==T_FUNCTION||LA26_6==T_IDENT||LA26_6==T_INTEGER||(LA26_6 >= T_LOGICAL && LA26_6 <= T_LPAREN)||LA26_6==T_PURE||LA26_6==T_REAL||LA26_6==T_RECURSIVE||LA26_6==T_RPAREN||LA26_6==T_TYPE) ) {
alt26=1;
}
else if ( (LA26_6==T_COMMA) ) {
int LA26_8 = input.LA(7);
if ( (LA26_8==T_ALLOCATABLE||LA26_8==T_ASYNCHRONOUS||LA26_8==T_BIND||LA26_8==T_CODIMENSION||LA26_8==T_CONTIGUOUS||LA26_8==T_DIMENSION||LA26_8==T_EXTERNAL||LA26_8==T_INTENT||(LA26_8 >= T_INTRINSIC && LA26_8 <= T_KIND)||LA26_8==T_LEN||LA26_8==T_NO_LANGUAGE_EXTENSION||LA26_8==T_OPTIONAL||LA26_8==T_PARAMETER||LA26_8==T_POINTER||LA26_8==T_PRIVATE||LA26_8==T_PROTECTED||LA26_8==T_PUBLIC||LA26_8==T_SAVE||LA26_8==T_TARGET||(LA26_8 >= T_VALUE && LA26_8 <= T_VOLATILE)) ) {
alt26=1;
}
}
}
}
else if ( (LA26_5==BINARY_CONSTANT||LA26_5==HEX_CONSTANT||LA26_5==OCTAL_CONSTANT||LA26_5==T_CHAR_CONSTANT||(LA26_5 >= T_DEFINED_OP && LA26_5 <= T_DIGIT_STRING)||LA26_5==T_FALSE||LA26_5==T_HOLLERITH||LA26_5==T_LBRACKET||LA26_5==T_LPAREN||LA26_5==T_REAL_CONSTANT||LA26_5==T_TRUE) ) {
alt26=1;
}
}
break;
case T_RPAREN:
{
int LA26_6 = input.LA(4);
if ( (LA26_6==T_CHARACTER||LA26_6==T_CLASS||LA26_6==T_COLON_COLON||LA26_6==T_COMPLEX||LA26_6==T_DIGIT_STRING||(LA26_6 >= T_DOUBLE && LA26_6 <= T_DOUBLEPRECISION)||LA26_6==T_ELEMENTAL||LA26_6==T_FUNCTION||LA26_6==T_IDENT||LA26_6==T_INTEGER||(LA26_6 >= T_LOGICAL && LA26_6 <= T_LPAREN)||LA26_6==T_PURE||LA26_6==T_REAL||LA26_6==T_RECURSIVE||LA26_6==T_RPAREN||LA26_6==T_TYPE) ) {
alt26=1;
}
else if ( (LA26_6==T_COMMA) ) {
int LA26_8 = input.LA(5);
if ( (LA26_8==T_ALLOCATABLE||LA26_8==T_ASYNCHRONOUS||LA26_8==T_BIND||LA26_8==T_CODIMENSION||LA26_8==T_CONTIGUOUS||LA26_8==T_DIMENSION||LA26_8==T_EXTERNAL||LA26_8==T_INTENT||(LA26_8 >= T_INTRINSIC && LA26_8 <= T_KIND)||LA26_8==T_LEN||LA26_8==T_NO_LANGUAGE_EXTENSION||LA26_8==T_OPTIONAL||LA26_8==T_PARAMETER||LA26_8==T_POINTER||LA26_8==T_PRIVATE||LA26_8==T_PROTECTED||LA26_8==T_PUBLIC||LA26_8==T_SAVE||LA26_8==T_TARGET||(LA26_8 >= T_VALUE && LA26_8 <= T_VOLATILE)) ) {
alt26=1;
}
}
}
break;
}
}
}
else if ( (LA26_0==T_ASTERISK) ) {
alt26=1;
}
switch (alt26) {
case 1 :
// FortranParser08.g:600:15: kind_selector
{
pushFollow(FOLLOW_kind_selector_in_intrinsic_type_spec1635);
kind_selector();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasKindSelector = true;}
}
break;
}
if ( state.backtracking==0 ) {action.intrinsic_type_spec(T_INTEGER19, null,
IActionEnums.IntrinsicTypeSpec_INTEGER,
hasKindSelector);}
}
break;
case 2 :
// FortranParser08.g:604:4: T_REAL ( kind_selector )?
{
T_REAL20=(Token)match(input,T_REAL,FOLLOW_T_REAL_in_intrinsic_type_spec1649); if (state.failed) return;
// FortranParser08.g:604:11: ( kind_selector )?
int alt27=2;
int LA27_0 = input.LA(1);
if ( (LA27_0==T_LPAREN) ) {
int LA27_1 = input.LA(2);
if ( (LA27_1==BINARY_CONSTANT||LA27_1==HEX_CONSTANT||LA27_1==OCTAL_CONSTANT||LA27_1==T_CHAR_CONSTANT||(LA27_1 >= T_DEFINED_OP && LA27_1 <= T_DIGIT_STRING)||LA27_1==T_FALSE||LA27_1==T_HOLLERITH||LA27_1==T_KIND||LA27_1==T_LBRACKET||LA27_1==T_LPAREN||LA27_1==T_MINUS||LA27_1==T_NOT||LA27_1==T_PLUS||LA27_1==T_REAL_CONSTANT||LA27_1==T_TRUE) ) {
alt27=1;
}
else if ( (LA27_1==T_IDENT) ) {
switch ( input.LA(3) ) {
case T_AND:
case T_ASTERISK:
case T_CHAR_CONSTANT:
case T_DEFINED_OP:
case T_EQ:
case T_EQV:
case T_EQ_EQ:
case T_GE:
case T_GREATERTHAN:
case T_GREATERTHAN_EQ:
case T_GT:
case T_LBRACKET:
case T_LE:
case T_LESSTHAN:
case T_LESSTHAN_EQ:
case T_LPAREN:
case T_LT:
case T_NE:
case T_NEQV:
case T_OR:
case T_PERCENT:
case T_PLUS:
case T_POWER:
case T_SLASH:
case T_SLASH_EQ:
case T_SLASH_SLASH:
{
alt27=1;
}
break;
case T_MINUS:
{
int LA27_5 = input.LA(4);
if ( (LA27_5==T_IDENT) ) {
int LA27_7 = input.LA(5);
if ( (LA27_7==T_AND||LA27_7==T_ASTERISK||LA27_7==T_CHAR_CONSTANT||LA27_7==T_DEFINED_OP||LA27_7==T_EQ||(LA27_7 >= T_EQV && LA27_7 <= T_EQ_EQ)||LA27_7==T_GE||(LA27_7 >= T_GREATERTHAN && LA27_7 <= T_GT)||(LA27_7 >= T_LBRACKET && LA27_7 <= T_LE)||(LA27_7 >= T_LESSTHAN && LA27_7 <= T_LESSTHAN_EQ)||(LA27_7 >= T_LPAREN && LA27_7 <= T_LT)||LA27_7==T_MINUS||(LA27_7 >= T_NE && LA27_7 <= T_NEQV)||LA27_7==T_OR||LA27_7==T_PERCENT||LA27_7==T_PLUS||LA27_7==T_POWER||(LA27_7 >= T_SLASH && LA27_7 <= T_SLASH_SLASH)) ) {
alt27=1;
}
else if ( (LA27_7==T_RPAREN) ) {
int LA27_6 = input.LA(6);
if ( (LA27_6==T_CHARACTER||LA27_6==T_CLASS||LA27_6==T_COLON_COLON||LA27_6==T_COMPLEX||LA27_6==T_DIGIT_STRING||(LA27_6 >= T_DOUBLE && LA27_6 <= T_DOUBLEPRECISION)||LA27_6==T_ELEMENTAL||LA27_6==T_FUNCTION||LA27_6==T_IDENT||LA27_6==T_INTEGER||(LA27_6 >= T_LOGICAL && LA27_6 <= T_LPAREN)||LA27_6==T_PURE||LA27_6==T_REAL||LA27_6==T_RECURSIVE||LA27_6==T_RPAREN||LA27_6==T_TYPE) ) {
alt27=1;
}
else if ( (LA27_6==T_COMMA) ) {
int LA27_8 = input.LA(7);
if ( (LA27_8==T_ALLOCATABLE||LA27_8==T_ASYNCHRONOUS||LA27_8==T_BIND||LA27_8==T_CODIMENSION||LA27_8==T_CONTIGUOUS||LA27_8==T_DIMENSION||LA27_8==T_EXTERNAL||LA27_8==T_INTENT||(LA27_8 >= T_INTRINSIC && LA27_8 <= T_KIND)||LA27_8==T_LEN||LA27_8==T_NO_LANGUAGE_EXTENSION||LA27_8==T_OPTIONAL||LA27_8==T_PARAMETER||LA27_8==T_POINTER||LA27_8==T_PRIVATE||LA27_8==T_PROTECTED||LA27_8==T_PUBLIC||LA27_8==T_SAVE||LA27_8==T_TARGET||(LA27_8 >= T_VALUE && LA27_8 <= T_VOLATILE)) ) {
alt27=1;
}
}
}
}
else if ( (LA27_5==BINARY_CONSTANT||LA27_5==HEX_CONSTANT||LA27_5==OCTAL_CONSTANT||LA27_5==T_CHAR_CONSTANT||(LA27_5 >= T_DEFINED_OP && LA27_5 <= T_DIGIT_STRING)||LA27_5==T_FALSE||LA27_5==T_HOLLERITH||LA27_5==T_LBRACKET||LA27_5==T_LPAREN||LA27_5==T_REAL_CONSTANT||LA27_5==T_TRUE) ) {
alt27=1;
}
}
break;
case T_RPAREN:
{
int LA27_6 = input.LA(4);
if ( (LA27_6==T_CHARACTER||LA27_6==T_CLASS||LA27_6==T_COLON_COLON||LA27_6==T_COMPLEX||LA27_6==T_DIGIT_STRING||(LA27_6 >= T_DOUBLE && LA27_6 <= T_DOUBLEPRECISION)||LA27_6==T_ELEMENTAL||LA27_6==T_FUNCTION||LA27_6==T_IDENT||LA27_6==T_INTEGER||(LA27_6 >= T_LOGICAL && LA27_6 <= T_LPAREN)||LA27_6==T_PURE||LA27_6==T_REAL||LA27_6==T_RECURSIVE||LA27_6==T_RPAREN||LA27_6==T_TYPE) ) {
alt27=1;
}
else if ( (LA27_6==T_COMMA) ) {
int LA27_8 = input.LA(5);
if ( (LA27_8==T_ALLOCATABLE||LA27_8==T_ASYNCHRONOUS||LA27_8==T_BIND||LA27_8==T_CODIMENSION||LA27_8==T_CONTIGUOUS||LA27_8==T_DIMENSION||LA27_8==T_EXTERNAL||LA27_8==T_INTENT||(LA27_8 >= T_INTRINSIC && LA27_8 <= T_KIND)||LA27_8==T_LEN||LA27_8==T_NO_LANGUAGE_EXTENSION||LA27_8==T_OPTIONAL||LA27_8==T_PARAMETER||LA27_8==T_POINTER||LA27_8==T_PRIVATE||LA27_8==T_PROTECTED||LA27_8==T_PUBLIC||LA27_8==T_SAVE||LA27_8==T_TARGET||(LA27_8 >= T_VALUE && LA27_8 <= T_VOLATILE)) ) {
alt27=1;
}
}
}
break;
}
}
}
else if ( (LA27_0==T_ASTERISK) ) {
alt27=1;
}
switch (alt27) {
case 1 :
// FortranParser08.g:604:12: kind_selector
{
pushFollow(FOLLOW_kind_selector_in_intrinsic_type_spec1652);
kind_selector();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasKindSelector = true;}
}
break;
}
if ( state.backtracking==0 ) {action.intrinsic_type_spec(T_REAL20, null,
IActionEnums.IntrinsicTypeSpec_REAL,
hasKindSelector);}
}
break;
case 3 :
// FortranParser08.g:608:4: T_DOUBLE T_PRECISION
{
T_DOUBLE21=(Token)match(input,T_DOUBLE,FOLLOW_T_DOUBLE_in_intrinsic_type_spec1666); if (state.failed) return;
T_PRECISION22=(Token)match(input,T_PRECISION,FOLLOW_T_PRECISION_in_intrinsic_type_spec1668); if (state.failed) return;
if ( state.backtracking==0 ) {action.intrinsic_type_spec(T_DOUBLE21, T_PRECISION22,
IActionEnums.
IntrinsicTypeSpec_DOUBLEPRECISION,
false);}
}
break;
case 4 :
// FortranParser08.g:613:4: T_DOUBLEPRECISION
{
T_DOUBLEPRECISION23=(Token)match(input,T_DOUBLEPRECISION,FOLLOW_T_DOUBLEPRECISION_in_intrinsic_type_spec1678); if (state.failed) return;
if ( state.backtracking==0 ) {action.intrinsic_type_spec(T_DOUBLEPRECISION23, null,
IActionEnums.
IntrinsicTypeSpec_DOUBLEPRECISION,
false);}
}
break;
case 5 :
// FortranParser08.g:618:4: T_COMPLEX ( kind_selector )?
{
T_COMPLEX24=(Token)match(input,T_COMPLEX,FOLLOW_T_COMPLEX_in_intrinsic_type_spec1688); if (state.failed) return;
// FortranParser08.g:618:14: ( kind_selector )?
int alt28=2;
int LA28_0 = input.LA(1);
if ( (LA28_0==T_LPAREN) ) {
int LA28_1 = input.LA(2);
if ( (LA28_1==BINARY_CONSTANT||LA28_1==HEX_CONSTANT||LA28_1==OCTAL_CONSTANT||LA28_1==T_CHAR_CONSTANT||(LA28_1 >= T_DEFINED_OP && LA28_1 <= T_DIGIT_STRING)||LA28_1==T_FALSE||LA28_1==T_HOLLERITH||LA28_1==T_KIND||LA28_1==T_LBRACKET||LA28_1==T_LPAREN||LA28_1==T_MINUS||LA28_1==T_NOT||LA28_1==T_PLUS||LA28_1==T_REAL_CONSTANT||LA28_1==T_TRUE) ) {
alt28=1;
}
else if ( (LA28_1==T_IDENT) ) {
switch ( input.LA(3) ) {
case T_AND:
case T_ASTERISK:
case T_CHAR_CONSTANT:
case T_DEFINED_OP:
case T_EQ:
case T_EQV:
case T_EQ_EQ:
case T_GE:
case T_GREATERTHAN:
case T_GREATERTHAN_EQ:
case T_GT:
case T_LBRACKET:
case T_LE:
case T_LESSTHAN:
case T_LESSTHAN_EQ:
case T_LPAREN:
case T_LT:
case T_NE:
case T_NEQV:
case T_OR:
case T_PERCENT:
case T_PLUS:
case T_POWER:
case T_SLASH:
case T_SLASH_EQ:
case T_SLASH_SLASH:
{
alt28=1;
}
break;
case T_MINUS:
{
int LA28_5 = input.LA(4);
if ( (LA28_5==T_IDENT) ) {
int LA28_7 = input.LA(5);
if ( (LA28_7==T_AND||LA28_7==T_ASTERISK||LA28_7==T_CHAR_CONSTANT||LA28_7==T_DEFINED_OP||LA28_7==T_EQ||(LA28_7 >= T_EQV && LA28_7 <= T_EQ_EQ)||LA28_7==T_GE||(LA28_7 >= T_GREATERTHAN && LA28_7 <= T_GT)||(LA28_7 >= T_LBRACKET && LA28_7 <= T_LE)||(LA28_7 >= T_LESSTHAN && LA28_7 <= T_LESSTHAN_EQ)||(LA28_7 >= T_LPAREN && LA28_7 <= T_LT)||LA28_7==T_MINUS||(LA28_7 >= T_NE && LA28_7 <= T_NEQV)||LA28_7==T_OR||LA28_7==T_PERCENT||LA28_7==T_PLUS||LA28_7==T_POWER||(LA28_7 >= T_SLASH && LA28_7 <= T_SLASH_SLASH)) ) {
alt28=1;
}
else if ( (LA28_7==T_RPAREN) ) {
int LA28_6 = input.LA(6);
if ( (LA28_6==T_CHARACTER||LA28_6==T_CLASS||LA28_6==T_COLON_COLON||LA28_6==T_COMPLEX||LA28_6==T_DIGIT_STRING||(LA28_6 >= T_DOUBLE && LA28_6 <= T_DOUBLEPRECISION)||LA28_6==T_ELEMENTAL||LA28_6==T_FUNCTION||LA28_6==T_IDENT||LA28_6==T_INTEGER||(LA28_6 >= T_LOGICAL && LA28_6 <= T_LPAREN)||LA28_6==T_PURE||LA28_6==T_REAL||LA28_6==T_RECURSIVE||LA28_6==T_RPAREN||LA28_6==T_TYPE) ) {
alt28=1;
}
else if ( (LA28_6==T_COMMA) ) {
int LA28_8 = input.LA(7);
if ( (LA28_8==T_ALLOCATABLE||LA28_8==T_ASYNCHRONOUS||LA28_8==T_BIND||LA28_8==T_CODIMENSION||LA28_8==T_CONTIGUOUS||LA28_8==T_DIMENSION||LA28_8==T_EXTERNAL||LA28_8==T_INTENT||(LA28_8 >= T_INTRINSIC && LA28_8 <= T_KIND)||LA28_8==T_LEN||LA28_8==T_NO_LANGUAGE_EXTENSION||LA28_8==T_OPTIONAL||LA28_8==T_PARAMETER||LA28_8==T_POINTER||LA28_8==T_PRIVATE||LA28_8==T_PROTECTED||LA28_8==T_PUBLIC||LA28_8==T_SAVE||LA28_8==T_TARGET||(LA28_8 >= T_VALUE && LA28_8 <= T_VOLATILE)) ) {
alt28=1;
}
}
}
}
else if ( (LA28_5==BINARY_CONSTANT||LA28_5==HEX_CONSTANT||LA28_5==OCTAL_CONSTANT||LA28_5==T_CHAR_CONSTANT||(LA28_5 >= T_DEFINED_OP && LA28_5 <= T_DIGIT_STRING)||LA28_5==T_FALSE||LA28_5==T_HOLLERITH||LA28_5==T_LBRACKET||LA28_5==T_LPAREN||LA28_5==T_REAL_CONSTANT||LA28_5==T_TRUE) ) {
alt28=1;
}
}
break;
case T_RPAREN:
{
int LA28_6 = input.LA(4);
if ( (LA28_6==T_CHARACTER||LA28_6==T_CLASS||LA28_6==T_COLON_COLON||LA28_6==T_COMPLEX||LA28_6==T_DIGIT_STRING||(LA28_6 >= T_DOUBLE && LA28_6 <= T_DOUBLEPRECISION)||LA28_6==T_ELEMENTAL||LA28_6==T_FUNCTION||LA28_6==T_IDENT||LA28_6==T_INTEGER||(LA28_6 >= T_LOGICAL && LA28_6 <= T_LPAREN)||LA28_6==T_PURE||LA28_6==T_REAL||LA28_6==T_RECURSIVE||LA28_6==T_RPAREN||LA28_6==T_TYPE) ) {
alt28=1;
}
else if ( (LA28_6==T_COMMA) ) {
int LA28_8 = input.LA(5);
if ( (LA28_8==T_ALLOCATABLE||LA28_8==T_ASYNCHRONOUS||LA28_8==T_BIND||LA28_8==T_CODIMENSION||LA28_8==T_CONTIGUOUS||LA28_8==T_DIMENSION||LA28_8==T_EXTERNAL||LA28_8==T_INTENT||(LA28_8 >= T_INTRINSIC && LA28_8 <= T_KIND)||LA28_8==T_LEN||LA28_8==T_NO_LANGUAGE_EXTENSION||LA28_8==T_OPTIONAL||LA28_8==T_PARAMETER||LA28_8==T_POINTER||LA28_8==T_PRIVATE||LA28_8==T_PROTECTED||LA28_8==T_PUBLIC||LA28_8==T_SAVE||LA28_8==T_TARGET||(LA28_8 >= T_VALUE && LA28_8 <= T_VOLATILE)) ) {
alt28=1;
}
}
}
break;
}
}
}
else if ( (LA28_0==T_ASTERISK) ) {
alt28=1;
}
switch (alt28) {
case 1 :
// FortranParser08.g:618:15: kind_selector
{
pushFollow(FOLLOW_kind_selector_in_intrinsic_type_spec1691);
kind_selector();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasKindSelector = true;}
}
break;
}
if ( state.backtracking==0 ) {action.intrinsic_type_spec(T_COMPLEX24, null,
IActionEnums.IntrinsicTypeSpec_COMPLEX,
hasKindSelector);}
}
break;
case 6 :
// FortranParser08.g:622:4: T_DOUBLE T_COMPLEX
{
T_DOUBLE25=(Token)match(input,T_DOUBLE,FOLLOW_T_DOUBLE_in_intrinsic_type_spec1705); if (state.failed) return;
T_COMPLEX26=(Token)match(input,T_COMPLEX,FOLLOW_T_COMPLEX_in_intrinsic_type_spec1707); if (state.failed) return;
if ( state.backtracking==0 ) {action.intrinsic_type_spec(T_DOUBLE25, T_COMPLEX26,
IActionEnums.
IntrinsicTypeSpec_DOUBLECOMPLEX,
false);}
}
break;
case 7 :
// FortranParser08.g:627:4: T_DOUBLECOMPLEX
{
T_DOUBLECOMPLEX27=(Token)match(input,T_DOUBLECOMPLEX,FOLLOW_T_DOUBLECOMPLEX_in_intrinsic_type_spec1717); if (state.failed) return;
if ( state.backtracking==0 ) {action.intrinsic_type_spec(T_DOUBLECOMPLEX27, null,
IActionEnums.
IntrinsicTypeSpec_DOUBLECOMPLEX,
false);}
}
break;
case 8 :
// FortranParser08.g:632:4: T_CHARACTER ( char_selector )?
{
T_CHARACTER28=(Token)match(input,T_CHARACTER,FOLLOW_T_CHARACTER_in_intrinsic_type_spec1727); if (state.failed) return;
// FortranParser08.g:632:16: ( char_selector )?
int alt29=2;
int LA29_0 = input.LA(1);
if ( (LA29_0==T_ASTERISK) ) {
alt29=1;
}
else if ( (LA29_0==T_LPAREN) ) {
int LA29_2 = input.LA(2);
if ( (LA29_2==BINARY_CONSTANT||LA29_2==HEX_CONSTANT||LA29_2==OCTAL_CONSTANT||LA29_2==T_ASTERISK||LA29_2==T_CHAR_CONSTANT||LA29_2==T_COLON||(LA29_2 >= T_DEFINED_OP && LA29_2 <= T_DIGIT_STRING)||LA29_2==T_FALSE||LA29_2==T_HOLLERITH||LA29_2==T_KIND||LA29_2==T_LBRACKET||LA29_2==T_LEN||LA29_2==T_LPAREN||LA29_2==T_MINUS||LA29_2==T_NOT||LA29_2==T_PLUS||LA29_2==T_REAL_CONSTANT||LA29_2==T_TRUE) ) {
alt29=1;
}
else if ( (LA29_2==T_IDENT) ) {
switch ( input.LA(3) ) {
case T_AND:
case T_ASTERISK:
case T_CHAR_CONSTANT:
case T_DEFINED_OP:
case T_EQ:
case T_EQV:
case T_EQ_EQ:
case T_GE:
case T_GREATERTHAN:
case T_GREATERTHAN_EQ:
case T_GT:
case T_LBRACKET:
case T_LE:
case T_LESSTHAN:
case T_LESSTHAN_EQ:
case T_LPAREN:
case T_LT:
case T_NE:
case T_NEQV:
case T_OR:
case T_PERCENT:
case T_PLUS:
case T_POWER:
case T_SLASH:
case T_SLASH_EQ:
case T_SLASH_SLASH:
{
alt29=1;
}
break;
case T_MINUS:
{
int LA29_5 = input.LA(4);
if ( (LA29_5==T_IDENT) ) {
switch ( input.LA(5) ) {
case T_AND:
case T_ASTERISK:
case T_CHAR_CONSTANT:
case T_DEFINED_OP:
case T_EQ:
case T_EQV:
case T_EQ_EQ:
case T_GE:
case T_GREATERTHAN:
case T_GREATERTHAN_EQ:
case T_GT:
case T_LBRACKET:
case T_LE:
case T_LESSTHAN:
case T_LESSTHAN_EQ:
case T_LPAREN:
case T_LT:
case T_MINUS:
case T_NE:
case T_NEQV:
case T_OR:
case T_PERCENT:
case T_PLUS:
case T_POWER:
case T_SLASH:
case T_SLASH_EQ:
case T_SLASH_SLASH:
{
alt29=1;
}
break;
case T_COMMA:
{
int LA29_6 = input.LA(6);
if ( (LA29_6==BINARY_CONSTANT||LA29_6==HEX_CONSTANT||LA29_6==OCTAL_CONSTANT||LA29_6==T_CHAR_CONSTANT||(LA29_6 >= T_DEFINED_OP && LA29_6 <= T_DIGIT_STRING)||LA29_6==T_FALSE||LA29_6==T_HOLLERITH||LA29_6==T_KIND||LA29_6==T_LBRACKET||LA29_6==T_LPAREN||LA29_6==T_MINUS||LA29_6==T_NOT||LA29_6==T_PLUS||LA29_6==T_REAL_CONSTANT||LA29_6==T_TRUE) ) {
alt29=1;
}
else if ( (LA29_6==T_IDENT) ) {
switch ( input.LA(7) ) {
case T_AND:
case T_ASTERISK:
case T_CHAR_CONSTANT:
case T_DEFINED_OP:
case T_EQ:
case T_EQV:
case T_EQ_EQ:
case T_GE:
case T_GREATERTHAN:
case T_GREATERTHAN_EQ:
case T_GT:
case T_LBRACKET:
case T_LE:
case T_LESSTHAN:
case T_LESSTHAN_EQ:
case T_LPAREN:
case T_LT:
case T_NE:
case T_NEQV:
case T_OR:
case T_PERCENT:
case T_PLUS:
case T_POWER:
case T_SLASH:
case T_SLASH_EQ:
case T_SLASH_SLASH:
{
alt29=1;
}
break;
case T_MINUS:
{
int LA29_11 = input.LA(8);
if ( (LA29_11==T_IDENT) ) {
int LA29_12 = input.LA(9);
if ( (LA29_12==T_AND||LA29_12==T_ASTERISK||LA29_12==T_CHAR_CONSTANT||LA29_12==T_DEFINED_OP||LA29_12==T_EQ||(LA29_12 >= T_EQV && LA29_12 <= T_EQ_EQ)||LA29_12==T_GE||(LA29_12 >= T_GREATERTHAN && LA29_12 <= T_GT)||(LA29_12 >= T_LBRACKET && LA29_12 <= T_LE)||(LA29_12 >= T_LESSTHAN && LA29_12 <= T_LESSTHAN_EQ)||(LA29_12 >= T_LPAREN && LA29_12 <= T_LT)||LA29_12==T_MINUS||(LA29_12 >= T_NE && LA29_12 <= T_NEQV)||LA29_12==T_OR||LA29_12==T_PERCENT||LA29_12==T_PLUS||LA29_12==T_POWER||(LA29_12 >= T_SLASH && LA29_12 <= T_SLASH_SLASH)) ) {
alt29=1;
}
else if ( (LA29_12==T_RPAREN) ) {
int LA29_7 = input.LA(10);
if ( (LA29_7==T_CHARACTER||LA29_7==T_CLASS||LA29_7==T_COLON_COLON||LA29_7==T_COMPLEX||LA29_7==T_DIGIT_STRING||(LA29_7 >= T_DOUBLE && LA29_7 <= T_DOUBLEPRECISION)||LA29_7==T_ELEMENTAL||LA29_7==T_FUNCTION||LA29_7==T_IDENT||LA29_7==T_INTEGER||(LA29_7 >= T_LOGICAL && LA29_7 <= T_LPAREN)||LA29_7==T_PURE||LA29_7==T_REAL||LA29_7==T_RECURSIVE||LA29_7==T_RPAREN||LA29_7==T_TYPE) ) {
alt29=1;
}
else if ( (LA29_7==T_COMMA) ) {
int LA29_10 = input.LA(11);
if ( (LA29_10==T_ALLOCATABLE||LA29_10==T_ASYNCHRONOUS||LA29_10==T_BIND||LA29_10==T_CODIMENSION||LA29_10==T_CONTIGUOUS||LA29_10==T_DIMENSION||LA29_10==T_EXTERNAL||LA29_10==T_INTENT||(LA29_10 >= T_INTRINSIC && LA29_10 <= T_KIND)||LA29_10==T_LEN||LA29_10==T_NO_LANGUAGE_EXTENSION||LA29_10==T_OPTIONAL||LA29_10==T_PARAMETER||LA29_10==T_POINTER||LA29_10==T_PRIVATE||LA29_10==T_PROTECTED||LA29_10==T_PUBLIC||LA29_10==T_SAVE||LA29_10==T_TARGET||(LA29_10 >= T_VALUE && LA29_10 <= T_VOLATILE)) ) {
alt29=1;
}
}
}
}
else if ( (LA29_11==BINARY_CONSTANT||LA29_11==HEX_CONSTANT||LA29_11==OCTAL_CONSTANT||LA29_11==T_CHAR_CONSTANT||(LA29_11 >= T_DEFINED_OP && LA29_11 <= T_DIGIT_STRING)||LA29_11==T_FALSE||LA29_11==T_HOLLERITH||LA29_11==T_LBRACKET||LA29_11==T_LPAREN||LA29_11==T_REAL_CONSTANT||LA29_11==T_TRUE) ) {
alt29=1;
}
}
break;
case T_RPAREN:
{
int LA29_7 = input.LA(8);
if ( (LA29_7==T_CHARACTER||LA29_7==T_CLASS||LA29_7==T_COLON_COLON||LA29_7==T_COMPLEX||LA29_7==T_DIGIT_STRING||(LA29_7 >= T_DOUBLE && LA29_7 <= T_DOUBLEPRECISION)||LA29_7==T_ELEMENTAL||LA29_7==T_FUNCTION||LA29_7==T_IDENT||LA29_7==T_INTEGER||(LA29_7 >= T_LOGICAL && LA29_7 <= T_LPAREN)||LA29_7==T_PURE||LA29_7==T_REAL||LA29_7==T_RECURSIVE||LA29_7==T_RPAREN||LA29_7==T_TYPE) ) {
alt29=1;
}
else if ( (LA29_7==T_COMMA) ) {
int LA29_10 = input.LA(9);
if ( (LA29_10==T_ALLOCATABLE||LA29_10==T_ASYNCHRONOUS||LA29_10==T_BIND||LA29_10==T_CODIMENSION||LA29_10==T_CONTIGUOUS||LA29_10==T_DIMENSION||LA29_10==T_EXTERNAL||LA29_10==T_INTENT||(LA29_10 >= T_INTRINSIC && LA29_10 <= T_KIND)||LA29_10==T_LEN||LA29_10==T_NO_LANGUAGE_EXTENSION||LA29_10==T_OPTIONAL||LA29_10==T_PARAMETER||LA29_10==T_POINTER||LA29_10==T_PRIVATE||LA29_10==T_PROTECTED||LA29_10==T_PUBLIC||LA29_10==T_SAVE||LA29_10==T_TARGET||(LA29_10 >= T_VALUE && LA29_10 <= T_VOLATILE)) ) {
alt29=1;
}
}
}
break;
}
}
}
break;
case T_RPAREN:
{
int LA29_7 = input.LA(6);
if ( (LA29_7==T_CHARACTER||LA29_7==T_CLASS||LA29_7==T_COLON_COLON||LA29_7==T_COMPLEX||LA29_7==T_DIGIT_STRING||(LA29_7 >= T_DOUBLE && LA29_7 <= T_DOUBLEPRECISION)||LA29_7==T_ELEMENTAL||LA29_7==T_FUNCTION||LA29_7==T_IDENT||LA29_7==T_INTEGER||(LA29_7 >= T_LOGICAL && LA29_7 <= T_LPAREN)||LA29_7==T_PURE||LA29_7==T_REAL||LA29_7==T_RECURSIVE||LA29_7==T_RPAREN||LA29_7==T_TYPE) ) {
alt29=1;
}
else if ( (LA29_7==T_COMMA) ) {
int LA29_10 = input.LA(7);
if ( (LA29_10==T_ALLOCATABLE||LA29_10==T_ASYNCHRONOUS||LA29_10==T_BIND||LA29_10==T_CODIMENSION||LA29_10==T_CONTIGUOUS||LA29_10==T_DIMENSION||LA29_10==T_EXTERNAL||LA29_10==T_INTENT||(LA29_10 >= T_INTRINSIC && LA29_10 <= T_KIND)||LA29_10==T_LEN||LA29_10==T_NO_LANGUAGE_EXTENSION||LA29_10==T_OPTIONAL||LA29_10==T_PARAMETER||LA29_10==T_POINTER||LA29_10==T_PRIVATE||LA29_10==T_PROTECTED||LA29_10==T_PUBLIC||LA29_10==T_SAVE||LA29_10==T_TARGET||(LA29_10 >= T_VALUE && LA29_10 <= T_VOLATILE)) ) {
alt29=1;
}
}
}
break;
}
}
else if ( (LA29_5==BINARY_CONSTANT||LA29_5==HEX_CONSTANT||LA29_5==OCTAL_CONSTANT||LA29_5==T_CHAR_CONSTANT||(LA29_5 >= T_DEFINED_OP && LA29_5 <= T_DIGIT_STRING)||LA29_5==T_FALSE||LA29_5==T_HOLLERITH||LA29_5==T_LBRACKET||LA29_5==T_LPAREN||LA29_5==T_REAL_CONSTANT||LA29_5==T_TRUE) ) {
alt29=1;
}
}
break;
case T_COMMA:
{
int LA29_6 = input.LA(4);
if ( (LA29_6==BINARY_CONSTANT||LA29_6==HEX_CONSTANT||LA29_6==OCTAL_CONSTANT||LA29_6==T_CHAR_CONSTANT||(LA29_6 >= T_DEFINED_OP && LA29_6 <= T_DIGIT_STRING)||LA29_6==T_FALSE||LA29_6==T_HOLLERITH||LA29_6==T_KIND||LA29_6==T_LBRACKET||LA29_6==T_LPAREN||LA29_6==T_MINUS||LA29_6==T_NOT||LA29_6==T_PLUS||LA29_6==T_REAL_CONSTANT||LA29_6==T_TRUE) ) {
alt29=1;
}
else if ( (LA29_6==T_IDENT) ) {
switch ( input.LA(5) ) {
case T_AND:
case T_ASTERISK:
case T_CHAR_CONSTANT:
case T_DEFINED_OP:
case T_EQ:
case T_EQV:
case T_EQ_EQ:
case T_GE:
case T_GREATERTHAN:
case T_GREATERTHAN_EQ:
case T_GT:
case T_LBRACKET:
case T_LE:
case T_LESSTHAN:
case T_LESSTHAN_EQ:
case T_LPAREN:
case T_LT:
case T_NE:
case T_NEQV:
case T_OR:
case T_PERCENT:
case T_PLUS:
case T_POWER:
case T_SLASH:
case T_SLASH_EQ:
case T_SLASH_SLASH:
{
alt29=1;
}
break;
case T_MINUS:
{
int LA29_11 = input.LA(6);
if ( (LA29_11==T_IDENT) ) {
int LA29_12 = input.LA(7);
if ( (LA29_12==T_AND||LA29_12==T_ASTERISK||LA29_12==T_CHAR_CONSTANT||LA29_12==T_DEFINED_OP||LA29_12==T_EQ||(LA29_12 >= T_EQV && LA29_12 <= T_EQ_EQ)||LA29_12==T_GE||(LA29_12 >= T_GREATERTHAN && LA29_12 <= T_GT)||(LA29_12 >= T_LBRACKET && LA29_12 <= T_LE)||(LA29_12 >= T_LESSTHAN && LA29_12 <= T_LESSTHAN_EQ)||(LA29_12 >= T_LPAREN && LA29_12 <= T_LT)||LA29_12==T_MINUS||(LA29_12 >= T_NE && LA29_12 <= T_NEQV)||LA29_12==T_OR||LA29_12==T_PERCENT||LA29_12==T_PLUS||LA29_12==T_POWER||(LA29_12 >= T_SLASH && LA29_12 <= T_SLASH_SLASH)) ) {
alt29=1;
}
else if ( (LA29_12==T_RPAREN) ) {
int LA29_7 = input.LA(8);
if ( (LA29_7==T_CHARACTER||LA29_7==T_CLASS||LA29_7==T_COLON_COLON||LA29_7==T_COMPLEX||LA29_7==T_DIGIT_STRING||(LA29_7 >= T_DOUBLE && LA29_7 <= T_DOUBLEPRECISION)||LA29_7==T_ELEMENTAL||LA29_7==T_FUNCTION||LA29_7==T_IDENT||LA29_7==T_INTEGER||(LA29_7 >= T_LOGICAL && LA29_7 <= T_LPAREN)||LA29_7==T_PURE||LA29_7==T_REAL||LA29_7==T_RECURSIVE||LA29_7==T_RPAREN||LA29_7==T_TYPE) ) {
alt29=1;
}
else if ( (LA29_7==T_COMMA) ) {
int LA29_10 = input.LA(9);
if ( (LA29_10==T_ALLOCATABLE||LA29_10==T_ASYNCHRONOUS||LA29_10==T_BIND||LA29_10==T_CODIMENSION||LA29_10==T_CONTIGUOUS||LA29_10==T_DIMENSION||LA29_10==T_EXTERNAL||LA29_10==T_INTENT||(LA29_10 >= T_INTRINSIC && LA29_10 <= T_KIND)||LA29_10==T_LEN||LA29_10==T_NO_LANGUAGE_EXTENSION||LA29_10==T_OPTIONAL||LA29_10==T_PARAMETER||LA29_10==T_POINTER||LA29_10==T_PRIVATE||LA29_10==T_PROTECTED||LA29_10==T_PUBLIC||LA29_10==T_SAVE||LA29_10==T_TARGET||(LA29_10 >= T_VALUE && LA29_10 <= T_VOLATILE)) ) {
alt29=1;
}
}
}
}
else if ( (LA29_11==BINARY_CONSTANT||LA29_11==HEX_CONSTANT||LA29_11==OCTAL_CONSTANT||LA29_11==T_CHAR_CONSTANT||(LA29_11 >= T_DEFINED_OP && LA29_11 <= T_DIGIT_STRING)||LA29_11==T_FALSE||LA29_11==T_HOLLERITH||LA29_11==T_LBRACKET||LA29_11==T_LPAREN||LA29_11==T_REAL_CONSTANT||LA29_11==T_TRUE) ) {
alt29=1;
}
}
break;
case T_RPAREN:
{
int LA29_7 = input.LA(6);
if ( (LA29_7==T_CHARACTER||LA29_7==T_CLASS||LA29_7==T_COLON_COLON||LA29_7==T_COMPLEX||LA29_7==T_DIGIT_STRING||(LA29_7 >= T_DOUBLE && LA29_7 <= T_DOUBLEPRECISION)||LA29_7==T_ELEMENTAL||LA29_7==T_FUNCTION||LA29_7==T_IDENT||LA29_7==T_INTEGER||(LA29_7 >= T_LOGICAL && LA29_7 <= T_LPAREN)||LA29_7==T_PURE||LA29_7==T_REAL||LA29_7==T_RECURSIVE||LA29_7==T_RPAREN||LA29_7==T_TYPE) ) {
alt29=1;
}
else if ( (LA29_7==T_COMMA) ) {
int LA29_10 = input.LA(7);
if ( (LA29_10==T_ALLOCATABLE||LA29_10==T_ASYNCHRONOUS||LA29_10==T_BIND||LA29_10==T_CODIMENSION||LA29_10==T_CONTIGUOUS||LA29_10==T_DIMENSION||LA29_10==T_EXTERNAL||LA29_10==T_INTENT||(LA29_10 >= T_INTRINSIC && LA29_10 <= T_KIND)||LA29_10==T_LEN||LA29_10==T_NO_LANGUAGE_EXTENSION||LA29_10==T_OPTIONAL||LA29_10==T_PARAMETER||LA29_10==T_POINTER||LA29_10==T_PRIVATE||LA29_10==T_PROTECTED||LA29_10==T_PUBLIC||LA29_10==T_SAVE||LA29_10==T_TARGET||(LA29_10 >= T_VALUE && LA29_10 <= T_VOLATILE)) ) {
alt29=1;
}
}
}
break;
}
}
}
break;
case T_RPAREN:
{
int LA29_7 = input.LA(4);
if ( (LA29_7==T_CHARACTER||LA29_7==T_CLASS||LA29_7==T_COLON_COLON||LA29_7==T_COMPLEX||LA29_7==T_DIGIT_STRING||(LA29_7 >= T_DOUBLE && LA29_7 <= T_DOUBLEPRECISION)||LA29_7==T_ELEMENTAL||LA29_7==T_FUNCTION||LA29_7==T_IDENT||LA29_7==T_INTEGER||(LA29_7 >= T_LOGICAL && LA29_7 <= T_LPAREN)||LA29_7==T_PURE||LA29_7==T_REAL||LA29_7==T_RECURSIVE||LA29_7==T_RPAREN||LA29_7==T_TYPE) ) {
alt29=1;
}
else if ( (LA29_7==T_COMMA) ) {
int LA29_10 = input.LA(5);
if ( (LA29_10==T_ALLOCATABLE||LA29_10==T_ASYNCHRONOUS||LA29_10==T_BIND||LA29_10==T_CODIMENSION||LA29_10==T_CONTIGUOUS||LA29_10==T_DIMENSION||LA29_10==T_EXTERNAL||LA29_10==T_INTENT||(LA29_10 >= T_INTRINSIC && LA29_10 <= T_KIND)||LA29_10==T_LEN||LA29_10==T_NO_LANGUAGE_EXTENSION||LA29_10==T_OPTIONAL||LA29_10==T_PARAMETER||LA29_10==T_POINTER||LA29_10==T_PRIVATE||LA29_10==T_PROTECTED||LA29_10==T_PUBLIC||LA29_10==T_SAVE||LA29_10==T_TARGET||(LA29_10 >= T_VALUE && LA29_10 <= T_VOLATILE)) ) {
alt29=1;
}
}
}
break;
}
}
}
switch (alt29) {
case 1 :
// FortranParser08.g:632:17: char_selector
{
pushFollow(FOLLOW_char_selector_in_intrinsic_type_spec1730);
char_selector();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasKindSelector = true;}
}
break;
}
if ( state.backtracking==0 ) {action.intrinsic_type_spec(T_CHARACTER28, null,
IActionEnums.
IntrinsicTypeSpec_CHARACTER,
hasKindSelector);}
}
break;
case 9 :
// FortranParser08.g:637:4: T_LOGICAL ( kind_selector )?
{
T_LOGICAL29=(Token)match(input,T_LOGICAL,FOLLOW_T_LOGICAL_in_intrinsic_type_spec1744); if (state.failed) return;
// FortranParser08.g:637:14: ( kind_selector )?
int alt30=2;
int LA30_0 = input.LA(1);
if ( (LA30_0==T_LPAREN) ) {
int LA30_1 = input.LA(2);
if ( (LA30_1==BINARY_CONSTANT||LA30_1==HEX_CONSTANT||LA30_1==OCTAL_CONSTANT||LA30_1==T_CHAR_CONSTANT||(LA30_1 >= T_DEFINED_OP && LA30_1 <= T_DIGIT_STRING)||LA30_1==T_FALSE||LA30_1==T_HOLLERITH||LA30_1==T_KIND||LA30_1==T_LBRACKET||LA30_1==T_LPAREN||LA30_1==T_MINUS||LA30_1==T_NOT||LA30_1==T_PLUS||LA30_1==T_REAL_CONSTANT||LA30_1==T_TRUE) ) {
alt30=1;
}
else if ( (LA30_1==T_IDENT) ) {
switch ( input.LA(3) ) {
case T_AND:
case T_ASTERISK:
case T_CHAR_CONSTANT:
case T_DEFINED_OP:
case T_EQ:
case T_EQV:
case T_EQ_EQ:
case T_GE:
case T_GREATERTHAN:
case T_GREATERTHAN_EQ:
case T_GT:
case T_LBRACKET:
case T_LE:
case T_LESSTHAN:
case T_LESSTHAN_EQ:
case T_LPAREN:
case T_LT:
case T_NE:
case T_NEQV:
case T_OR:
case T_PERCENT:
case T_PLUS:
case T_POWER:
case T_SLASH:
case T_SLASH_EQ:
case T_SLASH_SLASH:
{
alt30=1;
}
break;
case T_MINUS:
{
int LA30_5 = input.LA(4);
if ( (LA30_5==T_IDENT) ) {
int LA30_7 = input.LA(5);
if ( (LA30_7==T_AND||LA30_7==T_ASTERISK||LA30_7==T_CHAR_CONSTANT||LA30_7==T_DEFINED_OP||LA30_7==T_EQ||(LA30_7 >= T_EQV && LA30_7 <= T_EQ_EQ)||LA30_7==T_GE||(LA30_7 >= T_GREATERTHAN && LA30_7 <= T_GT)||(LA30_7 >= T_LBRACKET && LA30_7 <= T_LE)||(LA30_7 >= T_LESSTHAN && LA30_7 <= T_LESSTHAN_EQ)||(LA30_7 >= T_LPAREN && LA30_7 <= T_LT)||LA30_7==T_MINUS||(LA30_7 >= T_NE && LA30_7 <= T_NEQV)||LA30_7==T_OR||LA30_7==T_PERCENT||LA30_7==T_PLUS||LA30_7==T_POWER||(LA30_7 >= T_SLASH && LA30_7 <= T_SLASH_SLASH)) ) {
alt30=1;
}
else if ( (LA30_7==T_RPAREN) ) {
int LA30_6 = input.LA(6);
if ( (LA30_6==T_CHARACTER||LA30_6==T_CLASS||LA30_6==T_COLON_COLON||LA30_6==T_COMPLEX||LA30_6==T_DIGIT_STRING||(LA30_6 >= T_DOUBLE && LA30_6 <= T_DOUBLEPRECISION)||LA30_6==T_ELEMENTAL||LA30_6==T_FUNCTION||LA30_6==T_IDENT||LA30_6==T_INTEGER||(LA30_6 >= T_LOGICAL && LA30_6 <= T_LPAREN)||LA30_6==T_PURE||LA30_6==T_REAL||LA30_6==T_RECURSIVE||LA30_6==T_RPAREN||LA30_6==T_TYPE) ) {
alt30=1;
}
else if ( (LA30_6==T_COMMA) ) {
int LA30_8 = input.LA(7);
if ( (LA30_8==T_ALLOCATABLE||LA30_8==T_ASYNCHRONOUS||LA30_8==T_BIND||LA30_8==T_CODIMENSION||LA30_8==T_CONTIGUOUS||LA30_8==T_DIMENSION||LA30_8==T_EXTERNAL||LA30_8==T_INTENT||(LA30_8 >= T_INTRINSIC && LA30_8 <= T_KIND)||LA30_8==T_LEN||LA30_8==T_NO_LANGUAGE_EXTENSION||LA30_8==T_OPTIONAL||LA30_8==T_PARAMETER||LA30_8==T_POINTER||LA30_8==T_PRIVATE||LA30_8==T_PROTECTED||LA30_8==T_PUBLIC||LA30_8==T_SAVE||LA30_8==T_TARGET||(LA30_8 >= T_VALUE && LA30_8 <= T_VOLATILE)) ) {
alt30=1;
}
}
}
}
else if ( (LA30_5==BINARY_CONSTANT||LA30_5==HEX_CONSTANT||LA30_5==OCTAL_CONSTANT||LA30_5==T_CHAR_CONSTANT||(LA30_5 >= T_DEFINED_OP && LA30_5 <= T_DIGIT_STRING)||LA30_5==T_FALSE||LA30_5==T_HOLLERITH||LA30_5==T_LBRACKET||LA30_5==T_LPAREN||LA30_5==T_REAL_CONSTANT||LA30_5==T_TRUE) ) {
alt30=1;
}
}
break;
case T_RPAREN:
{
int LA30_6 = input.LA(4);
if ( (LA30_6==T_CHARACTER||LA30_6==T_CLASS||LA30_6==T_COLON_COLON||LA30_6==T_COMPLEX||LA30_6==T_DIGIT_STRING||(LA30_6 >= T_DOUBLE && LA30_6 <= T_DOUBLEPRECISION)||LA30_6==T_ELEMENTAL||LA30_6==T_FUNCTION||LA30_6==T_IDENT||LA30_6==T_INTEGER||(LA30_6 >= T_LOGICAL && LA30_6 <= T_LPAREN)||LA30_6==T_PURE||LA30_6==T_REAL||LA30_6==T_RECURSIVE||LA30_6==T_RPAREN||LA30_6==T_TYPE) ) {
alt30=1;
}
else if ( (LA30_6==T_COMMA) ) {
int LA30_8 = input.LA(5);
if ( (LA30_8==T_ALLOCATABLE||LA30_8==T_ASYNCHRONOUS||LA30_8==T_BIND||LA30_8==T_CODIMENSION||LA30_8==T_CONTIGUOUS||LA30_8==T_DIMENSION||LA30_8==T_EXTERNAL||LA30_8==T_INTENT||(LA30_8 >= T_INTRINSIC && LA30_8 <= T_KIND)||LA30_8==T_LEN||LA30_8==T_NO_LANGUAGE_EXTENSION||LA30_8==T_OPTIONAL||LA30_8==T_PARAMETER||LA30_8==T_POINTER||LA30_8==T_PRIVATE||LA30_8==T_PROTECTED||LA30_8==T_PUBLIC||LA30_8==T_SAVE||LA30_8==T_TARGET||(LA30_8 >= T_VALUE && LA30_8 <= T_VOLATILE)) ) {
alt30=1;
}
}
}
break;
}
}
}
else if ( (LA30_0==T_ASTERISK) ) {
alt30=1;
}
switch (alt30) {
case 1 :
// FortranParser08.g:637:15: kind_selector
{
pushFollow(FOLLOW_kind_selector_in_intrinsic_type_spec1747);
kind_selector();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasKindSelector = true;}
}
break;
}
if ( state.backtracking==0 ) {action.intrinsic_type_spec(T_LOGICAL29, null,
IActionEnums.IntrinsicTypeSpec_LOGICAL,
hasKindSelector);}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "intrinsic_type_spec"
// $ANTLR start "kind_selector"
// FortranParser08.g:648:1: kind_selector : ( T_LPAREN ( T_KIND T_EQUALS )? expr T_RPAREN | T_ASTERISK T_DIGIT_STRING );
public final void kind_selector() throws RecognitionException {
Token T_KIND30=null;
Token T_EQUALS31=null;
Token T_ASTERISK32=null;
Token T_DIGIT_STRING33=null;
Token tk1=null; Token tk2=null;
try {
// FortranParser08.g:650:5: ( T_LPAREN ( T_KIND T_EQUALS )? expr T_RPAREN | T_ASTERISK T_DIGIT_STRING )
int alt33=2;
int LA33_0 = input.LA(1);
if ( (LA33_0==T_LPAREN) ) {
alt33=1;
}
else if ( (LA33_0==T_ASTERISK) ) {
alt33=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 33, 0, input);
throw nvae;
}
switch (alt33) {
case 1 :
// FortranParser08.g:650:7: T_LPAREN ( T_KIND T_EQUALS )? expr T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_kind_selector1779); if (state.failed) return;
// FortranParser08.g:650:16: ( T_KIND T_EQUALS )?
int alt32=2;
int LA32_0 = input.LA(1);
if ( (LA32_0==T_KIND) ) {
alt32=1;
}
switch (alt32) {
case 1 :
// FortranParser08.g:650:17: T_KIND T_EQUALS
{
T_KIND30=(Token)match(input,T_KIND,FOLLOW_T_KIND_in_kind_selector1782); if (state.failed) return;
T_EQUALS31=(Token)match(input,T_EQUALS,FOLLOW_T_EQUALS_in_kind_selector1784); if (state.failed) return;
if ( state.backtracking==0 ) {tk1=T_KIND30; tk2=T_EQUALS31;}
}
break;
}
pushFollow(FOLLOW_expr_in_kind_selector1790);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_kind_selector1792); if (state.failed) return;
if ( state.backtracking==0 ) { action.kind_selector(tk1, tk2, true); }
}
break;
case 2 :
// FortranParser08.g:652:7: T_ASTERISK T_DIGIT_STRING
{
T_ASTERISK32=(Token)match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_kind_selector1808); if (state.failed) return;
T_DIGIT_STRING33=(Token)match(input,T_DIGIT_STRING,FOLLOW_T_DIGIT_STRING_in_kind_selector1810); if (state.failed) return;
if ( state.backtracking==0 ) { action.kind_selector(T_ASTERISK32, T_DIGIT_STRING33, false); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "kind_selector"
// $ANTLR start "signed_int_literal_constant"
// FortranParser08.g:657:1: signed_int_literal_constant : ( T_PLUS | T_MINUS )? int_literal_constant ;
public final void signed_int_literal_constant() throws RecognitionException {
Token T_PLUS34=null;
Token T_MINUS35=null;
Token sign = null;
try {
// FortranParser08.g:659:2: ( ( T_PLUS | T_MINUS )? int_literal_constant )
// FortranParser08.g:659:4: ( T_PLUS | T_MINUS )? int_literal_constant
{
// FortranParser08.g:659:4: ( T_PLUS | T_MINUS )?
int alt34=3;
int LA34_0 = input.LA(1);
if ( (LA34_0==T_PLUS) ) {
alt34=1;
}
else if ( (LA34_0==T_MINUS) ) {
alt34=2;
}
switch (alt34) {
case 1 :
// FortranParser08.g:659:5: T_PLUS
{
T_PLUS34=(Token)match(input,T_PLUS,FOLLOW_T_PLUS_in_signed_int_literal_constant1839); if (state.failed) return;
if ( state.backtracking==0 ) {sign=T_PLUS34;}
}
break;
case 2 :
// FortranParser08.g:659:30: T_MINUS
{
T_MINUS35=(Token)match(input,T_MINUS,FOLLOW_T_MINUS_in_signed_int_literal_constant1845); if (state.failed) return;
if ( state.backtracking==0 ) {sign=T_MINUS35;}
}
break;
}
pushFollow(FOLLOW_int_literal_constant_in_signed_int_literal_constant1853);
int_literal_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.signed_int_literal_constant(sign); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "signed_int_literal_constant"
// $ANTLR start "int_literal_constant"
// FortranParser08.g:665:1: int_literal_constant : T_DIGIT_STRING ( T_UNDERSCORE kind_param )? ;
public final void int_literal_constant() throws RecognitionException {
Token T_DIGIT_STRING37=null;
Token kind_param36 =null;
Token kind = null;
try {
// FortranParser08.g:667:2: ( T_DIGIT_STRING ( T_UNDERSCORE kind_param )? )
// FortranParser08.g:667:4: T_DIGIT_STRING ( T_UNDERSCORE kind_param )?
{
T_DIGIT_STRING37=(Token)match(input,T_DIGIT_STRING,FOLLOW_T_DIGIT_STRING_in_int_literal_constant1875); if (state.failed) return;
// FortranParser08.g:667:19: ( T_UNDERSCORE kind_param )?
int alt35=2;
int LA35_0 = input.LA(1);
if ( (LA35_0==T_UNDERSCORE) ) {
alt35=1;
}
switch (alt35) {
case 1 :
// FortranParser08.g:667:20: T_UNDERSCORE kind_param
{
match(input,T_UNDERSCORE,FOLLOW_T_UNDERSCORE_in_int_literal_constant1878); if (state.failed) return;
pushFollow(FOLLOW_kind_param_in_int_literal_constant1880);
kind_param36=kind_param();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {kind = kind_param36;}
}
break;
}
if ( state.backtracking==0 ) {action.int_literal_constant(T_DIGIT_STRING37, kind);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "int_literal_constant"
// $ANTLR start "kind_param"
// FortranParser08.g:673:1: kind_param returns [Token tk] : ( T_DIGIT_STRING | T_IDENT );
public final Token kind_param() throws RecognitionException {
Token tk = null;
Token T_DIGIT_STRING38=null;
Token T_IDENT39=null;
try {
// FortranParser08.g:674:2: ( T_DIGIT_STRING | T_IDENT )
int alt36=2;
int LA36_0 = input.LA(1);
if ( (LA36_0==T_DIGIT_STRING) ) {
alt36=1;
}
else if ( (LA36_0==T_IDENT) ) {
alt36=2;
}
else {
if (state.backtracking>0) {state.failed=true; return tk;}
NoViableAltException nvae =
new NoViableAltException("", 36, 0, input);
throw nvae;
}
switch (alt36) {
case 1 :
// FortranParser08.g:674:4: T_DIGIT_STRING
{
T_DIGIT_STRING38=(Token)match(input,T_DIGIT_STRING,FOLLOW_T_DIGIT_STRING_in_kind_param1906); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_DIGIT_STRING38; action.kind_param(T_DIGIT_STRING38); }
}
break;
case 2 :
// FortranParser08.g:676:4: T_IDENT
{
T_IDENT39=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_kind_param1926); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_IDENT39; action.kind_param(T_IDENT39); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "kind_param"
// $ANTLR start "boz_literal_constant"
// FortranParser08.g:687:1: boz_literal_constant : ( BINARY_CONSTANT | OCTAL_CONSTANT | HEX_CONSTANT );
public final void boz_literal_constant() throws RecognitionException {
Token BINARY_CONSTANT40=null;
Token OCTAL_CONSTANT41=null;
Token HEX_CONSTANT42=null;
try {
// FortranParser08.g:688:2: ( BINARY_CONSTANT | OCTAL_CONSTANT | HEX_CONSTANT )
int alt37=3;
switch ( input.LA(1) ) {
case BINARY_CONSTANT:
{
alt37=1;
}
break;
case OCTAL_CONSTANT:
{
alt37=2;
}
break;
case HEX_CONSTANT:
{
alt37=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 37, 0, input);
throw nvae;
}
switch (alt37) {
case 1 :
// FortranParser08.g:688:4: BINARY_CONSTANT
{
BINARY_CONSTANT40=(Token)match(input,BINARY_CONSTANT,FOLLOW_BINARY_CONSTANT_in_boz_literal_constant1959); if (state.failed) return;
if ( state.backtracking==0 ) { action.boz_literal_constant(BINARY_CONSTANT40); }
}
break;
case 2 :
// FortranParser08.g:689:4: OCTAL_CONSTANT
{
OCTAL_CONSTANT41=(Token)match(input,OCTAL_CONSTANT,FOLLOW_OCTAL_CONSTANT_in_boz_literal_constant1966); if (state.failed) return;
if ( state.backtracking==0 ) { action.boz_literal_constant(OCTAL_CONSTANT41); }
}
break;
case 3 :
// FortranParser08.g:690:4: HEX_CONSTANT
{
HEX_CONSTANT42=(Token)match(input,HEX_CONSTANT,FOLLOW_HEX_CONSTANT_in_boz_literal_constant1973); if (state.failed) return;
if ( state.backtracking==0 ) { action.boz_literal_constant(HEX_CONSTANT42); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "boz_literal_constant"
// $ANTLR start "signed_real_literal_constant"
// FortranParser08.g:702:1: signed_real_literal_constant : ( T_PLUS | T_MINUS )? real_literal_constant ;
public final void signed_real_literal_constant() throws RecognitionException {
Token T_PLUS43=null;
Token T_MINUS44=null;
Token sign = null;
try {
// FortranParser08.g:704:2: ( ( T_PLUS | T_MINUS )? real_literal_constant )
// FortranParser08.g:704:4: ( T_PLUS | T_MINUS )? real_literal_constant
{
// FortranParser08.g:704:4: ( T_PLUS | T_MINUS )?
int alt38=3;
int LA38_0 = input.LA(1);
if ( (LA38_0==T_PLUS) ) {
alt38=1;
}
else if ( (LA38_0==T_MINUS) ) {
alt38=2;
}
switch (alt38) {
case 1 :
// FortranParser08.g:704:5: T_PLUS
{
T_PLUS43=(Token)match(input,T_PLUS,FOLLOW_T_PLUS_in_signed_real_literal_constant2001); if (state.failed) return;
if ( state.backtracking==0 ) {sign=T_PLUS43;}
}
break;
case 2 :
// FortranParser08.g:704:30: T_MINUS
{
T_MINUS44=(Token)match(input,T_MINUS,FOLLOW_T_MINUS_in_signed_real_literal_constant2007); if (state.failed) return;
if ( state.backtracking==0 ) {sign=T_MINUS44;}
}
break;
}
pushFollow(FOLLOW_real_literal_constant_in_signed_real_literal_constant2015);
real_literal_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.signed_real_literal_constant(sign);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "signed_real_literal_constant"
// $ANTLR start "real_literal_constant"
// FortranParser08.g:712:1: real_literal_constant : T_REAL_CONSTANT ( T_UNDERSCORE kind_param )? ;
public final void real_literal_constant() throws RecognitionException {
Token T_REAL_CONSTANT46=null;
Token kind_param45 =null;
Token kind = null;
try {
// FortranParser08.g:715:5: ( T_REAL_CONSTANT ( T_UNDERSCORE kind_param )? )
// FortranParser08.g:715:9: T_REAL_CONSTANT ( T_UNDERSCORE kind_param )?
{
T_REAL_CONSTANT46=(Token)match(input,T_REAL_CONSTANT,FOLLOW_T_REAL_CONSTANT_in_real_literal_constant2045); if (state.failed) return;
// FortranParser08.g:715:25: ( T_UNDERSCORE kind_param )?
int alt39=2;
int LA39_0 = input.LA(1);
if ( (LA39_0==T_UNDERSCORE) ) {
alt39=1;
}
switch (alt39) {
case 1 :
// FortranParser08.g:715:26: T_UNDERSCORE kind_param
{
match(input,T_UNDERSCORE,FOLLOW_T_UNDERSCORE_in_real_literal_constant2048); if (state.failed) return;
pushFollow(FOLLOW_kind_param_in_real_literal_constant2050);
kind_param45=kind_param();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {kind = kind_param45;}
}
break;
}
if ( state.backtracking==0 ) { action.real_literal_constant(T_REAL_CONSTANT46, kind); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "real_literal_constant"
// $ANTLR start "complex_literal_constant"
// FortranParser08.g:727:1: complex_literal_constant : T_LPAREN real_part T_COMMA imag_part T_RPAREN ;
public final void complex_literal_constant() throws RecognitionException {
try {
// FortranParser08.g:731:2: ( T_LPAREN real_part T_COMMA imag_part T_RPAREN )
// FortranParser08.g:731:4: T_LPAREN real_part T_COMMA imag_part T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_complex_literal_constant2104); if (state.failed) return;
pushFollow(FOLLOW_real_part_in_complex_literal_constant2106);
real_part();
state._fsp--;
if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_complex_literal_constant2108); if (state.failed) return;
pushFollow(FOLLOW_imag_part_in_complex_literal_constant2110);
imag_part();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_complex_literal_constant2112); if (state.failed) return;
}
if ( state.backtracking==0 ) {
action.complex_literal_constant();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "complex_literal_constant"
// $ANTLR start "real_part"
// FortranParser08.g:736:1: real_part : ( signed_int_literal_constant | signed_real_literal_constant | T_IDENT );
public final void real_part() throws RecognitionException {
Token T_IDENT47=null;
try {
// FortranParser08.g:737:2: ( signed_int_literal_constant | signed_real_literal_constant | T_IDENT )
int alt40=3;
switch ( input.LA(1) ) {
case T_PLUS:
{
int LA40_1 = input.LA(2);
if ( (LA40_1==T_DIGIT_STRING) ) {
alt40=1;
}
else if ( (LA40_1==T_REAL_CONSTANT) ) {
alt40=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 40, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_MINUS:
{
int LA40_2 = input.LA(2);
if ( (LA40_2==T_DIGIT_STRING) ) {
alt40=1;
}
else if ( (LA40_2==T_REAL_CONSTANT) ) {
alt40=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 40, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_DIGIT_STRING:
{
alt40=1;
}
break;
case T_REAL_CONSTANT:
{
alt40=2;
}
break;
case T_IDENT:
{
alt40=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 40, 0, input);
throw nvae;
}
switch (alt40) {
case 1 :
// FortranParser08.g:737:4: signed_int_literal_constant
{
pushFollow(FOLLOW_signed_int_literal_constant_in_real_part2125);
signed_int_literal_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.real_part(true, false, null); }
}
break;
case 2 :
// FortranParser08.g:739:4: signed_real_literal_constant
{
pushFollow(FOLLOW_signed_real_literal_constant_in_real_part2146);
signed_real_literal_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.real_part(false, true, null); }
}
break;
case 3 :
// FortranParser08.g:741:4: T_IDENT
{
T_IDENT47=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_real_part2166); if (state.failed) return;
if ( state.backtracking==0 ) { action.real_part(false, false, T_IDENT47); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "real_part"
// $ANTLR start "imag_part"
// FortranParser08.g:747:1: imag_part : ( signed_int_literal_constant | signed_real_literal_constant | T_IDENT );
public final void imag_part() throws RecognitionException {
Token T_IDENT48=null;
try {
// FortranParser08.g:748:2: ( signed_int_literal_constant | signed_real_literal_constant | T_IDENT )
int alt41=3;
switch ( input.LA(1) ) {
case T_PLUS:
{
int LA41_1 = input.LA(2);
if ( (LA41_1==T_DIGIT_STRING) ) {
alt41=1;
}
else if ( (LA41_1==T_REAL_CONSTANT) ) {
alt41=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 41, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_MINUS:
{
int LA41_2 = input.LA(2);
if ( (LA41_2==T_DIGIT_STRING) ) {
alt41=1;
}
else if ( (LA41_2==T_REAL_CONSTANT) ) {
alt41=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 41, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_DIGIT_STRING:
{
alt41=1;
}
break;
case T_REAL_CONSTANT:
{
alt41=2;
}
break;
case T_IDENT:
{
alt41=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 41, 0, input);
throw nvae;
}
switch (alt41) {
case 1 :
// FortranParser08.g:748:4: signed_int_literal_constant
{
pushFollow(FOLLOW_signed_int_literal_constant_in_imag_part2203);
signed_int_literal_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.imag_part(true, false, null); }
}
break;
case 2 :
// FortranParser08.g:750:4: signed_real_literal_constant
{
pushFollow(FOLLOW_signed_real_literal_constant_in_imag_part2224);
signed_real_literal_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.imag_part(false, true, null); }
}
break;
case 3 :
// FortranParser08.g:752:4: T_IDENT
{
T_IDENT48=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_imag_part2244); if (state.failed) return;
if ( state.backtracking==0 ) { action.imag_part(false, false, T_IDENT48); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "imag_part"
// $ANTLR start "char_selector"
// FortranParser08.g:761:1: char_selector : ( T_ASTERISK char_length ( T_COMMA )? | T_LPAREN type_param_value ( T_COMMA ( T_KIND T_EQUALS )? expr )? T_RPAREN | T_LPAREN T_LEN T_EQUALS type_param_value ( T_COMMA T_KIND T_EQUALS expr )? T_RPAREN | T_LPAREN T_KIND T_EQUALS expr ( T_COMMA ( T_LEN T_EQUALS )? type_param_value )? T_RPAREN );
public final void char_selector() throws RecognitionException {
Token T_KIND49=null;
Token T_KIND50=null;
Token T_LEN51=null;
Token T_LEN52=null;
Token T_KIND53=null;
int kindOrLen1; kindOrLen1 = IActionEnums.KindLenParam_none;
int kindOrLen2; kindOrLen2 = IActionEnums.KindLenParam_none;
Token tk = null;
boolean hasAsterisk = false;
try {
// FortranParser08.g:769:4: ( T_ASTERISK char_length ( T_COMMA )? | T_LPAREN type_param_value ( T_COMMA ( T_KIND T_EQUALS )? expr )? T_RPAREN | T_LPAREN T_LEN T_EQUALS type_param_value ( T_COMMA T_KIND T_EQUALS expr )? T_RPAREN | T_LPAREN T_KIND T_EQUALS expr ( T_COMMA ( T_LEN T_EQUALS )? type_param_value )? T_RPAREN )
int alt48=4;
int LA48_0 = input.LA(1);
if ( (LA48_0==T_ASTERISK) ) {
alt48=1;
}
else if ( (LA48_0==T_LPAREN) ) {
switch ( input.LA(2) ) {
case T_LEN:
{
alt48=3;
}
break;
case T_KIND:
{
alt48=4;
}
break;
case BINARY_CONSTANT:
case HEX_CONSTANT:
case OCTAL_CONSTANT:
case T_ASTERISK:
case T_CHAR_CONSTANT:
case T_COLON:
case T_DEFINED_OP:
case T_DIGIT_STRING:
case T_FALSE:
case T_HOLLERITH:
case T_IDENT:
case T_LBRACKET:
case T_LPAREN:
case T_MINUS:
case T_NOT:
case T_PLUS:
case T_REAL_CONSTANT:
case T_TRUE:
{
alt48=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 48, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 48, 0, input);
throw nvae;
}
switch (alt48) {
case 1 :
// FortranParser08.g:769:8: T_ASTERISK char_length ( T_COMMA )?
{
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_char_selector2294); if (state.failed) return;
pushFollow(FOLLOW_char_length_in_char_selector2296);
char_length();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:769:31: ( T_COMMA )?
int alt42=2;
int LA42_0 = input.LA(1);
if ( (LA42_0==T_COMMA) ) {
int LA42_1 = input.LA(2);
if ( (LA42_1==T_CHARACTER||LA42_1==T_CLASS||(LA42_1 >= T_COLON_COLON && LA42_1 <= T_COMMA)||LA42_1==T_COMPLEX||LA42_1==T_DIGIT_STRING||(LA42_1 >= T_DOUBLE && LA42_1 <= T_DOUBLEPRECISION)||LA42_1==T_ELEMENTAL||LA42_1==T_FUNCTION||LA42_1==T_IDENT||LA42_1==T_INTEGER||(LA42_1 >= T_LOGICAL && LA42_1 <= T_LPAREN)||LA42_1==T_PURE||LA42_1==T_REAL||LA42_1==T_RECURSIVE||LA42_1==T_RPAREN||LA42_1==T_TYPE) ) {
alt42=1;
}
}
switch (alt42) {
case 1 :
// FortranParser08.g:769:32: T_COMMA
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_char_selector2299); if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
hasAsterisk=true;
action.char_selector(null, null, kindOrLen1, kindOrLen2, hasAsterisk);
}
}
break;
case 2 :
// FortranParser08.g:775:8: T_LPAREN type_param_value ( T_COMMA ( T_KIND T_EQUALS )? expr )? T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_char_selector2326); if (state.failed) return;
pushFollow(FOLLOW_type_param_value_in_char_selector2328);
type_param_value();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:776:11: ( T_COMMA ( T_KIND T_EQUALS )? expr )?
int alt44=2;
int LA44_0 = input.LA(1);
if ( (LA44_0==T_COMMA) ) {
alt44=1;
}
switch (alt44) {
case 1 :
// FortranParser08.g:776:14: T_COMMA ( T_KIND T_EQUALS )? expr
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_char_selector2343); if (state.failed) return;
// FortranParser08.g:776:22: ( T_KIND T_EQUALS )?
int alt43=2;
int LA43_0 = input.LA(1);
if ( (LA43_0==T_KIND) ) {
alt43=1;
}
switch (alt43) {
case 1 :
// FortranParser08.g:776:23: T_KIND T_EQUALS
{
T_KIND49=(Token)match(input,T_KIND,FOLLOW_T_KIND_in_char_selector2346); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_char_selector2348); if (state.failed) return;
if ( state.backtracking==0 ) {tk=T_KIND49;}
}
break;
}
pushFollow(FOLLOW_expr_in_char_selector2354);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {kindOrLen2=IActionEnums.KindLenParam_kind;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_char_selector2391); if (state.failed) return;
if ( state.backtracking==0 ) {
kindOrLen1 = IActionEnums.KindLenParam_len;
action.char_selector(null, tk, kindOrLen1, kindOrLen2, hasAsterisk);
}
}
break;
case 3 :
// FortranParser08.g:785:8: T_LPAREN T_LEN T_EQUALS type_param_value ( T_COMMA T_KIND T_EQUALS expr )? T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_char_selector2416); if (state.failed) return;
T_LEN51=(Token)match(input,T_LEN,FOLLOW_T_LEN_in_char_selector2418); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_char_selector2420); if (state.failed) return;
pushFollow(FOLLOW_type_param_value_in_char_selector2422);
type_param_value();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:786:11: ( T_COMMA T_KIND T_EQUALS expr )?
int alt45=2;
int LA45_0 = input.LA(1);
if ( (LA45_0==T_COMMA) ) {
alt45=1;
}
switch (alt45) {
case 1 :
// FortranParser08.g:786:14: T_COMMA T_KIND T_EQUALS expr
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_char_selector2437); if (state.failed) return;
T_KIND50=(Token)match(input,T_KIND,FOLLOW_T_KIND_in_char_selector2439); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_char_selector2441); if (state.failed) return;
pushFollow(FOLLOW_expr_in_char_selector2443);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {kindOrLen2=IActionEnums.KindLenParam_kind; tk=T_KIND50;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_char_selector2480); if (state.failed) return;
if ( state.backtracking==0 ) {
kindOrLen1 = IActionEnums.KindLenParam_len;
action.char_selector(T_LEN51, tk, kindOrLen1, kindOrLen2, hasAsterisk);
}
}
break;
case 4 :
// FortranParser08.g:795:8: T_LPAREN T_KIND T_EQUALS expr ( T_COMMA ( T_LEN T_EQUALS )? type_param_value )? T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_char_selector2505); if (state.failed) return;
T_KIND53=(Token)match(input,T_KIND,FOLLOW_T_KIND_in_char_selector2507); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_char_selector2509); if (state.failed) return;
pushFollow(FOLLOW_expr_in_char_selector2511);
expr();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:796:11: ( T_COMMA ( T_LEN T_EQUALS )? type_param_value )?
int alt47=2;
int LA47_0 = input.LA(1);
if ( (LA47_0==T_COMMA) ) {
alt47=1;
}
switch (alt47) {
case 1 :
// FortranParser08.g:796:14: T_COMMA ( T_LEN T_EQUALS )? type_param_value
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_char_selector2526); if (state.failed) return;
// FortranParser08.g:796:22: ( T_LEN T_EQUALS )?
int alt46=2;
int LA46_0 = input.LA(1);
if ( (LA46_0==T_LEN) ) {
alt46=1;
}
switch (alt46) {
case 1 :
// FortranParser08.g:796:23: T_LEN T_EQUALS
{
T_LEN52=(Token)match(input,T_LEN,FOLLOW_T_LEN_in_char_selector2529); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_char_selector2531); if (state.failed) return;
if ( state.backtracking==0 ) {tk=T_LEN52;}
}
break;
}
pushFollow(FOLLOW_type_param_value_in_char_selector2537);
type_param_value();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {kindOrLen2=IActionEnums.KindLenParam_len;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_char_selector2574); if (state.failed) return;
if ( state.backtracking==0 ) {
kindOrLen1 = IActionEnums.KindLenParam_kind;
action.char_selector(T_KIND53, tk, kindOrLen1, kindOrLen2, hasAsterisk);
}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "char_selector"
// $ANTLR start "length_selector"
// FortranParser08.g:807:1: length_selector : ( T_LPAREN ( T_LEN T_EQUALS )? type_param_value T_RPAREN | T_ASTERISK char_length ( T_COMMA )? );
public final void length_selector() throws RecognitionException {
Token T_LEN54=null;
Token len = null;
try {
// FortranParser08.g:809:4: ( T_LPAREN ( T_LEN T_EQUALS )? type_param_value T_RPAREN | T_ASTERISK char_length ( T_COMMA )? )
int alt51=2;
int LA51_0 = input.LA(1);
if ( (LA51_0==T_LPAREN) ) {
alt51=1;
}
else if ( (LA51_0==T_ASTERISK) ) {
alt51=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 51, 0, input);
throw nvae;
}
switch (alt51) {
case 1 :
// FortranParser08.g:809:8: T_LPAREN ( T_LEN T_EQUALS )? type_param_value T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_length_selector2609); if (state.failed) return;
// FortranParser08.g:809:17: ( T_LEN T_EQUALS )?
int alt49=2;
int LA49_0 = input.LA(1);
if ( (LA49_0==T_LEN) ) {
alt49=1;
}
switch (alt49) {
case 1 :
// FortranParser08.g:809:19: T_LEN T_EQUALS
{
T_LEN54=(Token)match(input,T_LEN,FOLLOW_T_LEN_in_length_selector2613); if (state.failed) return;
if ( state.backtracking==0 ) { len=T_LEN54; }
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_length_selector2617); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_type_param_value_in_length_selector2622);
type_param_value();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_length_selector2624); if (state.failed) return;
if ( state.backtracking==0 ) { action.length_selector(len, IActionEnums.KindLenParam_len, false); }
}
break;
case 2 :
// FortranParser08.g:811:8: T_ASTERISK char_length ( T_COMMA )?
{
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_length_selector2645); if (state.failed) return;
pushFollow(FOLLOW_char_length_in_length_selector2647);
char_length();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:811:31: ( T_COMMA )?
int alt50=2;
int LA50_0 = input.LA(1);
if ( (LA50_0==T_COMMA) ) {
alt50=1;
}
switch (alt50) {
case 1 :
// FortranParser08.g:811:32: T_COMMA
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_length_selector2650); if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) { action.length_selector(len, IActionEnums.KindLenParam_none, true); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "length_selector"
// $ANTLR start "char_length"
// FortranParser08.g:816:1: char_length : ( T_LPAREN type_param_value T_RPAREN | scalar_int_literal_constant );
public final void char_length() throws RecognitionException {
try {
// FortranParser08.g:817:4: ( T_LPAREN type_param_value T_RPAREN | scalar_int_literal_constant )
int alt52=2;
int LA52_0 = input.LA(1);
if ( (LA52_0==T_LPAREN) ) {
alt52=1;
}
else if ( (LA52_0==T_DIGIT_STRING) ) {
alt52=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 52, 0, input);
throw nvae;
}
switch (alt52) {
case 1 :
// FortranParser08.g:817:8: T_LPAREN type_param_value T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_char_length2683); if (state.failed) return;
pushFollow(FOLLOW_type_param_value_in_char_length2685);
type_param_value();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_char_length2687); if (state.failed) return;
if ( state.backtracking==0 ) { action.char_length(true); }
}
break;
case 2 :
// FortranParser08.g:818:8: scalar_int_literal_constant
{
pushFollow(FOLLOW_scalar_int_literal_constant_in_char_length2700);
scalar_int_literal_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.char_length(false); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "char_length"
// $ANTLR start "scalar_int_literal_constant"
// FortranParser08.g:821:1: scalar_int_literal_constant : int_literal_constant ;
public final void scalar_int_literal_constant() throws RecognitionException {
try {
// FortranParser08.g:823:4: ( int_literal_constant )
// FortranParser08.g:823:8: int_literal_constant
{
pushFollow(FOLLOW_int_literal_constant_in_scalar_int_literal_constant2733);
int_literal_constant();
state._fsp--;
if (state.failed) return;
}
if ( state.backtracking==0 ) {action.scalar_int_literal_constant();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "scalar_int_literal_constant"
// $ANTLR start "char_literal_constant"
// FortranParser08.g:836:1: char_literal_constant : ( T_DIGIT_STRING T_UNDERSCORE T_CHAR_CONSTANT | T_IDENT T_CHAR_CONSTANT | T_CHAR_CONSTANT );
public final void char_literal_constant() throws RecognitionException {
Token T_DIGIT_STRING55=null;
Token T_CHAR_CONSTANT56=null;
Token T_IDENT57=null;
Token T_CHAR_CONSTANT58=null;
Token T_CHAR_CONSTANT59=null;
try {
// FortranParser08.g:837:4: ( T_DIGIT_STRING T_UNDERSCORE T_CHAR_CONSTANT | T_IDENT T_CHAR_CONSTANT | T_CHAR_CONSTANT )
int alt53=3;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
alt53=1;
}
break;
case T_IDENT:
{
alt53=2;
}
break;
case T_CHAR_CONSTANT:
{
alt53=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 53, 0, input);
throw nvae;
}
switch (alt53) {
case 1 :
// FortranParser08.g:837:8: T_DIGIT_STRING T_UNDERSCORE T_CHAR_CONSTANT
{
T_DIGIT_STRING55=(Token)match(input,T_DIGIT_STRING,FOLLOW_T_DIGIT_STRING_in_char_literal_constant2760); if (state.failed) return;
match(input,T_UNDERSCORE,FOLLOW_T_UNDERSCORE_in_char_literal_constant2762); if (state.failed) return;
T_CHAR_CONSTANT56=(Token)match(input,T_CHAR_CONSTANT,FOLLOW_T_CHAR_CONSTANT_in_char_literal_constant2764); if (state.failed) return;
if ( state.backtracking==0 ) { action.char_literal_constant(T_DIGIT_STRING55, null, T_CHAR_CONSTANT56); }
}
break;
case 2 :
// FortranParser08.g:842:8: T_IDENT T_CHAR_CONSTANT
{
T_IDENT57=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_char_literal_constant2809); if (state.failed) return;
T_CHAR_CONSTANT58=(Token)match(input,T_CHAR_CONSTANT,FOLLOW_T_CHAR_CONSTANT_in_char_literal_constant2811); if (state.failed) return;
if ( state.backtracking==0 ) { action.char_literal_constant(null, T_IDENT57, T_CHAR_CONSTANT58); }
}
break;
case 3 :
// FortranParser08.g:844:8: T_CHAR_CONSTANT
{
T_CHAR_CONSTANT59=(Token)match(input,T_CHAR_CONSTANT,FOLLOW_T_CHAR_CONSTANT_in_char_literal_constant2832); if (state.failed) return;
if ( state.backtracking==0 ) { action.char_literal_constant(null, null, T_CHAR_CONSTANT59); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "char_literal_constant"
// $ANTLR start "hollerith_literal_constant"
// FortranParser08.g:852:1: hollerith_literal_constant : T_HOLLERITH ;
public final void hollerith_literal_constant() throws RecognitionException {
Token T_HOLLERITH60=null;
try {
// FortranParser08.g:853:5: ( T_HOLLERITH )
// FortranParser08.g:853:9: T_HOLLERITH
{
T_HOLLERITH60=(Token)match(input,T_HOLLERITH,FOLLOW_T_HOLLERITH_in_hollerith_literal_constant2866); if (state.failed) return;
if ( state.backtracking==0 ) { action.hollerith_literal_constant(T_HOLLERITH60); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "hollerith_literal_constant"
// $ANTLR start "logical_literal_constant"
// FortranParser08.g:858:1: logical_literal_constant : ( T_TRUE ( T_UNDERSCORE kind_param )? | T_FALSE ( T_UNDERSCORE kind_param )? );
public final void logical_literal_constant() throws RecognitionException {
Token T_TRUE62=null;
Token T_FALSE64=null;
Token kind_param61 =null;
Token kind_param63 =null;
Token kind = null;
try {
// FortranParser08.g:860:2: ( T_TRUE ( T_UNDERSCORE kind_param )? | T_FALSE ( T_UNDERSCORE kind_param )? )
int alt56=2;
int LA56_0 = input.LA(1);
if ( (LA56_0==T_TRUE) ) {
alt56=1;
}
else if ( (LA56_0==T_FALSE) ) {
alt56=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 56, 0, input);
throw nvae;
}
switch (alt56) {
case 1 :
// FortranParser08.g:860:4: T_TRUE ( T_UNDERSCORE kind_param )?
{
T_TRUE62=(Token)match(input,T_TRUE,FOLLOW_T_TRUE_in_logical_literal_constant2900); if (state.failed) return;
// FortranParser08.g:860:11: ( T_UNDERSCORE kind_param )?
int alt54=2;
int LA54_0 = input.LA(1);
if ( (LA54_0==T_UNDERSCORE) ) {
alt54=1;
}
switch (alt54) {
case 1 :
// FortranParser08.g:860:13: T_UNDERSCORE kind_param
{
match(input,T_UNDERSCORE,FOLLOW_T_UNDERSCORE_in_logical_literal_constant2904); if (state.failed) return;
pushFollow(FOLLOW_kind_param_in_logical_literal_constant2906);
kind_param61=kind_param();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {kind = kind_param61;}
}
break;
}
if ( state.backtracking==0 ) {action.logical_literal_constant(T_TRUE62, true, kind);}
}
break;
case 2 :
// FortranParser08.g:862:4: T_FALSE ( T_UNDERSCORE kind_param )?
{
T_FALSE64=(Token)match(input,T_FALSE,FOLLOW_T_FALSE_in_logical_literal_constant2920); if (state.failed) return;
// FortranParser08.g:862:12: ( T_UNDERSCORE kind_param )?
int alt55=2;
int LA55_0 = input.LA(1);
if ( (LA55_0==T_UNDERSCORE) ) {
alt55=1;
}
switch (alt55) {
case 1 :
// FortranParser08.g:862:14: T_UNDERSCORE kind_param
{
match(input,T_UNDERSCORE,FOLLOW_T_UNDERSCORE_in_logical_literal_constant2924); if (state.failed) return;
pushFollow(FOLLOW_kind_param_in_logical_literal_constant2926);
kind_param63=kind_param();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {kind = kind_param63;}
}
break;
}
if ( state.backtracking==0 ) {action.logical_literal_constant(T_FALSE64, false, kind);}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "logical_literal_constant"
// $ANTLR start "derived_type_def"
// FortranParser08.g:868:1: derived_type_def : derived_type_stmt type_param_or_comp_def_stmt_list ( private_or_sequence )* ( component_def_stmt )* ( type_bound_procedure_part )? end_type_stmt ;
public final void derived_type_def() throws RecognitionException {
try {
// FortranParser08.g:872:2: ( derived_type_stmt type_param_or_comp_def_stmt_list ( private_or_sequence )* ( component_def_stmt )* ( type_bound_procedure_part )? end_type_stmt )
// FortranParser08.g:872:4: derived_type_stmt type_param_or_comp_def_stmt_list ( private_or_sequence )* ( component_def_stmt )* ( type_bound_procedure_part )? end_type_stmt
{
pushFollow(FOLLOW_derived_type_stmt_in_derived_type_def2953);
derived_type_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_type_param_or_comp_def_stmt_list_in_derived_type_def2966);
type_param_or_comp_def_stmt_list();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:875:3: ( private_or_sequence )*
loop57:
while (true) {
int alt57=2;
int LA57_0 = input.LA(1);
if ( (LA57_0==T_DIGIT_STRING) ) {
int LA57_1 = input.LA(2);
if ( (LA57_1==T_PRIVATE||LA57_1==T_SEQUENCE) ) {
alt57=1;
}
}
else if ( (LA57_0==T_PRIVATE||LA57_0==T_SEQUENCE) ) {
alt57=1;
}
switch (alt57) {
case 1 :
// FortranParser08.g:875:5: private_or_sequence
{
pushFollow(FOLLOW_private_or_sequence_in_derived_type_def2974);
private_or_sequence();
state._fsp--;
if (state.failed) return;
}
break;
default :
break loop57;
}
}
if ( state.backtracking==0 ) { /* ERR_CHK 429
* if private_or_sequence present, component_def_stmt in
* type_param_or_comp_def_stmt_list
* is an error
*/
}
// FortranParser08.g:882:3: ( component_def_stmt )*
loop58:
while (true) {
int alt58=2;
int LA58_0 = input.LA(1);
if ( (LA58_0==T_DIGIT_STRING) ) {
int LA58_1 = input.LA(2);
if ( (LA58_1==T_CHARACTER||LA58_1==T_CLASS||LA58_1==T_COMPLEX||(LA58_1 >= T_DOUBLE && LA58_1 <= T_DOUBLEPRECISION)||LA58_1==T_INTEGER||LA58_1==T_LOGICAL||LA58_1==T_PROCEDURE||LA58_1==T_REAL||LA58_1==T_TYPE) ) {
alt58=1;
}
}
else if ( (LA58_0==T_CHARACTER||LA58_0==T_CLASS||LA58_0==T_COMPLEX||(LA58_0 >= T_DOUBLE && LA58_0 <= T_DOUBLEPRECISION)||LA58_0==T_INTEGER||LA58_0==T_LOGICAL||LA58_0==T_PROCEDURE||LA58_0==T_REAL||LA58_0==T_TYPE) ) {
alt58=1;
}
switch (alt58) {
case 1 :
// FortranParser08.g:882:5: component_def_stmt
{
pushFollow(FOLLOW_component_def_stmt_in_derived_type_def2988);
component_def_stmt();
state._fsp--;
if (state.failed) return;
}
break;
default :
break loop58;
}
}
// FortranParser08.g:883:3: ( type_bound_procedure_part )?
int alt59=2;
int LA59_0 = input.LA(1);
if ( (LA59_0==T_DIGIT_STRING) ) {
int LA59_1 = input.LA(2);
if ( (LA59_1==T_CONTAINS) ) {
alt59=1;
}
}
else if ( (LA59_0==T_CONTAINS) ) {
alt59=1;
}
switch (alt59) {
case 1 :
// FortranParser08.g:883:5: type_bound_procedure_part
{
pushFollow(FOLLOW_type_bound_procedure_part_in_derived_type_def2997);
type_bound_procedure_part();
state._fsp--;
if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_end_type_stmt_in_derived_type_def3004);
end_type_stmt();
state._fsp--;
if (state.failed) return;
}
if ( state.backtracking==0 ) {
action.derived_type_def();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "derived_type_def"
// $ANTLR start "type_param_or_comp_def_stmt_list"
// FortranParser08.g:892:1: type_param_or_comp_def_stmt_list : ( ( kind_selector )? T_COMMA type_param_or_comp_def_stmt type_param_or_comp_def_stmt_list |);
public final void type_param_or_comp_def_stmt_list() throws RecognitionException {
try {
// FortranParser08.g:899:2: ( ( kind_selector )? T_COMMA type_param_or_comp_def_stmt type_param_or_comp_def_stmt_list |)
int alt61=2;
int LA61_0 = input.LA(1);
if ( (LA61_0==T_ASTERISK||LA61_0==T_COMMA||LA61_0==T_LPAREN) ) {
alt61=1;
}
else if ( (LA61_0==T_CHARACTER||LA61_0==T_CLASS||LA61_0==T_COMPLEX||LA61_0==T_CONTAINS||LA61_0==T_DIGIT_STRING||(LA61_0 >= T_DOUBLE && LA61_0 <= T_DOUBLEPRECISION)||LA61_0==T_END||LA61_0==T_ENDTYPE||LA61_0==T_INTEGER||LA61_0==T_LOGICAL||(LA61_0 >= T_PRIVATE && LA61_0 <= T_PROCEDURE)||LA61_0==T_REAL||LA61_0==T_SEQUENCE||LA61_0==T_TYPE) ) {
alt61=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 61, 0, input);
throw nvae;
}
switch (alt61) {
case 1 :
// FortranParser08.g:899:4: ( kind_selector )? T_COMMA type_param_or_comp_def_stmt type_param_or_comp_def_stmt_list
{
// FortranParser08.g:899:4: ( kind_selector )?
int alt60=2;
int LA60_0 = input.LA(1);
if ( (LA60_0==T_ASTERISK||LA60_0==T_LPAREN) ) {
alt60=1;
}
switch (alt60) {
case 1 :
// FortranParser08.g:899:5: kind_selector
{
pushFollow(FOLLOW_kind_selector_in_type_param_or_comp_def_stmt_list3029);
kind_selector();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_COMMA,FOLLOW_T_COMMA_in_type_param_or_comp_def_stmt_list3033); if (state.failed) return;
pushFollow(FOLLOW_type_param_or_comp_def_stmt_in_type_param_or_comp_def_stmt_list3035);
type_param_or_comp_def_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_type_param_or_comp_def_stmt_list_in_type_param_or_comp_def_stmt_list3040);
type_param_or_comp_def_stmt_list();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:902:3:
{
if ( state.backtracking==0 ) { /* ERR_CHK R435
* type_param_def_stmt(s) must precede component_def_stmt(s)
*/
}
}
break;
}
if ( state.backtracking==0 ) {
action.type_param_or_comp_def_stmt_list();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "type_param_or_comp_def_stmt_list"
// $ANTLR start "type_param_or_comp_def_stmt"
// FortranParser08.g:908:1: type_param_or_comp_def_stmt : ( type_param_attr_spec T_COLON_COLON type_param_decl_list end_of_stmt | component_attr_spec_list T_COLON_COLON component_decl_list end_of_stmt );
public final void type_param_or_comp_def_stmt() throws RecognitionException {
Token end_of_stmt65 =null;
Token end_of_stmt66 =null;
try {
// FortranParser08.g:909:2: ( type_param_attr_spec T_COLON_COLON type_param_decl_list end_of_stmt | component_attr_spec_list T_COLON_COLON component_decl_list end_of_stmt )
int alt62=2;
int LA62_0 = input.LA(1);
if ( (LA62_0==T_IDENT) ) {
alt62=1;
}
else if ( (LA62_0==T_ALLOCATABLE||LA62_0==T_CODIMENSION||LA62_0==T_CONTIGUOUS||LA62_0==T_DIMENSION||LA62_0==T_NO_LANGUAGE_EXTENSION||LA62_0==T_POINTER||LA62_0==T_PRIVATE||LA62_0==T_PUBLIC) ) {
alt62=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 62, 0, input);
throw nvae;
}
switch (alt62) {
case 1 :
// FortranParser08.g:909:4: type_param_attr_spec T_COLON_COLON type_param_decl_list end_of_stmt
{
pushFollow(FOLLOW_type_param_attr_spec_in_type_param_or_comp_def_stmt3058);
type_param_attr_spec();
state._fsp--;
if (state.failed) return;
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_type_param_or_comp_def_stmt3060); if (state.failed) return;
pushFollow(FOLLOW_type_param_decl_list_in_type_param_or_comp_def_stmt3062);
type_param_decl_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_type_param_or_comp_def_stmt3064);
end_of_stmt65=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.type_param_or_comp_def_stmt(end_of_stmt65,
IActionEnums.TypeParamOrCompDef_typeParam);}
}
break;
case 2 :
// FortranParser08.g:914:4: component_attr_spec_list T_COLON_COLON component_decl_list end_of_stmt
{
pushFollow(FOLLOW_component_attr_spec_list_in_type_param_or_comp_def_stmt3101);
component_attr_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_type_param_or_comp_def_stmt3103); if (state.failed) return;
pushFollow(FOLLOW_component_decl_list_in_type_param_or_comp_def_stmt3105);
component_decl_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_type_param_or_comp_def_stmt3107);
end_of_stmt66=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.type_param_or_comp_def_stmt(end_of_stmt66,
IActionEnums.TypeParamOrCompDef_compDef);}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "type_param_or_comp_def_stmt"
// $ANTLR start "derived_type_stmt"
// FortranParser08.g:922:1: derived_type_stmt : ( label )? T_TYPE ( ( T_COMMA type_attr_spec_list )? T_COLON_COLON )? T_IDENT ( T_LPAREN generic_name_list T_RPAREN )? end_of_stmt ;
public final void derived_type_stmt() throws RecognitionException {
Token T_TYPE68=null;
Token T_IDENT69=null;
Token label67 =null;
Token end_of_stmt70 =null;
Token lbl=null;
boolean hasTypeAttrSpecList=false;
boolean hasGenericNameList=false;
try {
// FortranParser08.g:929:2: ( ( label )? T_TYPE ( ( T_COMMA type_attr_spec_list )? T_COLON_COLON )? T_IDENT ( T_LPAREN generic_name_list T_RPAREN )? end_of_stmt )
// FortranParser08.g:929:4: ( label )? T_TYPE ( ( T_COMMA type_attr_spec_list )? T_COLON_COLON )? T_IDENT ( T_LPAREN generic_name_list T_RPAREN )? end_of_stmt
{
// FortranParser08.g:929:4: ( label )?
int alt63=2;
int LA63_0 = input.LA(1);
if ( (LA63_0==T_DIGIT_STRING) ) {
alt63=1;
}
switch (alt63) {
case 1 :
// FortranParser08.g:929:5: label
{
pushFollow(FOLLOW_label_in_derived_type_stmt3149);
label67=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label67;}
}
break;
}
T_TYPE68=(Token)match(input,T_TYPE,FOLLOW_T_TYPE_in_derived_type_stmt3155); if (state.failed) return;
// FortranParser08.g:930:3: ( ( T_COMMA type_attr_spec_list )? T_COLON_COLON )?
int alt65=2;
int LA65_0 = input.LA(1);
if ( ((LA65_0 >= T_COLON_COLON && LA65_0 <= T_COMMA)) ) {
alt65=1;
}
switch (alt65) {
case 1 :
// FortranParser08.g:930:5: ( T_COMMA type_attr_spec_list )? T_COLON_COLON
{
// FortranParser08.g:930:5: ( T_COMMA type_attr_spec_list )?
int alt64=2;
int LA64_0 = input.LA(1);
if ( (LA64_0==T_COMMA) ) {
alt64=1;
}
switch (alt64) {
case 1 :
// FortranParser08.g:930:7: T_COMMA type_attr_spec_list
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_derived_type_stmt3163); if (state.failed) return;
pushFollow(FOLLOW_type_attr_spec_list_in_derived_type_stmt3165);
type_attr_spec_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasTypeAttrSpecList=true;}
}
break;
}
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_derived_type_stmt3185); if (state.failed) return;
}
break;
}
T_IDENT69=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_derived_type_stmt3190); if (state.failed) return;
// FortranParser08.g:932:7: ( T_LPAREN generic_name_list T_RPAREN )?
int alt66=2;
int LA66_0 = input.LA(1);
if ( (LA66_0==T_LPAREN) ) {
alt66=1;
}
switch (alt66) {
case 1 :
// FortranParser08.g:932:9: T_LPAREN generic_name_list T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_derived_type_stmt3200); if (state.failed) return;
pushFollow(FOLLOW_generic_name_list_in_derived_type_stmt3202);
generic_name_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_derived_type_stmt3204); if (state.failed) return;
if ( state.backtracking==0 ) {hasGenericNameList=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_derived_type_stmt3223);
end_of_stmt70=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.derived_type_stmt(lbl, T_TYPE68, T_IDENT69, end_of_stmt70,
hasTypeAttrSpecList, hasGenericNameList);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "derived_type_stmt"
// $ANTLR start "type_attr_spec_list"
// FortranParser08.g:938:1: type_attr_spec_list : type_attr_spec ( T_COMMA type_attr_spec )* ;
public final void type_attr_spec_list() throws RecognitionException {
int count = 0;
try {
// FortranParser08.g:940:2: ( type_attr_spec ( T_COMMA type_attr_spec )* )
// FortranParser08.g:940:5: type_attr_spec ( T_COMMA type_attr_spec )*
{
if ( state.backtracking==0 ) {action.type_attr_spec_list__begin();}
pushFollow(FOLLOW_type_attr_spec_in_type_attr_spec_list3248);
type_attr_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:941:29: ( T_COMMA type_attr_spec )*
loop67:
while (true) {
int alt67=2;
int LA67_0 = input.LA(1);
if ( (LA67_0==T_COMMA) ) {
alt67=1;
}
switch (alt67) {
case 1 :
// FortranParser08.g:941:31: T_COMMA type_attr_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_type_attr_spec_list3254); if (state.failed) return;
pushFollow(FOLLOW_type_attr_spec_in_type_attr_spec_list3256);
type_attr_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop67;
}
}
if ( state.backtracking==0 ) {action.type_attr_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "type_attr_spec_list"
// $ANTLR start "generic_name_list"
// FortranParser08.g:945:1: generic_name_list :ident= T_IDENT ( T_COMMA ident= T_IDENT )* ;
public final void generic_name_list() throws RecognitionException {
Token ident=null;
int count = 0;
try {
// FortranParser08.g:947:2: (ident= T_IDENT ( T_COMMA ident= T_IDENT )* )
// FortranParser08.g:947:5: ident= T_IDENT ( T_COMMA ident= T_IDENT )*
{
if ( state.backtracking==0 ) {action.generic_name_list__begin();}
ident=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_generic_name_list3288); if (state.failed) return;
if ( state.backtracking==0 ) {
count++;
action.generic_name_list_part(ident);
}
// FortranParser08.g:952:6: ( T_COMMA ident= T_IDENT )*
loop68:
while (true) {
int alt68=2;
int LA68_0 = input.LA(1);
if ( (LA68_0==T_COMMA) ) {
alt68=1;
}
switch (alt68) {
case 1 :
// FortranParser08.g:952:8: T_COMMA ident= T_IDENT
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_generic_name_list3297); if (state.failed) return;
ident=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_generic_name_list3301); if (state.failed) return;
if ( state.backtracking==0 ) {
count++;
action.generic_name_list_part(ident);
}
}
break;
default :
break loop68;
}
}
if ( state.backtracking==0 ) {action.generic_name_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "generic_name_list"
// $ANTLR start "type_attr_spec"
// FortranParser08.g:962:1: type_attr_spec : ( access_spec | T_EXTENDS T_LPAREN T_IDENT T_RPAREN | T_ABSTRACT | T_BIND T_LPAREN T_IDENT T_RPAREN );
public final void type_attr_spec() throws RecognitionException {
Token T_EXTENDS71=null;
Token T_IDENT72=null;
Token T_ABSTRACT73=null;
Token T_BIND74=null;
Token T_IDENT75=null;
try {
// FortranParser08.g:963:2: ( access_spec | T_EXTENDS T_LPAREN T_IDENT T_RPAREN | T_ABSTRACT | T_BIND T_LPAREN T_IDENT T_RPAREN )
int alt69=4;
switch ( input.LA(1) ) {
case T_PRIVATE:
case T_PUBLIC:
{
alt69=1;
}
break;
case T_EXTENDS:
{
alt69=2;
}
break;
case T_ABSTRACT:
{
alt69=3;
}
break;
case T_BIND:
{
alt69=4;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 69, 0, input);
throw nvae;
}
switch (alt69) {
case 1 :
// FortranParser08.g:963:4: access_spec
{
pushFollow(FOLLOW_access_spec_in_type_attr_spec3328);
access_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.type_attr_spec(null, null,
IActionEnums.TypeAttrSpec_access_spec);}
}
break;
case 2 :
// FortranParser08.g:966:4: T_EXTENDS T_LPAREN T_IDENT T_RPAREN
{
T_EXTENDS71=(Token)match(input,T_EXTENDS,FOLLOW_T_EXTENDS_in_type_attr_spec3338); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_type_attr_spec3340); if (state.failed) return;
T_IDENT72=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_type_attr_spec3342); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_type_attr_spec3344); if (state.failed) return;
if ( state.backtracking==0 ) {action.type_attr_spec(T_EXTENDS71, T_IDENT72,
IActionEnums.TypeAttrSpec_extends);}
}
break;
case 3 :
// FortranParser08.g:969:4: T_ABSTRACT
{
T_ABSTRACT73=(Token)match(input,T_ABSTRACT,FOLLOW_T_ABSTRACT_in_type_attr_spec3354); if (state.failed) return;
if ( state.backtracking==0 ) {action.type_attr_spec(T_ABSTRACT73, null,
IActionEnums.TypeAttrSpec_abstract);}
}
break;
case 4 :
// FortranParser08.g:972:4: T_BIND T_LPAREN T_IDENT T_RPAREN
{
T_BIND74=(Token)match(input,T_BIND,FOLLOW_T_BIND_in_type_attr_spec3364); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_type_attr_spec3366); if (state.failed) return;
T_IDENT75=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_type_attr_spec3368); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_type_attr_spec3372); if (state.failed) return;
if ( state.backtracking==0 ) {action.type_attr_spec(T_BIND74, T_IDENT75,
IActionEnums.TypeAttrSpec_bind);}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "type_attr_spec"
// $ANTLR start "private_or_sequence"
// FortranParser08.g:978:1: private_or_sequence : ( private_components_stmt | sequence_stmt );
public final void private_or_sequence() throws RecognitionException {
try {
// FortranParser08.g:982:5: ( private_components_stmt | sequence_stmt )
int alt70=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA70_1 = input.LA(2);
if ( (LA70_1==T_PRIVATE) ) {
alt70=1;
}
else if ( (LA70_1==T_SEQUENCE) ) {
alt70=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 70, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PRIVATE:
{
alt70=1;
}
break;
case T_SEQUENCE:
{
alt70=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 70, 0, input);
throw nvae;
}
switch (alt70) {
case 1 :
// FortranParser08.g:982:9: private_components_stmt
{
pushFollow(FOLLOW_private_components_stmt_in_private_or_sequence3399);
private_components_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:983:9: sequence_stmt
{
pushFollow(FOLLOW_sequence_stmt_in_private_or_sequence3409);
sequence_stmt();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.private_or_sequence();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "private_or_sequence"
// $ANTLR start "end_type_stmt"
// FortranParser08.g:987:1: end_type_stmt : ( ( label )? T_END T_TYPE ( T_IDENT )? end_of_stmt | ( label )? T_ENDTYPE ( T_IDENT )? end_of_stmt );
public final void end_type_stmt() throws RecognitionException {
Token T_IDENT77=null;
Token T_END78=null;
Token T_TYPE79=null;
Token T_IDENT82=null;
Token T_ENDTYPE83=null;
Token label76 =null;
Token end_of_stmt80 =null;
Token label81 =null;
Token end_of_stmt84 =null;
Token lbl = null;Token id=null;
try {
// FortranParser08.g:990:2: ( ( label )? T_END T_TYPE ( T_IDENT )? end_of_stmt | ( label )? T_ENDTYPE ( T_IDENT )? end_of_stmt )
int alt75=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA75_1 = input.LA(2);
if ( (LA75_1==T_END) ) {
alt75=1;
}
else if ( (LA75_1==T_ENDTYPE) ) {
alt75=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 75, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
alt75=1;
}
break;
case T_ENDTYPE:
{
alt75=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 75, 0, input);
throw nvae;
}
switch (alt75) {
case 1 :
// FortranParser08.g:990:4: ( label )? T_END T_TYPE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:990:4: ( label )?
int alt71=2;
int LA71_0 = input.LA(1);
if ( (LA71_0==T_DIGIT_STRING) ) {
alt71=1;
}
switch (alt71) {
case 1 :
// FortranParser08.g:990:5: label
{
pushFollow(FOLLOW_label_in_end_type_stmt3435);
label76=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label76;}
}
break;
}
T_END78=(Token)match(input,T_END,FOLLOW_T_END_in_end_type_stmt3441); if (state.failed) return;
T_TYPE79=(Token)match(input,T_TYPE,FOLLOW_T_TYPE_in_end_type_stmt3443); if (state.failed) return;
// FortranParser08.g:990:43: ( T_IDENT )?
int alt72=2;
int LA72_0 = input.LA(1);
if ( (LA72_0==T_IDENT) ) {
alt72=1;
}
switch (alt72) {
case 1 :
// FortranParser08.g:990:45: T_IDENT
{
T_IDENT77=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_type_stmt3447); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT77;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_type_stmt3462);
end_of_stmt80=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_type_stmt(lbl, T_END78, T_TYPE79, id, end_of_stmt80);}
}
break;
case 2 :
// FortranParser08.g:993:4: ( label )? T_ENDTYPE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:993:4: ( label )?
int alt73=2;
int LA73_0 = input.LA(1);
if ( (LA73_0==T_DIGIT_STRING) ) {
alt73=1;
}
switch (alt73) {
case 1 :
// FortranParser08.g:993:5: label
{
pushFollow(FOLLOW_label_in_end_type_stmt3472);
label81=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label81;}
}
break;
}
T_ENDTYPE83=(Token)match(input,T_ENDTYPE,FOLLOW_T_ENDTYPE_in_end_type_stmt3478); if (state.failed) return;
// FortranParser08.g:993:40: ( T_IDENT )?
int alt74=2;
int LA74_0 = input.LA(1);
if ( (LA74_0==T_IDENT) ) {
alt74=1;
}
switch (alt74) {
case 1 :
// FortranParser08.g:993:42: T_IDENT
{
T_IDENT82=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_type_stmt3482); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT82;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_type_stmt3497);
end_of_stmt84=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_type_stmt(lbl, T_ENDTYPE83, null, id, end_of_stmt84);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_type_stmt"
// $ANTLR start "sequence_stmt"
// FortranParser08.g:999:1: sequence_stmt : ( label )? T_SEQUENCE end_of_stmt ;
public final void sequence_stmt() throws RecognitionException {
Token T_SEQUENCE86=null;
Token label85 =null;
Token end_of_stmt87 =null;
Token lbl = null;
try {
// FortranParser08.g:1002:2: ( ( label )? T_SEQUENCE end_of_stmt )
// FortranParser08.g:1002:4: ( label )? T_SEQUENCE end_of_stmt
{
// FortranParser08.g:1002:4: ( label )?
int alt76=2;
int LA76_0 = input.LA(1);
if ( (LA76_0==T_DIGIT_STRING) ) {
alt76=1;
}
switch (alt76) {
case 1 :
// FortranParser08.g:1002:5: label
{
pushFollow(FOLLOW_label_in_sequence_stmt3524);
label85=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label85;}
}
break;
}
T_SEQUENCE86=(Token)match(input,T_SEQUENCE,FOLLOW_T_SEQUENCE_in_sequence_stmt3530); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_sequence_stmt3532);
end_of_stmt87=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.sequence_stmt(lbl, T_SEQUENCE86, end_of_stmt87);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "sequence_stmt"
// $ANTLR start "type_param_decl"
// FortranParser08.g:1011:1: type_param_decl : T_IDENT ( T_EQUALS expr )? ;
public final void type_param_decl() throws RecognitionException {
Token T_IDENT88=null;
boolean hasInit=false;
try {
// FortranParser08.g:1013:5: ( T_IDENT ( T_EQUALS expr )? )
// FortranParser08.g:1013:10: T_IDENT ( T_EQUALS expr )?
{
T_IDENT88=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_type_param_decl3563); if (state.failed) return;
// FortranParser08.g:1013:18: ( T_EQUALS expr )?
int alt77=2;
int LA77_0 = input.LA(1);
if ( (LA77_0==T_EQUALS) ) {
alt77=1;
}
switch (alt77) {
case 1 :
// FortranParser08.g:1013:20: T_EQUALS expr
{
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_type_param_decl3567); if (state.failed) return;
pushFollow(FOLLOW_expr_in_type_param_decl3569);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasInit=true;}
}
break;
}
if ( state.backtracking==0 ) {action.type_param_decl(T_IDENT88, hasInit);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "type_param_decl"
// $ANTLR start "type_param_decl_list"
// FortranParser08.g:1017:1: type_param_decl_list : type_param_decl ( T_COMMA type_param_decl )* ;
public final void type_param_decl_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1019:2: ( type_param_decl ( T_COMMA type_param_decl )* )
// FortranParser08.g:1019:5: type_param_decl ( T_COMMA type_param_decl )*
{
if ( state.backtracking==0 ) {action.type_param_decl_list__begin();}
pushFollow(FOLLOW_type_param_decl_in_type_param_decl_list3607);
type_param_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1020:36: ( T_COMMA type_param_decl )*
loop78:
while (true) {
int alt78=2;
int LA78_0 = input.LA(1);
if ( (LA78_0==T_COMMA) ) {
alt78=1;
}
switch (alt78) {
case 1 :
// FortranParser08.g:1020:38: T_COMMA type_param_decl
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_type_param_decl_list3613); if (state.failed) return;
pushFollow(FOLLOW_type_param_decl_in_type_param_decl_list3615);
type_param_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop78;
}
}
if ( state.backtracking==0 ) {action.type_param_decl_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "type_param_decl_list"
// $ANTLR start "component_attr_spec"
// FortranParser08.g:1039:1: component_attr_spec : ( access_spec | T_ALLOCATABLE | T_CODIMENSION T_LBRACKET coarray_spec T_RBRACKET | T_CONTIGUOUS | T_DIMENSION T_LPAREN component_array_spec T_RPAREN | T_POINTER | component_attr_spec_extension );
public final void component_attr_spec() throws RecognitionException {
Token T_ALLOCATABLE89=null;
Token T_CODIMENSION90=null;
Token T_CONTIGUOUS91=null;
Token T_DIMENSION92=null;
Token T_POINTER93=null;
try {
// FortranParser08.g:1040:4: ( access_spec | T_ALLOCATABLE | T_CODIMENSION T_LBRACKET coarray_spec T_RBRACKET | T_CONTIGUOUS | T_DIMENSION T_LPAREN component_array_spec T_RPAREN | T_POINTER | component_attr_spec_extension )
int alt79=7;
switch ( input.LA(1) ) {
case T_PRIVATE:
case T_PUBLIC:
{
alt79=1;
}
break;
case T_ALLOCATABLE:
{
alt79=2;
}
break;
case T_CODIMENSION:
{
alt79=3;
}
break;
case T_CONTIGUOUS:
{
alt79=4;
}
break;
case T_DIMENSION:
{
alt79=5;
}
break;
case T_POINTER:
{
alt79=6;
}
break;
case T_NO_LANGUAGE_EXTENSION:
{
alt79=7;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 79, 0, input);
throw nvae;
}
switch (alt79) {
case 1 :
// FortranParser08.g:1040:8: access_spec
{
pushFollow(FOLLOW_access_spec_in_component_attr_spec3651);
access_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.component_attr_spec(null, IActionEnums.ComponentAttrSpec_access_spec);}
}
break;
case 2 :
// FortranParser08.g:1042:8: T_ALLOCATABLE
{
T_ALLOCATABLE89=(Token)match(input,T_ALLOCATABLE,FOLLOW_T_ALLOCATABLE_in_component_attr_spec3672); if (state.failed) return;
if ( state.backtracking==0 ) {action.component_attr_spec(T_ALLOCATABLE89, IActionEnums.ComponentAttrSpec_allocatable);}
}
break;
case 3 :
// FortranParser08.g:1044:8: T_CODIMENSION T_LBRACKET coarray_spec T_RBRACKET
{
T_CODIMENSION90=(Token)match(input,T_CODIMENSION,FOLLOW_T_CODIMENSION_in_component_attr_spec3693); if (state.failed) return;
match(input,T_LBRACKET,FOLLOW_T_LBRACKET_in_component_attr_spec3695); if (state.failed) return;
pushFollow(FOLLOW_coarray_spec_in_component_attr_spec3697);
coarray_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RBRACKET,FOLLOW_T_RBRACKET_in_component_attr_spec3699); if (state.failed) return;
if ( state.backtracking==0 ) {action.component_attr_spec(T_CODIMENSION90, IActionEnums.ComponentAttrSpec_codimension);}
}
break;
case 4 :
// FortranParser08.g:1046:8: T_CONTIGUOUS
{
T_CONTIGUOUS91=(Token)match(input,T_CONTIGUOUS,FOLLOW_T_CONTIGUOUS_in_component_attr_spec3730); if (state.failed) return;
if ( state.backtracking==0 ) {action.component_attr_spec(T_CONTIGUOUS91, IActionEnums.ComponentAttrSpec_contiguous);}
}
break;
case 5 :
// FortranParser08.g:1048:8: T_DIMENSION T_LPAREN component_array_spec T_RPAREN
{
T_DIMENSION92=(Token)match(input,T_DIMENSION,FOLLOW_T_DIMENSION_in_component_attr_spec3797); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_component_attr_spec3799); if (state.failed) return;
pushFollow(FOLLOW_component_array_spec_in_component_attr_spec3801);
component_array_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_component_attr_spec3803); if (state.failed) return;
if ( state.backtracking==0 ) {action.component_attr_spec(T_DIMENSION92, IActionEnums.ComponentAttrSpec_dimension);}
}
break;
case 6 :
// FortranParser08.g:1050:8: T_POINTER
{
T_POINTER93=(Token)match(input,T_POINTER,FOLLOW_T_POINTER_in_component_attr_spec3824); if (state.failed) return;
if ( state.backtracking==0 ) {action.component_attr_spec(T_POINTER93, IActionEnums.ComponentAttrSpec_pointer);}
}
break;
case 7 :
// FortranParser08.g:1052:8: component_attr_spec_extension
{
pushFollow(FOLLOW_component_attr_spec_extension_in_component_attr_spec3845);
component_attr_spec_extension();
state._fsp--;
if (state.failed) return;
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "component_attr_spec"
// $ANTLR start "component_attr_spec_extension"
// FortranParser08.g:1063:1: component_attr_spec_extension : T_NO_LANGUAGE_EXTENSION ;
public final void component_attr_spec_extension() throws RecognitionException {
try {
// FortranParser08.g:1063:31: ( T_NO_LANGUAGE_EXTENSION )
// FortranParser08.g:1063:33: T_NO_LANGUAGE_EXTENSION
{
match(input,T_NO_LANGUAGE_EXTENSION,FOLLOW_T_NO_LANGUAGE_EXTENSION_in_component_attr_spec_extension3870); if (state.failed) return;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "component_attr_spec_extension"
// $ANTLR start "component_attr_spec_list"
// FortranParser08.g:1065:1: component_attr_spec_list : component_attr_spec ( T_COMMA component_attr_spec )* ;
public final void component_attr_spec_list() throws RecognitionException {
int count=1;
try {
// FortranParser08.g:1067:5: ( component_attr_spec ( T_COMMA component_attr_spec )* )
// FortranParser08.g:1067:8: component_attr_spec ( T_COMMA component_attr_spec )*
{
if ( state.backtracking==0 ) {action.component_attr_spec_list__begin();}
pushFollow(FOLLOW_component_attr_spec_in_component_attr_spec_list3898);
component_attr_spec();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1068:29: ( T_COMMA component_attr_spec )*
loop80:
while (true) {
int alt80=2;
int LA80_0 = input.LA(1);
if ( (LA80_0==T_COMMA) ) {
alt80=1;
}
switch (alt80) {
case 1 :
// FortranParser08.g:1068:31: T_COMMA component_attr_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_component_attr_spec_list3902); if (state.failed) return;
pushFollow(FOLLOW_component_attr_spec_in_component_attr_spec_list3904);
component_attr_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop80;
}
}
if ( state.backtracking==0 ) {action.component_attr_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "component_attr_spec_list"
// $ANTLR start "type_param_attr_spec"
// FortranParser08.g:1074:1: type_param_attr_spec : T_IDENT ;
public final void type_param_attr_spec() throws RecognitionException {
Token T_IDENT94=null;
try {
// FortranParser08.g:1075:2: ( T_IDENT )
// FortranParser08.g:1075:5: T_IDENT
{
T_IDENT94=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_type_param_attr_spec3934); if (state.failed) return;
if ( state.backtracking==0 ) { action.type_param_attr_spec(T_IDENT94); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "type_param_attr_spec"
// $ANTLR start "component_def_stmt"
// FortranParser08.g:1082:1: component_def_stmt : ( data_component_def_stmt | proc_component_def_stmt );
public final void component_def_stmt() throws RecognitionException {
try {
// FortranParser08.g:1084:2: ( data_component_def_stmt | proc_component_def_stmt )
int alt81=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA81_1 = input.LA(2);
if ( (LA81_1==T_CHARACTER||LA81_1==T_CLASS||LA81_1==T_COMPLEX||(LA81_1 >= T_DOUBLE && LA81_1 <= T_DOUBLEPRECISION)||LA81_1==T_INTEGER||LA81_1==T_LOGICAL||LA81_1==T_REAL||LA81_1==T_TYPE) ) {
alt81=1;
}
else if ( (LA81_1==T_PROCEDURE) ) {
alt81=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 81, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
case T_TYPE:
{
alt81=1;
}
break;
case T_PROCEDURE:
{
alt81=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 81, 0, input);
throw nvae;
}
switch (alt81) {
case 1 :
// FortranParser08.g:1084:4: data_component_def_stmt
{
pushFollow(FOLLOW_data_component_def_stmt_in_component_def_stmt3969);
data_component_def_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.component_def_stmt(IActionEnums.ComponentDefType_data);}
}
break;
case 2 :
// FortranParser08.g:1086:4: proc_component_def_stmt
{
pushFollow(FOLLOW_proc_component_def_stmt_in_component_def_stmt3979);
proc_component_def_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.component_def_stmt(IActionEnums.
ComponentDefType_procedure);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "component_def_stmt"
// $ANTLR start "data_component_def_stmt"
// FortranParser08.g:1093:1: data_component_def_stmt : ( label )? declaration_type_spec ( ( T_COMMA component_attr_spec_list )? T_COLON_COLON )? component_decl_list end_of_stmt ;
public final void data_component_def_stmt() throws RecognitionException {
Token label95 =null;
Token end_of_stmt96 =null;
Token lbl = null; boolean hasSpec=false;
try {
// FortranParser08.g:1096:5: ( ( label )? declaration_type_spec ( ( T_COMMA component_attr_spec_list )? T_COLON_COLON )? component_decl_list end_of_stmt )
// FortranParser08.g:1096:10: ( label )? declaration_type_spec ( ( T_COMMA component_attr_spec_list )? T_COLON_COLON )? component_decl_list end_of_stmt
{
// FortranParser08.g:1096:10: ( label )?
int alt82=2;
int LA82_0 = input.LA(1);
if ( (LA82_0==T_DIGIT_STRING) ) {
alt82=1;
}
switch (alt82) {
case 1 :
// FortranParser08.g:1096:11: label
{
pushFollow(FOLLOW_label_in_data_component_def_stmt4013);
label95=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label95;}
}
break;
}
pushFollow(FOLLOW_declaration_type_spec_in_data_component_def_stmt4019);
declaration_type_spec();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1097:13: ( ( T_COMMA component_attr_spec_list )? T_COLON_COLON )?
int alt84=2;
int LA84_0 = input.LA(1);
if ( ((LA84_0 >= T_COLON_COLON && LA84_0 <= T_COMMA)) ) {
alt84=1;
}
switch (alt84) {
case 1 :
// FortranParser08.g:1097:15: ( T_COMMA component_attr_spec_list )? T_COLON_COLON
{
// FortranParser08.g:1097:15: ( T_COMMA component_attr_spec_list )?
int alt83=2;
int LA83_0 = input.LA(1);
if ( (LA83_0==T_COMMA) ) {
alt83=1;
}
switch (alt83) {
case 1 :
// FortranParser08.g:1097:17: T_COMMA component_attr_spec_list
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_data_component_def_stmt4038); if (state.failed) return;
pushFollow(FOLLOW_component_attr_spec_list_in_data_component_def_stmt4040);
component_attr_spec_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasSpec=true;}
}
break;
}
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_data_component_def_stmt4059); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_component_decl_list_in_data_component_def_stmt4064);
component_decl_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_data_component_def_stmt4066);
end_of_stmt96=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.data_component_def_stmt(lbl, end_of_stmt96, hasSpec);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "data_component_def_stmt"
// $ANTLR start "component_decl"
// FortranParser08.g:1114:1: component_decl : T_IDENT ( T_LPAREN component_array_spec T_RPAREN )? ( T_LBRACKET coarray_spec T_RBRACKET )? ( T_ASTERISK char_length )? ( component_initialization )? ;
public final void component_decl() throws RecognitionException {
Token T_IDENT97=null;
boolean hasComponentArraySpec = false;
boolean hasCoarraySpec = false;
boolean hasCharLength = false;
boolean hasComponentInitialization = false;
try {
// FortranParser08.g:1121:4: ( T_IDENT ( T_LPAREN component_array_spec T_RPAREN )? ( T_LBRACKET coarray_spec T_RBRACKET )? ( T_ASTERISK char_length )? ( component_initialization )? )
// FortranParser08.g:1121:8: T_IDENT ( T_LPAREN component_array_spec T_RPAREN )? ( T_LBRACKET coarray_spec T_RBRACKET )? ( T_ASTERISK char_length )? ( component_initialization )?
{
T_IDENT97=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_component_decl4102); if (state.failed) return;
// FortranParser08.g:1121:16: ( T_LPAREN component_array_spec T_RPAREN )?
int alt85=2;
int LA85_0 = input.LA(1);
if ( (LA85_0==T_LPAREN) ) {
alt85=1;
}
switch (alt85) {
case 1 :
// FortranParser08.g:1121:17: T_LPAREN component_array_spec T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_component_decl4105); if (state.failed) return;
pushFollow(FOLLOW_component_array_spec_in_component_decl4107);
component_array_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_component_decl4109); if (state.failed) return;
if ( state.backtracking==0 ) {hasComponentArraySpec=true;}
}
break;
}
// FortranParser08.g:1122:16: ( T_LBRACKET coarray_spec T_RBRACKET )?
int alt86=2;
int LA86_0 = input.LA(1);
if ( (LA86_0==T_LBRACKET) ) {
alt86=1;
}
switch (alt86) {
case 1 :
// FortranParser08.g:1122:17: T_LBRACKET coarray_spec T_RBRACKET
{
match(input,T_LBRACKET,FOLLOW_T_LBRACKET_in_component_decl4131); if (state.failed) return;
pushFollow(FOLLOW_coarray_spec_in_component_decl4133);
coarray_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RBRACKET,FOLLOW_T_RBRACKET_in_component_decl4135); if (state.failed) return;
if ( state.backtracking==0 ) {hasCoarraySpec=true;}
}
break;
}
// FortranParser08.g:1123:16: ( T_ASTERISK char_length )?
int alt87=2;
int LA87_0 = input.LA(1);
if ( (LA87_0==T_ASTERISK) ) {
alt87=1;
}
switch (alt87) {
case 1 :
// FortranParser08.g:1123:17: T_ASTERISK char_length
{
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_component_decl4157); if (state.failed) return;
pushFollow(FOLLOW_char_length_in_component_decl4159);
char_length();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasCharLength=true;}
}
break;
}
// FortranParser08.g:1124:16: ( component_initialization )?
int alt88=2;
int LA88_0 = input.LA(1);
if ( (LA88_0==T_EQUALS||LA88_0==T_EQ_GT) ) {
alt88=1;
}
switch (alt88) {
case 1 :
// FortranParser08.g:1124:17: component_initialization
{
pushFollow(FOLLOW_component_initialization_in_component_decl4182);
component_initialization();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasComponentInitialization =true;}
}
break;
}
if ( state.backtracking==0 ) {action.component_decl(T_IDENT97, hasComponentArraySpec,
hasCoarraySpec, hasCharLength,
hasComponentInitialization);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "component_decl"
// $ANTLR start "component_decl_list"
// FortranParser08.g:1130:1: component_decl_list : component_decl ( T_COMMA component_decl )* ;
public final void component_decl_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1132:4: ( component_decl ( T_COMMA component_decl )* )
// FortranParser08.g:1132:12: component_decl ( T_COMMA component_decl )*
{
if ( state.backtracking==0 ) {action.component_decl_list__begin();}
pushFollow(FOLLOW_component_decl_in_component_decl_list4233);
component_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1133:34: ( T_COMMA component_decl )*
loop89:
while (true) {
int alt89=2;
int LA89_0 = input.LA(1);
if ( (LA89_0==T_COMMA) ) {
alt89=1;
}
switch (alt89) {
case 1 :
// FortranParser08.g:1133:36: T_COMMA component_decl
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_component_decl_list4239); if (state.failed) return;
pushFollow(FOLLOW_component_decl_in_component_decl_list4241);
component_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop89;
}
}
if ( state.backtracking==0 ) {action.component_decl_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "component_decl_list"
// $ANTLR start "component_array_spec"
// FortranParser08.g:1138:1: component_array_spec : ( explicit_shape_spec_list | deferred_shape_spec_list );
public final void component_array_spec() throws RecognitionException {
try {
// FortranParser08.g:1139:2: ( explicit_shape_spec_list | deferred_shape_spec_list )
int alt90=2;
int LA90_0 = input.LA(1);
if ( (LA90_0==BINARY_CONSTANT||LA90_0==HEX_CONSTANT||LA90_0==OCTAL_CONSTANT||LA90_0==T_CHAR_CONSTANT||(LA90_0 >= T_DEFINED_OP && LA90_0 <= T_DIGIT_STRING)||LA90_0==T_FALSE||(LA90_0 >= T_HOLLERITH && LA90_0 <= T_IDENT)||LA90_0==T_LBRACKET||LA90_0==T_LPAREN||LA90_0==T_MINUS||LA90_0==T_NOT||LA90_0==T_PLUS||LA90_0==T_REAL_CONSTANT||LA90_0==T_TRUE) ) {
alt90=1;
}
else if ( (LA90_0==T_COLON) ) {
alt90=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 90, 0, input);
throw nvae;
}
switch (alt90) {
case 1 :
// FortranParser08.g:1139:4: explicit_shape_spec_list
{
pushFollow(FOLLOW_explicit_shape_spec_list_in_component_array_spec4273);
explicit_shape_spec_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.component_array_spec(true);}
}
break;
case 2 :
// FortranParser08.g:1141:4: deferred_shape_spec_list
{
pushFollow(FOLLOW_deferred_shape_spec_list_in_component_array_spec4283);
deferred_shape_spec_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.component_array_spec(false);}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "component_array_spec"
// $ANTLR start "deferred_shape_spec_list"
// FortranParser08.g:1146:1: deferred_shape_spec_list : T_COLON ( T_COMMA T_COLON )* ;
public final void deferred_shape_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1148:5: ( T_COLON ( T_COMMA T_COLON )* )
// FortranParser08.g:1148:11: T_COLON ( T_COMMA T_COLON )*
{
if ( state.backtracking==0 ) {action.deferred_shape_spec_list__begin();}
match(input,T_COLON,FOLLOW_T_COLON_in_deferred_shape_spec_list4321); if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1149:28: ( T_COMMA T_COLON )*
loop91:
while (true) {
int alt91=2;
int LA91_0 = input.LA(1);
if ( (LA91_0==T_COMMA) ) {
alt91=1;
}
switch (alt91) {
case 1 :
// FortranParser08.g:1149:30: T_COMMA T_COLON
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_deferred_shape_spec_list4327); if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_deferred_shape_spec_list4329); if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop91;
}
}
if ( state.backtracking==0 ) {action.deferred_shape_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "deferred_shape_spec_list"
// $ANTLR start "component_initialization"
// FortranParser08.g:1156:1: component_initialization : ( T_EQUALS expr | T_EQ_GT null_init );
public final void component_initialization() throws RecognitionException {
try {
// FortranParser08.g:1160:2: ( T_EQUALS expr | T_EQ_GT null_init )
int alt92=2;
int LA92_0 = input.LA(1);
if ( (LA92_0==T_EQUALS) ) {
alt92=1;
}
else if ( (LA92_0==T_EQ_GT) ) {
alt92=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 92, 0, input);
throw nvae;
}
switch (alt92) {
case 1 :
// FortranParser08.g:1160:4: T_EQUALS expr
{
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_component_initialization4367); if (state.failed) return;
pushFollow(FOLLOW_expr_in_component_initialization4369);
expr();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:1161:4: T_EQ_GT null_init
{
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_component_initialization4374); if (state.failed) return;
pushFollow(FOLLOW_null_init_in_component_initialization4376);
null_init();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.component_initialization();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "component_initialization"
// $ANTLR start "proc_component_def_stmt"
// FortranParser08.g:1165:1: proc_component_def_stmt : ( label )? T_PROCEDURE T_LPAREN ( proc_interface )? T_RPAREN T_COMMA proc_component_attr_spec_list T_COLON_COLON proc_decl_list end_of_stmt ;
public final void proc_component_def_stmt() throws RecognitionException {
Token T_PROCEDURE99=null;
Token label98 =null;
Token end_of_stmt100 =null;
Token lbl = null; boolean hasInterface=false;
try {
// FortranParser08.g:1168:2: ( ( label )? T_PROCEDURE T_LPAREN ( proc_interface )? T_RPAREN T_COMMA proc_component_attr_spec_list T_COLON_COLON proc_decl_list end_of_stmt )
// FortranParser08.g:1168:4: ( label )? T_PROCEDURE T_LPAREN ( proc_interface )? T_RPAREN T_COMMA proc_component_attr_spec_list T_COLON_COLON proc_decl_list end_of_stmt
{
// FortranParser08.g:1168:4: ( label )?
int alt93=2;
int LA93_0 = input.LA(1);
if ( (LA93_0==T_DIGIT_STRING) ) {
alt93=1;
}
switch (alt93) {
case 1 :
// FortranParser08.g:1168:5: label
{
pushFollow(FOLLOW_label_in_proc_component_def_stmt4398);
label98=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label98;}
}
break;
}
T_PROCEDURE99=(Token)match(input,T_PROCEDURE,FOLLOW_T_PROCEDURE_in_proc_component_def_stmt4404); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_proc_component_def_stmt4406); if (state.failed) return;
// FortranParser08.g:1169:13: ( proc_interface )?
int alt94=2;
int LA94_0 = input.LA(1);
if ( (LA94_0==T_CHARACTER||LA94_0==T_CLASS||LA94_0==T_COMPLEX||(LA94_0 >= T_DOUBLE && LA94_0 <= T_DOUBLEPRECISION)||LA94_0==T_IDENT||LA94_0==T_INTEGER||LA94_0==T_LOGICAL||LA94_0==T_REAL||LA94_0==T_TYPE) ) {
alt94=1;
}
switch (alt94) {
case 1 :
// FortranParser08.g:1169:15: proc_interface
{
pushFollow(FOLLOW_proc_interface_in_proc_component_def_stmt4423);
proc_interface();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasInterface=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_proc_component_def_stmt4429); if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_proc_component_def_stmt4431); if (state.failed) return;
pushFollow(FOLLOW_proc_component_attr_spec_list_in_proc_component_def_stmt4439);
proc_component_attr_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_proc_component_def_stmt4441); if (state.failed) return;
pushFollow(FOLLOW_proc_decl_list_in_proc_component_def_stmt4443);
proc_decl_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_proc_component_def_stmt4458);
end_of_stmt100=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.proc_component_def_stmt(lbl, T_PROCEDURE99,
end_of_stmt100, hasInterface);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "proc_component_def_stmt"
// $ANTLR start "proc_component_attr_spec"
// FortranParser08.g:1178:1: proc_component_attr_spec : ( T_POINTER | T_PASS ( T_LPAREN T_IDENT T_RPAREN )? | T_NOPASS | access_spec );
public final void proc_component_attr_spec() throws RecognitionException {
Token T_POINTER101=null;
Token T_IDENT102=null;
Token T_PASS103=null;
Token T_NOPASS104=null;
Token id=null;
try {
// FortranParser08.g:1180:5: ( T_POINTER | T_PASS ( T_LPAREN T_IDENT T_RPAREN )? | T_NOPASS | access_spec )
int alt96=4;
switch ( input.LA(1) ) {
case T_POINTER:
{
alt96=1;
}
break;
case T_PASS:
{
alt96=2;
}
break;
case T_NOPASS:
{
alt96=3;
}
break;
case T_PRIVATE:
case T_PUBLIC:
{
alt96=4;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 96, 0, input);
throw nvae;
}
switch (alt96) {
case 1 :
// FortranParser08.g:1180:10: T_POINTER
{
T_POINTER101=(Token)match(input,T_POINTER,FOLLOW_T_POINTER_in_proc_component_attr_spec4487); if (state.failed) return;
if ( state.backtracking==0 ) {action.proc_component_attr_spec(T_POINTER101, id,
IActionEnums.
ProcComponentAttrSpec_pointer);}
}
break;
case 2 :
// FortranParser08.g:1184:10: T_PASS ( T_LPAREN T_IDENT T_RPAREN )?
{
T_PASS103=(Token)match(input,T_PASS,FOLLOW_T_PASS_in_proc_component_attr_spec4503); if (state.failed) return;
// FortranParser08.g:1184:17: ( T_LPAREN T_IDENT T_RPAREN )?
int alt95=2;
int LA95_0 = input.LA(1);
if ( (LA95_0==T_LPAREN) ) {
alt95=1;
}
switch (alt95) {
case 1 :
// FortranParser08.g:1184:19: T_LPAREN T_IDENT T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_proc_component_attr_spec4507); if (state.failed) return;
T_IDENT102=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_proc_component_attr_spec4509); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_proc_component_attr_spec4511); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT102;}
}
break;
}
if ( state.backtracking==0 ) {action.proc_component_attr_spec(T_PASS103, id,
IActionEnums.
ProcComponentAttrSpec_pass);}
}
break;
case 3 :
// FortranParser08.g:1188:10: T_NOPASS
{
T_NOPASS104=(Token)match(input,T_NOPASS,FOLLOW_T_NOPASS_in_proc_component_attr_spec4532); if (state.failed) return;
if ( state.backtracking==0 ) {action.proc_component_attr_spec(T_NOPASS104, id,
IActionEnums.
ProcComponentAttrSpec_nopass);}
}
break;
case 4 :
// FortranParser08.g:1192:10: access_spec
{
pushFollow(FOLLOW_access_spec_in_proc_component_attr_spec4548);
access_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.
proc_component_attr_spec(null, id,
IActionEnums.
ProcComponentAttrSpec_access_spec);}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "proc_component_attr_spec"
// $ANTLR start "proc_component_attr_spec_list"
// FortranParser08.g:1199:1: proc_component_attr_spec_list : proc_component_attr_spec ( T_COMMA proc_component_attr_spec )* ;
public final void proc_component_attr_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1201:5: ( proc_component_attr_spec ( T_COMMA proc_component_attr_spec )* )
// FortranParser08.g:1201:11: proc_component_attr_spec ( T_COMMA proc_component_attr_spec )*
{
if ( state.backtracking==0 ) {action.proc_component_attr_spec_list__begin();}
pushFollow(FOLLOW_proc_component_attr_spec_in_proc_component_attr_spec_list4588);
proc_component_attr_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1203:13: ( T_COMMA proc_component_attr_spec )*
loop97:
while (true) {
int alt97=2;
int LA97_0 = input.LA(1);
if ( (LA97_0==T_COMMA) ) {
alt97=1;
}
switch (alt97) {
case 1 :
// FortranParser08.g:1203:15: T_COMMA proc_component_attr_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_proc_component_attr_spec_list4607); if (state.failed) return;
pushFollow(FOLLOW_proc_component_attr_spec_in_proc_component_attr_spec_list4609);
proc_component_attr_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop97;
}
}
if ( state.backtracking==0 ) {action.proc_component_attr_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "proc_component_attr_spec_list"
// $ANTLR start "private_components_stmt"
// FortranParser08.g:1208:1: private_components_stmt : ( label )? T_PRIVATE end_of_stmt ;
public final void private_components_stmt() throws RecognitionException {
Token T_PRIVATE106=null;
Token label105 =null;
Token end_of_stmt107 =null;
Token lbl = null;
try {
// FortranParser08.g:1211:2: ( ( label )? T_PRIVATE end_of_stmt )
// FortranParser08.g:1211:4: ( label )? T_PRIVATE end_of_stmt
{
// FortranParser08.g:1211:4: ( label )?
int alt98=2;
int LA98_0 = input.LA(1);
if ( (LA98_0==T_DIGIT_STRING) ) {
alt98=1;
}
switch (alt98) {
case 1 :
// FortranParser08.g:1211:5: label
{
pushFollow(FOLLOW_label_in_private_components_stmt4649);
label105=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label105;}
}
break;
}
T_PRIVATE106=(Token)match(input,T_PRIVATE,FOLLOW_T_PRIVATE_in_private_components_stmt4655); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_private_components_stmt4657);
end_of_stmt107=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.private_components_stmt(lbl, T_PRIVATE106, end_of_stmt107);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "private_components_stmt"
// $ANTLR start "type_bound_procedure_part"
// FortranParser08.g:1216:1: type_bound_procedure_part : contains_stmt ( binding_private_stmt )? proc_binding_stmt ( proc_binding_stmt )* ;
public final void type_bound_procedure_part() throws RecognitionException {
int count=0; boolean hasBindingPrivateStmt = false;
try {
// FortranParser08.g:1218:2: ( contains_stmt ( binding_private_stmt )? proc_binding_stmt ( proc_binding_stmt )* )
// FortranParser08.g:1218:4: contains_stmt ( binding_private_stmt )? proc_binding_stmt ( proc_binding_stmt )*
{
pushFollow(FOLLOW_contains_stmt_in_type_bound_procedure_part4678);
contains_stmt();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1219:9: ( binding_private_stmt )?
int alt99=2;
int LA99_0 = input.LA(1);
if ( (LA99_0==T_DIGIT_STRING) ) {
int LA99_1 = input.LA(2);
if ( (LA99_1==T_PRIVATE) ) {
alt99=1;
}
}
else if ( (LA99_0==T_PRIVATE) ) {
alt99=1;
}
switch (alt99) {
case 1 :
// FortranParser08.g:1219:11: binding_private_stmt
{
pushFollow(FOLLOW_binding_private_stmt_in_type_bound_procedure_part4690);
binding_private_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasBindingPrivateStmt=true;}
}
break;
}
pushFollow(FOLLOW_proc_binding_stmt_in_type_bound_procedure_part4705);
proc_binding_stmt();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1220:27: ( proc_binding_stmt )*
loop100:
while (true) {
int alt100=2;
int LA100_0 = input.LA(1);
if ( (LA100_0==T_DIGIT_STRING) ) {
int LA100_1 = input.LA(2);
if ( (LA100_1==T_FINAL||LA100_1==T_GENERIC||LA100_1==T_PROCEDURE) ) {
alt100=1;
}
}
else if ( (LA100_0==T_FINAL||LA100_0==T_GENERIC||LA100_0==T_PROCEDURE) ) {
alt100=1;
}
switch (alt100) {
case 1 :
// FortranParser08.g:1220:29: proc_binding_stmt
{
pushFollow(FOLLOW_proc_binding_stmt_in_type_bound_procedure_part4709);
proc_binding_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop100;
}
}
if ( state.backtracking==0 ) {action.type_bound_procedure_part(count,
hasBindingPrivateStmt);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "type_bound_procedure_part"
// $ANTLR start "binding_private_stmt"
// FortranParser08.g:1226:1: binding_private_stmt : ( label )? T_PRIVATE end_of_stmt ;
public final void binding_private_stmt() throws RecognitionException {
Token T_PRIVATE109=null;
Token label108 =null;
Token end_of_stmt110 =null;
Token lbl = null;
try {
// FortranParser08.g:1229:2: ( ( label )? T_PRIVATE end_of_stmt )
// FortranParser08.g:1229:4: ( label )? T_PRIVATE end_of_stmt
{
// FortranParser08.g:1229:4: ( label )?
int alt101=2;
int LA101_0 = input.LA(1);
if ( (LA101_0==T_DIGIT_STRING) ) {
alt101=1;
}
switch (alt101) {
case 1 :
// FortranParser08.g:1229:5: label
{
pushFollow(FOLLOW_label_in_binding_private_stmt4740);
label108=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label108;}
}
break;
}
T_PRIVATE109=(Token)match(input,T_PRIVATE,FOLLOW_T_PRIVATE_in_binding_private_stmt4746); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_binding_private_stmt4748);
end_of_stmt110=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.binding_private_stmt(lbl, T_PRIVATE109, end_of_stmt110);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "binding_private_stmt"
// $ANTLR start "proc_binding_stmt"
// FortranParser08.g:1234:1: proc_binding_stmt : ( ( label )? specific_binding end_of_stmt | ( label )? generic_binding end_of_stmt | ( label )? final_binding end_of_stmt );
public final void proc_binding_stmt() throws RecognitionException {
Token label111 =null;
Token end_of_stmt112 =null;
Token label113 =null;
Token end_of_stmt114 =null;
Token label115 =null;
Token end_of_stmt116 =null;
Token lbl = null;
try {
// FortranParser08.g:1237:2: ( ( label )? specific_binding end_of_stmt | ( label )? generic_binding end_of_stmt | ( label )? final_binding end_of_stmt )
int alt105=3;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
switch ( input.LA(2) ) {
case T_PROCEDURE:
{
alt105=1;
}
break;
case T_GENERIC:
{
alt105=2;
}
break;
case T_FINAL:
{
alt105=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 105, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PROCEDURE:
{
alt105=1;
}
break;
case T_GENERIC:
{
alt105=2;
}
break;
case T_FINAL:
{
alt105=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 105, 0, input);
throw nvae;
}
switch (alt105) {
case 1 :
// FortranParser08.g:1237:4: ( label )? specific_binding end_of_stmt
{
// FortranParser08.g:1237:4: ( label )?
int alt102=2;
int LA102_0 = input.LA(1);
if ( (LA102_0==T_DIGIT_STRING) ) {
alt102=1;
}
switch (alt102) {
case 1 :
// FortranParser08.g:1237:5: label
{
pushFollow(FOLLOW_label_in_proc_binding_stmt4775);
label111=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label111;}
}
break;
}
pushFollow(FOLLOW_specific_binding_in_proc_binding_stmt4781);
specific_binding();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_proc_binding_stmt4783);
end_of_stmt112=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.proc_binding_stmt(lbl,
IActionEnums.BindingStatementType_specific, end_of_stmt112);}
}
break;
case 2 :
// FortranParser08.g:1240:4: ( label )? generic_binding end_of_stmt
{
// FortranParser08.g:1240:4: ( label )?
int alt103=2;
int LA103_0 = input.LA(1);
if ( (LA103_0==T_DIGIT_STRING) ) {
alt103=1;
}
switch (alt103) {
case 1 :
// FortranParser08.g:1240:5: label
{
pushFollow(FOLLOW_label_in_proc_binding_stmt4794);
label113=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label113;}
}
break;
}
pushFollow(FOLLOW_generic_binding_in_proc_binding_stmt4800);
generic_binding();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_proc_binding_stmt4802);
end_of_stmt114=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.proc_binding_stmt(lbl,
IActionEnums.BindingStatementType_generic, end_of_stmt114);}
}
break;
case 3 :
// FortranParser08.g:1243:4: ( label )? final_binding end_of_stmt
{
// FortranParser08.g:1243:4: ( label )?
int alt104=2;
int LA104_0 = input.LA(1);
if ( (LA104_0==T_DIGIT_STRING) ) {
alt104=1;
}
switch (alt104) {
case 1 :
// FortranParser08.g:1243:5: label
{
pushFollow(FOLLOW_label_in_proc_binding_stmt4813);
label115=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label115;}
}
break;
}
pushFollow(FOLLOW_final_binding_in_proc_binding_stmt4819);
final_binding();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_proc_binding_stmt4821);
end_of_stmt116=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.proc_binding_stmt(lbl,
IActionEnums.BindingStatementType_final, end_of_stmt116);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "proc_binding_stmt"
// $ANTLR start "specific_binding"
// FortranParser08.g:1250:1: specific_binding : T_PROCEDURE ( T_LPAREN tmpId1= T_IDENT T_RPAREN )? ( ( T_COMMA binding_attr_list )? T_COLON_COLON )? tmpId2= T_IDENT ( T_EQ_GT tmpId3= T_IDENT )? ;
public final void specific_binding() throws RecognitionException {
Token tmpId1=null;
Token tmpId2=null;
Token tmpId3=null;
Token T_PROCEDURE117=null;
Token interfaceName=null;
Token bindingName=null;
Token procedureName=null;
boolean hasBindingAttrList=false;
try {
// FortranParser08.g:1257:5: ( T_PROCEDURE ( T_LPAREN tmpId1= T_IDENT T_RPAREN )? ( ( T_COMMA binding_attr_list )? T_COLON_COLON )? tmpId2= T_IDENT ( T_EQ_GT tmpId3= T_IDENT )? )
// FortranParser08.g:1257:9: T_PROCEDURE ( T_LPAREN tmpId1= T_IDENT T_RPAREN )? ( ( T_COMMA binding_attr_list )? T_COLON_COLON )? tmpId2= T_IDENT ( T_EQ_GT tmpId3= T_IDENT )?
{
T_PROCEDURE117=(Token)match(input,T_PROCEDURE,FOLLOW_T_PROCEDURE_in_specific_binding4850); if (state.failed) return;
// FortranParser08.g:1257:21: ( T_LPAREN tmpId1= T_IDENT T_RPAREN )?
int alt106=2;
int LA106_0 = input.LA(1);
if ( (LA106_0==T_LPAREN) ) {
alt106=1;
}
switch (alt106) {
case 1 :
// FortranParser08.g:1257:22: T_LPAREN tmpId1= T_IDENT T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_specific_binding4853); if (state.failed) return;
tmpId1=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_specific_binding4857); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_specific_binding4859); if (state.failed) return;
if ( state.backtracking==0 ) {interfaceName=tmpId1;}
}
break;
}
// FortranParser08.g:1258:13: ( ( T_COMMA binding_attr_list )? T_COLON_COLON )?
int alt108=2;
int LA108_0 = input.LA(1);
if ( ((LA108_0 >= T_COLON_COLON && LA108_0 <= T_COMMA)) ) {
alt108=1;
}
switch (alt108) {
case 1 :
// FortranParser08.g:1258:15: ( T_COMMA binding_attr_list )? T_COLON_COLON
{
// FortranParser08.g:1258:15: ( T_COMMA binding_attr_list )?
int alt107=2;
int LA107_0 = input.LA(1);
if ( (LA107_0==T_COMMA) ) {
alt107=1;
}
switch (alt107) {
case 1 :
// FortranParser08.g:1258:17: T_COMMA binding_attr_list
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_specific_binding4881); if (state.failed) return;
pushFollow(FOLLOW_binding_attr_list_in_specific_binding4883);
binding_attr_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasBindingAttrList=true;}
}
break;
}
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_specific_binding4906); if (state.failed) return;
}
break;
}
tmpId2=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_specific_binding4925); if (state.failed) return;
if ( state.backtracking==0 ) {bindingName=tmpId2;}
// FortranParser08.g:1261:13: ( T_EQ_GT tmpId3= T_IDENT )?
int alt109=2;
int LA109_0 = input.LA(1);
if ( (LA109_0==T_EQ_GT) ) {
alt109=1;
}
switch (alt109) {
case 1 :
// FortranParser08.g:1261:15: T_EQ_GT tmpId3= T_IDENT
{
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_specific_binding4944); if (state.failed) return;
tmpId3=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_specific_binding4948); if (state.failed) return;
if ( state.backtracking==0 ) {procedureName=tmpId3;}
}
break;
}
if ( state.backtracking==0 ) { action.specific_binding(T_PROCEDURE117, interfaceName, bindingName,
procedureName, hasBindingAttrList);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "specific_binding"
// $ANTLR start "generic_binding"
// FortranParser08.g:1268:1: generic_binding : T_GENERIC ( T_COMMA access_spec )? T_COLON_COLON generic_spec T_EQ_GT generic_name_list ;
public final void generic_binding() throws RecognitionException {
Token T_GENERIC118=null;
boolean hasAccessSpec=false;
try {
// FortranParser08.g:1270:5: ( T_GENERIC ( T_COMMA access_spec )? T_COLON_COLON generic_spec T_EQ_GT generic_name_list )
// FortranParser08.g:1270:10: T_GENERIC ( T_COMMA access_spec )? T_COLON_COLON generic_spec T_EQ_GT generic_name_list
{
T_GENERIC118=(Token)match(input,T_GENERIC,FOLLOW_T_GENERIC_in_generic_binding4983); if (state.failed) return;
// FortranParser08.g:1270:20: ( T_COMMA access_spec )?
int alt110=2;
int LA110_0 = input.LA(1);
if ( (LA110_0==T_COMMA) ) {
alt110=1;
}
switch (alt110) {
case 1 :
// FortranParser08.g:1270:22: T_COMMA access_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_generic_binding4987); if (state.failed) return;
pushFollow(FOLLOW_access_spec_in_generic_binding4989);
access_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasAccessSpec=true;}
}
break;
}
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_generic_binding4995); if (state.failed) return;
pushFollow(FOLLOW_generic_spec_in_generic_binding5010);
generic_spec();
state._fsp--;
if (state.failed) return;
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_generic_binding5012); if (state.failed) return;
pushFollow(FOLLOW_generic_name_list_in_generic_binding5014);
generic_name_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.generic_binding(T_GENERIC118, hasAccessSpec);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "generic_binding"
// $ANTLR start "binding_attr"
// FortranParser08.g:1277:1: binding_attr : ( T_PASS ( T_LPAREN T_IDENT T_RPAREN )? | T_NOPASS | T_NON_OVERRIDABLE | T_DEFERRED | access_spec );
public final void binding_attr() throws RecognitionException {
Token T_IDENT119=null;
Token T_PASS120=null;
Token T_NOPASS121=null;
Token T_NON_OVERRIDABLE122=null;
Token T_DEFERRED123=null;
Token id = null;
try {
// FortranParser08.g:1279:5: ( T_PASS ( T_LPAREN T_IDENT T_RPAREN )? | T_NOPASS | T_NON_OVERRIDABLE | T_DEFERRED | access_spec )
int alt112=5;
switch ( input.LA(1) ) {
case T_PASS:
{
alt112=1;
}
break;
case T_NOPASS:
{
alt112=2;
}
break;
case T_NON_OVERRIDABLE:
{
alt112=3;
}
break;
case T_DEFERRED:
{
alt112=4;
}
break;
case T_PRIVATE:
case T_PUBLIC:
{
alt112=5;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 112, 0, input);
throw nvae;
}
switch (alt112) {
case 1 :
// FortranParser08.g:1279:7: T_PASS ( T_LPAREN T_IDENT T_RPAREN )?
{
T_PASS120=(Token)match(input,T_PASS,FOLLOW_T_PASS_in_binding_attr5042); if (state.failed) return;
// FortranParser08.g:1279:14: ( T_LPAREN T_IDENT T_RPAREN )?
int alt111=2;
int LA111_0 = input.LA(1);
if ( (LA111_0==T_LPAREN) ) {
alt111=1;
}
switch (alt111) {
case 1 :
// FortranParser08.g:1279:16: T_LPAREN T_IDENT T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_binding_attr5046); if (state.failed) return;
T_IDENT119=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_binding_attr5048); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_binding_attr5050); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT119;}
}
break;
}
if ( state.backtracking==0 ) { action.binding_attr(T_PASS120, IActionEnums.AttrSpec_PASS, id); }
}
break;
case 2 :
// FortranParser08.g:1281:7: T_NOPASS
{
T_NOPASS121=(Token)match(input,T_NOPASS,FOLLOW_T_NOPASS_in_binding_attr5072); if (state.failed) return;
if ( state.backtracking==0 ) { action.binding_attr(T_NOPASS121, IActionEnums.AttrSpec_NOPASS, id); }
}
break;
case 3 :
// FortranParser08.g:1283:7: T_NON_OVERRIDABLE
{
T_NON_OVERRIDABLE122=(Token)match(input,T_NON_OVERRIDABLE,FOLLOW_T_NON_OVERRIDABLE_in_binding_attr5093); if (state.failed) return;
if ( state.backtracking==0 ) { action.binding_attr(T_NON_OVERRIDABLE122,
IActionEnums.AttrSpec_NON_OVERRIDABLE, id); }
}
break;
case 4 :
// FortranParser08.g:1286:7: T_DEFERRED
{
T_DEFERRED123=(Token)match(input,T_DEFERRED,FOLLOW_T_DEFERRED_in_binding_attr5112); if (state.failed) return;
if ( state.backtracking==0 ) { action.binding_attr(T_DEFERRED123, IActionEnums.AttrSpec_DEFERRED,
id); }
}
break;
case 5 :
// FortranParser08.g:1289:7: access_spec
{
pushFollow(FOLLOW_access_spec_in_binding_attr5132);
access_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.binding_attr(null, IActionEnums.AttrSpec_none, id); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "binding_attr"
// $ANTLR start "binding_attr_list"
// FortranParser08.g:1293:1: binding_attr_list : binding_attr ( T_COMMA binding_attr )* ;
public final void binding_attr_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1295:5: ( binding_attr ( T_COMMA binding_attr )* )
// FortranParser08.g:1295:8: binding_attr ( T_COMMA binding_attr )*
{
if ( state.backtracking==0 ) {action.binding_attr_list__begin();}
pushFollow(FOLLOW_binding_attr_in_binding_attr_list5176);
binding_attr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1296:33: ( T_COMMA binding_attr )*
loop113:
while (true) {
int alt113=2;
int LA113_0 = input.LA(1);
if ( (LA113_0==T_COMMA) ) {
alt113=1;
}
switch (alt113) {
case 1 :
// FortranParser08.g:1296:35: T_COMMA binding_attr
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_binding_attr_list5182); if (state.failed) return;
pushFollow(FOLLOW_binding_attr_in_binding_attr_list5184);
binding_attr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop113;
}
}
if ( state.backtracking==0 ) {action.binding_attr_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "binding_attr_list"
// $ANTLR start "final_binding"
// FortranParser08.g:1302:1: final_binding : T_FINAL ( T_COLON_COLON )? generic_name_list ;
public final void final_binding() throws RecognitionException {
Token T_FINAL124=null;
try {
// FortranParser08.g:1303:2: ( T_FINAL ( T_COLON_COLON )? generic_name_list )
// FortranParser08.g:1303:4: T_FINAL ( T_COLON_COLON )? generic_name_list
{
T_FINAL124=(Token)match(input,T_FINAL,FOLLOW_T_FINAL_in_final_binding5213); if (state.failed) return;
// FortranParser08.g:1303:12: ( T_COLON_COLON )?
int alt114=2;
int LA114_0 = input.LA(1);
if ( (LA114_0==T_COLON_COLON) ) {
alt114=1;
}
switch (alt114) {
case 1 :
// FortranParser08.g:1303:14: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_final_binding5217); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_generic_name_list_in_final_binding5222);
generic_name_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.final_binding(T_FINAL124); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "final_binding"
// $ANTLR start "derived_type_spec"
// FortranParser08.g:1308:1: derived_type_spec : T_IDENT ( T_LPAREN type_param_spec_list T_RPAREN )? ;
public final void derived_type_spec() throws RecognitionException {
Token T_IDENT125=null;
boolean hasList = false;
try {
// FortranParser08.g:1310:5: ( T_IDENT ( T_LPAREN type_param_spec_list T_RPAREN )? )
// FortranParser08.g:1310:7: T_IDENT ( T_LPAREN type_param_spec_list T_RPAREN )?
{
T_IDENT125=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_derived_type_spec5256); if (state.failed) return;
// FortranParser08.g:1310:15: ( T_LPAREN type_param_spec_list T_RPAREN )?
int alt115=2;
int LA115_0 = input.LA(1);
if ( (LA115_0==T_LPAREN) ) {
alt115=1;
}
switch (alt115) {
case 1 :
// FortranParser08.g:1310:17: T_LPAREN type_param_spec_list T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_derived_type_spec5260); if (state.failed) return;
pushFollow(FOLLOW_type_param_spec_list_in_derived_type_spec5262);
type_param_spec_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasList=true;}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_derived_type_spec5266); if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) { action.derived_type_spec(T_IDENT125, hasList); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "derived_type_spec"
// $ANTLR start "type_param_spec"
// FortranParser08.g:1315:1: type_param_spec : ( keyword T_EQUALS )? type_param_value ;
public final void type_param_spec() throws RecognitionException {
Token keyword126 =null;
Token keyWord=null;
try {
// FortranParser08.g:1317:5: ( ( keyword T_EQUALS )? type_param_value )
// FortranParser08.g:1317:7: ( keyword T_EQUALS )? type_param_value
{
// FortranParser08.g:1317:7: ( keyword T_EQUALS )?
int alt116=2;
int LA116_0 = input.LA(1);
if ( (LA116_0==T_IDENT) ) {
int LA116_1 = input.LA(2);
if ( (LA116_1==T_EQUALS) ) {
alt116=1;
}
}
switch (alt116) {
case 1 :
// FortranParser08.g:1317:9: keyword T_EQUALS
{
pushFollow(FOLLOW_keyword_in_type_param_spec5300);
keyword126=keyword();
state._fsp--;
if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_type_param_spec5302); if (state.failed) return;
if ( state.backtracking==0 ) {keyWord=keyword126;}
}
break;
}
pushFollow(FOLLOW_type_param_value_in_type_param_spec5308);
type_param_value();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.type_param_spec(keyWord);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "type_param_spec"
// $ANTLR start "type_param_spec_list"
// FortranParser08.g:1321:1: type_param_spec_list : type_param_spec ( T_COMMA type_param_spec )* ;
public final void type_param_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1323:5: ( type_param_spec ( T_COMMA type_param_spec )* )
// FortranParser08.g:1323:11: type_param_spec ( T_COMMA type_param_spec )*
{
if ( state.backtracking==0 ) {action.type_param_spec_list__begin();}
pushFollow(FOLLOW_type_param_spec_in_type_param_spec_list5349);
type_param_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1324:35: ( T_COMMA type_param_spec )*
loop117:
while (true) {
int alt117=2;
int LA117_0 = input.LA(1);
if ( (LA117_0==T_COMMA) ) {
alt117=1;
}
switch (alt117) {
case 1 :
// FortranParser08.g:1324:37: T_COMMA type_param_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_type_param_spec_list5354); if (state.failed) return;
pushFollow(FOLLOW_type_param_spec_in_type_param_spec_list5356);
type_param_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop117;
}
}
if ( state.backtracking==0 ) {action.type_param_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "type_param_spec_list"
// $ANTLR start "structure_constructor"
// FortranParser08.g:1337:1: structure_constructor : T_IDENT T_LPAREN type_param_spec_list T_RPAREN ( T_LPAREN ( component_spec_list )? T_RPAREN )? ;
public final void structure_constructor() throws RecognitionException {
Token T_IDENT127=null;
try {
// FortranParser08.g:1347:5: ( T_IDENT T_LPAREN type_param_spec_list T_RPAREN ( T_LPAREN ( component_spec_list )? T_RPAREN )? )
// FortranParser08.g:1347:7: T_IDENT T_LPAREN type_param_spec_list T_RPAREN ( T_LPAREN ( component_spec_list )? T_RPAREN )?
{
T_IDENT127=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_structure_constructor5407); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_structure_constructor5409); if (state.failed) return;
pushFollow(FOLLOW_type_param_spec_list_in_structure_constructor5411);
type_param_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_structure_constructor5413); if (state.failed) return;
// FortranParser08.g:1348:3: ( T_LPAREN ( component_spec_list )? T_RPAREN )?
int alt119=2;
int LA119_0 = input.LA(1);
if ( (LA119_0==T_LPAREN) ) {
alt119=1;
}
switch (alt119) {
case 1 :
// FortranParser08.g:1348:4: T_LPAREN ( component_spec_list )? T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_structure_constructor5418); if (state.failed) return;
// FortranParser08.g:1349:3: ( component_spec_list )?
int alt118=2;
int LA118_0 = input.LA(1);
if ( (LA118_0==BINARY_CONSTANT||LA118_0==HEX_CONSTANT||LA118_0==OCTAL_CONSTANT||LA118_0==T_CHAR_CONSTANT||(LA118_0 >= T_DEFINED_OP && LA118_0 <= T_DIGIT_STRING)||LA118_0==T_FALSE||(LA118_0 >= T_HOLLERITH && LA118_0 <= T_IDENT)||LA118_0==T_LBRACKET||LA118_0==T_LPAREN||LA118_0==T_MINUS||LA118_0==T_NOT||LA118_0==T_PLUS||LA118_0==T_REAL_CONSTANT||LA118_0==T_TRUE) ) {
alt118=1;
}
switch (alt118) {
case 1 :
// FortranParser08.g:1349:5: component_spec_list
{
pushFollow(FOLLOW_component_spec_list_in_structure_constructor5424);
component_spec_list();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_structure_constructor5431); if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) { action.structure_constructor(T_IDENT127); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "structure_constructor"
// $ANTLR start "component_spec"
// FortranParser08.g:1355:1: component_spec : ( keyword T_EQUALS )? component_data_source ;
public final void component_spec() throws RecognitionException {
Token keyword128 =null;
Token keyWord = null;
try {
// FortranParser08.g:1357:5: ( ( keyword T_EQUALS )? component_data_source )
// FortranParser08.g:1357:9: ( keyword T_EQUALS )? component_data_source
{
// FortranParser08.g:1357:9: ( keyword T_EQUALS )?
int alt120=2;
int LA120_0 = input.LA(1);
if ( (LA120_0==T_IDENT) ) {
int LA120_1 = input.LA(2);
if ( (LA120_1==T_EQUALS) ) {
alt120=1;
}
}
switch (alt120) {
case 1 :
// FortranParser08.g:1357:11: keyword T_EQUALS
{
pushFollow(FOLLOW_keyword_in_component_spec5467);
keyword128=keyword();
state._fsp--;
if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_component_spec5469); if (state.failed) return;
if ( state.backtracking==0 ) { keyWord=keyword128; }
}
break;
}
pushFollow(FOLLOW_component_data_source_in_component_spec5475);
component_data_source();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.component_spec(keyWord); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "component_spec"
// $ANTLR start "component_spec_list"
// FortranParser08.g:1361:1: component_spec_list : component_spec ( T_COMMA component_spec )* ;
public final void component_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1363:5: ( component_spec ( T_COMMA component_spec )* )
// FortranParser08.g:1363:11: component_spec ( T_COMMA component_spec )*
{
if ( state.backtracking==0 ) {action.component_spec_list__begin();}
pushFollow(FOLLOW_component_spec_in_component_spec_list5525);
component_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1364:34: ( T_COMMA component_spec )*
loop121:
while (true) {
int alt121=2;
int LA121_0 = input.LA(1);
if ( (LA121_0==T_COMMA) ) {
alt121=1;
}
switch (alt121) {
case 1 :
// FortranParser08.g:1364:36: T_COMMA component_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_component_spec_list5530); if (state.failed) return;
pushFollow(FOLLOW_component_spec_in_component_spec_list5532);
component_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop121;
}
}
if ( state.backtracking==0 ) {action.component_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "component_spec_list"
// $ANTLR start "component_data_source"
// FortranParser08.g:1372:1: component_data_source : expr ;
public final void component_data_source() throws RecognitionException {
try {
// FortranParser08.g:1373:2: ( expr )
// FortranParser08.g:1373:4: expr
{
pushFollow(FOLLOW_expr_in_component_data_source5566);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.component_data_source(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "component_data_source"
// $ANTLR start "enum_def"
// FortranParser08.g:1378:1: enum_def : enum_def_stmt enumerator_def_stmt ( enumerator_def_stmt )* end_enum_stmt ;
public final void enum_def() throws RecognitionException {
int numEls=1;
try {
// FortranParser08.g:1380:2: ( enum_def_stmt enumerator_def_stmt ( enumerator_def_stmt )* end_enum_stmt )
// FortranParser08.g:1380:4: enum_def_stmt enumerator_def_stmt ( enumerator_def_stmt )* end_enum_stmt
{
pushFollow(FOLLOW_enum_def_stmt_in_enum_def5597);
enum_def_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_enumerator_def_stmt_in_enum_def5601);
enumerator_def_stmt();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1382:3: ( enumerator_def_stmt )*
loop122:
while (true) {
int alt122=2;
int LA122_0 = input.LA(1);
if ( (LA122_0==T_DIGIT_STRING) ) {
int LA122_1 = input.LA(2);
if ( (LA122_1==T_ENUMERATOR) ) {
alt122=1;
}
}
else if ( (LA122_0==T_ENUMERATOR) ) {
alt122=1;
}
switch (alt122) {
case 1 :
// FortranParser08.g:1382:5: enumerator_def_stmt
{
pushFollow(FOLLOW_enumerator_def_stmt_in_enum_def5607);
enumerator_def_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {numEls++;}
}
break;
default :
break loop122;
}
}
pushFollow(FOLLOW_end_enum_stmt_in_enum_def5615);
end_enum_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.enum_def(numEls);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "enum_def"
// $ANTLR start "enum_def_stmt"
// FortranParser08.g:1388:1: enum_def_stmt : ( label )? T_ENUM T_COMMA T_BIND T_LPAREN T_IDENT T_RPAREN end_of_stmt ;
public final void enum_def_stmt() throws RecognitionException {
Token T_ENUM130=null;
Token T_BIND131=null;
Token T_IDENT132=null;
Token label129 =null;
Token end_of_stmt133 =null;
Token lbl = null;
try {
// FortranParser08.g:1391:2: ( ( label )? T_ENUM T_COMMA T_BIND T_LPAREN T_IDENT T_RPAREN end_of_stmt )
// FortranParser08.g:1391:4: ( label )? T_ENUM T_COMMA T_BIND T_LPAREN T_IDENT T_RPAREN end_of_stmt
{
// FortranParser08.g:1391:4: ( label )?
int alt123=2;
int LA123_0 = input.LA(1);
if ( (LA123_0==T_DIGIT_STRING) ) {
alt123=1;
}
switch (alt123) {
case 1 :
// FortranParser08.g:1391:5: label
{
pushFollow(FOLLOW_label_in_enum_def_stmt5642);
label129=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label129;}
}
break;
}
T_ENUM130=(Token)match(input,T_ENUM,FOLLOW_T_ENUM_in_enum_def_stmt5648); if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_enum_def_stmt5650); if (state.failed) return;
T_BIND131=(Token)match(input,T_BIND,FOLLOW_T_BIND_in_enum_def_stmt5652); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_enum_def_stmt5654); if (state.failed) return;
T_IDENT132=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_enum_def_stmt5669); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_enum_def_stmt5673); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_enum_def_stmt5675);
end_of_stmt133=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.enum_def_stmt(lbl, T_ENUM130, T_BIND131, T_IDENT132,
end_of_stmt133);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "enum_def_stmt"
// $ANTLR start "enumerator_def_stmt"
// FortranParser08.g:1398:1: enumerator_def_stmt : ( label )? T_ENUMERATOR ( T_COLON_COLON )? enumerator_list end_of_stmt ;
public final void enumerator_def_stmt() throws RecognitionException {
Token T_ENUMERATOR135=null;
Token label134 =null;
Token end_of_stmt136 =null;
Token lbl = null;
try {
// FortranParser08.g:1401:2: ( ( label )? T_ENUMERATOR ( T_COLON_COLON )? enumerator_list end_of_stmt )
// FortranParser08.g:1401:4: ( label )? T_ENUMERATOR ( T_COLON_COLON )? enumerator_list end_of_stmt
{
// FortranParser08.g:1401:4: ( label )?
int alt124=2;
int LA124_0 = input.LA(1);
if ( (LA124_0==T_DIGIT_STRING) ) {
alt124=1;
}
switch (alt124) {
case 1 :
// FortranParser08.g:1401:5: label
{
pushFollow(FOLLOW_label_in_enumerator_def_stmt5702);
label134=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label134;}
}
break;
}
T_ENUMERATOR135=(Token)match(input,T_ENUMERATOR,FOLLOW_T_ENUMERATOR_in_enumerator_def_stmt5708); if (state.failed) return;
// FortranParser08.g:1401:43: ( T_COLON_COLON )?
int alt125=2;
int LA125_0 = input.LA(1);
if ( (LA125_0==T_COLON_COLON) ) {
alt125=1;
}
switch (alt125) {
case 1 :
// FortranParser08.g:1401:45: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_enumerator_def_stmt5712); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_enumerator_list_in_enumerator_def_stmt5730);
enumerator_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_enumerator_def_stmt5732);
end_of_stmt136=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.enumerator_def_stmt(lbl, T_ENUMERATOR135, end_of_stmt136);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "enumerator_def_stmt"
// $ANTLR start "enumerator"
// FortranParser08.g:1409:1: enumerator : T_IDENT ( T_EQUALS expr )? ;
public final void enumerator() throws RecognitionException {
Token T_IDENT137=null;
boolean hasExpr = false;
try {
// FortranParser08.g:1411:5: ( T_IDENT ( T_EQUALS expr )? )
// FortranParser08.g:1411:9: T_IDENT ( T_EQUALS expr )?
{
T_IDENT137=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_enumerator5760); if (state.failed) return;
// FortranParser08.g:1411:17: ( T_EQUALS expr )?
int alt126=2;
int LA126_0 = input.LA(1);
if ( (LA126_0==T_EQUALS) ) {
alt126=1;
}
switch (alt126) {
case 1 :
// FortranParser08.g:1411:19: T_EQUALS expr
{
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_enumerator5764); if (state.failed) return;
pushFollow(FOLLOW_expr_in_enumerator5766);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { hasExpr = true; }
}
break;
}
if ( state.backtracking==0 ) { action.enumerator(T_IDENT137, hasExpr); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "enumerator"
// $ANTLR start "enumerator_list"
// FortranParser08.g:1415:1: enumerator_list : enumerator ( T_COMMA enumerator )* ;
public final void enumerator_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1417:5: ( enumerator ( T_COMMA enumerator )* )
// FortranParser08.g:1417:11: enumerator ( T_COMMA enumerator )*
{
if ( state.backtracking==0 ) {action.enumerator_list__begin();}
pushFollow(FOLLOW_enumerator_in_enumerator_list5820);
enumerator();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1418:30: ( T_COMMA enumerator )*
loop127:
while (true) {
int alt127=2;
int LA127_0 = input.LA(1);
if ( (LA127_0==T_COMMA) ) {
alt127=1;
}
switch (alt127) {
case 1 :
// FortranParser08.g:1418:32: T_COMMA enumerator
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_enumerator_list5825); if (state.failed) return;
pushFollow(FOLLOW_enumerator_in_enumerator_list5827);
enumerator();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop127;
}
}
if ( state.backtracking==0 ) {action.enumerator_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "enumerator_list"
// $ANTLR start "end_enum_stmt"
// FortranParser08.g:1423:1: end_enum_stmt : ( ( label )? T_END T_ENUM end_of_stmt | ( label )? T_ENDENUM end_of_stmt );
public final void end_enum_stmt() throws RecognitionException {
Token T_END139=null;
Token T_ENUM140=null;
Token T_ENDENUM143=null;
Token label138 =null;
Token end_of_stmt141 =null;
Token label142 =null;
Token end_of_stmt144 =null;
Token lbl = null;
try {
// FortranParser08.g:1426:2: ( ( label )? T_END T_ENUM end_of_stmt | ( label )? T_ENDENUM end_of_stmt )
int alt130=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA130_1 = input.LA(2);
if ( (LA130_1==T_END) ) {
alt130=1;
}
else if ( (LA130_1==T_ENDENUM) ) {
alt130=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 130, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
alt130=1;
}
break;
case T_ENDENUM:
{
alt130=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 130, 0, input);
throw nvae;
}
switch (alt130) {
case 1 :
// FortranParser08.g:1426:4: ( label )? T_END T_ENUM end_of_stmt
{
// FortranParser08.g:1426:4: ( label )?
int alt128=2;
int LA128_0 = input.LA(1);
if ( (LA128_0==T_DIGIT_STRING) ) {
alt128=1;
}
switch (alt128) {
case 1 :
// FortranParser08.g:1426:5: label
{
pushFollow(FOLLOW_label_in_end_enum_stmt5868);
label138=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label138;}
}
break;
}
T_END139=(Token)match(input,T_END,FOLLOW_T_END_in_end_enum_stmt5874); if (state.failed) return;
T_ENUM140=(Token)match(input,T_ENUM,FOLLOW_T_ENUM_in_end_enum_stmt5876); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_end_enum_stmt5878);
end_of_stmt141=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.end_enum_stmt(lbl, T_END139, T_ENUM140, end_of_stmt141); }
}
break;
case 2 :
// FortranParser08.g:1428:4: ( label )? T_ENDENUM end_of_stmt
{
// FortranParser08.g:1428:4: ( label )?
int alt129=2;
int LA129_0 = input.LA(1);
if ( (LA129_0==T_DIGIT_STRING) ) {
alt129=1;
}
switch (alt129) {
case 1 :
// FortranParser08.g:1428:5: label
{
pushFollow(FOLLOW_label_in_end_enum_stmt5899);
label142=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label142;}
}
break;
}
T_ENDENUM143=(Token)match(input,T_ENDENUM,FOLLOW_T_ENDENUM_in_end_enum_stmt5905); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_end_enum_stmt5907);
end_of_stmt144=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.end_enum_stmt(lbl, T_ENDENUM143, null, end_of_stmt144); }
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_enum_stmt"
// $ANTLR start "array_constructor"
// FortranParser08.g:1433:1: array_constructor : ( T_LPAREN T_SLASH ac_spec T_SLASH T_RPAREN | T_LBRACKET ac_spec T_RBRACKET );
public final void array_constructor() throws RecognitionException {
try {
// FortranParser08.g:1434:2: ( T_LPAREN T_SLASH ac_spec T_SLASH T_RPAREN | T_LBRACKET ac_spec T_RBRACKET )
int alt131=2;
int LA131_0 = input.LA(1);
if ( (LA131_0==T_LPAREN) ) {
alt131=1;
}
else if ( (LA131_0==T_LBRACKET) ) {
alt131=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 131, 0, input);
throw nvae;
}
switch (alt131) {
case 1 :
// FortranParser08.g:1434:4: T_LPAREN T_SLASH ac_spec T_SLASH T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_array_constructor5934); if (state.failed) return;
match(input,T_SLASH,FOLLOW_T_SLASH_in_array_constructor5936); if (state.failed) return;
pushFollow(FOLLOW_ac_spec_in_array_constructor5938);
ac_spec();
state._fsp--;
if (state.failed) return;
match(input,T_SLASH,FOLLOW_T_SLASH_in_array_constructor5940); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_array_constructor5942); if (state.failed) return;
if ( state.backtracking==0 ) { action.array_constructor(); }
}
break;
case 2 :
// FortranParser08.g:1436:4: T_LBRACKET ac_spec T_RBRACKET
{
match(input,T_LBRACKET,FOLLOW_T_LBRACKET_in_array_constructor5952); if (state.failed) return;
pushFollow(FOLLOW_ac_spec_in_array_constructor5954);
ac_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RBRACKET,FOLLOW_T_RBRACKET_in_array_constructor5956); if (state.failed) return;
if ( state.backtracking==0 ) { action.array_constructor(); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "array_constructor"
// $ANTLR start "ac_spec"
// FortranParser08.g:1442:1: ac_spec options {backtrack=true; } : ( type_spec T_COLON_COLON ( ac_value_list )? | ac_value_list );
public final void ac_spec() throws RecognitionException {
try {
// FortranParser08.g:1447:5: ( type_spec T_COLON_COLON ( ac_value_list )? | ac_value_list )
int alt133=2;
switch ( input.LA(1) ) {
case T_CHARACTER:
case T_COMPLEX:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
{
alt133=1;
}
break;
case T_IDENT:
{
int LA133_9 = input.LA(2);
if ( (synpred1_FortranParser08()) ) {
alt133=1;
}
else if ( (true) ) {
alt133=2;
}
}
break;
case BINARY_CONSTANT:
case HEX_CONSTANT:
case OCTAL_CONSTANT:
case T_CHAR_CONSTANT:
case T_DEFINED_OP:
case T_DIGIT_STRING:
case T_FALSE:
case T_HOLLERITH:
case T_LBRACKET:
case T_LPAREN:
case T_MINUS:
case T_NOT:
case T_PLUS:
case T_REAL_CONSTANT:
case T_TRUE:
{
alt133=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 133, 0, input);
throw nvae;
}
switch (alt133) {
case 1 :
// FortranParser08.g:1447:7: type_spec T_COLON_COLON ( ac_value_list )?
{
pushFollow(FOLLOW_type_spec_in_ac_spec5989);
type_spec();
state._fsp--;
if (state.failed) return;
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_ac_spec5991); if (state.failed) return;
// FortranParser08.g:1447:31: ( ac_value_list )?
int alt132=2;
int LA132_0 = input.LA(1);
if ( (LA132_0==BINARY_CONSTANT||LA132_0==HEX_CONSTANT||LA132_0==OCTAL_CONSTANT||LA132_0==T_CHAR_CONSTANT||(LA132_0 >= T_DEFINED_OP && LA132_0 <= T_DIGIT_STRING)||LA132_0==T_FALSE||(LA132_0 >= T_HOLLERITH && LA132_0 <= T_IDENT)||LA132_0==T_LBRACKET||LA132_0==T_LPAREN||LA132_0==T_MINUS||LA132_0==T_NOT||LA132_0==T_PLUS||LA132_0==T_REAL_CONSTANT||LA132_0==T_TRUE) ) {
alt132=1;
}
switch (alt132) {
case 1 :
// FortranParser08.g:1447:32: ac_value_list
{
pushFollow(FOLLOW_ac_value_list_in_ac_spec5994);
ac_value_list();
state._fsp--;
if (state.failed) return;
}
break;
}
}
break;
case 2 :
// FortranParser08.g:1448:7: ac_value_list
{
pushFollow(FOLLOW_ac_value_list_in_ac_spec6004);
ac_value_list();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.ac_spec();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "ac_spec"
// $ANTLR start "ac_value"
// FortranParser08.g:1456:1: ac_value options {backtrack=true; } : ( expr | ac_implied_do );
public final void ac_value() throws RecognitionException {
try {
// FortranParser08.g:1461:2: ( expr | ac_implied_do )
int alt134=2;
int LA134_0 = input.LA(1);
if ( (LA134_0==BINARY_CONSTANT||LA134_0==HEX_CONSTANT||LA134_0==OCTAL_CONSTANT||LA134_0==T_CHAR_CONSTANT||(LA134_0 >= T_DEFINED_OP && LA134_0 <= T_DIGIT_STRING)||LA134_0==T_FALSE||(LA134_0 >= T_HOLLERITH && LA134_0 <= T_IDENT)||LA134_0==T_LBRACKET||LA134_0==T_MINUS||LA134_0==T_NOT||LA134_0==T_PLUS||LA134_0==T_REAL_CONSTANT||LA134_0==T_TRUE) ) {
alt134=1;
}
else if ( (LA134_0==T_LPAREN) ) {
int LA134_9 = input.LA(2);
if ( (synpred2_FortranParser08()) ) {
alt134=1;
}
else if ( (true) ) {
alt134=2;
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 134, 0, input);
throw nvae;
}
switch (alt134) {
case 1 :
// FortranParser08.g:1461:4: expr
{
pushFollow(FOLLOW_expr_in_ac_value6035);
expr();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:1462:4: ac_implied_do
{
pushFollow(FOLLOW_ac_implied_do_in_ac_value6040);
ac_implied_do();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.ac_value();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "ac_value"
// $ANTLR start "ac_value_list"
// FortranParser08.g:1465:1: ac_value_list : ac_value ( T_COMMA ac_value )* ;
public final void ac_value_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1467:5: ( ac_value ( T_COMMA ac_value )* )
// FortranParser08.g:1467:11: ac_value ( T_COMMA ac_value )*
{
if ( state.backtracking==0 ) {action.ac_value_list__begin();}
pushFollow(FOLLOW_ac_value_in_ac_value_list6073);
ac_value();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1468:28: ( T_COMMA ac_value )*
loop135:
while (true) {
int alt135=2;
int LA135_0 = input.LA(1);
if ( (LA135_0==T_COMMA) ) {
int LA135_2 = input.LA(2);
if ( (LA135_2==T_IDENT) ) {
int LA135_3 = input.LA(3);
if ( (LA135_3==EOF||LA135_3==T_AND||LA135_3==T_ASTERISK||LA135_3==T_CHAR_CONSTANT||LA135_3==T_COMMA||LA135_3==T_DEFINED_OP||LA135_3==T_EQ||(LA135_3 >= T_EQV && LA135_3 <= T_EQ_EQ)||LA135_3==T_GE||(LA135_3 >= T_GREATERTHAN && LA135_3 <= T_GT)||(LA135_3 >= T_LBRACKET && LA135_3 <= T_LE)||(LA135_3 >= T_LESSTHAN && LA135_3 <= T_LESSTHAN_EQ)||(LA135_3 >= T_LPAREN && LA135_3 <= T_LT)||LA135_3==T_MINUS||(LA135_3 >= T_NE && LA135_3 <= T_NEQV)||LA135_3==T_OR||LA135_3==T_PERCENT||LA135_3==T_PLUS||LA135_3==T_POWER||LA135_3==T_RBRACKET||(LA135_3 >= T_SLASH && LA135_3 <= T_SLASH_SLASH)) ) {
alt135=1;
}
}
else if ( (LA135_2==BINARY_CONSTANT||LA135_2==HEX_CONSTANT||LA135_2==OCTAL_CONSTANT||LA135_2==T_CHAR_CONSTANT||(LA135_2 >= T_DEFINED_OP && LA135_2 <= T_DIGIT_STRING)||LA135_2==T_FALSE||LA135_2==T_HOLLERITH||LA135_2==T_LBRACKET||LA135_2==T_LPAREN||LA135_2==T_MINUS||LA135_2==T_NOT||LA135_2==T_PLUS||LA135_2==T_REAL_CONSTANT||LA135_2==T_TRUE) ) {
alt135=1;
}
}
switch (alt135) {
case 1 :
// FortranParser08.g:1468:30: T_COMMA ac_value
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_ac_value_list6078); if (state.failed) return;
pushFollow(FOLLOW_ac_value_in_ac_value_list6080);
ac_value();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop135;
}
}
if ( state.backtracking==0 ) {action.ac_value_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "ac_value_list"
// $ANTLR start "ac_implied_do"
// FortranParser08.g:1473:1: ac_implied_do : T_LPAREN ac_value_list T_COMMA ac_implied_do_control T_RPAREN ;
public final void ac_implied_do() throws RecognitionException {
try {
// FortranParser08.g:1474:2: ( T_LPAREN ac_value_list T_COMMA ac_implied_do_control T_RPAREN )
// FortranParser08.g:1474:4: T_LPAREN ac_value_list T_COMMA ac_implied_do_control T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_ac_implied_do6111); if (state.failed) return;
pushFollow(FOLLOW_ac_value_list_in_ac_implied_do6113);
ac_value_list();
state._fsp--;
if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_ac_implied_do6115); if (state.failed) return;
pushFollow(FOLLOW_ac_implied_do_control_in_ac_implied_do6117);
ac_implied_do_control();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_ac_implied_do6119); if (state.failed) return;
if ( state.backtracking==0 ) {action.ac_implied_do();}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "ac_implied_do"
// $ANTLR start "ac_implied_do_control"
// FortranParser08.g:1481:1: ac_implied_do_control : do_variable T_EQUALS expr T_COMMA expr ( T_COMMA expr )? ;
public final void ac_implied_do_control() throws RecognitionException {
boolean hasStride=false;
try {
// FortranParser08.g:1483:5: ( do_variable T_EQUALS expr T_COMMA expr ( T_COMMA expr )? )
// FortranParser08.g:1483:10: do_variable T_EQUALS expr T_COMMA expr ( T_COMMA expr )?
{
pushFollow(FOLLOW_do_variable_in_ac_implied_do_control6148);
do_variable();
state._fsp--;
if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_ac_implied_do_control6150); if (state.failed) return;
pushFollow(FOLLOW_expr_in_ac_implied_do_control6152);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_ac_implied_do_control6154); if (state.failed) return;
pushFollow(FOLLOW_expr_in_ac_implied_do_control6156);
expr();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1483:49: ( T_COMMA expr )?
int alt136=2;
int LA136_0 = input.LA(1);
if ( (LA136_0==T_COMMA) ) {
alt136=1;
}
switch (alt136) {
case 1 :
// FortranParser08.g:1483:51: T_COMMA expr
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_ac_implied_do_control6160); if (state.failed) return;
pushFollow(FOLLOW_expr_in_ac_implied_do_control6162);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasStride=true;}
}
break;
}
if ( state.backtracking==0 ) {action.ac_implied_do_control(hasStride);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "ac_implied_do_control"
// $ANTLR start "scalar_int_variable"
// FortranParser08.g:1490:1: scalar_int_variable : variable ;
public final void scalar_int_variable() throws RecognitionException {
try {
// FortranParser08.g:1491:5: ( variable )
// FortranParser08.g:1491:9: variable
{
pushFollow(FOLLOW_variable_in_scalar_int_variable6193);
variable();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.scalar_int_variable(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "scalar_int_variable"
// $ANTLR start "declaration_type_spec"
// FortranParser08.g:1512:1: declaration_type_spec : ( intrinsic_type_spec | T_TYPE T_LPAREN derived_type_spec T_RPAREN | T_CLASS T_LPAREN derived_type_spec T_RPAREN | T_CLASS T_LPAREN T_ASTERISK T_RPAREN );
public final void declaration_type_spec() throws RecognitionException {
Token T_TYPE145=null;
Token T_CLASS146=null;
Token T_CLASS147=null;
try {
// FortranParser08.g:1513:2: ( intrinsic_type_spec | T_TYPE T_LPAREN derived_type_spec T_RPAREN | T_CLASS T_LPAREN derived_type_spec T_RPAREN | T_CLASS T_LPAREN T_ASTERISK T_RPAREN )
int alt140=4;
switch ( input.LA(1) ) {
case T_CHARACTER:
case T_COMPLEX:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
{
alt140=1;
}
break;
case T_TYPE:
{
alt140=2;
}
break;
case T_CLASS:
{
int LA140_3 = input.LA(2);
if ( (LA140_3==T_LPAREN) ) {
int LA140_4 = input.LA(3);
if ( (LA140_4==T_ASTERISK) ) {
alt140=4;
}
else if ( (LA140_4==T_IDENT) ) {
alt140=3;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 140, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 140, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 140, 0, input);
throw nvae;
}
switch (alt140) {
case 1 :
// FortranParser08.g:1513:4: intrinsic_type_spec
{
pushFollow(FOLLOW_intrinsic_type_spec_in_declaration_type_spec6308);
intrinsic_type_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.declaration_type_spec(null,
IActionEnums.DeclarationTypeSpec_INTRINSIC); }
}
break;
case 2 :
// FortranParser08.g:1516:4: T_TYPE T_LPAREN derived_type_spec T_RPAREN
{
T_TYPE145=(Token)match(input,T_TYPE,FOLLOW_T_TYPE_in_declaration_type_spec6318); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_declaration_type_spec6320); if (state.failed) return;
pushFollow(FOLLOW_derived_type_spec_in_declaration_type_spec6322);
derived_type_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_declaration_type_spec6324); if (state.failed) return;
if ( state.backtracking==0 ) { action.declaration_type_spec(T_TYPE145,
IActionEnums.DeclarationTypeSpec_TYPE); }
}
break;
case 3 :
// FortranParser08.g:1519:4: T_CLASS T_LPAREN derived_type_spec T_RPAREN
{
T_CLASS146=(Token)match(input,T_CLASS,FOLLOW_T_CLASS_in_declaration_type_spec6334); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_declaration_type_spec6336); if (state.failed) return;
pushFollow(FOLLOW_derived_type_spec_in_declaration_type_spec6338);
derived_type_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_declaration_type_spec6340); if (state.failed) return;
if ( state.backtracking==0 ) { action.declaration_type_spec(T_CLASS146,
IActionEnums.DeclarationTypeSpec_CLASS); }
}
break;
case 4 :
// FortranParser08.g:1522:4: T_CLASS T_LPAREN T_ASTERISK T_RPAREN
{
T_CLASS147=(Token)match(input,T_CLASS,FOLLOW_T_CLASS_in_declaration_type_spec6350); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_declaration_type_spec6352); if (state.failed) return;
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_declaration_type_spec6354); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_declaration_type_spec6356); if (state.failed) return;
if ( state.backtracking==0 ) { action.declaration_type_spec(T_CLASS147,
IActionEnums.DeclarationTypeSpec_unlimited); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "declaration_type_spec"
// $ANTLR start "attr_spec"
// FortranParser08.g:1553:1: attr_spec : ( access_spec | T_ALLOCATABLE | T_ASYNCHRONOUS | T_CODIMENSION T_LBRACKET coarray_spec T_RBRACKET | T_CONTIGUOUS | T_DIMENSION T_LPAREN array_spec T_RPAREN | T_EXTERNAL | T_INTENT T_LPAREN intent_spec T_RPAREN | T_INTRINSIC | language_binding_spec | T_OPTIONAL | T_PARAMETER | T_POINTER | T_PROTECTED | T_SAVE | T_TARGET | T_VALUE | T_VOLATILE | T_KIND | T_LEN | attr_spec_extension );
public final void attr_spec() throws RecognitionException {
Token T_ALLOCATABLE148=null;
Token T_ASYNCHRONOUS149=null;
Token T_CODIMENSION150=null;
Token T_CONTIGUOUS151=null;
Token T_DIMENSION152=null;
Token T_EXTERNAL153=null;
Token T_INTENT154=null;
Token T_INTRINSIC155=null;
Token T_OPTIONAL156=null;
Token T_PARAMETER157=null;
Token T_POINTER158=null;
Token T_PROTECTED159=null;
Token T_SAVE160=null;
Token T_TARGET161=null;
Token T_VALUE162=null;
Token T_VOLATILE163=null;
Token T_KIND164=null;
Token T_LEN165=null;
try {
// FortranParser08.g:1554:4: ( access_spec | T_ALLOCATABLE | T_ASYNCHRONOUS | T_CODIMENSION T_LBRACKET coarray_spec T_RBRACKET | T_CONTIGUOUS | T_DIMENSION T_LPAREN array_spec T_RPAREN | T_EXTERNAL | T_INTENT T_LPAREN intent_spec T_RPAREN | T_INTRINSIC | language_binding_spec | T_OPTIONAL | T_PARAMETER | T_POINTER | T_PROTECTED | T_SAVE | T_TARGET | T_VALUE | T_VOLATILE | T_KIND | T_LEN | attr_spec_extension )
int alt141=21;
switch ( input.LA(1) ) {
case T_PRIVATE:
case T_PUBLIC:
{
alt141=1;
}
break;
case T_ALLOCATABLE:
{
alt141=2;
}
break;
case T_ASYNCHRONOUS:
{
alt141=3;
}
break;
case T_CODIMENSION:
{
alt141=4;
}
break;
case T_CONTIGUOUS:
{
alt141=5;
}
break;
case T_DIMENSION:
{
alt141=6;
}
break;
case T_EXTERNAL:
{
alt141=7;
}
break;
case T_INTENT:
{
alt141=8;
}
break;
case T_INTRINSIC:
{
alt141=9;
}
break;
case T_BIND:
{
alt141=10;
}
break;
case T_OPTIONAL:
{
alt141=11;
}
break;
case T_PARAMETER:
{
alt141=12;
}
break;
case T_POINTER:
{
alt141=13;
}
break;
case T_PROTECTED:
{
alt141=14;
}
break;
case T_SAVE:
{
alt141=15;
}
break;
case T_TARGET:
{
alt141=16;
}
break;
case T_VALUE:
{
alt141=17;
}
break;
case T_VOLATILE:
{
alt141=18;
}
break;
case T_KIND:
{
alt141=19;
}
break;
case T_LEN:
{
alt141=20;
}
break;
case T_NO_LANGUAGE_EXTENSION:
{
alt141=21;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 141, 0, input);
throw nvae;
}
switch (alt141) {
case 1 :
// FortranParser08.g:1554:8: access_spec
{
pushFollow(FOLLOW_access_spec_in_attr_spec6383);
access_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(null, IActionEnums.AttrSpec_access);}
}
break;
case 2 :
// FortranParser08.g:1556:8: T_ALLOCATABLE
{
T_ALLOCATABLE148=(Token)match(input,T_ALLOCATABLE,FOLLOW_T_ALLOCATABLE_in_attr_spec6405); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_ALLOCATABLE148, IActionEnums.AttrSpec_ALLOCATABLE);}
}
break;
case 3 :
// FortranParser08.g:1558:8: T_ASYNCHRONOUS
{
T_ASYNCHRONOUS149=(Token)match(input,T_ASYNCHRONOUS,FOLLOW_T_ASYNCHRONOUS_in_attr_spec6427); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_ASYNCHRONOUS149, IActionEnums.AttrSpec_ASYNCHRONOUS);}
}
break;
case 4 :
// FortranParser08.g:1560:8: T_CODIMENSION T_LBRACKET coarray_spec T_RBRACKET
{
T_CODIMENSION150=(Token)match(input,T_CODIMENSION,FOLLOW_T_CODIMENSION_in_attr_spec6449); if (state.failed) return;
match(input,T_LBRACKET,FOLLOW_T_LBRACKET_in_attr_spec6451); if (state.failed) return;
pushFollow(FOLLOW_coarray_spec_in_attr_spec6453);
coarray_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RBRACKET,FOLLOW_T_RBRACKET_in_attr_spec6455); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_CODIMENSION150, IActionEnums.AttrSpec_CODIMENSION);}
}
break;
case 5 :
// FortranParser08.g:1562:8: T_CONTIGUOUS
{
T_CONTIGUOUS151=(Token)match(input,T_CONTIGUOUS,FOLLOW_T_CONTIGUOUS_in_attr_spec6479); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_CONTIGUOUS151, IActionEnums.AttrSpec_CONTIGUOUS);}
}
break;
case 6 :
// FortranParser08.g:1564:8: T_DIMENSION T_LPAREN array_spec T_RPAREN
{
T_DIMENSION152=(Token)match(input,T_DIMENSION,FOLLOW_T_DIMENSION_in_attr_spec6539); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_attr_spec6541); if (state.failed) return;
pushFollow(FOLLOW_array_spec_in_attr_spec6543);
array_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_attr_spec6545); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_DIMENSION152, IActionEnums.AttrSpec_DIMENSION);}
}
break;
case 7 :
// FortranParser08.g:1566:8: T_EXTERNAL
{
T_EXTERNAL153=(Token)match(input,T_EXTERNAL,FOLLOW_T_EXTERNAL_in_attr_spec6567); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_EXTERNAL153, IActionEnums.AttrSpec_EXTERNAL);}
}
break;
case 8 :
// FortranParser08.g:1568:8: T_INTENT T_LPAREN intent_spec T_RPAREN
{
T_INTENT154=(Token)match(input,T_INTENT,FOLLOW_T_INTENT_in_attr_spec6589); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_attr_spec6591); if (state.failed) return;
pushFollow(FOLLOW_intent_spec_in_attr_spec6593);
intent_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_attr_spec6595); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_INTENT154, IActionEnums.AttrSpec_INTENT);}
}
break;
case 9 :
// FortranParser08.g:1570:8: T_INTRINSIC
{
T_INTRINSIC155=(Token)match(input,T_INTRINSIC,FOLLOW_T_INTRINSIC_in_attr_spec6617); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_INTRINSIC155, IActionEnums.AttrSpec_INTRINSIC);}
}
break;
case 10 :
// FortranParser08.g:1572:8: language_binding_spec
{
pushFollow(FOLLOW_language_binding_spec_in_attr_spec6639);
language_binding_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(null, IActionEnums.AttrSpec_language_binding);}
}
break;
case 11 :
// FortranParser08.g:1574:8: T_OPTIONAL
{
T_OPTIONAL156=(Token)match(input,T_OPTIONAL,FOLLOW_T_OPTIONAL_in_attr_spec6663); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_OPTIONAL156, IActionEnums.AttrSpec_OPTIONAL);}
}
break;
case 12 :
// FortranParser08.g:1576:8: T_PARAMETER
{
T_PARAMETER157=(Token)match(input,T_PARAMETER,FOLLOW_T_PARAMETER_in_attr_spec6685); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_PARAMETER157, IActionEnums.AttrSpec_PARAMETER);}
}
break;
case 13 :
// FortranParser08.g:1578:8: T_POINTER
{
T_POINTER158=(Token)match(input,T_POINTER,FOLLOW_T_POINTER_in_attr_spec6707); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_POINTER158, IActionEnums.AttrSpec_POINTER);}
}
break;
case 14 :
// FortranParser08.g:1580:8: T_PROTECTED
{
T_PROTECTED159=(Token)match(input,T_PROTECTED,FOLLOW_T_PROTECTED_in_attr_spec6729); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_PROTECTED159, IActionEnums.AttrSpec_PROTECTED);}
}
break;
case 15 :
// FortranParser08.g:1582:8: T_SAVE
{
T_SAVE160=(Token)match(input,T_SAVE,FOLLOW_T_SAVE_in_attr_spec6751); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_SAVE160, IActionEnums.AttrSpec_SAVE);}
}
break;
case 16 :
// FortranParser08.g:1584:8: T_TARGET
{
T_TARGET161=(Token)match(input,T_TARGET,FOLLOW_T_TARGET_in_attr_spec6773); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_TARGET161, IActionEnums.AttrSpec_TARGET);}
}
break;
case 17 :
// FortranParser08.g:1586:8: T_VALUE
{
T_VALUE162=(Token)match(input,T_VALUE,FOLLOW_T_VALUE_in_attr_spec6795); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_VALUE162, IActionEnums.AttrSpec_VALUE);}
}
break;
case 18 :
// FortranParser08.g:1588:8: T_VOLATILE
{
T_VOLATILE163=(Token)match(input,T_VOLATILE,FOLLOW_T_VOLATILE_in_attr_spec6817); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_VOLATILE163, IActionEnums.AttrSpec_VOLATILE);}
}
break;
case 19 :
// FortranParser08.g:1591:9: T_KIND
{
T_KIND164=(Token)match(input,T_KIND,FOLLOW_T_KIND_in_attr_spec6841); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_KIND164, IActionEnums.AttrSpec_KIND);}
}
break;
case 20 :
// FortranParser08.g:1593:9: T_LEN
{
T_LEN165=(Token)match(input,T_LEN,FOLLOW_T_LEN_in_attr_spec6864); if (state.failed) return;
if ( state.backtracking==0 ) {action.attr_spec(T_LEN165, IActionEnums.AttrSpec_LEN);}
}
break;
case 21 :
// FortranParser08.g:1595:9: attr_spec_extension
{
pushFollow(FOLLOW_attr_spec_extension_in_attr_spec6887);
attr_spec_extension();
state._fsp--;
if (state.failed) return;
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "attr_spec"
// $ANTLR start "attr_spec_extension"
// FortranParser08.g:1599:1: attr_spec_extension : T_NO_LANGUAGE_EXTENSION ;
public final void attr_spec_extension() throws RecognitionException {
try {
// FortranParser08.g:1599:21: ( T_NO_LANGUAGE_EXTENSION )
// FortranParser08.g:1599:23: T_NO_LANGUAGE_EXTENSION
{
match(input,T_NO_LANGUAGE_EXTENSION,FOLLOW_T_NO_LANGUAGE_EXTENSION_in_attr_spec_extension6899); if (state.failed) return;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "attr_spec_extension"
// $ANTLR start "entity_decl"
// FortranParser08.g:1616:1: entity_decl : T_IDENT ( T_LPAREN array_spec T_RPAREN )? ( T_LBRACKET coarray_spec T_RBRACKET )? ( T_ASTERISK char_length )? ( initialization )? ;
public final void entity_decl() throws RecognitionException {
Token T_IDENT166=null;
boolean hasArraySpec=false;
boolean hasCoarraySpec=false;
boolean hasCharLength=false;
boolean hasInitialization=false;
try {
// FortranParser08.g:1623:4: ( T_IDENT ( T_LPAREN array_spec T_RPAREN )? ( T_LBRACKET coarray_spec T_RBRACKET )? ( T_ASTERISK char_length )? ( initialization )? )
// FortranParser08.g:1623:8: T_IDENT ( T_LPAREN array_spec T_RPAREN )? ( T_LBRACKET coarray_spec T_RBRACKET )? ( T_ASTERISK char_length )? ( initialization )?
{
T_IDENT166=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_entity_decl6927); if (state.failed) return;
// FortranParser08.g:1623:16: ( T_LPAREN array_spec T_RPAREN )?
int alt142=2;
int LA142_0 = input.LA(1);
if ( (LA142_0==T_LPAREN) ) {
alt142=1;
}
switch (alt142) {
case 1 :
// FortranParser08.g:1623:18: T_LPAREN array_spec T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_entity_decl6931); if (state.failed) return;
pushFollow(FOLLOW_array_spec_in_entity_decl6933);
array_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_entity_decl6935); if (state.failed) return;
if ( state.backtracking==0 ) {hasArraySpec=true;}
}
break;
}
// FortranParser08.g:1624:16: ( T_LBRACKET coarray_spec T_RBRACKET )?
int alt143=2;
int LA143_0 = input.LA(1);
if ( (LA143_0==T_LBRACKET) ) {
alt143=1;
}
switch (alt143) {
case 1 :
// FortranParser08.g:1624:18: T_LBRACKET coarray_spec T_RBRACKET
{
match(input,T_LBRACKET,FOLLOW_T_LBRACKET_in_entity_decl6959); if (state.failed) return;
pushFollow(FOLLOW_coarray_spec_in_entity_decl6961);
coarray_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RBRACKET,FOLLOW_T_RBRACKET_in_entity_decl6963); if (state.failed) return;
if ( state.backtracking==0 ) {hasCoarraySpec=true;}
}
break;
}
// FortranParser08.g:1625:16: ( T_ASTERISK char_length )?
int alt144=2;
int LA144_0 = input.LA(1);
if ( (LA144_0==T_ASTERISK) ) {
alt144=1;
}
switch (alt144) {
case 1 :
// FortranParser08.g:1625:18: T_ASTERISK char_length
{
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_entity_decl6987); if (state.failed) return;
pushFollow(FOLLOW_char_length_in_entity_decl6989);
char_length();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasCharLength=true;}
}
break;
}
// FortranParser08.g:1626:16: ( initialization )?
int alt145=2;
int LA145_0 = input.LA(1);
if ( (LA145_0==T_EQUALS||LA145_0==T_EQ_GT) ) {
alt145=1;
}
switch (alt145) {
case 1 :
// FortranParser08.g:1626:18: initialization
{
pushFollow(FOLLOW_initialization_in_entity_decl7013);
initialization();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasInitialization=true;}
}
break;
}
if ( state.backtracking==0 ) {
action.entity_decl(T_IDENT166, hasArraySpec,
hasCoarraySpec, hasCharLength, hasInitialization);
}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "entity_decl"
// $ANTLR start "entity_decl_list"
// FortranParser08.g:1633:1: entity_decl_list : entity_decl ( T_COMMA entity_decl )* ;
public final void entity_decl_list() throws RecognitionException {
int count = 0;
try {
// FortranParser08.g:1635:5: ( entity_decl ( T_COMMA entity_decl )* )
// FortranParser08.g:1635:8: entity_decl ( T_COMMA entity_decl )*
{
if ( state.backtracking==0 ) {action.entity_decl_list__begin();}
pushFollow(FOLLOW_entity_decl_in_entity_decl_list7058);
entity_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count += 1;}
// FortranParser08.g:1636:32: ( T_COMMA entity_decl )*
loop146:
while (true) {
int alt146=2;
int LA146_0 = input.LA(1);
if ( (LA146_0==T_COMMA) ) {
alt146=1;
}
switch (alt146) {
case 1 :
// FortranParser08.g:1636:34: T_COMMA entity_decl
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_entity_decl_list7064); if (state.failed) return;
pushFollow(FOLLOW_entity_decl_in_entity_decl_list7066);
entity_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count += 1;}
}
break;
default :
break loop146;
}
}
if ( state.backtracking==0 ) {action.entity_decl_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "entity_decl_list"
// $ANTLR start "object_name"
// FortranParser08.g:1648:1: object_name returns [Token tk] : T_IDENT ;
public final Token object_name() throws RecognitionException {
Token tk = null;
Token T_IDENT167=null;
try {
// FortranParser08.g:1649:4: ( T_IDENT )
// FortranParser08.g:1649:8: T_IDENT
{
T_IDENT167=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_object_name7107); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk = T_IDENT167;}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "object_name"
// $ANTLR start "initialization"
// FortranParser08.g:1654:1: initialization : ( T_EQUALS expr | T_EQ_GT null_init );
public final void initialization() throws RecognitionException {
try {
// FortranParser08.g:1655:2: ( T_EQUALS expr | T_EQ_GT null_init )
int alt147=2;
int LA147_0 = input.LA(1);
if ( (LA147_0==T_EQUALS) ) {
alt147=1;
}
else if ( (LA147_0==T_EQ_GT) ) {
alt147=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 147, 0, input);
throw nvae;
}
switch (alt147) {
case 1 :
// FortranParser08.g:1655:4: T_EQUALS expr
{
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_initialization7126); if (state.failed) return;
pushFollow(FOLLOW_expr_in_initialization7128);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.initialization(true, false); }
}
break;
case 2 :
// FortranParser08.g:1656:4: T_EQ_GT null_init
{
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_initialization7136); if (state.failed) return;
pushFollow(FOLLOW_null_init_in_initialization7138);
null_init();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.initialization(false, true); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "initialization"
// $ANTLR start "null_init"
// FortranParser08.g:1662:1: null_init : T_IDENT T_LPAREN T_RPAREN ;
public final void null_init() throws RecognitionException {
Token T_IDENT168=null;
try {
// FortranParser08.g:1663:2: ( T_IDENT T_LPAREN T_RPAREN )
// FortranParser08.g:1663:4: T_IDENT T_LPAREN T_RPAREN
{
T_IDENT168=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_null_init7154); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_null_init7158); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_null_init7160); if (state.failed) return;
if ( state.backtracking==0 ) { action.null_init(T_IDENT168); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "null_init"
// $ANTLR start "coarray_spec"
// FortranParser08.g:1682:1: coarray_spec : array_spec_element ( T_COMMA array_spec_element )* ;
public final void coarray_spec() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1684:4: ( array_spec_element ( T_COMMA array_spec_element )* )
// FortranParser08.g:1684:8: array_spec_element ( T_COMMA array_spec_element )*
{
pushFollow(FOLLOW_array_spec_element_in_coarray_spec7196);
array_spec_element();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1684:38: ( T_COMMA array_spec_element )*
loop148:
while (true) {
int alt148=2;
int LA148_0 = input.LA(1);
if ( (LA148_0==T_COMMA) ) {
alt148=1;
}
switch (alt148) {
case 1 :
// FortranParser08.g:1684:39: T_COMMA array_spec_element
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_coarray_spec7201); if (state.failed) return;
pushFollow(FOLLOW_array_spec_element_in_coarray_spec7203);
array_spec_element();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop148;
}
}
if ( state.backtracking==0 ) {action.coarray_spec(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "coarray_spec"
// $ANTLR start "access_spec"
// FortranParser08.g:1689:1: access_spec : ( T_PUBLIC | T_PRIVATE );
public final void access_spec() throws RecognitionException {
Token T_PUBLIC169=null;
Token T_PRIVATE170=null;
try {
// FortranParser08.g:1690:2: ( T_PUBLIC | T_PRIVATE )
int alt149=2;
int LA149_0 = input.LA(1);
if ( (LA149_0==T_PUBLIC) ) {
alt149=1;
}
else if ( (LA149_0==T_PRIVATE) ) {
alt149=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 149, 0, input);
throw nvae;
}
switch (alt149) {
case 1 :
// FortranParser08.g:1690:4: T_PUBLIC
{
T_PUBLIC169=(Token)match(input,T_PUBLIC,FOLLOW_T_PUBLIC_in_access_spec7234); if (state.failed) return;
if ( state.backtracking==0 ) {action.access_spec(T_PUBLIC169, IActionEnums.AttrSpec_PUBLIC);}
}
break;
case 2 :
// FortranParser08.g:1692:4: T_PRIVATE
{
T_PRIVATE170=(Token)match(input,T_PRIVATE,FOLLOW_T_PRIVATE_in_access_spec7244); if (state.failed) return;
if ( state.backtracking==0 ) {action.access_spec(T_PRIVATE170, IActionEnums.AttrSpec_PRIVATE);}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "access_spec"
// $ANTLR start "language_binding_spec"
// FortranParser08.g:1698:1: language_binding_spec : T_BIND T_LPAREN T_IDENT ( T_COMMA name T_EQUALS expr )? T_RPAREN ;
public final void language_binding_spec() throws RecognitionException {
Token T_BIND171=null;
Token T_IDENT172=null;
boolean hasName = false;
try {
// FortranParser08.g:1700:5: ( T_BIND T_LPAREN T_IDENT ( T_COMMA name T_EQUALS expr )? T_RPAREN )
// FortranParser08.g:1700:7: T_BIND T_LPAREN T_IDENT ( T_COMMA name T_EQUALS expr )? T_RPAREN
{
T_BIND171=(Token)match(input,T_BIND,FOLLOW_T_BIND_in_language_binding_spec7269); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_language_binding_spec7271); if (state.failed) return;
T_IDENT172=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_language_binding_spec7273); if (state.failed) return;
// FortranParser08.g:1701:13: ( T_COMMA name T_EQUALS expr )?
int alt150=2;
int LA150_0 = input.LA(1);
if ( (LA150_0==T_COMMA) ) {
alt150=1;
}
switch (alt150) {
case 1 :
// FortranParser08.g:1701:14: T_COMMA name T_EQUALS expr
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_language_binding_spec7291); if (state.failed) return;
pushFollow(FOLLOW_name_in_language_binding_spec7293);
name();
state._fsp--;
if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_language_binding_spec7295); if (state.failed) return;
pushFollow(FOLLOW_expr_in_language_binding_spec7297);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasName=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_language_binding_spec7303); if (state.failed) return;
if ( state.backtracking==0 ) { action.language_binding_spec(T_BIND171, T_IDENT172, hasName); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "language_binding_spec"
// $ANTLR start "array_spec"
// FortranParser08.g:1706:1: array_spec : array_spec_element ( T_COMMA array_spec_element )* ;
public final void array_spec() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1708:2: ( array_spec_element ( T_COMMA array_spec_element )* )
// FortranParser08.g:1708:4: array_spec_element ( T_COMMA array_spec_element )*
{
pushFollow(FOLLOW_array_spec_element_in_array_spec7330);
array_spec_element();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1709:3: ( T_COMMA array_spec_element )*
loop151:
while (true) {
int alt151=2;
int LA151_0 = input.LA(1);
if ( (LA151_0==T_COMMA) ) {
alt151=1;
}
switch (alt151) {
case 1 :
// FortranParser08.g:1709:4: T_COMMA array_spec_element
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_array_spec7337); if (state.failed) return;
pushFollow(FOLLOW_array_spec_element_in_array_spec7339);
array_spec_element();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop151;
}
}
if ( state.backtracking==0 ) {action.array_spec(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "array_spec"
// $ANTLR start "array_spec_element"
// FortranParser08.g:1721:1: array_spec_element : ( expr ( T_COLON ( expr | T_ASTERISK )? )? | T_ASTERISK | T_COLON );
public final void array_spec_element() throws RecognitionException {
int type=IActionEnums.ArraySpecElement_expr;
try {
// FortranParser08.g:1723:2: ( expr ( T_COLON ( expr | T_ASTERISK )? )? | T_ASTERISK | T_COLON )
int alt154=3;
switch ( input.LA(1) ) {
case BINARY_CONSTANT:
case HEX_CONSTANT:
case OCTAL_CONSTANT:
case T_CHAR_CONSTANT:
case T_DEFINED_OP:
case T_DIGIT_STRING:
case T_FALSE:
case T_HOLLERITH:
case T_IDENT:
case T_LBRACKET:
case T_LPAREN:
case T_MINUS:
case T_NOT:
case T_PLUS:
case T_REAL_CONSTANT:
case T_TRUE:
{
alt154=1;
}
break;
case T_ASTERISK:
{
alt154=2;
}
break;
case T_COLON:
{
alt154=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 154, 0, input);
throw nvae;
}
switch (alt154) {
case 1 :
// FortranParser08.g:1723:6: expr ( T_COLON ( expr | T_ASTERISK )? )?
{
pushFollow(FOLLOW_expr_in_array_spec_element7373);
expr();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1723:11: ( T_COLON ( expr | T_ASTERISK )? )?
int alt153=2;
int LA153_0 = input.LA(1);
if ( (LA153_0==T_COLON) ) {
alt153=1;
}
switch (alt153) {
case 1 :
// FortranParser08.g:1723:13: T_COLON ( expr | T_ASTERISK )?
{
match(input,T_COLON,FOLLOW_T_COLON_in_array_spec_element7377); if (state.failed) return;
if ( state.backtracking==0 ) {type=IActionEnums.ArraySpecElement_expr_colon;}
// FortranParser08.g:1724:10: ( expr | T_ASTERISK )?
int alt152=3;
int LA152_0 = input.LA(1);
if ( (LA152_0==BINARY_CONSTANT||LA152_0==HEX_CONSTANT||LA152_0==OCTAL_CONSTANT||LA152_0==T_CHAR_CONSTANT||(LA152_0 >= T_DEFINED_OP && LA152_0 <= T_DIGIT_STRING)||LA152_0==T_FALSE||(LA152_0 >= T_HOLLERITH && LA152_0 <= T_IDENT)||LA152_0==T_LBRACKET||LA152_0==T_LPAREN||LA152_0==T_MINUS||LA152_0==T_NOT||LA152_0==T_PLUS||LA152_0==T_REAL_CONSTANT||LA152_0==T_TRUE) ) {
alt152=1;
}
else if ( (LA152_0==T_ASTERISK) ) {
alt152=2;
}
switch (alt152) {
case 1 :
// FortranParser08.g:1724:13: expr
{
pushFollow(FOLLOW_expr_in_array_spec_element7393);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {type=IActionEnums.ArraySpecElement_expr_colon_expr;}
}
break;
case 2 :
// FortranParser08.g:1725:13: T_ASTERISK
{
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_array_spec_element7409); if (state.failed) return;
if ( state.backtracking==0 ) {type=IActionEnums.ArraySpecElement_expr_colon_asterisk;}
}
break;
}
}
break;
}
if ( state.backtracking==0 ) { action.array_spec_element(type); }
}
break;
case 2 :
// FortranParser08.g:1729:6: T_ASTERISK
{
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_array_spec_element7456); if (state.failed) return;
if ( state.backtracking==0 ) { action.array_spec_element(IActionEnums.
ArraySpecElement_asterisk); }
}
break;
case 3 :
// FortranParser08.g:1732:4: T_COLON
{
match(input,T_COLON,FOLLOW_T_COLON_in_array_spec_element7466); if (state.failed) return;
if ( state.backtracking==0 ) { action.array_spec_element(IActionEnums.ArraySpecElement_colon); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "array_spec_element"
// $ANTLR start "explicit_shape_spec"
// FortranParser08.g:1739:1: explicit_shape_spec : expr ( T_COLON expr )? ;
public final void explicit_shape_spec() throws RecognitionException {
boolean hasUpperBound=false;
try {
// FortranParser08.g:1741:5: ( expr ( T_COLON expr )? )
// FortranParser08.g:1741:8: expr ( T_COLON expr )?
{
pushFollow(FOLLOW_expr_in_explicit_shape_spec7493);
expr();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1741:13: ( T_COLON expr )?
int alt155=2;
int LA155_0 = input.LA(1);
if ( (LA155_0==T_COLON) ) {
alt155=1;
}
switch (alt155) {
case 1 :
// FortranParser08.g:1741:14: T_COLON expr
{
match(input,T_COLON,FOLLOW_T_COLON_in_explicit_shape_spec7496); if (state.failed) return;
pushFollow(FOLLOW_expr_in_explicit_shape_spec7498);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasUpperBound=true;}
}
break;
}
if ( state.backtracking==0 ) {action.explicit_shape_spec(hasUpperBound);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "explicit_shape_spec"
// $ANTLR start "explicit_shape_spec_list"
// FortranParser08.g:1745:1: explicit_shape_spec_list : explicit_shape_spec ( T_COMMA explicit_shape_spec )* ;
public final void explicit_shape_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1747:2: ( explicit_shape_spec ( T_COMMA explicit_shape_spec )* )
// FortranParser08.g:1747:5: explicit_shape_spec ( T_COMMA explicit_shape_spec )*
{
if ( state.backtracking==0 ) {action.explicit_shape_spec_list__begin();}
pushFollow(FOLLOW_explicit_shape_spec_in_explicit_shape_spec_list7531);
explicit_shape_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1749:13: ( T_COMMA explicit_shape_spec )*
loop156:
while (true) {
int alt156=2;
int LA156_0 = input.LA(1);
if ( (LA156_0==T_COMMA) ) {
alt156=1;
}
switch (alt156) {
case 1 :
// FortranParser08.g:1749:15: T_COMMA explicit_shape_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_explicit_shape_spec_list7550); if (state.failed) return;
pushFollow(FOLLOW_explicit_shape_spec_in_explicit_shape_spec_list7552);
explicit_shape_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop156;
}
}
if ( state.backtracking==0 ) {action.explicit_shape_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "explicit_shape_spec_list"
// $ANTLR start "intent_spec"
// FortranParser08.g:1765:1: intent_spec : ( T_IN | T_OUT | T_IN T_OUT | T_INOUT );
public final void intent_spec() throws RecognitionException {
Token T_IN173=null;
Token T_OUT174=null;
Token T_IN175=null;
Token T_OUT176=null;
Token T_INOUT177=null;
try {
// FortranParser08.g:1766:2: ( T_IN | T_OUT | T_IN T_OUT | T_INOUT )
int alt157=4;
switch ( input.LA(1) ) {
case T_IN:
{
int LA157_1 = input.LA(2);
if ( (LA157_1==T_OUT) ) {
alt157=3;
}
else if ( (LA157_1==T_RPAREN) ) {
alt157=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 157, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_OUT:
{
alt157=2;
}
break;
case T_INOUT:
{
alt157=4;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 157, 0, input);
throw nvae;
}
switch (alt157) {
case 1 :
// FortranParser08.g:1766:4: T_IN
{
T_IN173=(Token)match(input,T_IN,FOLLOW_T_IN_in_intent_spec7587); if (state.failed) return;
if ( state.backtracking==0 ) { action.intent_spec(T_IN173, null,
IActionEnums.IntentSpec_IN); }
}
break;
case 2 :
// FortranParser08.g:1768:4: T_OUT
{
T_OUT174=(Token)match(input,T_OUT,FOLLOW_T_OUT_in_intent_spec7595); if (state.failed) return;
if ( state.backtracking==0 ) { action.intent_spec(T_OUT174, null,
IActionEnums.IntentSpec_OUT); }
}
break;
case 3 :
// FortranParser08.g:1770:4: T_IN T_OUT
{
T_IN175=(Token)match(input,T_IN,FOLLOW_T_IN_in_intent_spec7603); if (state.failed) return;
T_OUT176=(Token)match(input,T_OUT,FOLLOW_T_OUT_in_intent_spec7605); if (state.failed) return;
if ( state.backtracking==0 ) { action.intent_spec(T_IN175, T_OUT176,
IActionEnums.IntentSpec_INOUT); }
}
break;
case 4 :
// FortranParser08.g:1772:4: T_INOUT
{
T_INOUT177=(Token)match(input,T_INOUT,FOLLOW_T_INOUT_in_intent_spec7612); if (state.failed) return;
if ( state.backtracking==0 ) { action.intent_spec(T_INOUT177, null,
IActionEnums.IntentSpec_INOUT); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "intent_spec"
// $ANTLR start "access_stmt"
// FortranParser08.g:1777:1: access_stmt : ( label )? access_spec ( ( T_COLON_COLON )? access_id_list )? end_of_stmt ;
public final void access_stmt() throws RecognitionException {
Token label178 =null;
Token end_of_stmt179 =null;
Token lbl = null;boolean hasList=false;
try {
// FortranParser08.g:1780:5: ( ( label )? access_spec ( ( T_COLON_COLON )? access_id_list )? end_of_stmt )
// FortranParser08.g:1780:10: ( label )? access_spec ( ( T_COLON_COLON )? access_id_list )? end_of_stmt
{
// FortranParser08.g:1780:10: ( label )?
int alt158=2;
int LA158_0 = input.LA(1);
if ( (LA158_0==T_DIGIT_STRING) ) {
alt158=1;
}
switch (alt158) {
case 1 :
// FortranParser08.g:1780:11: label
{
pushFollow(FOLLOW_label_in_access_stmt7643);
label178=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label178;}
}
break;
}
pushFollow(FOLLOW_access_spec_in_access_stmt7649);
access_spec();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1780:48: ( ( T_COLON_COLON )? access_id_list )?
int alt160=2;
int LA160_0 = input.LA(1);
if ( (LA160_0==T_ASSIGNMENT||LA160_0==T_COLON_COLON||LA160_0==T_IDENT||LA160_0==T_OPERATOR||LA160_0==T_READ||LA160_0==T_WRITE) ) {
alt160=1;
}
switch (alt160) {
case 1 :
// FortranParser08.g:1780:50: ( T_COLON_COLON )? access_id_list
{
// FortranParser08.g:1780:50: ( T_COLON_COLON )?
int alt159=2;
int LA159_0 = input.LA(1);
if ( (LA159_0==T_COLON_COLON) ) {
alt159=1;
}
switch (alt159) {
case 1 :
// FortranParser08.g:1780:52: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_access_stmt7655); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_access_id_list_in_access_stmt7673);
access_id_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasList=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_access_stmt7679);
end_of_stmt179=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.access_stmt(lbl,end_of_stmt179,hasList); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "access_stmt"
// $ANTLR start "access_id"
// FortranParser08.g:1789:1: access_id : generic_spec ;
public final void access_id() throws RecognitionException {
try {
// FortranParser08.g:1790:2: ( generic_spec )
// FortranParser08.g:1790:4: generic_spec
{
pushFollow(FOLLOW_generic_spec_in_access_id7702);
generic_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.access_id(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "access_id"
// $ANTLR start "access_id_list"
// FortranParser08.g:1794:1: access_id_list : access_id ( T_COMMA access_id )* ;
public final void access_id_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1796:5: ( access_id ( T_COMMA access_id )* )
// FortranParser08.g:1796:10: access_id ( T_COMMA access_id )*
{
if ( state.backtracking==0 ) {action.access_id_list__begin();}
pushFollow(FOLLOW_access_id_in_access_id_list7741);
access_id();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1797:24: ( T_COMMA access_id )*
loop161:
while (true) {
int alt161=2;
int LA161_0 = input.LA(1);
if ( (LA161_0==T_COMMA) ) {
alt161=1;
}
switch (alt161) {
case 1 :
// FortranParser08.g:1797:26: T_COMMA access_id
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_access_id_list7747); if (state.failed) return;
pushFollow(FOLLOW_access_id_in_access_id_list7749);
access_id();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop161;
}
}
if ( state.backtracking==0 ) {action.access_id_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "access_id_list"
// $ANTLR start "allocatable_stmt"
// FortranParser08.g:1805:1: allocatable_stmt : ( label )? T_ALLOCATABLE ( T_COLON_COLON )? allocatable_decl_list end_of_stmt ;
public final void allocatable_stmt() throws RecognitionException {
Token T_ALLOCATABLE181=null;
Token label180 =null;
Token end_of_stmt182 =null;
Token lbl = null;
try {
// FortranParser08.g:1808:4: ( ( label )? T_ALLOCATABLE ( T_COLON_COLON )? allocatable_decl_list end_of_stmt )
// FortranParser08.g:1808:8: ( label )? T_ALLOCATABLE ( T_COLON_COLON )? allocatable_decl_list end_of_stmt
{
// FortranParser08.g:1808:8: ( label )?
int alt162=2;
int LA162_0 = input.LA(1);
if ( (LA162_0==T_DIGIT_STRING) ) {
alt162=1;
}
switch (alt162) {
case 1 :
// FortranParser08.g:1808:9: label
{
pushFollow(FOLLOW_label_in_allocatable_stmt7796);
label180=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label180;}
}
break;
}
T_ALLOCATABLE181=(Token)match(input,T_ALLOCATABLE,FOLLOW_T_ALLOCATABLE_in_allocatable_stmt7809); if (state.failed) return;
// FortranParser08.g:1809:22: ( T_COLON_COLON )?
int alt163=2;
int LA163_0 = input.LA(1);
if ( (LA163_0==T_COLON_COLON) ) {
alt163=1;
}
switch (alt163) {
case 1 :
// FortranParser08.g:1809:24: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_allocatable_stmt7813); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_allocatable_decl_list_in_allocatable_stmt7818);
allocatable_decl_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_allocatable_stmt7820);
end_of_stmt182=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.allocatable_stmt(lbl, T_ALLOCATABLE181, end_of_stmt182);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "allocatable_stmt"
// $ANTLR start "allocatable_decl"
// FortranParser08.g:1821:1: allocatable_decl : object_name ( T_LPAREN array_spec T_RPAREN )? ( T_LBRACKET coarray_spec T_RBRACKET )? ;
public final void allocatable_decl() throws RecognitionException {
Token object_name183 =null;
Token objName=null; boolean hasArraySpec=false; boolean hasCoarraySpec=false;
try {
// FortranParser08.g:1823:4: ( object_name ( T_LPAREN array_spec T_RPAREN )? ( T_LBRACKET coarray_spec T_RBRACKET )? )
// FortranParser08.g:1823:8: object_name ( T_LPAREN array_spec T_RPAREN )? ( T_LBRACKET coarray_spec T_RBRACKET )?
{
pushFollow(FOLLOW_object_name_in_allocatable_decl7860);
object_name183=object_name();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {objName=object_name183;}
// FortranParser08.g:1824:11: ( T_LPAREN array_spec T_RPAREN )?
int alt164=2;
int LA164_0 = input.LA(1);
if ( (LA164_0==T_LPAREN) ) {
alt164=1;
}
switch (alt164) {
case 1 :
// FortranParser08.g:1824:13: T_LPAREN array_spec T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_allocatable_decl7876); if (state.failed) return;
pushFollow(FOLLOW_array_spec_in_allocatable_decl7878);
array_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_allocatable_decl7880); if (state.failed) return;
if ( state.backtracking==0 ) {hasArraySpec=true;}
}
break;
}
// FortranParser08.g:1825:11: ( T_LBRACKET coarray_spec T_RBRACKET )?
int alt165=2;
int LA165_0 = input.LA(1);
if ( (LA165_0==T_LBRACKET) ) {
alt165=1;
}
switch (alt165) {
case 1 :
// FortranParser08.g:1825:13: T_LBRACKET coarray_spec T_RBRACKET
{
match(input,T_LBRACKET,FOLLOW_T_LBRACKET_in_allocatable_decl7899); if (state.failed) return;
pushFollow(FOLLOW_coarray_spec_in_allocatable_decl7901);
coarray_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RBRACKET,FOLLOW_T_RBRACKET_in_allocatable_decl7903); if (state.failed) return;
if ( state.backtracking==0 ) {hasCoarraySpec=true;}
}
break;
}
if ( state.backtracking==0 ) {action.allocatable_decl(objName, hasArraySpec, hasCoarraySpec);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "allocatable_decl"
// $ANTLR start "allocatable_decl_list"
// FortranParser08.g:1829:1: allocatable_decl_list : allocatable_decl ( T_COMMA allocatable_decl )* ;
public final void allocatable_decl_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1831:4: ( allocatable_decl ( T_COMMA allocatable_decl )* )
// FortranParser08.g:1831:12: allocatable_decl ( T_COMMA allocatable_decl )*
{
if ( state.backtracking==0 ) {action.allocatable_decl_list__begin();}
pushFollow(FOLLOW_allocatable_decl_in_allocatable_decl_list7958);
allocatable_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1832:36: ( T_COMMA allocatable_decl )*
loop166:
while (true) {
int alt166=2;
int LA166_0 = input.LA(1);
if ( (LA166_0==T_COMMA) ) {
alt166=1;
}
switch (alt166) {
case 1 :
// FortranParser08.g:1832:38: T_COMMA allocatable_decl
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_allocatable_decl_list7964); if (state.failed) return;
pushFollow(FOLLOW_allocatable_decl_in_allocatable_decl_list7966);
allocatable_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop166;
}
}
if ( state.backtracking==0 ) {action.allocatable_decl_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "allocatable_decl_list"
// $ANTLR start "asynchronous_stmt"
// FortranParser08.g:1838:1: asynchronous_stmt : ( label )? T_ASYNCHRONOUS ( T_COLON_COLON )? generic_name_list end_of_stmt ;
public final void asynchronous_stmt() throws RecognitionException {
Token T_ASYNCHRONOUS185=null;
Token label184 =null;
Token end_of_stmt186 =null;
Token lbl = null;
try {
// FortranParser08.g:1841:2: ( ( label )? T_ASYNCHRONOUS ( T_COLON_COLON )? generic_name_list end_of_stmt )
// FortranParser08.g:1841:4: ( label )? T_ASYNCHRONOUS ( T_COLON_COLON )? generic_name_list end_of_stmt
{
// FortranParser08.g:1841:4: ( label )?
int alt167=2;
int LA167_0 = input.LA(1);
if ( (LA167_0==T_DIGIT_STRING) ) {
alt167=1;
}
switch (alt167) {
case 1 :
// FortranParser08.g:1841:5: label
{
pushFollow(FOLLOW_label_in_asynchronous_stmt8009);
label184=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label184;}
}
break;
}
T_ASYNCHRONOUS185=(Token)match(input,T_ASYNCHRONOUS,FOLLOW_T_ASYNCHRONOUS_in_asynchronous_stmt8015); if (state.failed) return;
// FortranParser08.g:1841:45: ( T_COLON_COLON )?
int alt168=2;
int LA168_0 = input.LA(1);
if ( (LA168_0==T_COLON_COLON) ) {
alt168=1;
}
switch (alt168) {
case 1 :
// FortranParser08.g:1841:47: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_asynchronous_stmt8019); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_generic_name_list_in_asynchronous_stmt8026);
generic_name_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_asynchronous_stmt8028);
end_of_stmt186=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.asynchronous_stmt(lbl,T_ASYNCHRONOUS185,end_of_stmt186);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "asynchronous_stmt"
// $ANTLR start "bind_stmt"
// FortranParser08.g:1847:1: bind_stmt : ( label )? language_binding_spec ( T_COLON_COLON )? bind_entity_list end_of_stmt ;
public final void bind_stmt() throws RecognitionException {
Token label187 =null;
Token end_of_stmt188 =null;
Token lbl = null;
try {
// FortranParser08.g:1850:2: ( ( label )? language_binding_spec ( T_COLON_COLON )? bind_entity_list end_of_stmt )
// FortranParser08.g:1850:4: ( label )? language_binding_spec ( T_COLON_COLON )? bind_entity_list end_of_stmt
{
// FortranParser08.g:1850:4: ( label )?
int alt169=2;
int LA169_0 = input.LA(1);
if ( (LA169_0==T_DIGIT_STRING) ) {
alt169=1;
}
switch (alt169) {
case 1 :
// FortranParser08.g:1850:5: label
{
pushFollow(FOLLOW_label_in_bind_stmt8055);
label187=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label187;}
}
break;
}
pushFollow(FOLLOW_language_binding_spec_in_bind_stmt8061);
language_binding_spec();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1851:3: ( T_COLON_COLON )?
int alt170=2;
int LA170_0 = input.LA(1);
if ( (LA170_0==T_COLON_COLON) ) {
alt170=1;
}
switch (alt170) {
case 1 :
// FortranParser08.g:1851:5: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_bind_stmt8067); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_bind_entity_list_in_bind_stmt8072);
bind_entity_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_bind_stmt8074);
end_of_stmt188=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.bind_stmt(lbl, end_of_stmt188); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "bind_stmt"
// $ANTLR start "bind_entity"
// FortranParser08.g:1857:1: bind_entity : ( T_IDENT | T_SLASH T_IDENT T_SLASH );
public final void bind_entity() throws RecognitionException {
Token T_IDENT189=null;
Token T_IDENT190=null;
try {
// FortranParser08.g:1858:2: ( T_IDENT | T_SLASH T_IDENT T_SLASH )
int alt171=2;
int LA171_0 = input.LA(1);
if ( (LA171_0==T_IDENT) ) {
alt171=1;
}
else if ( (LA171_0==T_SLASH) ) {
alt171=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 171, 0, input);
throw nvae;
}
switch (alt171) {
case 1 :
// FortranParser08.g:1858:4: T_IDENT
{
T_IDENT189=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_bind_entity8092); if (state.failed) return;
if ( state.backtracking==0 ) { action.bind_entity(T_IDENT189, false); }
}
break;
case 2 :
// FortranParser08.g:1860:4: T_SLASH T_IDENT T_SLASH
{
match(input,T_SLASH,FOLLOW_T_SLASH_in_bind_entity8108); if (state.failed) return;
T_IDENT190=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_bind_entity8110); if (state.failed) return;
match(input,T_SLASH,FOLLOW_T_SLASH_in_bind_entity8112); if (state.failed) return;
if ( state.backtracking==0 ) { action.bind_entity(T_IDENT190, true); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "bind_entity"
// $ANTLR start "bind_entity_list"
// FortranParser08.g:1864:1: bind_entity_list : bind_entity ( T_COMMA bind_entity )* ;
public final void bind_entity_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1866:5: ( bind_entity ( T_COMMA bind_entity )* )
// FortranParser08.g:1866:10: bind_entity ( T_COMMA bind_entity )*
{
if ( state.backtracking==0 ) {action.bind_entity_list__begin();}
pushFollow(FOLLOW_bind_entity_in_bind_entity_list8148);
bind_entity();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1867:26: ( T_COMMA bind_entity )*
loop172:
while (true) {
int alt172=2;
int LA172_0 = input.LA(1);
if ( (LA172_0==T_COMMA) ) {
alt172=1;
}
switch (alt172) {
case 1 :
// FortranParser08.g:1867:28: T_COMMA bind_entity
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_bind_entity_list8154); if (state.failed) return;
pushFollow(FOLLOW_bind_entity_in_bind_entity_list8156);
bind_entity();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop172;
}
}
if ( state.backtracking==0 ) {action.bind_entity_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "bind_entity_list"
// $ANTLR start "data_stmt"
// FortranParser08.g:1872:1: data_stmt : ( label )? T_DATA data_stmt_set ( ( T_COMMA )? data_stmt_set )* end_of_stmt ;
public final void data_stmt() throws RecognitionException {
Token T_DATA192=null;
Token label191 =null;
Token end_of_stmt193 =null;
Token lbl = null; int count=1;
try {
// FortranParser08.g:1875:2: ( ( label )? T_DATA data_stmt_set ( ( T_COMMA )? data_stmt_set )* end_of_stmt )
// FortranParser08.g:1875:4: ( label )? T_DATA data_stmt_set ( ( T_COMMA )? data_stmt_set )* end_of_stmt
{
// FortranParser08.g:1875:4: ( label )?
int alt173=2;
int LA173_0 = input.LA(1);
if ( (LA173_0==T_DIGIT_STRING) ) {
alt173=1;
}
switch (alt173) {
case 1 :
// FortranParser08.g:1875:5: label
{
pushFollow(FOLLOW_label_in_data_stmt8196);
label191=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label191;}
}
break;
}
T_DATA192=(Token)match(input,T_DATA,FOLLOW_T_DATA_in_data_stmt8202); if (state.failed) return;
pushFollow(FOLLOW_data_stmt_set_in_data_stmt8204);
data_stmt_set();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1875:51: ( ( T_COMMA )? data_stmt_set )*
loop175:
while (true) {
int alt175=2;
int LA175_0 = input.LA(1);
if ( (LA175_0==T_CHAR_CONSTANT||LA175_0==T_COMMA||LA175_0==T_DIGIT_STRING||LA175_0==T_IDENT||LA175_0==T_LPAREN) ) {
alt175=1;
}
switch (alt175) {
case 1 :
// FortranParser08.g:1875:53: ( T_COMMA )? data_stmt_set
{
// FortranParser08.g:1875:53: ( T_COMMA )?
int alt174=2;
int LA174_0 = input.LA(1);
if ( (LA174_0==T_COMMA) ) {
alt174=1;
}
switch (alt174) {
case 1 :
// FortranParser08.g:1875:55: T_COMMA
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_data_stmt8210); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_data_stmt_set_in_data_stmt8228);
data_stmt_set();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop175;
}
}
pushFollow(FOLLOW_end_of_stmt_in_data_stmt8234);
end_of_stmt193=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.data_stmt(lbl, T_DATA192, end_of_stmt193, count); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "data_stmt"
// $ANTLR start "data_stmt_set"
// FortranParser08.g:1881:1: data_stmt_set : data_stmt_object_list T_SLASH data_stmt_value_list T_SLASH ;
public final void data_stmt_set() throws RecognitionException {
try {
// FortranParser08.g:1882:2: ( data_stmt_object_list T_SLASH data_stmt_value_list T_SLASH )
// FortranParser08.g:1882:4: data_stmt_object_list T_SLASH data_stmt_value_list T_SLASH
{
pushFollow(FOLLOW_data_stmt_object_list_in_data_stmt_set8254);
data_stmt_object_list();
state._fsp--;
if (state.failed) return;
match(input,T_SLASH,FOLLOW_T_SLASH_in_data_stmt_set8258); if (state.failed) return;
pushFollow(FOLLOW_data_stmt_value_list_in_data_stmt_set8262);
data_stmt_value_list();
state._fsp--;
if (state.failed) return;
match(input,T_SLASH,FOLLOW_T_SLASH_in_data_stmt_set8266); if (state.failed) return;
if ( state.backtracking==0 ) { action.data_stmt_set(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "data_stmt_set"
// $ANTLR start "data_stmt_object"
// FortranParser08.g:1890:1: data_stmt_object : ( variable | data_implied_do );
public final void data_stmt_object() throws RecognitionException {
try {
// FortranParser08.g:1894:2: ( variable | data_implied_do )
int alt176=2;
int LA176_0 = input.LA(1);
if ( (LA176_0==T_CHAR_CONSTANT||LA176_0==T_DIGIT_STRING||LA176_0==T_IDENT) ) {
alt176=1;
}
else if ( (LA176_0==T_LPAREN) ) {
alt176=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 176, 0, input);
throw nvae;
}
switch (alt176) {
case 1 :
// FortranParser08.g:1894:4: variable
{
pushFollow(FOLLOW_variable_in_data_stmt_object8297);
variable();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:1895:4: data_implied_do
{
pushFollow(FOLLOW_data_implied_do_in_data_stmt_object8302);
data_implied_do();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.data_stmt_object();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "data_stmt_object"
// $ANTLR start "data_stmt_object_list"
// FortranParser08.g:1898:1: data_stmt_object_list : data_stmt_object ( T_COMMA data_stmt_object )* ;
public final void data_stmt_object_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1900:5: ( data_stmt_object ( T_COMMA data_stmt_object )* )
// FortranParser08.g:1900:10: data_stmt_object ( T_COMMA data_stmt_object )*
{
if ( state.backtracking==0 ) {action.data_stmt_object_list__begin();}
pushFollow(FOLLOW_data_stmt_object_in_data_stmt_object_list8327);
data_stmt_object();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1901:31: ( T_COMMA data_stmt_object )*
loop177:
while (true) {
int alt177=2;
int LA177_0 = input.LA(1);
if ( (LA177_0==T_COMMA) ) {
alt177=1;
}
switch (alt177) {
case 1 :
// FortranParser08.g:1901:33: T_COMMA data_stmt_object
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_data_stmt_object_list8333); if (state.failed) return;
pushFollow(FOLLOW_data_stmt_object_in_data_stmt_object_list8335);
data_stmt_object();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop177;
}
}
if ( state.backtracking==0 ) {action.data_stmt_object_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "data_stmt_object_list"
// $ANTLR start "data_implied_do"
// FortranParser08.g:1909:1: data_implied_do : T_LPAREN data_i_do_object_list T_COMMA T_IDENT T_EQUALS expr T_COMMA expr ( T_COMMA expr )? T_RPAREN ;
public final void data_implied_do() throws RecognitionException {
Token T_IDENT194=null;
boolean hasThirdExpr = false;
try {
// FortranParser08.g:1913:5: ( T_LPAREN data_i_do_object_list T_COMMA T_IDENT T_EQUALS expr T_COMMA expr ( T_COMMA expr )? T_RPAREN )
// FortranParser08.g:1913:7: T_LPAREN data_i_do_object_list T_COMMA T_IDENT T_EQUALS expr T_COMMA expr ( T_COMMA expr )? T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_data_implied_do8376); if (state.failed) return;
pushFollow(FOLLOW_data_i_do_object_list_in_data_implied_do8378);
data_i_do_object_list();
state._fsp--;
if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_data_implied_do8380); if (state.failed) return;
T_IDENT194=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_data_implied_do8382); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_data_implied_do8384); if (state.failed) return;
pushFollow(FOLLOW_expr_in_data_implied_do8394);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_data_implied_do8396); if (state.failed) return;
pushFollow(FOLLOW_expr_in_data_implied_do8398);
expr();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1914:27: ( T_COMMA expr )?
int alt178=2;
int LA178_0 = input.LA(1);
if ( (LA178_0==T_COMMA) ) {
alt178=1;
}
switch (alt178) {
case 1 :
// FortranParser08.g:1914:29: T_COMMA expr
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_data_implied_do8402); if (state.failed) return;
pushFollow(FOLLOW_expr_in_data_implied_do8404);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { hasThirdExpr = true; }
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_data_implied_do8410); if (state.failed) return;
if ( state.backtracking==0 ) { action.data_implied_do(T_IDENT194, hasThirdExpr); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "data_implied_do"
// $ANTLR start "data_i_do_object"
// FortranParser08.g:1920:1: data_i_do_object : ( data_ref | data_implied_do );
public final void data_i_do_object() throws RecognitionException {
try {
// FortranParser08.g:1924:2: ( data_ref | data_implied_do )
int alt179=2;
int LA179_0 = input.LA(1);
if ( (LA179_0==T_IDENT) ) {
alt179=1;
}
else if ( (LA179_0==T_LPAREN) ) {
alt179=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 179, 0, input);
throw nvae;
}
switch (alt179) {
case 1 :
// FortranParser08.g:1924:4: data_ref
{
pushFollow(FOLLOW_data_ref_in_data_i_do_object8441);
data_ref();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:1925:4: data_implied_do
{
pushFollow(FOLLOW_data_implied_do_in_data_i_do_object8446);
data_implied_do();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.data_i_do_object();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "data_i_do_object"
// $ANTLR start "data_i_do_object_list"
// FortranParser08.g:1928:1: data_i_do_object_list : data_i_do_object ( T_COMMA data_i_do_object )* ;
public final void data_i_do_object_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1930:5: ( data_i_do_object ( T_COMMA data_i_do_object )* )
// FortranParser08.g:1930:10: data_i_do_object ( T_COMMA data_i_do_object )*
{
if ( state.backtracking==0 ) {action.data_i_do_object_list__begin();}
pushFollow(FOLLOW_data_i_do_object_in_data_i_do_object_list8471);
data_i_do_object();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1931:31: ( T_COMMA data_i_do_object )*
loop180:
while (true) {
int alt180=2;
int LA180_0 = input.LA(1);
if ( (LA180_0==T_COMMA) ) {
int LA180_1 = input.LA(2);
if ( (LA180_1==T_IDENT) ) {
int LA180_2 = input.LA(3);
if ( (LA180_2==T_COMMA||LA180_2==T_LBRACKET||LA180_2==T_LPAREN||LA180_2==T_PERCENT) ) {
alt180=1;
}
}
else if ( (LA180_1==T_LPAREN) ) {
alt180=1;
}
}
switch (alt180) {
case 1 :
// FortranParser08.g:1931:33: T_COMMA data_i_do_object
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_data_i_do_object_list8477); if (state.failed) return;
pushFollow(FOLLOW_data_i_do_object_in_data_i_do_object_list8479);
data_i_do_object();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop180;
}
}
if ( state.backtracking==0 ) {action.data_i_do_object_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "data_i_do_object_list"
// $ANTLR start "data_stmt_value"
// FortranParser08.g:1945:1: data_stmt_value options {backtrack=true; k=3; } : ( designator ( T_ASTERISK data_stmt_constant )? | int_literal_constant ( T_ASTERISK data_stmt_constant )? | signed_real_literal_constant | signed_int_literal_constant | complex_literal_constant | logical_literal_constant | char_literal_constant | boz_literal_constant | structure_constructor | hollerith_literal_constant );
public final void data_stmt_value() throws RecognitionException {
Token T_ASTERISK195=null;
Token T_ASTERISK196=null;
Token ast = null;
try {
// FortranParser08.g:1949:4: ( designator ( T_ASTERISK data_stmt_constant )? | int_literal_constant ( T_ASTERISK data_stmt_constant )? | signed_real_literal_constant | signed_int_literal_constant | complex_literal_constant | logical_literal_constant | char_literal_constant | boz_literal_constant | structure_constructor | hollerith_literal_constant )
int alt183=10;
alt183 = dfa183.predict(input);
switch (alt183) {
case 1 :
// FortranParser08.g:1949:8: designator ( T_ASTERISK data_stmt_constant )?
{
pushFollow(FOLLOW_designator_in_data_stmt_value8543);
designator();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1949:19: ( T_ASTERISK data_stmt_constant )?
int alt181=2;
int LA181_0 = input.LA(1);
if ( (LA181_0==T_ASTERISK) ) {
alt181=1;
}
switch (alt181) {
case 1 :
// FortranParser08.g:1949:20: T_ASTERISK data_stmt_constant
{
T_ASTERISK195=(Token)match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_data_stmt_value8546); if (state.failed) return;
pushFollow(FOLLOW_data_stmt_constant_in_data_stmt_value8548);
data_stmt_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {ast=T_ASTERISK195;}
}
break;
}
}
break;
case 2 :
// FortranParser08.g:1950:8: int_literal_constant ( T_ASTERISK data_stmt_constant )?
{
pushFollow(FOLLOW_int_literal_constant_in_data_stmt_value8561);
int_literal_constant();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1950:29: ( T_ASTERISK data_stmt_constant )?
int alt182=2;
int LA182_0 = input.LA(1);
if ( (LA182_0==T_ASTERISK) ) {
alt182=1;
}
switch (alt182) {
case 1 :
// FortranParser08.g:1950:30: T_ASTERISK data_stmt_constant
{
T_ASTERISK196=(Token)match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_data_stmt_value8564); if (state.failed) return;
pushFollow(FOLLOW_data_stmt_constant_in_data_stmt_value8566);
data_stmt_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {ast=T_ASTERISK196;}
}
break;
}
}
break;
case 3 :
// FortranParser08.g:1951:8: signed_real_literal_constant
{
pushFollow(FOLLOW_signed_real_literal_constant_in_data_stmt_value8579);
signed_real_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 4 :
// FortranParser08.g:1952:8: signed_int_literal_constant
{
pushFollow(FOLLOW_signed_int_literal_constant_in_data_stmt_value8588);
signed_int_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 5 :
// FortranParser08.g:1953:8: complex_literal_constant
{
pushFollow(FOLLOW_complex_literal_constant_in_data_stmt_value8597);
complex_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 6 :
// FortranParser08.g:1954:8: logical_literal_constant
{
pushFollow(FOLLOW_logical_literal_constant_in_data_stmt_value8606);
logical_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 7 :
// FortranParser08.g:1955:8: char_literal_constant
{
pushFollow(FOLLOW_char_literal_constant_in_data_stmt_value8615);
char_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 8 :
// FortranParser08.g:1956:8: boz_literal_constant
{
pushFollow(FOLLOW_boz_literal_constant_in_data_stmt_value8624);
boz_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 9 :
// FortranParser08.g:1957:8: structure_constructor
{
pushFollow(FOLLOW_structure_constructor_in_data_stmt_value8633);
structure_constructor();
state._fsp--;
if (state.failed) return;
}
break;
case 10 :
// FortranParser08.g:1958:8: hollerith_literal_constant
{
pushFollow(FOLLOW_hollerith_literal_constant_in_data_stmt_value8649);
hollerith_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {action.data_stmt_value(ast);}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "data_stmt_value"
// $ANTLR start "data_stmt_value_list"
// FortranParser08.g:1961:1: data_stmt_value_list : data_stmt_value ( T_COMMA data_stmt_value )* ;
public final void data_stmt_value_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:1963:5: ( data_stmt_value ( T_COMMA data_stmt_value )* )
// FortranParser08.g:1963:10: data_stmt_value ( T_COMMA data_stmt_value )*
{
if ( state.backtracking==0 ) {action.data_stmt_value_list__begin();}
pushFollow(FOLLOW_data_stmt_value_in_data_stmt_value_list8678);
data_stmt_value();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:1964:30: ( T_COMMA data_stmt_value )*
loop184:
while (true) {
int alt184=2;
int LA184_0 = input.LA(1);
if ( (LA184_0==T_COMMA) ) {
alt184=1;
}
switch (alt184) {
case 1 :
// FortranParser08.g:1964:32: T_COMMA data_stmt_value
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_data_stmt_value_list8684); if (state.failed) return;
pushFollow(FOLLOW_data_stmt_value_in_data_stmt_value_list8686);
data_stmt_value();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop184;
}
}
if ( state.backtracking==0 ) {action.data_stmt_value_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "data_stmt_value_list"
// $ANTLR start "scalar_int_constant"
// FortranParser08.g:1974:1: scalar_int_constant : int_constant ;
public final void scalar_int_constant() throws RecognitionException {
try {
// FortranParser08.g:1975:5: ( int_constant )
// FortranParser08.g:1975:9: int_constant
{
pushFollow(FOLLOW_int_constant_in_scalar_int_constant8726);
int_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.scalar_int_constant(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "scalar_int_constant"
// $ANTLR start "data_stmt_constant"
// FortranParser08.g:1989:1: data_stmt_constant options {backtrack=true; k=3; } : ( designator | signed_int_literal_constant | signed_real_literal_constant | complex_literal_constant | logical_literal_constant | char_literal_constant | boz_literal_constant | structure_constructor );
public final void data_stmt_constant() throws RecognitionException {
try {
// FortranParser08.g:1994:2: ( designator | signed_int_literal_constant | signed_real_literal_constant | complex_literal_constant | logical_literal_constant | char_literal_constant | boz_literal_constant | structure_constructor )
int alt185=8;
alt185 = dfa185.predict(input);
switch (alt185) {
case 1 :
// FortranParser08.g:1994:4: designator
{
pushFollow(FOLLOW_designator_in_data_stmt_constant8781);
designator();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:1995:4: signed_int_literal_constant
{
pushFollow(FOLLOW_signed_int_literal_constant_in_data_stmt_constant8786);
signed_int_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 3 :
// FortranParser08.g:1996:9: signed_real_literal_constant
{
pushFollow(FOLLOW_signed_real_literal_constant_in_data_stmt_constant8796);
signed_real_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 4 :
// FortranParser08.g:1997:4: complex_literal_constant
{
pushFollow(FOLLOW_complex_literal_constant_in_data_stmt_constant8801);
complex_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 5 :
// FortranParser08.g:1998:4: logical_literal_constant
{
pushFollow(FOLLOW_logical_literal_constant_in_data_stmt_constant8806);
logical_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 6 :
// FortranParser08.g:1999:4: char_literal_constant
{
pushFollow(FOLLOW_char_literal_constant_in_data_stmt_constant8811);
char_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 7 :
// FortranParser08.g:2000:4: boz_literal_constant
{
pushFollow(FOLLOW_boz_literal_constant_in_data_stmt_constant8816);
boz_literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 8 :
// FortranParser08.g:2001:4: structure_constructor
{
pushFollow(FOLLOW_structure_constructor_in_data_stmt_constant8821);
structure_constructor();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.data_stmt_constant();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "data_stmt_constant"
// $ANTLR start "codimension_stmt"
// FortranParser08.g:2013:1: codimension_stmt : ( label )? T_CODIMENSION ( T_COLON_COLON )? codimension_decl_list end_of_stmt ;
public final void codimension_stmt() throws RecognitionException {
Token T_CODIMENSION198=null;
Token label197 =null;
Token end_of_stmt199 =null;
Token lbl = null;
try {
// FortranParser08.g:2016:4: ( ( label )? T_CODIMENSION ( T_COLON_COLON )? codimension_decl_list end_of_stmt )
// FortranParser08.g:2016:8: ( label )? T_CODIMENSION ( T_COLON_COLON )? codimension_decl_list end_of_stmt
{
// FortranParser08.g:2016:8: ( label )?
int alt186=2;
int LA186_0 = input.LA(1);
if ( (LA186_0==T_DIGIT_STRING) ) {
alt186=1;
}
switch (alt186) {
case 1 :
// FortranParser08.g:2016:9: label
{
pushFollow(FOLLOW_label_in_codimension_stmt8854);
label197=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label197;}
}
break;
}
T_CODIMENSION198=(Token)match(input,T_CODIMENSION,FOLLOW_T_CODIMENSION_in_codimension_stmt8867); if (state.failed) return;
// FortranParser08.g:2017:22: ( T_COLON_COLON )?
int alt187=2;
int LA187_0 = input.LA(1);
if ( (LA187_0==T_COLON_COLON) ) {
alt187=1;
}
switch (alt187) {
case 1 :
// FortranParser08.g:2017:24: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_codimension_stmt8871); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_codimension_decl_list_in_codimension_stmt8876);
codimension_decl_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_codimension_stmt8878);
end_of_stmt199=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.codimension_stmt(lbl, T_CODIMENSION198, end_of_stmt199); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "codimension_stmt"
// $ANTLR start "codimension_decl"
// FortranParser08.g:2029:1: codimension_decl : T_IDENT T_LBRACKET coarray_spec T_RBRACKET ;
public final void codimension_decl() throws RecognitionException {
Token T_IDENT200=null;
Token T_LBRACKET201=null;
Token T_RBRACKET202=null;
try {
// FortranParser08.g:2030:4: ( T_IDENT T_LBRACKET coarray_spec T_RBRACKET )
// FortranParser08.g:2030:8: T_IDENT T_LBRACKET coarray_spec T_RBRACKET
{
T_IDENT200=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_codimension_decl8916); if (state.failed) return;
T_LBRACKET201=(Token)match(input,T_LBRACKET,FOLLOW_T_LBRACKET_in_codimension_decl8918); if (state.failed) return;
pushFollow(FOLLOW_coarray_spec_in_codimension_decl8920);
coarray_spec();
state._fsp--;
if (state.failed) return;
T_RBRACKET202=(Token)match(input,T_RBRACKET,FOLLOW_T_RBRACKET_in_codimension_decl8922); if (state.failed) return;
if ( state.backtracking==0 ) {action.codimension_decl(T_IDENT200, T_LBRACKET201, T_RBRACKET202);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "codimension_decl"
// $ANTLR start "codimension_decl_list"
// FortranParser08.g:2034:1: codimension_decl_list : codimension_decl ( T_COMMA codimension_decl )* ;
public final void codimension_decl_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2036:4: ( codimension_decl ( T_COMMA codimension_decl )* )
// FortranParser08.g:2036:12: codimension_decl ( T_COMMA codimension_decl )*
{
if ( state.backtracking==0 ) {action.codimension_decl_list__begin();}
pushFollow(FOLLOW_codimension_decl_in_codimension_decl_list8969);
codimension_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2037:36: ( T_COMMA codimension_decl )*
loop188:
while (true) {
int alt188=2;
int LA188_0 = input.LA(1);
if ( (LA188_0==T_COMMA) ) {
alt188=1;
}
switch (alt188) {
case 1 :
// FortranParser08.g:2037:38: T_COMMA codimension_decl
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_codimension_decl_list8975); if (state.failed) return;
pushFollow(FOLLOW_codimension_decl_in_codimension_decl_list8977);
codimension_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop188;
}
}
if ( state.backtracking==0 ) {action.codimension_decl_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "codimension_decl_list"
// $ANTLR start "dimension_stmt"
// FortranParser08.g:2049:1: dimension_stmt : ( label )? T_DIMENSION ( T_COLON_COLON )? dimension_decl ( T_COMMA dimension_decl )* end_of_stmt ;
public final void dimension_stmt() throws RecognitionException {
Token T_DIMENSION204=null;
Token label203 =null;
Token end_of_stmt205 =null;
Token lbl=null; int count=1;
try {
// FortranParser08.g:2052:2: ( ( label )? T_DIMENSION ( T_COLON_COLON )? dimension_decl ( T_COMMA dimension_decl )* end_of_stmt )
// FortranParser08.g:2052:4: ( label )? T_DIMENSION ( T_COLON_COLON )? dimension_decl ( T_COMMA dimension_decl )* end_of_stmt
{
// FortranParser08.g:2052:4: ( label )?
int alt189=2;
int LA189_0 = input.LA(1);
if ( (LA189_0==T_DIGIT_STRING) ) {
alt189=1;
}
switch (alt189) {
case 1 :
// FortranParser08.g:2052:5: label
{
pushFollow(FOLLOW_label_in_dimension_stmt9026);
label203=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label203;}
}
break;
}
T_DIMENSION204=(Token)match(input,T_DIMENSION,FOLLOW_T_DIMENSION_in_dimension_stmt9032); if (state.failed) return;
// FortranParser08.g:2052:42: ( T_COLON_COLON )?
int alt190=2;
int LA190_0 = input.LA(1);
if ( (LA190_0==T_COLON_COLON) ) {
alt190=1;
}
switch (alt190) {
case 1 :
// FortranParser08.g:2052:44: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_dimension_stmt9036); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_dimension_decl_in_dimension_stmt9050);
dimension_decl();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2053:24: ( T_COMMA dimension_decl )*
loop191:
while (true) {
int alt191=2;
int LA191_0 = input.LA(1);
if ( (LA191_0==T_COMMA) ) {
alt191=1;
}
switch (alt191) {
case 1 :
// FortranParser08.g:2053:26: T_COMMA dimension_decl
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_dimension_stmt9054); if (state.failed) return;
pushFollow(FOLLOW_dimension_decl_in_dimension_stmt9056);
dimension_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop191;
}
}
pushFollow(FOLLOW_end_of_stmt_in_dimension_stmt9062);
end_of_stmt205=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.dimension_stmt(lbl, T_DIMENSION204, end_of_stmt205, count); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "dimension_stmt"
// $ANTLR start "dimension_decl"
// FortranParser08.g:2058:1: dimension_decl : T_IDENT T_LPAREN array_spec T_RPAREN ;
public final void dimension_decl() throws RecognitionException {
Token T_IDENT206=null;
try {
// FortranParser08.g:2059:4: ( T_IDENT T_LPAREN array_spec T_RPAREN )
// FortranParser08.g:2059:8: T_IDENT T_LPAREN array_spec T_RPAREN
{
T_IDENT206=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_dimension_decl9086); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_dimension_decl9088); if (state.failed) return;
pushFollow(FOLLOW_array_spec_in_dimension_decl9090);
array_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_dimension_decl9092); if (state.failed) return;
if ( state.backtracking==0 ) {action.dimension_decl(T_IDENT206);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "dimension_decl"
// $ANTLR start "intent_stmt"
// FortranParser08.g:2065:1: intent_stmt : ( label )? T_INTENT T_LPAREN intent_spec T_RPAREN ( T_COLON_COLON )? generic_name_list end_of_stmt ;
public final void intent_stmt() throws RecognitionException {
Token T_INTENT208=null;
Token label207 =null;
Token end_of_stmt209 =null;
Token lbl = null;
try {
// FortranParser08.g:2068:2: ( ( label )? T_INTENT T_LPAREN intent_spec T_RPAREN ( T_COLON_COLON )? generic_name_list end_of_stmt )
// FortranParser08.g:2068:4: ( label )? T_INTENT T_LPAREN intent_spec T_RPAREN ( T_COLON_COLON )? generic_name_list end_of_stmt
{
// FortranParser08.g:2068:4: ( label )?
int alt192=2;
int LA192_0 = input.LA(1);
if ( (LA192_0==T_DIGIT_STRING) ) {
alt192=1;
}
switch (alt192) {
case 1 :
// FortranParser08.g:2068:5: label
{
pushFollow(FOLLOW_label_in_intent_stmt9130);
label207=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label207;}
}
break;
}
T_INTENT208=(Token)match(input,T_INTENT,FOLLOW_T_INTENT_in_intent_stmt9136); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_intent_stmt9138); if (state.failed) return;
pushFollow(FOLLOW_intent_spec_in_intent_stmt9140);
intent_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_intent_stmt9142); if (state.failed) return;
// FortranParser08.g:2069:13: ( T_COLON_COLON )?
int alt193=2;
int LA193_0 = input.LA(1);
if ( (LA193_0==T_COLON_COLON) ) {
alt193=1;
}
switch (alt193) {
case 1 :
// FortranParser08.g:2069:15: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_intent_stmt9159); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_generic_name_list_in_intent_stmt9164);
generic_name_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_intent_stmt9166);
end_of_stmt209=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.intent_stmt(lbl,T_INTENT208,end_of_stmt209);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "intent_stmt"
// $ANTLR start "optional_stmt"
// FortranParser08.g:2075:1: optional_stmt : ( label )? T_OPTIONAL ( T_COLON_COLON )? generic_name_list end_of_stmt ;
public final void optional_stmt() throws RecognitionException {
Token T_OPTIONAL211=null;
Token label210 =null;
Token end_of_stmt212 =null;
Token lbl = null;
try {
// FortranParser08.g:2078:2: ( ( label )? T_OPTIONAL ( T_COLON_COLON )? generic_name_list end_of_stmt )
// FortranParser08.g:2078:6: ( label )? T_OPTIONAL ( T_COLON_COLON )? generic_name_list end_of_stmt
{
// FortranParser08.g:2078:6: ( label )?
int alt194=2;
int LA194_0 = input.LA(1);
if ( (LA194_0==T_DIGIT_STRING) ) {
alt194=1;
}
switch (alt194) {
case 1 :
// FortranParser08.g:2078:7: label
{
pushFollow(FOLLOW_label_in_optional_stmt9196);
label210=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label210;}
}
break;
}
T_OPTIONAL211=(Token)match(input,T_OPTIONAL,FOLLOW_T_OPTIONAL_in_optional_stmt9202); if (state.failed) return;
// FortranParser08.g:2078:43: ( T_COLON_COLON )?
int alt195=2;
int LA195_0 = input.LA(1);
if ( (LA195_0==T_COLON_COLON) ) {
alt195=1;
}
switch (alt195) {
case 1 :
// FortranParser08.g:2078:45: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_optional_stmt9206); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_generic_name_list_in_optional_stmt9224);
generic_name_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_optional_stmt9226);
end_of_stmt212=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.optional_stmt(lbl, T_OPTIONAL211, end_of_stmt212); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "optional_stmt"
// $ANTLR start "parameter_stmt"
// FortranParser08.g:2085:1: parameter_stmt : ( label )? T_PARAMETER T_LPAREN named_constant_def_list T_RPAREN end_of_stmt ;
public final void parameter_stmt() throws RecognitionException {
Token T_PARAMETER214=null;
Token label213 =null;
Token end_of_stmt215 =null;
Token lbl = null;
try {
// FortranParser08.g:2088:2: ( ( label )? T_PARAMETER T_LPAREN named_constant_def_list T_RPAREN end_of_stmt )
// FortranParser08.g:2088:4: ( label )? T_PARAMETER T_LPAREN named_constant_def_list T_RPAREN end_of_stmt
{
// FortranParser08.g:2088:4: ( label )?
int alt196=2;
int LA196_0 = input.LA(1);
if ( (LA196_0==T_DIGIT_STRING) ) {
alt196=1;
}
switch (alt196) {
case 1 :
// FortranParser08.g:2088:5: label
{
pushFollow(FOLLOW_label_in_parameter_stmt9256);
label213=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label213;}
}
break;
}
T_PARAMETER214=(Token)match(input,T_PARAMETER,FOLLOW_T_PARAMETER_in_parameter_stmt9262); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_parameter_stmt9264); if (state.failed) return;
pushFollow(FOLLOW_named_constant_def_list_in_parameter_stmt9279);
named_constant_def_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_parameter_stmt9281); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_parameter_stmt9283);
end_of_stmt215=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.parameter_stmt(lbl,T_PARAMETER214,end_of_stmt215);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "parameter_stmt"
// $ANTLR start "named_constant_def_list"
// FortranParser08.g:2093:1: named_constant_def_list : named_constant_def ( T_COMMA named_constant_def )* ;
public final void named_constant_def_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2095:5: ( named_constant_def ( T_COMMA named_constant_def )* )
// FortranParser08.g:2095:10: named_constant_def ( T_COMMA named_constant_def )*
{
if ( state.backtracking==0 ) {action.named_constant_def_list__begin();}
pushFollow(FOLLOW_named_constant_def_in_named_constant_def_list9313);
named_constant_def();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2097:13: ( T_COMMA named_constant_def )*
loop197:
while (true) {
int alt197=2;
int LA197_0 = input.LA(1);
if ( (LA197_0==T_COMMA) ) {
alt197=1;
}
switch (alt197) {
case 1 :
// FortranParser08.g:2097:15: T_COMMA named_constant_def
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_named_constant_def_list9332); if (state.failed) return;
pushFollow(FOLLOW_named_constant_def_in_named_constant_def_list9334);
named_constant_def();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop197;
}
}
if ( state.backtracking==0 ) {action.named_constant_def_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "named_constant_def_list"
// $ANTLR start "named_constant_def"
// FortranParser08.g:2104:1: named_constant_def : T_IDENT T_EQUALS expr ;
public final void named_constant_def() throws RecognitionException {
Token T_IDENT216=null;
try {
// FortranParser08.g:2105:2: ( T_IDENT T_EQUALS expr )
// FortranParser08.g:2105:4: T_IDENT T_EQUALS expr
{
T_IDENT216=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_named_constant_def9366); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_named_constant_def9368); if (state.failed) return;
pushFollow(FOLLOW_expr_in_named_constant_def9370);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.named_constant_def(T_IDENT216);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "named_constant_def"
// $ANTLR start "pointer_stmt"
// FortranParser08.g:2119:1: pointer_stmt : ( label )? T_POINTER ( cray_pointer_assoc_list | ( ( T_COLON_COLON )? pointer_decl_list ) ) end_of_stmt ;
public final void pointer_stmt() throws RecognitionException {
Token T_POINTER218=null;
Token label217 =null;
Token end_of_stmt219 =null;
Token lbl=null; boolean isCrayPointer=false;
try {
// FortranParser08.g:2122:4: ( ( label )? T_POINTER ( cray_pointer_assoc_list | ( ( T_COLON_COLON )? pointer_decl_list ) ) end_of_stmt )
// FortranParser08.g:2122:8: ( label )? T_POINTER ( cray_pointer_assoc_list | ( ( T_COLON_COLON )? pointer_decl_list ) ) end_of_stmt
{
// FortranParser08.g:2122:8: ( label )?
int alt198=2;
int LA198_0 = input.LA(1);
if ( (LA198_0==T_DIGIT_STRING) ) {
alt198=1;
}
switch (alt198) {
case 1 :
// FortranParser08.g:2122:9: label
{
pushFollow(FOLLOW_label_in_pointer_stmt9408);
label217=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label217;}
}
break;
}
T_POINTER218=(Token)match(input,T_POINTER,FOLLOW_T_POINTER_in_pointer_stmt9414); if (state.failed) return;
// FortranParser08.g:2123:8: ( cray_pointer_assoc_list | ( ( T_COLON_COLON )? pointer_decl_list ) )
int alt200=2;
int LA200_0 = input.LA(1);
if ( (LA200_0==T_LPAREN) ) {
alt200=1;
}
else if ( (LA200_0==T_COLON_COLON||LA200_0==T_IDENT) ) {
alt200=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 200, 0, input);
throw nvae;
}
switch (alt200) {
case 1 :
// FortranParser08.g:2124:15: cray_pointer_assoc_list
{
pushFollow(FOLLOW_cray_pointer_assoc_list_in_pointer_stmt9439);
cray_pointer_assoc_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {isCrayPointer = true;}
}
break;
case 2 :
// FortranParser08.g:2126:15: ( ( T_COLON_COLON )? pointer_decl_list )
{
// FortranParser08.g:2126:15: ( ( T_COLON_COLON )? pointer_decl_list )
// FortranParser08.g:2126:17: ( T_COLON_COLON )? pointer_decl_list
{
// FortranParser08.g:2126:17: ( T_COLON_COLON )?
int alt199=2;
int LA199_0 = input.LA(1);
if ( (LA199_0==T_COLON_COLON) ) {
alt199=1;
}
switch (alt199) {
case 1 :
// FortranParser08.g:2126:19: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_pointer_stmt9474); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_pointer_decl_list_in_pointer_stmt9479);
pointer_decl_list();
state._fsp--;
if (state.failed) return;
}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_pointer_stmt9492);
end_of_stmt219=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {
if (isCrayPointer) {
action.cray_pointer_stmt(lbl,T_POINTER218,end_of_stmt219);
} else {
action.pointer_stmt(lbl,T_POINTER218,end_of_stmt219);
}
}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "pointer_stmt"
// $ANTLR start "pointer_decl_list"
// FortranParser08.g:2137:1: pointer_decl_list : pointer_decl ( T_COMMA pointer_decl )* ;
public final void pointer_decl_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2139:4: ( pointer_decl ( T_COMMA pointer_decl )* )
// FortranParser08.g:2139:11: pointer_decl ( T_COMMA pointer_decl )*
{
if ( state.backtracking==0 ) {action.pointer_decl_list__begin();}
pushFollow(FOLLOW_pointer_decl_in_pointer_decl_list9541);
pointer_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2140:32: ( T_COMMA pointer_decl )*
loop201:
while (true) {
int alt201=2;
int LA201_0 = input.LA(1);
if ( (LA201_0==T_COMMA) ) {
alt201=1;
}
switch (alt201) {
case 1 :
// FortranParser08.g:2140:34: T_COMMA pointer_decl
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_pointer_decl_list9547); if (state.failed) return;
pushFollow(FOLLOW_pointer_decl_in_pointer_decl_list9549);
pointer_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop201;
}
}
if ( state.backtracking==0 ) {action.pointer_decl_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "pointer_decl_list"
// $ANTLR start "pointer_decl"
// FortranParser08.g:2154:1: pointer_decl : T_IDENT ( T_LPAREN deferred_shape_spec_list T_RPAREN )? ;
public final void pointer_decl() throws RecognitionException {
Token T_IDENT220=null;
boolean hasSpecList=false;
try {
// FortranParser08.g:2156:5: ( T_IDENT ( T_LPAREN deferred_shape_spec_list T_RPAREN )? )
// FortranParser08.g:2156:10: T_IDENT ( T_LPAREN deferred_shape_spec_list T_RPAREN )?
{
T_IDENT220=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_pointer_decl9596); if (state.failed) return;
// FortranParser08.g:2156:18: ( T_LPAREN deferred_shape_spec_list T_RPAREN )?
int alt202=2;
int LA202_0 = input.LA(1);
if ( (LA202_0==T_LPAREN) ) {
alt202=1;
}
switch (alt202) {
case 1 :
// FortranParser08.g:2156:20: T_LPAREN deferred_shape_spec_list T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_pointer_decl9600); if (state.failed) return;
pushFollow(FOLLOW_deferred_shape_spec_list_in_pointer_decl9602);
deferred_shape_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_pointer_decl9604); if (state.failed) return;
if ( state.backtracking==0 ) {hasSpecList=true;}
}
break;
}
if ( state.backtracking==0 ) {action.pointer_decl(T_IDENT220,hasSpecList);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "pointer_decl"
// $ANTLR start "cray_pointer_assoc_list"
// FortranParser08.g:2161:1: cray_pointer_assoc_list : cray_pointer_assoc ( T_COMMA cray_pointer_assoc )* ;
public final void cray_pointer_assoc_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2163:4: ( cray_pointer_assoc ( T_COMMA cray_pointer_assoc )* )
// FortranParser08.g:2163:11: cray_pointer_assoc ( T_COMMA cray_pointer_assoc )*
{
if ( state.backtracking==0 ) {action.cray_pointer_assoc_list__begin();}
pushFollow(FOLLOW_cray_pointer_assoc_in_cray_pointer_assoc_list9660);
cray_pointer_assoc();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2164:38: ( T_COMMA cray_pointer_assoc )*
loop203:
while (true) {
int alt203=2;
int LA203_0 = input.LA(1);
if ( (LA203_0==T_COMMA) ) {
alt203=1;
}
switch (alt203) {
case 1 :
// FortranParser08.g:2164:40: T_COMMA cray_pointer_assoc
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_cray_pointer_assoc_list9666); if (state.failed) return;
pushFollow(FOLLOW_cray_pointer_assoc_in_cray_pointer_assoc_list9668);
cray_pointer_assoc();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop203;
}
}
if ( state.backtracking==0 ) {action.cray_pointer_assoc_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "cray_pointer_assoc_list"
// $ANTLR start "cray_pointer_assoc"
// FortranParser08.g:2168:1: cray_pointer_assoc : T_LPAREN pointer= T_IDENT T_COMMA pointee= T_IDENT T_RPAREN ;
public final void cray_pointer_assoc() throws RecognitionException {
Token pointer=null;
Token pointee=null;
try {
// FortranParser08.g:2169:4: ( T_LPAREN pointer= T_IDENT T_COMMA pointee= T_IDENT T_RPAREN )
// FortranParser08.g:2169:8: T_LPAREN pointer= T_IDENT T_COMMA pointee= T_IDENT T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_cray_pointer_assoc9702); if (state.failed) return;
pointer=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_cray_pointer_assoc9706); if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_cray_pointer_assoc9708); if (state.failed) return;
pointee=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_cray_pointer_assoc9712); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_cray_pointer_assoc9714); if (state.failed) return;
if ( state.backtracking==0 ) {action.cray_pointer_assoc(pointer, pointee);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "cray_pointer_assoc"
// $ANTLR start "protected_stmt"
// FortranParser08.g:2175:1: protected_stmt : ( label )? T_PROTECTED ( T_COLON_COLON )? generic_name_list end_of_stmt ;
public final void protected_stmt() throws RecognitionException {
Token T_PROTECTED222=null;
Token label221 =null;
Token end_of_stmt223 =null;
Token lbl = null;
try {
// FortranParser08.g:2178:2: ( ( label )? T_PROTECTED ( T_COLON_COLON )? generic_name_list end_of_stmt )
// FortranParser08.g:2178:4: ( label )? T_PROTECTED ( T_COLON_COLON )? generic_name_list end_of_stmt
{
// FortranParser08.g:2178:4: ( label )?
int alt204=2;
int LA204_0 = input.LA(1);
if ( (LA204_0==T_DIGIT_STRING) ) {
alt204=1;
}
switch (alt204) {
case 1 :
// FortranParser08.g:2178:5: label
{
pushFollow(FOLLOW_label_in_protected_stmt9751);
label221=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label221;}
}
break;
}
T_PROTECTED222=(Token)match(input,T_PROTECTED,FOLLOW_T_PROTECTED_in_protected_stmt9757); if (state.failed) return;
// FortranParser08.g:2178:42: ( T_COLON_COLON )?
int alt205=2;
int LA205_0 = input.LA(1);
if ( (LA205_0==T_COLON_COLON) ) {
alt205=1;
}
switch (alt205) {
case 1 :
// FortranParser08.g:2178:44: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_protected_stmt9761); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_generic_name_list_in_protected_stmt9779);
generic_name_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_protected_stmt9781);
end_of_stmt223=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.protected_stmt(lbl,T_PROTECTED222,end_of_stmt223);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "protected_stmt"
// $ANTLR start "save_stmt"
// FortranParser08.g:2184:1: save_stmt : ( label )? T_SAVE ( ( T_COLON_COLON )? saved_entity_list )? end_of_stmt ;
public final void save_stmt() throws RecognitionException {
Token T_SAVE225=null;
Token label224 =null;
Token end_of_stmt226 =null;
Token lbl = null; boolean hasSavedEntityList=false;
try {
// FortranParser08.g:2187:5: ( ( label )? T_SAVE ( ( T_COLON_COLON )? saved_entity_list )? end_of_stmt )
// FortranParser08.g:2187:7: ( label )? T_SAVE ( ( T_COLON_COLON )? saved_entity_list )? end_of_stmt
{
// FortranParser08.g:2187:7: ( label )?
int alt206=2;
int LA206_0 = input.LA(1);
if ( (LA206_0==T_DIGIT_STRING) ) {
alt206=1;
}
switch (alt206) {
case 1 :
// FortranParser08.g:2187:8: label
{
pushFollow(FOLLOW_label_in_save_stmt9811);
label224=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label224;}
}
break;
}
T_SAVE225=(Token)match(input,T_SAVE,FOLLOW_T_SAVE_in_save_stmt9817); if (state.failed) return;
// FortranParser08.g:2187:40: ( ( T_COLON_COLON )? saved_entity_list )?
int alt208=2;
int LA208_0 = input.LA(1);
if ( (LA208_0==T_COLON_COLON||LA208_0==T_IDENT||LA208_0==T_SLASH) ) {
alt208=1;
}
switch (alt208) {
case 1 :
// FortranParser08.g:2187:42: ( T_COLON_COLON )? saved_entity_list
{
// FortranParser08.g:2187:42: ( T_COLON_COLON )?
int alt207=2;
int LA207_0 = input.LA(1);
if ( (LA207_0==T_COLON_COLON) ) {
alt207=1;
}
switch (alt207) {
case 1 :
// FortranParser08.g:2187:44: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_save_stmt9823); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_saved_entity_list_in_save_stmt9841);
saved_entity_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasSavedEntityList=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_save_stmt9847);
end_of_stmt226=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.save_stmt(lbl,T_SAVE225,end_of_stmt226,hasSavedEntityList);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "save_stmt"
// $ANTLR start "saved_entity"
// FortranParser08.g:2195:1: saved_entity : (id= T_IDENT | T_SLASH id= T_IDENT T_SLASH );
public final void saved_entity() throws RecognitionException {
Token id=null;
try {
// FortranParser08.g:2196:2: (id= T_IDENT | T_SLASH id= T_IDENT T_SLASH )
int alt209=2;
int LA209_0 = input.LA(1);
if ( (LA209_0==T_IDENT) ) {
alt209=1;
}
else if ( (LA209_0==T_SLASH) ) {
alt209=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 209, 0, input);
throw nvae;
}
switch (alt209) {
case 1 :
// FortranParser08.g:2196:4: id= T_IDENT
{
id=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_saved_entity9874); if (state.failed) return;
if ( state.backtracking==0 ) {action.saved_entity(id, false);}
}
break;
case 2 :
// FortranParser08.g:2198:4: T_SLASH id= T_IDENT T_SLASH
{
match(input,T_SLASH,FOLLOW_T_SLASH_in_saved_entity9884); if (state.failed) return;
id=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_saved_entity9888); if (state.failed) return;
match(input,T_SLASH,FOLLOW_T_SLASH_in_saved_entity9890); if (state.failed) return;
if ( state.backtracking==0 ) {action.saved_entity(id, true);}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "saved_entity"
// $ANTLR start "saved_entity_list"
// FortranParser08.g:2202:1: saved_entity_list : saved_entity ( T_COMMA saved_entity )* ;
public final void saved_entity_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2204:5: ( saved_entity ( T_COMMA saved_entity )* )
// FortranParser08.g:2204:10: saved_entity ( T_COMMA saved_entity )*
{
if ( state.backtracking==0 ) {action.saved_entity_list__begin();}
pushFollow(FOLLOW_saved_entity_in_saved_entity_list9921);
saved_entity();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2205:27: ( T_COMMA saved_entity )*
loop210:
while (true) {
int alt210=2;
int LA210_0 = input.LA(1);
if ( (LA210_0==T_COMMA) ) {
alt210=1;
}
switch (alt210) {
case 1 :
// FortranParser08.g:2205:29: T_COMMA saved_entity
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_saved_entity_list9927); if (state.failed) return;
pushFollow(FOLLOW_saved_entity_in_saved_entity_list9929);
saved_entity();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop210;
}
}
if ( state.backtracking==0 ) {action.saved_entity_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "saved_entity_list"
// $ANTLR start "target_stmt"
// FortranParser08.g:2214:1: target_stmt : ( label )? T_TARGET ( T_COLON_COLON )? target_decl_list end_of_stmt ;
public final void target_stmt() throws RecognitionException {
Token T_TARGET228=null;
Token label227 =null;
Token end_of_stmt229 =null;
Token lbl = null;int count=1;
try {
// FortranParser08.g:2217:4: ( ( label )? T_TARGET ( T_COLON_COLON )? target_decl_list end_of_stmt )
// FortranParser08.g:2217:8: ( label )? T_TARGET ( T_COLON_COLON )? target_decl_list end_of_stmt
{
// FortranParser08.g:2217:8: ( label )?
int alt211=2;
int LA211_0 = input.LA(1);
if ( (LA211_0==T_DIGIT_STRING) ) {
alt211=1;
}
switch (alt211) {
case 1 :
// FortranParser08.g:2217:9: label
{
pushFollow(FOLLOW_label_in_target_stmt9977);
label227=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label227;}
}
break;
}
T_TARGET228=(Token)match(input,T_TARGET,FOLLOW_T_TARGET_in_target_stmt9990); if (state.failed) return;
// FortranParser08.g:2218:17: ( T_COLON_COLON )?
int alt212=2;
int LA212_0 = input.LA(1);
if ( (LA212_0==T_COLON_COLON) ) {
alt212=1;
}
switch (alt212) {
case 1 :
// FortranParser08.g:2218:19: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_target_stmt9994); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_target_decl_list_in_target_stmt9999);
target_decl_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_target_stmt10001);
end_of_stmt229=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.target_stmt(lbl,T_TARGET228,end_of_stmt229);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "target_stmt"
// $ANTLR start "target_decl"
// FortranParser08.g:2231:1: target_decl : T_IDENT ( T_LPAREN array_spec T_RPAREN )? ( T_LBRACKET coarray_spec T_RBRACKET )? ;
public final void target_decl() throws RecognitionException {
Token T_IDENT230=null;
boolean hasArraySpec=false; boolean hasCoarraySpec=false;
try {
// FortranParser08.g:2233:4: ( T_IDENT ( T_LPAREN array_spec T_RPAREN )? ( T_LBRACKET coarray_spec T_RBRACKET )? )
// FortranParser08.g:2233:8: T_IDENT ( T_LPAREN array_spec T_RPAREN )? ( T_LBRACKET coarray_spec T_RBRACKET )?
{
T_IDENT230=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_target_decl10033); if (state.failed) return;
// FortranParser08.g:2233:16: ( T_LPAREN array_spec T_RPAREN )?
int alt213=2;
int LA213_0 = input.LA(1);
if ( (LA213_0==T_LPAREN) ) {
alt213=1;
}
switch (alt213) {
case 1 :
// FortranParser08.g:2233:17: T_LPAREN array_spec T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_target_decl10036); if (state.failed) return;
pushFollow(FOLLOW_array_spec_in_target_decl10038);
array_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_target_decl10040); if (state.failed) return;
if ( state.backtracking==0 ) {hasArraySpec=true;}
}
break;
}
// FortranParser08.g:2234:16: ( T_LBRACKET coarray_spec T_RBRACKET )?
int alt214=2;
int LA214_0 = input.LA(1);
if ( (LA214_0==T_LBRACKET) ) {
alt214=1;
}
switch (alt214) {
case 1 :
// FortranParser08.g:2234:17: T_LBRACKET coarray_spec T_RBRACKET
{
match(input,T_LBRACKET,FOLLOW_T_LBRACKET_in_target_decl10063); if (state.failed) return;
pushFollow(FOLLOW_coarray_spec_in_target_decl10065);
coarray_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RBRACKET,FOLLOW_T_RBRACKET_in_target_decl10067); if (state.failed) return;
if ( state.backtracking==0 ) {hasCoarraySpec=true;}
}
break;
}
if ( state.backtracking==0 ) {action.target_decl(T_IDENT230,hasArraySpec,hasCoarraySpec);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "target_decl"
// $ANTLR start "target_decl_list"
// FortranParser08.g:2239:1: target_decl_list : target_decl ( T_COMMA target_decl )* ;
public final void target_decl_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2241:4: ( target_decl ( T_COMMA target_decl )* )
// FortranParser08.g:2241:12: target_decl ( T_COMMA target_decl )*
{
if ( state.backtracking==0 ) {action.target_decl_list__begin();}
pushFollow(FOLLOW_target_decl_in_target_decl_list10119);
target_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2242:31: ( T_COMMA target_decl )*
loop215:
while (true) {
int alt215=2;
int LA215_0 = input.LA(1);
if ( (LA215_0==T_COMMA) ) {
alt215=1;
}
switch (alt215) {
case 1 :
// FortranParser08.g:2242:33: T_COMMA target_decl
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_target_decl_list10125); if (state.failed) return;
pushFollow(FOLLOW_target_decl_in_target_decl_list10127);
target_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop215;
}
}
if ( state.backtracking==0 ) {action.target_decl_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "target_decl_list"
// $ANTLR start "value_stmt"
// FortranParser08.g:2248:1: value_stmt : ( label )? T_VALUE ( T_COLON_COLON )? generic_name_list end_of_stmt ;
public final void value_stmt() throws RecognitionException {
Token T_VALUE232=null;
Token label231 =null;
Token end_of_stmt233 =null;
Token lbl = null;
try {
// FortranParser08.g:2251:2: ( ( label )? T_VALUE ( T_COLON_COLON )? generic_name_list end_of_stmt )
// FortranParser08.g:2251:4: ( label )? T_VALUE ( T_COLON_COLON )? generic_name_list end_of_stmt
{
// FortranParser08.g:2251:4: ( label )?
int alt216=2;
int LA216_0 = input.LA(1);
if ( (LA216_0==T_DIGIT_STRING) ) {
alt216=1;
}
switch (alt216) {
case 1 :
// FortranParser08.g:2251:5: label
{
pushFollow(FOLLOW_label_in_value_stmt10170);
label231=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label231;}
}
break;
}
T_VALUE232=(Token)match(input,T_VALUE,FOLLOW_T_VALUE_in_value_stmt10176); if (state.failed) return;
// FortranParser08.g:2251:38: ( T_COLON_COLON )?
int alt217=2;
int LA217_0 = input.LA(1);
if ( (LA217_0==T_COLON_COLON) ) {
alt217=1;
}
switch (alt217) {
case 1 :
// FortranParser08.g:2251:40: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_value_stmt10180); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_generic_name_list_in_value_stmt10198);
generic_name_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_value_stmt10200);
end_of_stmt233=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.value_stmt(lbl,T_VALUE232,end_of_stmt233);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "value_stmt"
// $ANTLR start "volatile_stmt"
// FortranParser08.g:2258:1: volatile_stmt : ( label )? T_VOLATILE ( T_COLON_COLON )? generic_name_list end_of_stmt ;
public final void volatile_stmt() throws RecognitionException {
Token T_VOLATILE235=null;
Token label234 =null;
Token end_of_stmt236 =null;
Token lbl = null;
try {
// FortranParser08.g:2261:2: ( ( label )? T_VOLATILE ( T_COLON_COLON )? generic_name_list end_of_stmt )
// FortranParser08.g:2261:4: ( label )? T_VOLATILE ( T_COLON_COLON )? generic_name_list end_of_stmt
{
// FortranParser08.g:2261:4: ( label )?
int alt218=2;
int LA218_0 = input.LA(1);
if ( (LA218_0==T_DIGIT_STRING) ) {
alt218=1;
}
switch (alt218) {
case 1 :
// FortranParser08.g:2261:5: label
{
pushFollow(FOLLOW_label_in_volatile_stmt10231);
label234=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label234;}
}
break;
}
T_VOLATILE235=(Token)match(input,T_VOLATILE,FOLLOW_T_VOLATILE_in_volatile_stmt10237); if (state.failed) return;
// FortranParser08.g:2261:41: ( T_COLON_COLON )?
int alt219=2;
int LA219_0 = input.LA(1);
if ( (LA219_0==T_COLON_COLON) ) {
alt219=1;
}
switch (alt219) {
case 1 :
// FortranParser08.g:2261:43: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_volatile_stmt10241); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_generic_name_list_in_volatile_stmt10259);
generic_name_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_volatile_stmt10261);
end_of_stmt236=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.volatile_stmt(lbl,T_VOLATILE235,end_of_stmt236);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "volatile_stmt"
// $ANTLR start "implicit_stmt"
// FortranParser08.g:2267:1: implicit_stmt : ( ( label )? T_IMPLICIT implicit_spec_list end_of_stmt | ( label )? T_IMPLICIT T_NONE end_of_stmt );
public final void implicit_stmt() throws RecognitionException {
Token T_IMPLICIT238=null;
Token T_IMPLICIT241=null;
Token T_NONE242=null;
Token label237 =null;
Token end_of_stmt239 =null;
Token label240 =null;
Token end_of_stmt243 =null;
Token lbl = null;
try {
// FortranParser08.g:2270:2: ( ( label )? T_IMPLICIT implicit_spec_list end_of_stmt | ( label )? T_IMPLICIT T_NONE end_of_stmt )
int alt222=2;
int LA222_0 = input.LA(1);
if ( (LA222_0==T_DIGIT_STRING) ) {
int LA222_1 = input.LA(2);
if ( (LA222_1==T_IMPLICIT) ) {
int LA222_2 = input.LA(3);
if ( (LA222_2==T_NONE) ) {
alt222=2;
}
else if ( (LA222_2==T_CHARACTER||LA222_2==T_CLASS||LA222_2==T_COMPLEX||(LA222_2 >= T_DOUBLE && LA222_2 <= T_DOUBLEPRECISION)||LA222_2==T_INTEGER||LA222_2==T_LOGICAL||LA222_2==T_REAL||LA222_2==T_TYPE) ) {
alt222=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 222, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 222, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA222_0==T_IMPLICIT) ) {
int LA222_2 = input.LA(2);
if ( (LA222_2==T_NONE) ) {
alt222=2;
}
else if ( (LA222_2==T_CHARACTER||LA222_2==T_CLASS||LA222_2==T_COMPLEX||(LA222_2 >= T_DOUBLE && LA222_2 <= T_DOUBLEPRECISION)||LA222_2==T_INTEGER||LA222_2==T_LOGICAL||LA222_2==T_REAL||LA222_2==T_TYPE) ) {
alt222=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 222, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 222, 0, input);
throw nvae;
}
switch (alt222) {
case 1 :
// FortranParser08.g:2270:4: ( label )? T_IMPLICIT implicit_spec_list end_of_stmt
{
// FortranParser08.g:2270:4: ( label )?
int alt220=2;
int LA220_0 = input.LA(1);
if ( (LA220_0==T_DIGIT_STRING) ) {
alt220=1;
}
switch (alt220) {
case 1 :
// FortranParser08.g:2270:5: label
{
pushFollow(FOLLOW_label_in_implicit_stmt10291);
label237=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label237;}
}
break;
}
T_IMPLICIT238=(Token)match(input,T_IMPLICIT,FOLLOW_T_IMPLICIT_in_implicit_stmt10297); if (state.failed) return;
pushFollow(FOLLOW_implicit_spec_list_in_implicit_stmt10299);
implicit_spec_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_implicit_stmt10301);
end_of_stmt239=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.implicit_stmt(lbl, T_IMPLICIT238, null, end_of_stmt239,
true);}
}
break;
case 2 :
// FortranParser08.g:2273:4: ( label )? T_IMPLICIT T_NONE end_of_stmt
{
// FortranParser08.g:2273:4: ( label )?
int alt221=2;
int LA221_0 = input.LA(1);
if ( (LA221_0==T_DIGIT_STRING) ) {
alt221=1;
}
switch (alt221) {
case 1 :
// FortranParser08.g:2273:5: label
{
pushFollow(FOLLOW_label_in_implicit_stmt10313);
label240=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label240;}
}
break;
}
T_IMPLICIT241=(Token)match(input,T_IMPLICIT,FOLLOW_T_IMPLICIT_in_implicit_stmt10319); if (state.failed) return;
T_NONE242=(Token)match(input,T_NONE,FOLLOW_T_NONE_in_implicit_stmt10321); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_implicit_stmt10323);
end_of_stmt243=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.implicit_stmt(lbl, T_IMPLICIT241, T_NONE242, end_of_stmt243,
false);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "implicit_stmt"
// $ANTLR start "implicit_spec"
// FortranParser08.g:2279:1: implicit_spec : declaration_type_spec T_LPAREN letter_spec_list T_RPAREN ;
public final void implicit_spec() throws RecognitionException {
try {
// FortranParser08.g:2280:2: ( declaration_type_spec T_LPAREN letter_spec_list T_RPAREN )
// FortranParser08.g:2280:4: declaration_type_spec T_LPAREN letter_spec_list T_RPAREN
{
pushFollow(FOLLOW_declaration_type_spec_in_implicit_spec10341);
declaration_type_spec();
state._fsp--;
if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_implicit_spec10343); if (state.failed) return;
pushFollow(FOLLOW_letter_spec_list_in_implicit_spec10345);
letter_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_implicit_spec10347); if (state.failed) return;
if ( state.backtracking==0 ) { action.implicit_spec(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "implicit_spec"
// $ANTLR start "implicit_spec_list"
// FortranParser08.g:2284:1: implicit_spec_list : implicit_spec ( T_COMMA implicit_spec )* ;
public final void implicit_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2286:5: ( implicit_spec ( T_COMMA implicit_spec )* )
// FortranParser08.g:2286:10: implicit_spec ( T_COMMA implicit_spec )*
{
if ( state.backtracking==0 ) {action.implicit_spec_list__begin();}
pushFollow(FOLLOW_implicit_spec_in_implicit_spec_list10382);
implicit_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2287:28: ( T_COMMA implicit_spec )*
loop223:
while (true) {
int alt223=2;
int LA223_0 = input.LA(1);
if ( (LA223_0==T_COMMA) ) {
alt223=1;
}
switch (alt223) {
case 1 :
// FortranParser08.g:2287:30: T_COMMA implicit_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_implicit_spec_list10388); if (state.failed) return;
pushFollow(FOLLOW_implicit_spec_in_implicit_spec_list10390);
implicit_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop223;
}
}
if ( state.backtracking==0 ) {action.implicit_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "implicit_spec_list"
// $ANTLR start "letter_spec"
// FortranParser08.g:2295:1: letter_spec : id1= T_IDENT ( T_MINUS id2= T_IDENT )? ;
public final void letter_spec() throws RecognitionException {
Token id1=null;
Token id2=null;
try {
// FortranParser08.g:2296:5: (id1= T_IDENT ( T_MINUS id2= T_IDENT )? )
// FortranParser08.g:2296:7: id1= T_IDENT ( T_MINUS id2= T_IDENT )?
{
id1=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_letter_spec10429); if (state.failed) return;
// FortranParser08.g:2296:19: ( T_MINUS id2= T_IDENT )?
int alt224=2;
int LA224_0 = input.LA(1);
if ( (LA224_0==T_MINUS) ) {
alt224=1;
}
switch (alt224) {
case 1 :
// FortranParser08.g:2296:21: T_MINUS id2= T_IDENT
{
match(input,T_MINUS,FOLLOW_T_MINUS_in_letter_spec10433); if (state.failed) return;
id2=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_letter_spec10437); if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) { action.letter_spec(id1, id2); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "letter_spec"
// $ANTLR start "letter_spec_list"
// FortranParser08.g:2300:1: letter_spec_list : letter_spec ( T_COMMA letter_spec )* ;
public final void letter_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2302:5: ( letter_spec ( T_COMMA letter_spec )* )
// FortranParser08.g:2302:10: letter_spec ( T_COMMA letter_spec )*
{
if ( state.backtracking==0 ) {action.letter_spec_list__begin();}
pushFollow(FOLLOW_letter_spec_in_letter_spec_list10479);
letter_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2303:26: ( T_COMMA letter_spec )*
loop225:
while (true) {
int alt225=2;
int LA225_0 = input.LA(1);
if ( (LA225_0==T_COMMA) ) {
alt225=1;
}
switch (alt225) {
case 1 :
// FortranParser08.g:2303:28: T_COMMA letter_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_letter_spec_list10485); if (state.failed) return;
pushFollow(FOLLOW_letter_spec_in_letter_spec_list10487);
letter_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop225;
}
}
if ( state.backtracking==0 ) {action.letter_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "letter_spec_list"
// $ANTLR start "namelist_stmt"
// FortranParser08.g:2309:1: namelist_stmt : ( label )? T_NAMELIST T_SLASH nlName= T_IDENT T_SLASH namelist_group_object_list ( ( T_COMMA )? T_SLASH nlName= T_IDENT T_SLASH namelist_group_object_list )* end_of_stmt ;
public final void namelist_stmt() throws RecognitionException {
Token nlName=null;
Token T_NAMELIST245=null;
Token label244 =null;
Token end_of_stmt246 =null;
Token lbl = null;int count =1;
try {
// FortranParser08.g:2312:5: ( ( label )? T_NAMELIST T_SLASH nlName= T_IDENT T_SLASH namelist_group_object_list ( ( T_COMMA )? T_SLASH nlName= T_IDENT T_SLASH namelist_group_object_list )* end_of_stmt )
// FortranParser08.g:2312:7: ( label )? T_NAMELIST T_SLASH nlName= T_IDENT T_SLASH namelist_group_object_list ( ( T_COMMA )? T_SLASH nlName= T_IDENT T_SLASH namelist_group_object_list )* end_of_stmt
{
// FortranParser08.g:2312:7: ( label )?
int alt226=2;
int LA226_0 = input.LA(1);
if ( (LA226_0==T_DIGIT_STRING) ) {
alt226=1;
}
switch (alt226) {
case 1 :
// FortranParser08.g:2312:8: label
{
pushFollow(FOLLOW_label_in_namelist_stmt10531);
label244=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label244;}
}
break;
}
T_NAMELIST245=(Token)match(input,T_NAMELIST,FOLLOW_T_NAMELIST_in_namelist_stmt10537); if (state.failed) return;
match(input,T_SLASH,FOLLOW_T_SLASH_in_namelist_stmt10539); if (state.failed) return;
nlName=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_namelist_stmt10543); if (state.failed) return;
match(input,T_SLASH,FOLLOW_T_SLASH_in_namelist_stmt10545); if (state.failed) return;
if ( state.backtracking==0 ) {action.namelist_group_name(nlName);}
pushFollow(FOLLOW_namelist_group_object_list_in_namelist_stmt10557);
namelist_group_object_list();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2315:3: ( ( T_COMMA )? T_SLASH nlName= T_IDENT T_SLASH namelist_group_object_list )*
loop228:
while (true) {
int alt228=2;
int LA228_0 = input.LA(1);
if ( (LA228_0==T_COMMA||LA228_0==T_SLASH) ) {
alt228=1;
}
switch (alt228) {
case 1 :
// FortranParser08.g:2315:5: ( T_COMMA )? T_SLASH nlName= T_IDENT T_SLASH namelist_group_object_list
{
// FortranParser08.g:2315:5: ( T_COMMA )?
int alt227=2;
int LA227_0 = input.LA(1);
if ( (LA227_0==T_COMMA) ) {
alt227=1;
}
switch (alt227) {
case 1 :
// FortranParser08.g:2315:7: T_COMMA
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_namelist_stmt10565); if (state.failed) return;
}
break;
}
match(input,T_SLASH,FOLLOW_T_SLASH_in_namelist_stmt10571); if (state.failed) return;
nlName=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_namelist_stmt10575); if (state.failed) return;
match(input,T_SLASH,FOLLOW_T_SLASH_in_namelist_stmt10577); if (state.failed) return;
if ( state.backtracking==0 ) {action.namelist_group_name(nlName);}
pushFollow(FOLLOW_namelist_group_object_list_in_namelist_stmt10586);
namelist_group_object_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop228;
}
}
pushFollow(FOLLOW_end_of_stmt_in_namelist_stmt10592);
end_of_stmt246=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.namelist_stmt(lbl,T_NAMELIST245,end_of_stmt246,count);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "namelist_stmt"
// $ANTLR start "namelist_group_object_list"
// FortranParser08.g:2324:1: namelist_group_object_list :goName= T_IDENT ( T_COMMA goName= T_IDENT )* ;
public final void namelist_group_object_list() throws RecognitionException {
Token goName=null;
int count=0;
try {
// FortranParser08.g:2326:5: (goName= T_IDENT ( T_COMMA goName= T_IDENT )* )
// FortranParser08.g:2326:10: goName= T_IDENT ( T_COMMA goName= T_IDENT )*
{
if ( state.backtracking==0 ) {action.namelist_group_object_list__begin();}
goName=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_namelist_group_object_list10630); if (state.failed) return;
if ( state.backtracking==0 ) {action.namelist_group_object(goName); count++;}
// FortranParser08.g:2328:7: ( T_COMMA goName= T_IDENT )*
loop229:
while (true) {
int alt229=2;
int LA229_0 = input.LA(1);
if ( (LA229_0==T_COMMA) ) {
int LA229_1 = input.LA(2);
if ( (LA229_1==T_IDENT) ) {
alt229=1;
}
}
switch (alt229) {
case 1 :
// FortranParser08.g:2328:9: T_COMMA goName= T_IDENT
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_namelist_group_object_list10642); if (state.failed) return;
goName=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_namelist_group_object_list10646); if (state.failed) return;
if ( state.backtracking==0 ) {action.namelist_group_object(goName); count++;}
}
break;
default :
break loop229;
}
}
if ( state.backtracking==0 ) {action.namelist_group_object_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "namelist_group_object_list"
// $ANTLR start "equivalence_stmt"
// FortranParser08.g:2334:1: equivalence_stmt : ( label )? T_EQUIVALENCE equivalence_set_list end_of_stmt ;
public final void equivalence_stmt() throws RecognitionException {
Token T_EQUIVALENCE248=null;
Token label247 =null;
Token end_of_stmt249 =null;
Token lbl = null;
try {
// FortranParser08.g:2337:2: ( ( label )? T_EQUIVALENCE equivalence_set_list end_of_stmt )
// FortranParser08.g:2337:4: ( label )? T_EQUIVALENCE equivalence_set_list end_of_stmt
{
// FortranParser08.g:2337:4: ( label )?
int alt230=2;
int LA230_0 = input.LA(1);
if ( (LA230_0==T_DIGIT_STRING) ) {
alt230=1;
}
switch (alt230) {
case 1 :
// FortranParser08.g:2337:5: label
{
pushFollow(FOLLOW_label_in_equivalence_stmt10699);
label247=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label247;}
}
break;
}
T_EQUIVALENCE248=(Token)match(input,T_EQUIVALENCE,FOLLOW_T_EQUIVALENCE_in_equivalence_stmt10705); if (state.failed) return;
pushFollow(FOLLOW_equivalence_set_list_in_equivalence_stmt10707);
equivalence_set_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_equivalence_stmt10722);
end_of_stmt249=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.equivalence_stmt(lbl, T_EQUIVALENCE248, end_of_stmt249);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "equivalence_stmt"
// $ANTLR start "equivalence_set"
// FortranParser08.g:2343:1: equivalence_set : T_LPAREN equivalence_object T_COMMA equivalence_object_list T_RPAREN ;
public final void equivalence_set() throws RecognitionException {
try {
// FortranParser08.g:2344:2: ( T_LPAREN equivalence_object T_COMMA equivalence_object_list T_RPAREN )
// FortranParser08.g:2344:4: T_LPAREN equivalence_object T_COMMA equivalence_object_list T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_equivalence_set10739); if (state.failed) return;
pushFollow(FOLLOW_equivalence_object_in_equivalence_set10741);
equivalence_object();
state._fsp--;
if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_equivalence_set10743); if (state.failed) return;
pushFollow(FOLLOW_equivalence_object_list_in_equivalence_set10745);
equivalence_object_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_equivalence_set10747); if (state.failed) return;
if ( state.backtracking==0 ) { action.equivalence_set(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "equivalence_set"
// $ANTLR start "equivalence_set_list"
// FortranParser08.g:2349:1: equivalence_set_list : equivalence_set ( T_COMMA equivalence_set )* ;
public final void equivalence_set_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2351:5: ( equivalence_set ( T_COMMA equivalence_set )* )
// FortranParser08.g:2351:10: equivalence_set ( T_COMMA equivalence_set )*
{
if ( state.backtracking==0 ) {action.equivalence_set_list__begin();}
pushFollow(FOLLOW_equivalence_set_in_equivalence_set_list10783);
equivalence_set();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2352:30: ( T_COMMA equivalence_set )*
loop231:
while (true) {
int alt231=2;
int LA231_0 = input.LA(1);
if ( (LA231_0==T_COMMA) ) {
alt231=1;
}
switch (alt231) {
case 1 :
// FortranParser08.g:2352:32: T_COMMA equivalence_set
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_equivalence_set_list10789); if (state.failed) return;
pushFollow(FOLLOW_equivalence_set_in_equivalence_set_list10791);
equivalence_set();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop231;
}
}
if ( state.backtracking==0 ) {action.equivalence_set_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "equivalence_set_list"
// $ANTLR start "equivalence_object"
// FortranParser08.g:2361:1: equivalence_object : substring ;
public final void equivalence_object() throws RecognitionException {
try {
// FortranParser08.g:2362:2: ( substring )
// FortranParser08.g:2362:4: substring
{
pushFollow(FOLLOW_substring_in_equivalence_object10825);
substring();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.equivalence_object(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "equivalence_object"
// $ANTLR start "equivalence_object_list"
// FortranParser08.g:2365:1: equivalence_object_list : equivalence_object ( T_COMMA equivalence_object )* ;
public final void equivalence_object_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2367:5: ( equivalence_object ( T_COMMA equivalence_object )* )
// FortranParser08.g:2367:10: equivalence_object ( T_COMMA equivalence_object )*
{
if ( state.backtracking==0 ) {action.equivalence_object_list__begin();}
pushFollow(FOLLOW_equivalence_object_in_equivalence_object_list10852);
equivalence_object();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2369:13: ( T_COMMA equivalence_object )*
loop232:
while (true) {
int alt232=2;
int LA232_0 = input.LA(1);
if ( (LA232_0==T_COMMA) ) {
alt232=1;
}
switch (alt232) {
case 1 :
// FortranParser08.g:2369:15: T_COMMA equivalence_object
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_equivalence_object_list10871); if (state.failed) return;
pushFollow(FOLLOW_equivalence_object_in_equivalence_object_list10873);
equivalence_object();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop232;
}
}
if ( state.backtracking==0 ) {action.equivalence_object_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "equivalence_object_list"
// $ANTLR start "common_stmt"
// FortranParser08.g:2376:1: common_stmt : ( label )? T_COMMON (cb_name= common_block_name )? common_block_object_list ( ( T_COMMA )? cb_name= common_block_name common_block_object_list )* end_of_stmt ;
public final void common_stmt() throws RecognitionException {
Token T_COMMON251=null;
Token cb_name =null;
Token label250 =null;
Token end_of_stmt252 =null;
Token lbl=null; int numBlocks=1;
try {
// FortranParser08.g:2379:5: ( ( label )? T_COMMON (cb_name= common_block_name )? common_block_object_list ( ( T_COMMA )? cb_name= common_block_name common_block_object_list )* end_of_stmt )
// FortranParser08.g:2379:7: ( label )? T_COMMON (cb_name= common_block_name )? common_block_object_list ( ( T_COMMA )? cb_name= common_block_name common_block_object_list )* end_of_stmt
{
// FortranParser08.g:2379:7: ( label )?
int alt233=2;
int LA233_0 = input.LA(1);
if ( (LA233_0==T_DIGIT_STRING) ) {
alt233=1;
}
switch (alt233) {
case 1 :
// FortranParser08.g:2379:8: label
{
pushFollow(FOLLOW_label_in_common_stmt10919);
label250=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label250;}
}
break;
}
T_COMMON251=(Token)match(input,T_COMMON,FOLLOW_T_COMMON_in_common_stmt10928); if (state.failed) return;
// FortranParser08.g:2380:12: (cb_name= common_block_name )?
int alt234=2;
int LA234_0 = input.LA(1);
if ( (LA234_0==T_SLASH||LA234_0==T_SLASH_SLASH) ) {
alt234=1;
}
switch (alt234) {
case 1 :
// FortranParser08.g:2380:14: cb_name= common_block_name
{
pushFollow(FOLLOW_common_block_name_in_common_stmt10934);
cb_name=common_block_name();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) { action.common_block_name(cb_name); }
pushFollow(FOLLOW_common_block_object_list_in_common_stmt10946);
common_block_object_list();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2383:3: ( ( T_COMMA )? cb_name= common_block_name common_block_object_list )*
loop236:
while (true) {
int alt236=2;
int LA236_0 = input.LA(1);
if ( (LA236_0==T_COMMA||LA236_0==T_SLASH||LA236_0==T_SLASH_SLASH) ) {
alt236=1;
}
switch (alt236) {
case 1 :
// FortranParser08.g:2383:5: ( T_COMMA )? cb_name= common_block_name common_block_object_list
{
// FortranParser08.g:2383:5: ( T_COMMA )?
int alt235=2;
int LA235_0 = input.LA(1);
if ( (LA235_0==T_COMMA) ) {
alt235=1;
}
switch (alt235) {
case 1 :
// FortranParser08.g:2383:7: T_COMMA
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_common_stmt10954); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_common_block_name_in_common_stmt10961);
cb_name=common_block_name();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.common_block_name(cb_name); }
pushFollow(FOLLOW_common_block_object_list_in_common_stmt10970);
common_block_object_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {numBlocks++;}
}
break;
default :
break loop236;
}
}
pushFollow(FOLLOW_end_of_stmt_in_common_stmt10977);
end_of_stmt252=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.common_stmt(lbl, T_COMMON251, end_of_stmt252, numBlocks);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "common_stmt"
// $ANTLR start "common_block_name"
// FortranParser08.g:2390:1: common_block_name returns [Token id] : ( T_SLASH_SLASH | T_SLASH ( T_IDENT )? T_SLASH );
public final Token common_block_name() throws RecognitionException {
Token id = null;
Token T_IDENT253=null;
try {
// FortranParser08.g:2391:2: ( T_SLASH_SLASH | T_SLASH ( T_IDENT )? T_SLASH )
int alt238=2;
int LA238_0 = input.LA(1);
if ( (LA238_0==T_SLASH_SLASH) ) {
alt238=1;
}
else if ( (LA238_0==T_SLASH) ) {
alt238=2;
}
else {
if (state.backtracking>0) {state.failed=true; return id;}
NoViableAltException nvae =
new NoViableAltException("", 238, 0, input);
throw nvae;
}
switch (alt238) {
case 1 :
// FortranParser08.g:2391:4: T_SLASH_SLASH
{
match(input,T_SLASH_SLASH,FOLLOW_T_SLASH_SLASH_in_common_block_name11001); if (state.failed) return id;
if ( state.backtracking==0 ) {id=null;}
}
break;
case 2 :
// FortranParser08.g:2392:4: T_SLASH ( T_IDENT )? T_SLASH
{
match(input,T_SLASH,FOLLOW_T_SLASH_in_common_block_name11008); if (state.failed) return id;
// FortranParser08.g:2392:12: ( T_IDENT )?
int alt237=2;
int LA237_0 = input.LA(1);
if ( (LA237_0==T_IDENT) ) {
alt237=1;
}
switch (alt237) {
case 1 :
// FortranParser08.g:2392:13: T_IDENT
{
T_IDENT253=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_common_block_name11011); if (state.failed) return id;
}
break;
}
match(input,T_SLASH,FOLLOW_T_SLASH_in_common_block_name11015); if (state.failed) return id;
if ( state.backtracking==0 ) {id=T_IDENT253;}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return id;
}
// $ANTLR end "common_block_name"
// $ANTLR start "common_block_object"
// FortranParser08.g:2398:1: common_block_object : T_IDENT ( T_LPAREN explicit_shape_spec_list T_RPAREN )? ;
public final void common_block_object() throws RecognitionException {
Token T_IDENT254=null;
boolean hasShapeSpecList=false;
try {
// FortranParser08.g:2400:5: ( T_IDENT ( T_LPAREN explicit_shape_spec_list T_RPAREN )? )
// FortranParser08.g:2400:7: T_IDENT ( T_LPAREN explicit_shape_spec_list T_RPAREN )?
{
T_IDENT254=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_common_block_object11038); if (state.failed) return;
// FortranParser08.g:2400:15: ( T_LPAREN explicit_shape_spec_list T_RPAREN )?
int alt239=2;
int LA239_0 = input.LA(1);
if ( (LA239_0==T_LPAREN) ) {
alt239=1;
}
switch (alt239) {
case 1 :
// FortranParser08.g:2400:17: T_LPAREN explicit_shape_spec_list T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_common_block_object11042); if (state.failed) return;
pushFollow(FOLLOW_explicit_shape_spec_list_in_common_block_object11044);
explicit_shape_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_common_block_object11046); if (state.failed) return;
if ( state.backtracking==0 ) {hasShapeSpecList=true;}
}
break;
}
if ( state.backtracking==0 ) {action.common_block_object(T_IDENT254,hasShapeSpecList);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "common_block_object"
// $ANTLR start "common_block_object_list"
// FortranParser08.g:2405:1: common_block_object_list : common_block_object ( T_COMMA common_block_object )* ;
public final void common_block_object_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2407:5: ( common_block_object ( T_COMMA common_block_object )* )
// FortranParser08.g:2407:10: common_block_object ( T_COMMA common_block_object )*
{
if ( state.backtracking==0 ) {action.common_block_object_list__begin();}
pushFollow(FOLLOW_common_block_object_in_common_block_object_list11096);
common_block_object();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2409:13: ( T_COMMA common_block_object )*
loop240:
while (true) {
int alt240=2;
int LA240_0 = input.LA(1);
if ( (LA240_0==T_COMMA) ) {
int LA240_1 = input.LA(2);
if ( (LA240_1==T_IDENT) ) {
alt240=1;
}
}
switch (alt240) {
case 1 :
// FortranParser08.g:2409:15: T_COMMA common_block_object
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_common_block_object_list11115); if (state.failed) return;
pushFollow(FOLLOW_common_block_object_in_common_block_object_list11117);
common_block_object();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop240;
}
}
if ( state.backtracking==0 ) {action.common_block_object_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "common_block_object_list"
// $ANTLR start "variable"
// FortranParser08.g:2420:1: variable : designator ;
public final void variable() throws RecognitionException {
try {
// FortranParser08.g:2421:4: ( designator )
// FortranParser08.g:2421:8: designator
{
pushFollow(FOLLOW_designator_in_variable11171);
designator();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.variable();}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "variable"
// $ANTLR start "designator"
// FortranParser08.g:2434:1: designator : ( data_ref ( T_LPAREN substring_range T_RPAREN )? | char_literal_constant T_LPAREN substring_range T_RPAREN );
public final void designator() throws RecognitionException {
boolean hasSubstringRange = false;
try {
// FortranParser08.g:2436:2: ( data_ref ( T_LPAREN substring_range T_RPAREN )? | char_literal_constant T_LPAREN substring_range T_RPAREN )
int alt242=2;
int LA242_0 = input.LA(1);
if ( (LA242_0==T_IDENT) ) {
int LA242_1 = input.LA(2);
if ( (LA242_1==EOF||LA242_1==T_ASTERISK||LA242_1==T_COMMA||LA242_1==T_EOS||LA242_1==T_EQUALS||LA242_1==T_LBRACKET||LA242_1==T_LPAREN||LA242_1==T_PERCENT||LA242_1==T_RPAREN||LA242_1==T_SLASH) ) {
alt242=1;
}
else if ( (LA242_1==T_CHAR_CONSTANT) ) {
alt242=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 242, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA242_0==T_CHAR_CONSTANT||LA242_0==T_DIGIT_STRING) ) {
alt242=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 242, 0, input);
throw nvae;
}
switch (alt242) {
case 1 :
// FortranParser08.g:2436:4: data_ref ( T_LPAREN substring_range T_RPAREN )?
{
pushFollow(FOLLOW_data_ref_in_designator11200);
data_ref();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2436:13: ( T_LPAREN substring_range T_RPAREN )?
int alt241=2;
int LA241_0 = input.LA(1);
if ( (LA241_0==T_LPAREN) ) {
alt241=1;
}
switch (alt241) {
case 1 :
// FortranParser08.g:2436:14: T_LPAREN substring_range T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_designator11203); if (state.failed) return;
pushFollow(FOLLOW_substring_range_in_designator11205);
substring_range();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasSubstringRange=true;}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_designator11209); if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) { action.designator(hasSubstringRange); }
}
break;
case 2 :
// FortranParser08.g:2438:4: char_literal_constant T_LPAREN substring_range T_RPAREN
{
pushFollow(FOLLOW_char_literal_constant_in_designator11221);
char_literal_constant();
state._fsp--;
if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_designator11223); if (state.failed) return;
pushFollow(FOLLOW_substring_range_in_designator11225);
substring_range();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_designator11227); if (state.failed) return;
if ( state.backtracking==0 ) { hasSubstringRange=true; action.substring(hasSubstringRange); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "designator"
// $ANTLR start "designator_or_func_ref"
// FortranParser08.g:2451:1: designator_or_func_ref : ( data_ref ( T_LPAREN substring_range_or_arg_list T_RPAREN )? | char_literal_constant T_LPAREN substring_range T_RPAREN );
public final void designator_or_func_ref() throws RecognitionException {
boolean substring_range_or_arg_list255 =false;
boolean hasSubstringRangeOrArgList = false;
boolean hasSubstringRange = false;
try {
// FortranParser08.g:2459:2: ( data_ref ( T_LPAREN substring_range_or_arg_list T_RPAREN )? | char_literal_constant T_LPAREN substring_range T_RPAREN )
int alt244=2;
int LA244_0 = input.LA(1);
if ( (LA244_0==T_IDENT) ) {
int LA244_1 = input.LA(2);
if ( (LA244_1==EOF||LA244_1==T_AND||LA244_1==T_ASTERISK||(LA244_1 >= T_COLON && LA244_1 <= T_COMMA)||LA244_1==T_DEFINED_OP||(LA244_1 >= T_EOS && LA244_1 <= T_EQ)||(LA244_1 >= T_EQV && LA244_1 <= T_EQ_EQ)||LA244_1==T_GE||(LA244_1 >= T_GREATERTHAN && LA244_1 <= T_GT)||(LA244_1 >= T_LBRACKET && LA244_1 <= T_LE)||(LA244_1 >= T_LESSTHAN && LA244_1 <= T_LESSTHAN_EQ)||(LA244_1 >= T_LPAREN && LA244_1 <= T_LT)||LA244_1==T_MINUS||(LA244_1 >= T_NE && LA244_1 <= T_NEQV)||LA244_1==T_OR||LA244_1==T_PERCENT||LA244_1==T_PLUS||LA244_1==T_POWER||LA244_1==T_RBRACKET||LA244_1==T_RPAREN||(LA244_1 >= T_SLASH && LA244_1 <= T_SLASH_SLASH)) ) {
alt244=1;
}
else if ( (LA244_1==T_CHAR_CONSTANT) ) {
alt244=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 244, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA244_0==T_CHAR_CONSTANT||LA244_0==T_DIGIT_STRING) ) {
alt244=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 244, 0, input);
throw nvae;
}
switch (alt244) {
case 1 :
// FortranParser08.g:2459:4: data_ref ( T_LPAREN substring_range_or_arg_list T_RPAREN )?
{
pushFollow(FOLLOW_data_ref_in_designator_or_func_ref11262);
data_ref();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2459:13: ( T_LPAREN substring_range_or_arg_list T_RPAREN )?
int alt243=2;
int LA243_0 = input.LA(1);
if ( (LA243_0==T_LPAREN) ) {
alt243=1;
}
switch (alt243) {
case 1 :
// FortranParser08.g:2459:14: T_LPAREN substring_range_or_arg_list T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_designator_or_func_ref11265); if (state.failed) return;
pushFollow(FOLLOW_substring_range_or_arg_list_in_designator_or_func_ref11267);
substring_range_or_arg_list255=substring_range_or_arg_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {
hasSubstringRangeOrArgList = true;
hasSubstringRange=
substring_range_or_arg_list255;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_designator_or_func_ref11282); if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
if (hasSubstringRangeOrArgList) {
if (hasSubstringRange) {
action.designator(hasSubstringRange);
} else {
// hasActualArgSpecList=true
action.function_reference(true);
}
}
}
}
break;
case 2 :
// FortranParser08.g:2476:4: char_literal_constant T_LPAREN substring_range T_RPAREN
{
pushFollow(FOLLOW_char_literal_constant_in_designator_or_func_ref11294);
char_literal_constant();
state._fsp--;
if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_designator_or_func_ref11296); if (state.failed) return;
pushFollow(FOLLOW_substring_range_in_designator_or_func_ref11298);
substring_range();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_designator_or_func_ref11300); if (state.failed) return;
if ( state.backtracking==0 ) { hasSubstringRange=true; action.substring(hasSubstringRange); }
}
break;
}
if ( state.backtracking==0 ) {
action.designator_or_func_ref();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "designator_or_func_ref"
// $ANTLR start "substring_range_or_arg_list"
// FortranParser08.g:2480:1: substring_range_or_arg_list returns [boolean isSubstringRange] : ( T_COLON ( expr )? | expr substr_range_or_arg_list_suffix | T_IDENT T_EQUALS expr ( T_COMMA actual_arg_spec )* | ( T_IDENT T_EQUALS )? T_ASTERISK label ( T_COMMA actual_arg_spec )* );
public final boolean substring_range_or_arg_list() throws RecognitionException {
boolean isSubstringRange = false;
Token T_IDENT257=null;
Token T_IDENT258=null;
boolean substr_range_or_arg_list_suffix256 =false;
Token label259 =null;
boolean hasUpperBound = false;
Token keyword = null;
int count = 0;
try {
// FortranParser08.g:2489:2: ( T_COLON ( expr )? | expr substr_range_or_arg_list_suffix | T_IDENT T_EQUALS expr ( T_COMMA actual_arg_spec )* | ( T_IDENT T_EQUALS )? T_ASTERISK label ( T_COMMA actual_arg_spec )* )
int alt249=4;
switch ( input.LA(1) ) {
case T_COLON:
{
alt249=1;
}
break;
case BINARY_CONSTANT:
case HEX_CONSTANT:
case OCTAL_CONSTANT:
case T_CHAR_CONSTANT:
case T_DEFINED_OP:
case T_DIGIT_STRING:
case T_FALSE:
case T_HOLLERITH:
case T_LBRACKET:
case T_LPAREN:
case T_MINUS:
case T_NOT:
case T_PLUS:
case T_REAL_CONSTANT:
case T_TRUE:
{
alt249=2;
}
break;
case T_IDENT:
{
int LA249_3 = input.LA(2);
if ( (LA249_3==T_AND||LA249_3==T_ASTERISK||LA249_3==T_CHAR_CONSTANT||LA249_3==T_COLON||LA249_3==T_COMMA||LA249_3==T_DEFINED_OP||LA249_3==T_EQ||(LA249_3 >= T_EQV && LA249_3 <= T_EQ_EQ)||LA249_3==T_GE||(LA249_3 >= T_GREATERTHAN && LA249_3 <= T_GT)||(LA249_3 >= T_LBRACKET && LA249_3 <= T_LE)||(LA249_3 >= T_LESSTHAN && LA249_3 <= T_LESSTHAN_EQ)||(LA249_3 >= T_LPAREN && LA249_3 <= T_LT)||LA249_3==T_MINUS||(LA249_3 >= T_NE && LA249_3 <= T_NEQV)||LA249_3==T_OR||LA249_3==T_PERCENT||LA249_3==T_PLUS||LA249_3==T_POWER||LA249_3==T_RPAREN||(LA249_3 >= T_SLASH && LA249_3 <= T_SLASH_SLASH)) ) {
alt249=2;
}
else if ( (LA249_3==T_EQUALS) ) {
int LA249_5 = input.LA(3);
if ( (LA249_5==BINARY_CONSTANT||LA249_5==HEX_CONSTANT||LA249_5==OCTAL_CONSTANT||LA249_5==T_CHAR_CONSTANT||(LA249_5 >= T_DEFINED_OP && LA249_5 <= T_DIGIT_STRING)||LA249_5==T_FALSE||(LA249_5 >= T_HOLLERITH && LA249_5 <= T_IDENT)||LA249_5==T_LBRACKET||LA249_5==T_LPAREN||LA249_5==T_MINUS||LA249_5==T_NOT||LA249_5==T_PLUS||LA249_5==T_REAL_CONSTANT||LA249_5==T_TRUE) ) {
alt249=3;
}
else if ( (LA249_5==T_ASTERISK) ) {
alt249=4;
}
else {
if (state.backtracking>0) {state.failed=true; return isSubstringRange;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 249, 5, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return isSubstringRange;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 249, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ASTERISK:
{
alt249=4;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return isSubstringRange;}
NoViableAltException nvae =
new NoViableAltException("", 249, 0, input);
throw nvae;
}
switch (alt249) {
case 1 :
// FortranParser08.g:2489:4: T_COLON ( expr )?
{
match(input,T_COLON,FOLLOW_T_COLON_in_substring_range_or_arg_list11330); if (state.failed) return isSubstringRange;
// FortranParser08.g:2489:12: ( expr )?
int alt245=2;
int LA245_0 = input.LA(1);
if ( (LA245_0==BINARY_CONSTANT||LA245_0==HEX_CONSTANT||LA245_0==OCTAL_CONSTANT||LA245_0==T_CHAR_CONSTANT||(LA245_0 >= T_DEFINED_OP && LA245_0 <= T_DIGIT_STRING)||LA245_0==T_FALSE||(LA245_0 >= T_HOLLERITH && LA245_0 <= T_IDENT)||LA245_0==T_LBRACKET||LA245_0==T_LPAREN||LA245_0==T_MINUS||LA245_0==T_NOT||LA245_0==T_PLUS||LA245_0==T_REAL_CONSTANT||LA245_0==T_TRUE) ) {
alt245=1;
}
switch (alt245) {
case 1 :
// FortranParser08.g:2489:13: expr
{
pushFollow(FOLLOW_expr_in_substring_range_or_arg_list11333);
expr();
state._fsp--;
if (state.failed) return isSubstringRange;
if ( state.backtracking==0 ) {hasUpperBound = true;}
}
break;
}
if ( state.backtracking==0 ) {
// hasLowerBound=false
action.substring_range(false, hasUpperBound);
isSubstringRange=true;
}
}
break;
case 2 :
// FortranParser08.g:2495:5: expr substr_range_or_arg_list_suffix
{
if ( state.backtracking==0 ) {
/* mimic actual-arg-spec-list */
action.actual_arg_spec_list__begin();
}
pushFollow(FOLLOW_expr_in_substring_range_or_arg_list11353);
expr();
state._fsp--;
if (state.failed) return isSubstringRange;
pushFollow(FOLLOW_substr_range_or_arg_list_suffix_in_substring_range_or_arg_list11355);
substr_range_or_arg_list_suffix256=substr_range_or_arg_list_suffix();
state._fsp--;
if (state.failed) return isSubstringRange;
if ( state.backtracking==0 ) {
isSubstringRange =
substr_range_or_arg_list_suffix256;
}
}
break;
case 3 :
// FortranParser08.g:2504:5: T_IDENT T_EQUALS expr ( T_COMMA actual_arg_spec )*
{
if ( state.backtracking==0 ) {
/* mimic actual-arg-spec-list */
action.actual_arg_spec_list__begin();
}
T_IDENT257=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_substring_range_or_arg_list11370); if (state.failed) return isSubstringRange;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_substring_range_or_arg_list11372); if (state.failed) return isSubstringRange;
pushFollow(FOLLOW_expr_in_substring_range_or_arg_list11374);
expr();
state._fsp--;
if (state.failed) return isSubstringRange;
if ( state.backtracking==0 ) {
count++;
action.actual_arg(true, null);
action.actual_arg_spec(T_IDENT257);
}
// FortranParser08.g:2514:3: ( T_COMMA actual_arg_spec )*
loop246:
while (true) {
int alt246=2;
int LA246_0 = input.LA(1);
if ( (LA246_0==T_COMMA) ) {
alt246=1;
}
switch (alt246) {
case 1 :
// FortranParser08.g:2514:5: T_COMMA actual_arg_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_substring_range_or_arg_list11385); if (state.failed) return isSubstringRange;
pushFollow(FOLLOW_actual_arg_spec_in_substring_range_or_arg_list11387);
actual_arg_spec();
state._fsp--;
if (state.failed) return isSubstringRange;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop246;
}
}
if ( state.backtracking==0 ) {
action.actual_arg_spec_list(count);
isSubstringRange = false;
}
}
break;
case 4 :
// FortranParser08.g:2519:5: ( T_IDENT T_EQUALS )? T_ASTERISK label ( T_COMMA actual_arg_spec )*
{
if ( state.backtracking==0 ) {
/* mimic actual-arg-spec-list */
action.actual_arg_spec_list__begin();
}
// FortranParser08.g:2523:3: ( T_IDENT T_EQUALS )?
int alt247=2;
int LA247_0 = input.LA(1);
if ( (LA247_0==T_IDENT) ) {
alt247=1;
}
switch (alt247) {
case 1 :
// FortranParser08.g:2523:5: T_IDENT T_EQUALS
{
T_IDENT258=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_substring_range_or_arg_list11409); if (state.failed) return isSubstringRange;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_substring_range_or_arg_list11411); if (state.failed) return isSubstringRange;
if ( state.backtracking==0 ) {keyword=T_IDENT258;}
}
break;
}
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_substring_range_or_arg_list11418); if (state.failed) return isSubstringRange;
pushFollow(FOLLOW_label_in_substring_range_or_arg_list11420);
label259=label();
state._fsp--;
if (state.failed) return isSubstringRange;
if ( state.backtracking==0 ) {
count++;
action.actual_arg(false, label259);
action.actual_arg_spec(keyword);
}
// FortranParser08.g:2529:3: ( T_COMMA actual_arg_spec )*
loop248:
while (true) {
int alt248=2;
int LA248_0 = input.LA(1);
if ( (LA248_0==T_COMMA) ) {
alt248=1;
}
switch (alt248) {
case 1 :
// FortranParser08.g:2529:5: T_COMMA actual_arg_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_substring_range_or_arg_list11431); if (state.failed) return isSubstringRange;
pushFollow(FOLLOW_actual_arg_spec_in_substring_range_or_arg_list11433);
actual_arg_spec();
state._fsp--;
if (state.failed) return isSubstringRange;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop248;
}
}
if ( state.backtracking==0 ) {
action.actual_arg_spec_list(count);
isSubstringRange = false;
}
}
break;
}
if ( state.backtracking==0 ) {
action.substring_range_or_arg_list();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return isSubstringRange;
}
// $ANTLR end "substring_range_or_arg_list"
// $ANTLR start "substr_range_or_arg_list_suffix"
// FortranParser08.g:2536:1: substr_range_or_arg_list_suffix returns [boolean isSubstringRange] : ( T_COLON ( expr )? | ( T_COMMA actual_arg_spec )* );
public final boolean substr_range_or_arg_list_suffix() throws RecognitionException {
boolean isSubstringRange = false;
boolean hasUpperBound = false; int count = 0;
try {
// FortranParser08.g:2539:2: ( T_COLON ( expr )? | ( T_COMMA actual_arg_spec )* )
int alt252=2;
int LA252_0 = input.LA(1);
if ( (LA252_0==T_COLON) ) {
alt252=1;
}
else if ( (LA252_0==T_COMMA||LA252_0==T_RPAREN) ) {
alt252=2;
}
else {
if (state.backtracking>0) {state.failed=true; return isSubstringRange;}
NoViableAltException nvae =
new NoViableAltException("", 252, 0, input);
throw nvae;
}
switch (alt252) {
case 1 :
// FortranParser08.g:2539:5: T_COLON ( expr )?
{
if ( state.backtracking==0 ) {
// guessed wrong on list creation, inform of error
action.actual_arg_spec_list(-1);
}
match(input,T_COLON,FOLLOW_T_COLON_in_substr_range_or_arg_list_suffix11472); if (state.failed) return isSubstringRange;
// FortranParser08.g:2543:11: ( expr )?
int alt250=2;
int LA250_0 = input.LA(1);
if ( (LA250_0==BINARY_CONSTANT||LA250_0==HEX_CONSTANT||LA250_0==OCTAL_CONSTANT||LA250_0==T_CHAR_CONSTANT||(LA250_0 >= T_DEFINED_OP && LA250_0 <= T_DIGIT_STRING)||LA250_0==T_FALSE||(LA250_0 >= T_HOLLERITH && LA250_0 <= T_IDENT)||LA250_0==T_LBRACKET||LA250_0==T_LPAREN||LA250_0==T_MINUS||LA250_0==T_NOT||LA250_0==T_PLUS||LA250_0==T_REAL_CONSTANT||LA250_0==T_TRUE) ) {
alt250=1;
}
switch (alt250) {
case 1 :
// FortranParser08.g:2543:12: expr
{
pushFollow(FOLLOW_expr_in_substr_range_or_arg_list_suffix11475);
expr();
state._fsp--;
if (state.failed) return isSubstringRange;
if ( state.backtracking==0 ) {hasUpperBound=true;}
}
break;
}
if ( state.backtracking==0 ) {
// hasLowerBound=true
action.substring_range(true, hasUpperBound);
isSubstringRange = true;
}
}
break;
case 2 :
// FortranParser08.g:2550:4: ( T_COMMA actual_arg_spec )*
{
if ( state.backtracking==0 ) {
count++;
action.actual_arg(true, null); // hasExpr=true, label=null
action.actual_arg_spec(null); // keywork=null
}
// FortranParser08.g:2555:3: ( T_COMMA actual_arg_spec )*
loop251:
while (true) {
int alt251=2;
int LA251_0 = input.LA(1);
if ( (LA251_0==T_COMMA) ) {
alt251=1;
}
switch (alt251) {
case 1 :
// FortranParser08.g:2555:5: T_COMMA actual_arg_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_substr_range_or_arg_list_suffix11499); if (state.failed) return isSubstringRange;
pushFollow(FOLLOW_actual_arg_spec_in_substr_range_or_arg_list_suffix11501);
actual_arg_spec();
state._fsp--;
if (state.failed) return isSubstringRange;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop251;
}
}
if ( state.backtracking==0 ) {
action.actual_arg_spec_list(count);
isSubstringRange=false;
}
}
break;
}
if ( state.backtracking==0 ) {action.substr_range_or_arg_list_suffix();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return isSubstringRange;
}
// $ANTLR end "substr_range_or_arg_list_suffix"
// $ANTLR start "logical_variable"
// FortranParser08.g:2563:1: logical_variable : variable ;
public final void logical_variable() throws RecognitionException {
try {
// FortranParser08.g:2564:2: ( variable )
// FortranParser08.g:2564:4: variable
{
pushFollow(FOLLOW_variable_in_logical_variable11524);
variable();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.logical_variable(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "logical_variable"
// $ANTLR start "default_logical_variable"
// FortranParser08.g:2569:1: default_logical_variable : variable ;
public final void default_logical_variable() throws RecognitionException {
try {
// FortranParser08.g:2570:2: ( variable )
// FortranParser08.g:2570:4: variable
{
pushFollow(FOLLOW_variable_in_default_logical_variable11550);
variable();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.default_logical_variable(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "default_logical_variable"
// $ANTLR start "scalar_default_logical_variable"
// FortranParser08.g:2574:1: scalar_default_logical_variable : variable ;
public final void scalar_default_logical_variable() throws RecognitionException {
try {
// FortranParser08.g:2575:2: ( variable )
// FortranParser08.g:2575:4: variable
{
pushFollow(FOLLOW_variable_in_scalar_default_logical_variable11575);
variable();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.scalar_default_logical_variable(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "scalar_default_logical_variable"
// $ANTLR start "char_variable"
// FortranParser08.g:2580:1: char_variable : variable ;
public final void char_variable() throws RecognitionException {
try {
// FortranParser08.g:2581:2: ( variable )
// FortranParser08.g:2581:4: variable
{
pushFollow(FOLLOW_variable_in_char_variable11601);
variable();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.char_variable(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "char_variable"
// $ANTLR start "default_char_variable"
// FortranParser08.g:2586:1: default_char_variable : variable ;
public final void default_char_variable() throws RecognitionException {
try {
// FortranParser08.g:2587:2: ( variable )
// FortranParser08.g:2587:4: variable
{
pushFollow(FOLLOW_variable_in_default_char_variable11627);
variable();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.default_char_variable(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "default_char_variable"
// $ANTLR start "scalar_default_char_variable"
// FortranParser08.g:2591:1: scalar_default_char_variable : variable ;
public final void scalar_default_char_variable() throws RecognitionException {
try {
// FortranParser08.g:2592:2: ( variable )
// FortranParser08.g:2592:4: variable
{
pushFollow(FOLLOW_variable_in_scalar_default_char_variable11652);
variable();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.scalar_default_char_variable(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "scalar_default_char_variable"
// $ANTLR start "int_variable"
// FortranParser08.g:2597:1: int_variable : variable ;
public final void int_variable() throws RecognitionException {
try {
// FortranParser08.g:2598:2: ( variable )
// FortranParser08.g:2598:4: variable
{
pushFollow(FOLLOW_variable_in_int_variable11678);
variable();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.int_variable(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "int_variable"
// $ANTLR start "substring"
// FortranParser08.g:2607:1: substring : ( data_ref ( T_LPAREN substring_range T_RPAREN )? | char_literal_constant T_LPAREN substring_range T_RPAREN );
public final void substring() throws RecognitionException {
boolean hasSubstringRange = false;
try {
// FortranParser08.g:2609:2: ( data_ref ( T_LPAREN substring_range T_RPAREN )? | char_literal_constant T_LPAREN substring_range T_RPAREN )
int alt254=2;
int LA254_0 = input.LA(1);
if ( (LA254_0==T_IDENT) ) {
int LA254_1 = input.LA(2);
if ( (LA254_1==T_COMMA||LA254_1==T_LBRACKET||LA254_1==T_LPAREN||LA254_1==T_PERCENT||LA254_1==T_RPAREN) ) {
alt254=1;
}
else if ( (LA254_1==T_CHAR_CONSTANT) ) {
alt254=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 254, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA254_0==T_CHAR_CONSTANT||LA254_0==T_DIGIT_STRING) ) {
alt254=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 254, 0, input);
throw nvae;
}
switch (alt254) {
case 1 :
// FortranParser08.g:2609:4: data_ref ( T_LPAREN substring_range T_RPAREN )?
{
pushFollow(FOLLOW_data_ref_in_substring11712);
data_ref();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2609:13: ( T_LPAREN substring_range T_RPAREN )?
int alt253=2;
int LA253_0 = input.LA(1);
if ( (LA253_0==T_LPAREN) ) {
alt253=1;
}
switch (alt253) {
case 1 :
// FortranParser08.g:2609:14: T_LPAREN substring_range T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_substring11715); if (state.failed) return;
pushFollow(FOLLOW_substring_range_in_substring11717);
substring_range();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasSubstringRange=true;}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_substring11721); if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) { action.substring(hasSubstringRange); }
}
break;
case 2 :
// FortranParser08.g:2611:4: char_literal_constant T_LPAREN substring_range T_RPAREN
{
pushFollow(FOLLOW_char_literal_constant_in_substring11733);
char_literal_constant();
state._fsp--;
if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_substring11735); if (state.failed) return;
pushFollow(FOLLOW_substring_range_in_substring11737);
substring_range();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_substring11739); if (state.failed) return;
if ( state.backtracking==0 ) { action.substring(true); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "substring"
// $ANTLR start "substring_range"
// FortranParser08.g:2624:1: substring_range : ( expr )? T_COLON ( expr )? ;
public final void substring_range() throws RecognitionException {
boolean hasLowerBound = false;
boolean hasUpperBound = false;
try {
// FortranParser08.g:2629:2: ( ( expr )? T_COLON ( expr )? )
// FortranParser08.g:2629:4: ( expr )? T_COLON ( expr )?
{
// FortranParser08.g:2629:4: ( expr )?
int alt255=2;
int LA255_0 = input.LA(1);
if ( (LA255_0==BINARY_CONSTANT||LA255_0==HEX_CONSTANT||LA255_0==OCTAL_CONSTANT||LA255_0==T_CHAR_CONSTANT||(LA255_0 >= T_DEFINED_OP && LA255_0 <= T_DIGIT_STRING)||LA255_0==T_FALSE||(LA255_0 >= T_HOLLERITH && LA255_0 <= T_IDENT)||LA255_0==T_LBRACKET||LA255_0==T_LPAREN||LA255_0==T_MINUS||LA255_0==T_NOT||LA255_0==T_PLUS||LA255_0==T_REAL_CONSTANT||LA255_0==T_TRUE) ) {
alt255=1;
}
switch (alt255) {
case 1 :
// FortranParser08.g:2629:5: expr
{
pushFollow(FOLLOW_expr_in_substring_range11769);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasLowerBound = true;}
}
break;
}
match(input,T_COLON,FOLLOW_T_COLON_in_substring_range11775); if (state.failed) return;
// FortranParser08.g:2629:44: ( expr )?
int alt256=2;
int LA256_0 = input.LA(1);
if ( (LA256_0==BINARY_CONSTANT||LA256_0==HEX_CONSTANT||LA256_0==OCTAL_CONSTANT||LA256_0==T_CHAR_CONSTANT||(LA256_0 >= T_DEFINED_OP && LA256_0 <= T_DIGIT_STRING)||LA256_0==T_FALSE||(LA256_0 >= T_HOLLERITH && LA256_0 <= T_IDENT)||LA256_0==T_LBRACKET||LA256_0==T_LPAREN||LA256_0==T_MINUS||LA256_0==T_NOT||LA256_0==T_PLUS||LA256_0==T_REAL_CONSTANT||LA256_0==T_TRUE) ) {
alt256=1;
}
switch (alt256) {
case 1 :
// FortranParser08.g:2629:45: expr
{
pushFollow(FOLLOW_expr_in_substring_range11778);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasUpperBound = true;}
}
break;
}
if ( state.backtracking==0 ) { action.substring_range(hasLowerBound, hasUpperBound); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "substring_range"
// $ANTLR start "data_ref"
// FortranParser08.g:2634:1: data_ref : part_ref ( T_PERCENT part_ref )* ;
public final void data_ref() throws RecognitionException {
int numPartRefs = 0;
try {
// FortranParser08.g:2636:2: ( part_ref ( T_PERCENT part_ref )* )
// FortranParser08.g:2636:4: part_ref ( T_PERCENT part_ref )*
{
pushFollow(FOLLOW_part_ref_in_data_ref11803);
gFortranParserExtras.part_ref();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {numPartRefs += 1;}
// FortranParser08.g:2636:33: ( T_PERCENT part_ref )*
loop257:
while (true) {
int alt257=2;
int LA257_0 = input.LA(1);
if ( (LA257_0==T_PERCENT) ) {
alt257=1;
}
switch (alt257) {
case 1 :
// FortranParser08.g:2636:35: T_PERCENT part_ref
{
match(input,T_PERCENT,FOLLOW_T_PERCENT_in_data_ref11809); if (state.failed) return;
pushFollow(FOLLOW_part_ref_in_data_ref11811);
gFortranParserExtras.part_ref();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {numPartRefs += 1;}
}
break;
default :
break loop257;
}
}
if ( state.backtracking==0 ) {action.data_ref(numPartRefs);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "data_ref"
// $ANTLR start "vector_subscript"
// FortranParser08.g:2690:1: vector_subscript : expr ;
public final void vector_subscript() throws RecognitionException {
try {
// FortranParser08.g:2691:2: ( expr )
// FortranParser08.g:2691:4: expr
{
pushFollow(FOLLOW_expr_in_vector_subscript11900);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.vector_subscript(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "vector_subscript"
// $ANTLR start "allocate_stmt"
// FortranParser08.g:2701:1: allocate_stmt : ( ( label )? T_ALLOCATE_STMT_1 T_ALLOCATE T_LPAREN type_spec T_COLON_COLON allocation_list ( T_COMMA alloc_opt_list )? T_RPAREN end_of_stmt | ( label )? T_ALLOCATE T_LPAREN allocation_list ( T_COMMA alloc_opt_list )? T_RPAREN end_of_stmt );
public final void allocate_stmt() throws RecognitionException {
Token T_ALLOCATE261=null;
Token T_ALLOCATE264=null;
Token label260 =null;
Token end_of_stmt262 =null;
Token label263 =null;
Token end_of_stmt265 =null;
Token lbl = null;
boolean hasTypeSpec = false;
boolean hasAllocOptList = false;
try {
// FortranParser08.g:2706:5: ( ( label )? T_ALLOCATE_STMT_1 T_ALLOCATE T_LPAREN type_spec T_COLON_COLON allocation_list ( T_COMMA alloc_opt_list )? T_RPAREN end_of_stmt | ( label )? T_ALLOCATE T_LPAREN allocation_list ( T_COMMA alloc_opt_list )? T_RPAREN end_of_stmt )
int alt262=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA262_1 = input.LA(2);
if ( (LA262_1==T_ALLOCATE_STMT_1) ) {
alt262=1;
}
else if ( (LA262_1==T_ALLOCATE) ) {
alt262=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 262, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ALLOCATE_STMT_1:
{
alt262=1;
}
break;
case T_ALLOCATE:
{
alt262=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 262, 0, input);
throw nvae;
}
switch (alt262) {
case 1 :
// FortranParser08.g:2706:7: ( label )? T_ALLOCATE_STMT_1 T_ALLOCATE T_LPAREN type_spec T_COLON_COLON allocation_list ( T_COMMA alloc_opt_list )? T_RPAREN end_of_stmt
{
// FortranParser08.g:2706:7: ( label )?
int alt258=2;
int LA258_0 = input.LA(1);
if ( (LA258_0==T_DIGIT_STRING) ) {
alt258=1;
}
switch (alt258) {
case 1 :
// FortranParser08.g:2706:8: label
{
pushFollow(FOLLOW_label_in_allocate_stmt11944);
label260=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label260;}
}
break;
}
match(input,T_ALLOCATE_STMT_1,FOLLOW_T_ALLOCATE_STMT_1_in_allocate_stmt11950); if (state.failed) return;
T_ALLOCATE261=(Token)match(input,T_ALLOCATE,FOLLOW_T_ALLOCATE_in_allocate_stmt11952); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_allocate_stmt11954); if (state.failed) return;
pushFollow(FOLLOW_type_spec_in_allocate_stmt11958);
type_spec();
state._fsp--;
if (state.failed) return;
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_allocate_stmt11960); if (state.failed) return;
pushFollow(FOLLOW_allocation_list_in_allocate_stmt11964);
allocation_list();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2709:3: ( T_COMMA alloc_opt_list )?
int alt259=2;
int LA259_0 = input.LA(1);
if ( (LA259_0==T_COMMA) ) {
alt259=1;
}
switch (alt259) {
case 1 :
// FortranParser08.g:2709:5: T_COMMA alloc_opt_list
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_allocate_stmt11971); if (state.failed) return;
pushFollow(FOLLOW_alloc_opt_list_in_allocate_stmt11973);
alloc_opt_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasAllocOptList=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_allocate_stmt11980); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_allocate_stmt11995);
end_of_stmt262=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {
hasTypeSpec = true;
action.allocate_stmt(lbl, T_ALLOCATE261, end_of_stmt262,
hasTypeSpec, hasAllocOptList);
}
}
break;
case 2 :
// FortranParser08.g:2716:7: ( label )? T_ALLOCATE T_LPAREN allocation_list ( T_COMMA alloc_opt_list )? T_RPAREN end_of_stmt
{
// FortranParser08.g:2716:7: ( label )?
int alt260=2;
int LA260_0 = input.LA(1);
if ( (LA260_0==T_DIGIT_STRING) ) {
alt260=1;
}
switch (alt260) {
case 1 :
// FortranParser08.g:2716:8: label
{
pushFollow(FOLLOW_label_in_allocate_stmt12012);
label263=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label263;}
}
break;
}
T_ALLOCATE264=(Token)match(input,T_ALLOCATE,FOLLOW_T_ALLOCATE_in_allocate_stmt12018); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_allocate_stmt12020); if (state.failed) return;
pushFollow(FOLLOW_allocation_list_in_allocate_stmt12027);
allocation_list();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2718:6: ( T_COMMA alloc_opt_list )?
int alt261=2;
int LA261_0 = input.LA(1);
if ( (LA261_0==T_COMMA) ) {
alt261=1;
}
switch (alt261) {
case 1 :
// FortranParser08.g:2718:8: T_COMMA alloc_opt_list
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_allocate_stmt12036); if (state.failed) return;
pushFollow(FOLLOW_alloc_opt_list_in_allocate_stmt12038);
alloc_opt_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasAllocOptList=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_allocate_stmt12045); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_allocate_stmt12060);
end_of_stmt265=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {
action.allocate_stmt(lbl, T_ALLOCATE264, end_of_stmt265,
hasTypeSpec, hasAllocOptList);
}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "allocate_stmt"
// $ANTLR start "alloc_opt"
// FortranParser08.g:2729:1: alloc_opt : T_IDENT T_EQUALS expr ;
public final void alloc_opt() throws RecognitionException {
Token T_IDENT266=null;
try {
// FortranParser08.g:2730:2: ( T_IDENT T_EQUALS expr )
// FortranParser08.g:2730:4: T_IDENT T_EQUALS expr
{
T_IDENT266=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_alloc_opt12085); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_alloc_opt12087); if (state.failed) return;
pushFollow(FOLLOW_expr_in_alloc_opt12089);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.alloc_opt(T_IDENT266); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "alloc_opt"
// $ANTLR start "alloc_opt_list"
// FortranParser08.g:2735:1: alloc_opt_list : alloc_opt ( T_COMMA alloc_opt )* ;
public final void alloc_opt_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2737:5: ( alloc_opt ( T_COMMA alloc_opt )* )
// FortranParser08.g:2737:10: alloc_opt ( T_COMMA alloc_opt )*
{
if ( state.backtracking==0 ) {action.alloc_opt_list__begin();}
pushFollow(FOLLOW_alloc_opt_in_alloc_opt_list12133);
alloc_opt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2738:24: ( T_COMMA alloc_opt )*
loop263:
while (true) {
int alt263=2;
int LA263_0 = input.LA(1);
if ( (LA263_0==T_COMMA) ) {
alt263=1;
}
switch (alt263) {
case 1 :
// FortranParser08.g:2738:26: T_COMMA alloc_opt
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_alloc_opt_list12139); if (state.failed) return;
pushFollow(FOLLOW_alloc_opt_in_alloc_opt_list12141);
alloc_opt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop263;
}
}
if ( state.backtracking==0 ) {action.alloc_opt_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "alloc_opt_list"
// $ANTLR start "allocation_list"
// FortranParser08.g:2757:1: allocation_list : allocation ( T_COMMA allocation )* ;
public final void allocation_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2759:4: ( allocation ( T_COMMA allocation )* )
// FortranParser08.g:2759:12: allocation ( T_COMMA allocation )*
{
if ( state.backtracking==0 ) {action.allocation_list__begin();}
pushFollow(FOLLOW_allocation_in_allocation_list12231);
gFortranParserExtras.allocation();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2760:30: ( T_COMMA allocation )*
loop264:
while (true) {
int alt264=2;
int LA264_0 = input.LA(1);
if ( (LA264_0==T_COMMA) ) {
int LA264_1 = input.LA(2);
if ( (LA264_1==T_IDENT) ) {
int LA264_3 = input.LA(3);
if ( (LA264_3==T_COMMA||LA264_3==T_LBRACKET||LA264_3==T_LPAREN||LA264_3==T_PERCENT||LA264_3==T_RPAREN) ) {
alt264=1;
}
}
}
switch (alt264) {
case 1 :
// FortranParser08.g:2760:32: T_COMMA allocation
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_allocation_list12237); if (state.failed) return;
pushFollow(FOLLOW_allocation_in_allocation_list12239);
gFortranParserExtras.allocation();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop264;
}
}
if ( state.backtracking==0 ) {action.allocation_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "allocation_list"
// $ANTLR start "allocate_object_list"
// FortranParser08.g:2780:1: allocate_object_list : allocate_object ( T_COMMA allocate_object )* ;
public final void allocate_object_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2782:5: ( allocate_object ( T_COMMA allocate_object )* )
// FortranParser08.g:2782:10: allocate_object ( T_COMMA allocate_object )*
{
if ( state.backtracking==0 ) {action.allocate_object_list__begin();}
pushFollow(FOLLOW_allocate_object_in_allocate_object_list12322);
gFortranParserExtras.allocate_object();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2783:30: ( T_COMMA allocate_object )*
loop265:
while (true) {
int alt265=2;
int LA265_0 = input.LA(1);
if ( (LA265_0==T_COMMA) ) {
int LA265_1 = input.LA(2);
if ( (LA265_1==T_IDENT) ) {
int LA265_3 = input.LA(3);
if ( (LA265_3==T_COMMA||LA265_3==T_LPAREN||LA265_3==T_PERCENT||LA265_3==T_RPAREN) ) {
alt265=1;
}
}
}
switch (alt265) {
case 1 :
// FortranParser08.g:2783:32: T_COMMA allocate_object
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_allocate_object_list12328); if (state.failed) return;
pushFollow(FOLLOW_allocate_object_in_allocate_object_list12330);
gFortranParserExtras.allocate_object();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop265;
}
}
if ( state.backtracking==0 ) {action.allocate_object_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "allocate_object_list"
// $ANTLR start "allocate_shape_spec"
// FortranParser08.g:2790:1: allocate_shape_spec : expr ( T_COLON expr )? ;
public final void allocate_shape_spec() throws RecognitionException {
boolean hasLowerBound = false; boolean hasUpperBound = true;
try {
// FortranParser08.g:2792:2: ( expr ( T_COLON expr )? )
// FortranParser08.g:2792:4: expr ( T_COLON expr )?
{
pushFollow(FOLLOW_expr_in_allocate_shape_spec12366);
expr();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2792:9: ( T_COLON expr )?
int alt266=2;
int LA266_0 = input.LA(1);
if ( (LA266_0==T_COLON) ) {
alt266=1;
}
switch (alt266) {
case 1 :
// FortranParser08.g:2792:10: T_COLON expr
{
match(input,T_COLON,FOLLOW_T_COLON_in_allocate_shape_spec12369); if (state.failed) return;
pushFollow(FOLLOW_expr_in_allocate_shape_spec12371);
expr();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) { // note, allocate-shape-spec always has upper bound
// grammar was refactored to remove left recursion,
// looks deceptive
action.allocate_shape_spec(hasLowerBound, hasUpperBound);
}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "allocate_shape_spec"
// $ANTLR start "allocate_shape_spec_list"
// FortranParser08.g:2800:1: allocate_shape_spec_list : allocate_shape_spec ( T_COMMA allocate_shape_spec )* ;
public final void allocate_shape_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2802:5: ( allocate_shape_spec ( T_COMMA allocate_shape_spec )* )
// FortranParser08.g:2802:10: allocate_shape_spec ( T_COMMA allocate_shape_spec )*
{
if ( state.backtracking==0 ) {action.allocate_shape_spec_list__begin();}
pushFollow(FOLLOW_allocate_shape_spec_in_allocate_shape_spec_list12409);
allocate_shape_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2804:13: ( T_COMMA allocate_shape_spec )*
loop267:
while (true) {
int alt267=2;
int LA267_0 = input.LA(1);
if ( (LA267_0==T_COMMA) ) {
alt267=1;
}
switch (alt267) {
case 1 :
// FortranParser08.g:2804:15: T_COMMA allocate_shape_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_allocate_shape_spec_list12428); if (state.failed) return;
pushFollow(FOLLOW_allocate_shape_spec_in_allocate_shape_spec_list12430);
allocate_shape_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop267;
}
}
if ( state.backtracking==0 ) {action.allocate_shape_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "allocate_shape_spec_list"
// $ANTLR start "allocate_coshape_spec"
// FortranParser08.g:2832:1: allocate_coshape_spec : expr ( T_COLON expr )? ;
public final void allocate_coshape_spec() throws RecognitionException {
boolean hasExpr = false;
try {
// FortranParser08.g:2834:4: ( expr ( T_COLON expr )? )
// FortranParser08.g:2834:8: expr ( T_COLON expr )?
{
pushFollow(FOLLOW_expr_in_allocate_coshape_spec12488);
expr();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2834:13: ( T_COLON expr )?
int alt268=2;
int LA268_0 = input.LA(1);
if ( (LA268_0==T_COLON) ) {
alt268=1;
}
switch (alt268) {
case 1 :
// FortranParser08.g:2834:15: T_COLON expr
{
match(input,T_COLON,FOLLOW_T_COLON_in_allocate_coshape_spec12492); if (state.failed) return;
pushFollow(FOLLOW_expr_in_allocate_coshape_spec12494);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { hasExpr = true; }
}
break;
}
if ( state.backtracking==0 ) { action.allocate_coshape_spec(hasExpr); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "allocate_coshape_spec"
// $ANTLR start "allocate_coshape_spec_list"
// FortranParser08.g:2838:1: allocate_coshape_spec_list : allocate_coshape_spec ( T_COMMA allocate_coshape_spec )* ;
public final void allocate_coshape_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2840:4: ( allocate_coshape_spec ( T_COMMA allocate_coshape_spec )* )
// FortranParser08.g:2840:12: allocate_coshape_spec ( T_COMMA allocate_coshape_spec )*
{
if ( state.backtracking==0 ) {action.allocate_coshape_spec_list__begin();}
pushFollow(FOLLOW_allocate_coshape_spec_in_allocate_coshape_spec_list12545);
allocate_coshape_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2841:41: ( T_COMMA allocate_coshape_spec )*
loop269:
while (true) {
int alt269=2;
int LA269_0 = input.LA(1);
if ( (LA269_0==T_COMMA) ) {
alt269=1;
}
switch (alt269) {
case 1 :
// FortranParser08.g:2841:43: T_COMMA allocate_coshape_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_allocate_coshape_spec_list12551); if (state.failed) return;
pushFollow(FOLLOW_allocate_coshape_spec_in_allocate_coshape_spec_list12553);
allocate_coshape_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop269;
}
}
if ( state.backtracking==0 ) {action.allocate_coshape_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "allocate_coshape_spec_list"
// $ANTLR start "nullify_stmt"
// FortranParser08.g:2847:1: nullify_stmt : ( label )? T_NULLIFY T_LPAREN pointer_object_list T_RPAREN end_of_stmt ;
public final void nullify_stmt() throws RecognitionException {
Token T_NULLIFY268=null;
Token label267 =null;
Token end_of_stmt269 =null;
Token lbl = null;
try {
// FortranParser08.g:2850:2: ( ( label )? T_NULLIFY T_LPAREN pointer_object_list T_RPAREN end_of_stmt )
// FortranParser08.g:2850:4: ( label )? T_NULLIFY T_LPAREN pointer_object_list T_RPAREN end_of_stmt
{
// FortranParser08.g:2850:4: ( label )?
int alt270=2;
int LA270_0 = input.LA(1);
if ( (LA270_0==T_DIGIT_STRING) ) {
alt270=1;
}
switch (alt270) {
case 1 :
// FortranParser08.g:2850:5: label
{
pushFollow(FOLLOW_label_in_nullify_stmt12597);
label267=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label267;}
}
break;
}
T_NULLIFY268=(Token)match(input,T_NULLIFY,FOLLOW_T_NULLIFY_in_nullify_stmt12605); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_nullify_stmt12607); if (state.failed) return;
pushFollow(FOLLOW_pointer_object_list_in_nullify_stmt12609);
pointer_object_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_nullify_stmt12611); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_nullify_stmt12613);
end_of_stmt269=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.nullify_stmt(lbl, T_NULLIFY268, end_of_stmt269); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "nullify_stmt"
// $ANTLR start "pointer_object"
// FortranParser08.g:2859:1: pointer_object : data_ref ;
public final void pointer_object() throws RecognitionException {
try {
// FortranParser08.g:2860:2: ( data_ref )
// FortranParser08.g:2860:4: data_ref
{
pushFollow(FOLLOW_data_ref_in_pointer_object12633);
data_ref();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.pointer_object(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "pointer_object"
// $ANTLR start "pointer_object_list"
// FortranParser08.g:2864:1: pointer_object_list : pointer_object ( T_COMMA pointer_object )* ;
public final void pointer_object_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2866:5: ( pointer_object ( T_COMMA pointer_object )* )
// FortranParser08.g:2866:10: pointer_object ( T_COMMA pointer_object )*
{
if ( state.backtracking==0 ) {action.pointer_object_list__begin();}
pushFollow(FOLLOW_pointer_object_in_pointer_object_list12672);
pointer_object();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2867:29: ( T_COMMA pointer_object )*
loop271:
while (true) {
int alt271=2;
int LA271_0 = input.LA(1);
if ( (LA271_0==T_COMMA) ) {
alt271=1;
}
switch (alt271) {
case 1 :
// FortranParser08.g:2867:31: T_COMMA pointer_object
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_pointer_object_list12678); if (state.failed) return;
pushFollow(FOLLOW_pointer_object_in_pointer_object_list12680);
pointer_object();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop271;
}
}
if ( state.backtracking==0 ) {action.pointer_object_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "pointer_object_list"
// $ANTLR start "deallocate_stmt"
// FortranParser08.g:2872:1: deallocate_stmt : ( label )? T_DEALLOCATE T_LPAREN allocate_object_list ( T_COMMA dealloc_opt_list )? T_RPAREN end_of_stmt ;
public final void deallocate_stmt() throws RecognitionException {
Token T_DEALLOCATE271=null;
Token label270 =null;
Token end_of_stmt272 =null;
Token lbl = null; boolean hasDeallocOptList=false;
try {
// FortranParser08.g:2875:5: ( ( label )? T_DEALLOCATE T_LPAREN allocate_object_list ( T_COMMA dealloc_opt_list )? T_RPAREN end_of_stmt )
// FortranParser08.g:2875:10: ( label )? T_DEALLOCATE T_LPAREN allocate_object_list ( T_COMMA dealloc_opt_list )? T_RPAREN end_of_stmt
{
// FortranParser08.g:2875:10: ( label )?
int alt272=2;
int LA272_0 = input.LA(1);
if ( (LA272_0==T_DIGIT_STRING) ) {
alt272=1;
}
switch (alt272) {
case 1 :
// FortranParser08.g:2875:11: label
{
pushFollow(FOLLOW_label_in_deallocate_stmt12726);
label270=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label270;}
}
break;
}
T_DEALLOCATE271=(Token)match(input,T_DEALLOCATE,FOLLOW_T_DEALLOCATE_in_deallocate_stmt12732); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_deallocate_stmt12734); if (state.failed) return;
pushFollow(FOLLOW_allocate_object_list_in_deallocate_stmt12736);
allocate_object_list();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2876:13: ( T_COMMA dealloc_opt_list )?
int alt273=2;
int LA273_0 = input.LA(1);
if ( (LA273_0==T_COMMA) ) {
alt273=1;
}
switch (alt273) {
case 1 :
// FortranParser08.g:2876:15: T_COMMA dealloc_opt_list
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_deallocate_stmt12753); if (state.failed) return;
pushFollow(FOLLOW_dealloc_opt_list_in_deallocate_stmt12755);
dealloc_opt_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasDeallocOptList=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_deallocate_stmt12774); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_deallocate_stmt12776);
end_of_stmt272=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.deallocate_stmt(lbl, T_DEALLOCATE271, end_of_stmt272,
hasDeallocOptList);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "deallocate_stmt"
// $ANTLR start "dealloc_opt"
// FortranParser08.g:2884:1: dealloc_opt : T_IDENT T_EQUALS designator ;
public final void dealloc_opt() throws RecognitionException {
Token T_IDENT273=null;
try {
// FortranParser08.g:2885:2: ( T_IDENT T_EQUALS designator )
// FortranParser08.g:2885:4: T_IDENT T_EQUALS designator
{
T_IDENT273=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_dealloc_opt12797); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_dealloc_opt12801); if (state.failed) return;
pushFollow(FOLLOW_designator_in_dealloc_opt12803);
designator();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.dealloc_opt(T_IDENT273); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "dealloc_opt"
// $ANTLR start "dealloc_opt_list"
// FortranParser08.g:2889:1: dealloc_opt_list : dealloc_opt ( T_COMMA dealloc_opt )* ;
public final void dealloc_opt_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:2891:5: ( dealloc_opt ( T_COMMA dealloc_opt )* )
// FortranParser08.g:2891:10: dealloc_opt ( T_COMMA dealloc_opt )*
{
if ( state.backtracking==0 ) {action.dealloc_opt_list__begin();}
pushFollow(FOLLOW_dealloc_opt_in_dealloc_opt_list12842);
dealloc_opt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:2892:26: ( T_COMMA dealloc_opt )*
loop274:
while (true) {
int alt274=2;
int LA274_0 = input.LA(1);
if ( (LA274_0==T_COMMA) ) {
alt274=1;
}
switch (alt274) {
case 1 :
// FortranParser08.g:2892:28: T_COMMA dealloc_opt
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_dealloc_opt_list12848); if (state.failed) return;
pushFollow(FOLLOW_dealloc_opt_in_dealloc_opt_list12850);
dealloc_opt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop274;
}
}
if ( state.backtracking==0 ) {action.dealloc_opt_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "dealloc_opt_list"
// $ANTLR start "primary"
// FortranParser08.g:2908:1: primary options {backtrack=true; } : ( designator_or_func_ref | literal_constant | array_constructor | structure_constructor | T_LPAREN expr T_RPAREN );
public final void primary() throws RecognitionException {
try {
// FortranParser08.g:2911:2: ( designator_or_func_ref | literal_constant | array_constructor | structure_constructor | T_LPAREN expr T_RPAREN )
int alt275=5;
switch ( input.LA(1) ) {
case T_IDENT:
{
int LA275_1 = input.LA(2);
if ( (synpred19_FortranParser08()) ) {
alt275=1;
}
else if ( (synpred20_FortranParser08()) ) {
alt275=2;
}
else if ( (synpred22_FortranParser08()) ) {
alt275=4;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 275, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_DIGIT_STRING:
{
int LA275_2 = input.LA(2);
if ( (synpred19_FortranParser08()) ) {
alt275=1;
}
else if ( (synpred20_FortranParser08()) ) {
alt275=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 275, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_CHAR_CONSTANT:
{
int LA275_3 = input.LA(2);
if ( (synpred19_FortranParser08()) ) {
alt275=1;
}
else if ( (synpred20_FortranParser08()) ) {
alt275=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 275, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case BINARY_CONSTANT:
case HEX_CONSTANT:
case OCTAL_CONSTANT:
case T_FALSE:
case T_HOLLERITH:
case T_REAL_CONSTANT:
case T_TRUE:
{
alt275=2;
}
break;
case T_LPAREN:
{
int LA275_5 = input.LA(2);
if ( (synpred20_FortranParser08()) ) {
alt275=2;
}
else if ( (synpred21_FortranParser08()) ) {
alt275=3;
}
else if ( (true) ) {
alt275=5;
}
}
break;
case T_LBRACKET:
{
alt275=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 275, 0, input);
throw nvae;
}
switch (alt275) {
case 1 :
// FortranParser08.g:2911:4: designator_or_func_ref
{
pushFollow(FOLLOW_designator_or_func_ref_in_primary12909);
designator_or_func_ref();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:2912:4: literal_constant
{
pushFollow(FOLLOW_literal_constant_in_primary12914);
literal_constant();
state._fsp--;
if (state.failed) return;
}
break;
case 3 :
// FortranParser08.g:2913:4: array_constructor
{
pushFollow(FOLLOW_array_constructor_in_primary12919);
array_constructor();
state._fsp--;
if (state.failed) return;
}
break;
case 4 :
// FortranParser08.g:2914:4: structure_constructor
{
pushFollow(FOLLOW_structure_constructor_in_primary12924);
structure_constructor();
state._fsp--;
if (state.failed) return;
}
break;
case 5 :
// FortranParser08.g:2915:4: T_LPAREN expr T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_primary12929); if (state.failed) return;
pushFollow(FOLLOW_expr_in_primary12931);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_primary12933); if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {action.primary();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "primary"
// $ANTLR start "level_1_expr"
// FortranParser08.g:2919:1: level_1_expr : ( defined_unary_op )? primary ;
public final void level_1_expr() throws RecognitionException {
Token defined_unary_op274 =null;
Token tk = null;
try {
// FortranParser08.g:2921:5: ( ( defined_unary_op )? primary )
// FortranParser08.g:2921:7: ( defined_unary_op )? primary
{
// FortranParser08.g:2921:7: ( defined_unary_op )?
int alt276=2;
int LA276_0 = input.LA(1);
if ( (LA276_0==T_DEFINED_OP) ) {
alt276=1;
}
switch (alt276) {
case 1 :
// FortranParser08.g:2921:8: defined_unary_op
{
pushFollow(FOLLOW_defined_unary_op_in_level_1_expr12954);
defined_unary_op274=defined_unary_op();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {tk = defined_unary_op274;}
}
break;
}
pushFollow(FOLLOW_primary_in_level_1_expr12960);
primary();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.level_1_expr(tk);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "level_1_expr"
// $ANTLR start "defined_unary_op"
// FortranParser08.g:2926:1: defined_unary_op returns [Token tk] : T_DEFINED_OP ;
public final Token defined_unary_op() throws RecognitionException {
Token tk = null;
Token T_DEFINED_OP275=null;
try {
// FortranParser08.g:2927:2: ( T_DEFINED_OP )
// FortranParser08.g:2927:4: T_DEFINED_OP
{
T_DEFINED_OP275=(Token)match(input,T_DEFINED_OP,FOLLOW_T_DEFINED_OP_in_defined_unary_op12987); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk = T_DEFINED_OP275;}
if ( state.backtracking==0 ) { action.defined_unary_op(T_DEFINED_OP275); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "defined_unary_op"
// $ANTLR start "power_operand"
// FortranParser08.g:2932:1: power_operand : level_1_expr ( power_op power_operand )? ;
public final void power_operand() throws RecognitionException {
boolean hasPowerOperand = false;
try {
// FortranParser08.g:2934:2: ( level_1_expr ( power_op power_operand )? )
// FortranParser08.g:2934:4: level_1_expr ( power_op power_operand )?
{
pushFollow(FOLLOW_level_1_expr_in_power_operand13019);
level_1_expr();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2934:17: ( power_op power_operand )?
int alt277=2;
int LA277_0 = input.LA(1);
if ( (LA277_0==T_POWER) ) {
alt277=1;
}
switch (alt277) {
case 1 :
// FortranParser08.g:2934:18: power_op power_operand
{
pushFollow(FOLLOW_power_op_in_power_operand13022);
power_op();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_power_operand_in_power_operand13024);
power_operand();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasPowerOperand = true;}
}
break;
}
if ( state.backtracking==0 ) {action.power_operand(hasPowerOperand);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "power_operand"
// $ANTLR start "mult_operand"
// FortranParser08.g:2940:1: mult_operand : power_operand ( mult_op power_operand )* ;
public final void mult_operand() throws RecognitionException {
Token mult_op276 =null;
int numMultOps = 0;
try {
// FortranParser08.g:2944:5: ( power_operand ( mult_op power_operand )* )
// FortranParser08.g:2944:7: power_operand ( mult_op power_operand )*
{
pushFollow(FOLLOW_power_operand_in_mult_operand13056);
power_operand();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2944:21: ( mult_op power_operand )*
loop278:
while (true) {
int alt278=2;
int LA278_0 = input.LA(1);
if ( (LA278_0==T_SLASH) ) {
int LA278_2 = input.LA(2);
if ( (LA278_2==BINARY_CONSTANT||LA278_2==HEX_CONSTANT||LA278_2==OCTAL_CONSTANT||LA278_2==T_CHAR_CONSTANT||(LA278_2 >= T_DEFINED_OP && LA278_2 <= T_DIGIT_STRING)||LA278_2==T_FALSE||(LA278_2 >= T_HOLLERITH && LA278_2 <= T_IDENT)||LA278_2==T_LBRACKET||LA278_2==T_LPAREN||LA278_2==T_REAL_CONSTANT||LA278_2==T_TRUE) ) {
alt278=1;
}
}
else if ( (LA278_0==T_ASTERISK) ) {
alt278=1;
}
switch (alt278) {
case 1 :
// FortranParser08.g:2944:22: mult_op power_operand
{
pushFollow(FOLLOW_mult_op_in_mult_operand13059);
mult_op276=mult_op();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_power_operand_in_mult_operand13061);
power_operand();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.mult_operand__mult_op(mult_op276); numMultOps += 1; }
}
break;
default :
break loop278;
}
}
if ( state.backtracking==0 ) { action.mult_operand(numMultOps); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "mult_operand"
// $ANTLR start "signed_operand"
// FortranParser08.g:2952:1: signed_operand : (tk= add_op )? mult_operand ;
public final void signed_operand() throws RecognitionException {
Token tk =null;
int numAddOps = 0;
try {
// FortranParser08.g:2954:4: ( (tk= add_op )? mult_operand )
// FortranParser08.g:2954:8: (tk= add_op )? mult_operand
{
// FortranParser08.g:2954:8: (tk= add_op )?
int alt279=2;
int LA279_0 = input.LA(1);
if ( (LA279_0==T_MINUS||LA279_0==T_PLUS) ) {
alt279=1;
}
switch (alt279) {
case 1 :
// FortranParser08.g:2954:9: tk= add_op
{
pushFollow(FOLLOW_add_op_in_signed_operand13113);
tk=add_op();
state._fsp--;
if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_mult_operand_in_signed_operand13117);
mult_operand();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.signed_operand(tk);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "signed_operand"
// $ANTLR start "add_operand"
// FortranParser08.g:2960:1: add_operand : signed_operand (tk= add_op mult_operand )* ;
public final void add_operand() throws RecognitionException {
Token tk =null;
int numAddOps = 0;
try {
// FortranParser08.g:2965:4: ( signed_operand (tk= add_op mult_operand )* )
// FortranParser08.g:2965:8: signed_operand (tk= add_op mult_operand )*
{
pushFollow(FOLLOW_signed_operand_in_add_operand13159);
signed_operand();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2966:8: (tk= add_op mult_operand )*
loop280:
while (true) {
int alt280=2;
int LA280_0 = input.LA(1);
if ( (LA280_0==T_MINUS||LA280_0==T_PLUS) ) {
alt280=1;
}
switch (alt280) {
case 1 :
// FortranParser08.g:2966:10: tk= add_op mult_operand
{
pushFollow(FOLLOW_add_op_in_add_operand13172);
tk=add_op();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_mult_operand_in_add_operand13174);
mult_operand();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.add_operand__add_op(tk); numAddOps += 1;}
}
break;
default :
break loop280;
}
}
}
if ( state.backtracking==0 ) {action.add_operand(numAddOps);}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "add_operand"
// $ANTLR start "level_2_expr"
// FortranParser08.g:2973:1: level_2_expr : add_operand ( concat_op add_operand )* ;
public final void level_2_expr() throws RecognitionException {
int numConcatOps = 0;
try {
// FortranParser08.g:2979:5: ( add_operand ( concat_op add_operand )* )
// FortranParser08.g:2979:7: add_operand ( concat_op add_operand )*
{
pushFollow(FOLLOW_add_operand_in_level_2_expr13225);
add_operand();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:2979:19: ( concat_op add_operand )*
loop281:
while (true) {
int alt281=2;
int LA281_0 = input.LA(1);
if ( (LA281_0==T_SLASH_SLASH) ) {
alt281=1;
}
switch (alt281) {
case 1 :
// FortranParser08.g:2979:21: concat_op add_operand
{
pushFollow(FOLLOW_concat_op_in_level_2_expr13229);
concat_op();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_add_operand_in_level_2_expr13231);
add_operand();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {numConcatOps += 1;}
}
break;
default :
break loop281;
}
}
if ( state.backtracking==0 ) {action.level_2_expr(numConcatOps);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "level_2_expr"
// $ANTLR start "power_op"
// FortranParser08.g:2984:1: power_op returns [Token tk] : T_POWER ;
public final Token power_op() throws RecognitionException {
Token tk = null;
Token T_POWER277=null;
try {
// FortranParser08.g:2985:2: ( T_POWER )
// FortranParser08.g:2985:4: T_POWER
{
T_POWER277=(Token)match(input,T_POWER,FOLLOW_T_POWER_in_power_op13262); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk = T_POWER277;}
if ( state.backtracking==0 ) { action.power_op(T_POWER277); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "power_op"
// $ANTLR start "mult_op"
// FortranParser08.g:2990:1: mult_op returns [Token tk] : ( T_ASTERISK | T_SLASH );
public final Token mult_op() throws RecognitionException {
Token tk = null;
Token T_ASTERISK278=null;
Token T_SLASH279=null;
try {
// FortranParser08.g:2991:2: ( T_ASTERISK | T_SLASH )
int alt282=2;
int LA282_0 = input.LA(1);
if ( (LA282_0==T_ASTERISK) ) {
alt282=1;
}
else if ( (LA282_0==T_SLASH) ) {
alt282=2;
}
else {
if (state.backtracking>0) {state.failed=true; return tk;}
NoViableAltException nvae =
new NoViableAltException("", 282, 0, input);
throw nvae;
}
switch (alt282) {
case 1 :
// FortranParser08.g:2991:4: T_ASTERISK
{
T_ASTERISK278=(Token)match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_mult_op13294); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_ASTERISK278; action.mult_op(tk); }
}
break;
case 2 :
// FortranParser08.g:2992:4: T_SLASH
{
T_SLASH279=(Token)match(input,T_SLASH,FOLLOW_T_SLASH_in_mult_op13301); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_SLASH279; action.mult_op(tk); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "mult_op"
// $ANTLR start "add_op"
// FortranParser08.g:2996:1: add_op returns [Token tk] : ( T_PLUS | T_MINUS );
public final Token add_op() throws RecognitionException {
Token tk = null;
Token T_PLUS280=null;
Token T_MINUS281=null;
try {
// FortranParser08.g:2997:2: ( T_PLUS | T_MINUS )
int alt283=2;
int LA283_0 = input.LA(1);
if ( (LA283_0==T_PLUS) ) {
alt283=1;
}
else if ( (LA283_0==T_MINUS) ) {
alt283=2;
}
else {
if (state.backtracking>0) {state.failed=true; return tk;}
NoViableAltException nvae =
new NoViableAltException("", 283, 0, input);
throw nvae;
}
switch (alt283) {
case 1 :
// FortranParser08.g:2997:4: T_PLUS
{
T_PLUS280=(Token)match(input,T_PLUS,FOLLOW_T_PLUS_in_add_op13320); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_PLUS280; action.add_op(tk); }
}
break;
case 2 :
// FortranParser08.g:2998:4: T_MINUS
{
T_MINUS281=(Token)match(input,T_MINUS,FOLLOW_T_MINUS_in_add_op13328); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_MINUS281; action.add_op(tk); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "add_op"
// $ANTLR start "level_3_expr"
// FortranParser08.g:3003:1: level_3_expr : level_2_expr ( rel_op level_2_expr )? ;
public final void level_3_expr() throws RecognitionException {
Token rel_op282 =null;
Token relOp = null;
try {
// FortranParser08.g:3007:5: ( level_2_expr ( rel_op level_2_expr )? )
// FortranParser08.g:3007:7: level_2_expr ( rel_op level_2_expr )?
{
pushFollow(FOLLOW_level_2_expr_in_level_3_expr13353);
level_2_expr();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3007:20: ( rel_op level_2_expr )?
int alt284=2;
int LA284_0 = input.LA(1);
if ( (LA284_0==T_EQ||LA284_0==T_EQ_EQ||LA284_0==T_GE||(LA284_0 >= T_GREATERTHAN && LA284_0 <= T_GT)||LA284_0==T_LE||(LA284_0 >= T_LESSTHAN && LA284_0 <= T_LESSTHAN_EQ)||LA284_0==T_LT||LA284_0==T_NE||LA284_0==T_SLASH_EQ) ) {
alt284=1;
}
switch (alt284) {
case 1 :
// FortranParser08.g:3007:21: rel_op level_2_expr
{
pushFollow(FOLLOW_rel_op_in_level_3_expr13356);
rel_op282=rel_op();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_level_2_expr_in_level_3_expr13358);
level_2_expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {relOp = rel_op282;}
}
break;
}
if ( state.backtracking==0 ) {action.level_3_expr(relOp);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "level_3_expr"
// $ANTLR start "concat_op"
// FortranParser08.g:3012:1: concat_op returns [Token tk] : T_SLASH_SLASH ;
public final Token concat_op() throws RecognitionException {
Token tk = null;
Token T_SLASH_SLASH283=null;
try {
// FortranParser08.g:3013:2: ( T_SLASH_SLASH )
// FortranParser08.g:3013:4: T_SLASH_SLASH
{
T_SLASH_SLASH283=(Token)match(input,T_SLASH_SLASH,FOLLOW_T_SLASH_SLASH_in_concat_op13389); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_SLASH_SLASH283; action.concat_op(tk); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "concat_op"
// $ANTLR start "rel_op"
// FortranParser08.g:3025:1: rel_op returns [Token tk] : ( T_EQ | T_NE | T_LT | T_LE | T_GT | T_GE | T_EQ_EQ | T_SLASH_EQ | T_LESSTHAN | T_LESSTHAN_EQ | T_GREATERTHAN | T_GREATERTHAN_EQ );
public final Token rel_op() throws RecognitionException {
Token tk = null;
Token T_EQ284=null;
Token T_NE285=null;
Token T_LT286=null;
Token T_LE287=null;
Token T_GT288=null;
Token T_GE289=null;
Token T_EQ_EQ290=null;
Token T_SLASH_EQ291=null;
Token T_LESSTHAN292=null;
Token T_LESSTHAN_EQ293=null;
Token T_GREATERTHAN294=null;
Token T_GREATERTHAN_EQ295=null;
try {
// FortranParser08.g:3029:2: ( T_EQ | T_NE | T_LT | T_LE | T_GT | T_GE | T_EQ_EQ | T_SLASH_EQ | T_LESSTHAN | T_LESSTHAN_EQ | T_GREATERTHAN | T_GREATERTHAN_EQ )
int alt285=12;
switch ( input.LA(1) ) {
case T_EQ:
{
alt285=1;
}
break;
case T_NE:
{
alt285=2;
}
break;
case T_LT:
{
alt285=3;
}
break;
case T_LE:
{
alt285=4;
}
break;
case T_GT:
{
alt285=5;
}
break;
case T_GE:
{
alt285=6;
}
break;
case T_EQ_EQ:
{
alt285=7;
}
break;
case T_SLASH_EQ:
{
alt285=8;
}
break;
case T_LESSTHAN:
{
alt285=9;
}
break;
case T_LESSTHAN_EQ:
{
alt285=10;
}
break;
case T_GREATERTHAN:
{
alt285=11;
}
break;
case T_GREATERTHAN_EQ:
{
alt285=12;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return tk;}
NoViableAltException nvae =
new NoViableAltException("", 285, 0, input);
throw nvae;
}
switch (alt285) {
case 1 :
// FortranParser08.g:3029:4: T_EQ
{
T_EQ284=(Token)match(input,T_EQ,FOLLOW_T_EQ_in_rel_op13420); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk=T_EQ284;}
}
break;
case 2 :
// FortranParser08.g:3030:4: T_NE
{
T_NE285=(Token)match(input,T_NE,FOLLOW_T_NE_in_rel_op13430); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk=T_NE285;}
}
break;
case 3 :
// FortranParser08.g:3031:4: T_LT
{
T_LT286=(Token)match(input,T_LT,FOLLOW_T_LT_in_rel_op13440); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk=T_LT286;}
}
break;
case 4 :
// FortranParser08.g:3032:4: T_LE
{
T_LE287=(Token)match(input,T_LE,FOLLOW_T_LE_in_rel_op13450); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk=T_LE287;}
}
break;
case 5 :
// FortranParser08.g:3033:4: T_GT
{
T_GT288=(Token)match(input,T_GT,FOLLOW_T_GT_in_rel_op13460); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk=T_GT288;}
}
break;
case 6 :
// FortranParser08.g:3034:4: T_GE
{
T_GE289=(Token)match(input,T_GE,FOLLOW_T_GE_in_rel_op13470); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk=T_GE289;}
}
break;
case 7 :
// FortranParser08.g:3035:4: T_EQ_EQ
{
T_EQ_EQ290=(Token)match(input,T_EQ_EQ,FOLLOW_T_EQ_EQ_in_rel_op13480); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk=T_EQ_EQ290;}
}
break;
case 8 :
// FortranParser08.g:3036:4: T_SLASH_EQ
{
T_SLASH_EQ291=(Token)match(input,T_SLASH_EQ,FOLLOW_T_SLASH_EQ_in_rel_op13490); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk=T_SLASH_EQ291;}
}
break;
case 9 :
// FortranParser08.g:3037:4: T_LESSTHAN
{
T_LESSTHAN292=(Token)match(input,T_LESSTHAN,FOLLOW_T_LESSTHAN_in_rel_op13499); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk=T_LESSTHAN292;}
}
break;
case 10 :
// FortranParser08.g:3038:4: T_LESSTHAN_EQ
{
T_LESSTHAN_EQ293=(Token)match(input,T_LESSTHAN_EQ,FOLLOW_T_LESSTHAN_EQ_in_rel_op13508); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk=T_LESSTHAN_EQ293;}
}
break;
case 11 :
// FortranParser08.g:3039:4: T_GREATERTHAN
{
T_GREATERTHAN294=(Token)match(input,T_GREATERTHAN,FOLLOW_T_GREATERTHAN_in_rel_op13516); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk=T_GREATERTHAN294;}
}
break;
case 12 :
// FortranParser08.g:3040:4: T_GREATERTHAN_EQ
{
T_GREATERTHAN_EQ295=(Token)match(input,T_GREATERTHAN_EQ,FOLLOW_T_GREATERTHAN_EQ_in_rel_op13524); if (state.failed) return tk;
if ( state.backtracking==0 ) {tk=T_GREATERTHAN_EQ295;}
}
break;
}
if ( state.backtracking==0 ) {
action.rel_op(tk);
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "rel_op"
// $ANTLR start "and_operand"
// FortranParser08.g:3045:1: and_operand : ( not_op )? level_3_expr ( and_op ( not_op )? level_3_expr )* ;
public final void and_operand() throws RecognitionException {
boolean hasNotOp0 = false; // @init{INIT_BOOL_FALSE(hasNotOp0);
boolean hasNotOp1 = false; // @init{INIT_BOOL_FALSE(hasNotOp1);
int numAndOps = 0;
try {
// FortranParser08.g:3052:2: ( ( not_op )? level_3_expr ( and_op ( not_op )? level_3_expr )* )
// FortranParser08.g:3052:4: ( not_op )? level_3_expr ( and_op ( not_op )? level_3_expr )*
{
// FortranParser08.g:3052:4: ( not_op )?
int alt286=2;
int LA286_0 = input.LA(1);
if ( (LA286_0==T_NOT) ) {
alt286=1;
}
switch (alt286) {
case 1 :
// FortranParser08.g:3052:5: not_op
{
pushFollow(FOLLOW_not_op_in_and_operand13546);
not_op();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasNotOp0=true;}
}
break;
}
pushFollow(FOLLOW_level_3_expr_in_and_operand13557);
level_3_expr();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3054:3: ( and_op ( not_op )? level_3_expr )*
loop288:
while (true) {
int alt288=2;
int LA288_0 = input.LA(1);
if ( (LA288_0==T_AND) ) {
alt288=1;
}
switch (alt288) {
case 1 :
// FortranParser08.g:3054:4: and_op ( not_op )? level_3_expr
{
pushFollow(FOLLOW_and_op_in_and_operand13562);
and_op();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasNotOp1=false;}
// FortranParser08.g:3054:30: ( not_op )?
int alt287=2;
int LA287_0 = input.LA(1);
if ( (LA287_0==T_NOT) ) {
alt287=1;
}
switch (alt287) {
case 1 :
// FortranParser08.g:3054:31: not_op
{
pushFollow(FOLLOW_not_op_in_and_operand13567);
not_op();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasNotOp1=true;}
}
break;
}
pushFollow(FOLLOW_level_3_expr_in_and_operand13573);
level_3_expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.and_operand__not_op(hasNotOp1); numAndOps += 1;}
}
break;
default :
break loop288;
}
}
if ( state.backtracking==0 ) {action.and_operand(hasNotOp0, numAndOps);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "and_operand"
// $ANTLR start "or_operand"
// FortranParser08.g:3062:1: or_operand : and_operand ( or_op and_operand )* ;
public final void or_operand() throws RecognitionException {
int numOrOps = 0;
try {
// FortranParser08.g:3066:5: ( and_operand ( or_op and_operand )* )
// FortranParser08.g:3066:7: and_operand ( or_op and_operand )*
{
pushFollow(FOLLOW_and_operand_in_or_operand13615);
and_operand();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3066:19: ( or_op and_operand )*
loop289:
while (true) {
int alt289=2;
int LA289_0 = input.LA(1);
if ( (LA289_0==T_OR) ) {
alt289=1;
}
switch (alt289) {
case 1 :
// FortranParser08.g:3066:20: or_op and_operand
{
pushFollow(FOLLOW_or_op_in_or_operand13618);
or_op();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_and_operand_in_or_operand13620);
and_operand();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {numOrOps += 1;}
}
break;
default :
break loop289;
}
}
if ( state.backtracking==0 ) { action.or_operand(numOrOps); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "or_operand"
// $ANTLR start "equiv_operand"
// FortranParser08.g:3073:1: equiv_operand : or_operand ( equiv_op or_operand )* ;
public final void equiv_operand() throws RecognitionException {
Token equiv_op296 =null;
int numEquivOps = 0;
try {
// FortranParser08.g:3077:5: ( or_operand ( equiv_op or_operand )* )
// FortranParser08.g:3077:7: or_operand ( equiv_op or_operand )*
{
pushFollow(FOLLOW_or_operand_in_equiv_operand13658);
or_operand();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3078:9: ( equiv_op or_operand )*
loop290:
while (true) {
int alt290=2;
int LA290_0 = input.LA(1);
if ( (LA290_0==T_EQV||LA290_0==T_NEQV) ) {
alt290=1;
}
switch (alt290) {
case 1 :
// FortranParser08.g:3078:10: equiv_op or_operand
{
pushFollow(FOLLOW_equiv_op_in_equiv_operand13670);
equiv_op296=equiv_op();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_or_operand_in_equiv_operand13672);
or_operand();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.equiv_operand__equiv_op(equiv_op296); numEquivOps += 1;}
}
break;
default :
break loop290;
}
}
if ( state.backtracking==0 ) {action.equiv_operand(numEquivOps);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "equiv_operand"
// $ANTLR start "level_5_expr"
// FortranParser08.g:3086:1: level_5_expr : equiv_operand ( defined_binary_op equiv_operand )* ;
public final void level_5_expr() throws RecognitionException {
Token defined_binary_op297 =null;
int numDefinedBinaryOps = 0;
try {
// FortranParser08.g:3090:5: ( equiv_operand ( defined_binary_op equiv_operand )* )
// FortranParser08.g:3090:7: equiv_operand ( defined_binary_op equiv_operand )*
{
pushFollow(FOLLOW_equiv_operand_in_level_5_expr13727);
equiv_operand();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3090:21: ( defined_binary_op equiv_operand )*
loop291:
while (true) {
int alt291=2;
int LA291_0 = input.LA(1);
if ( (LA291_0==T_DEFINED_OP) ) {
alt291=1;
}
switch (alt291) {
case 1 :
// FortranParser08.g:3090:22: defined_binary_op equiv_operand
{
pushFollow(FOLLOW_defined_binary_op_in_level_5_expr13730);
defined_binary_op297=defined_binary_op();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_equiv_operand_in_level_5_expr13732);
equiv_operand();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.level_5_expr__defined_binary_op(defined_binary_op297);
numDefinedBinaryOps += 1;}
}
break;
default :
break loop291;
}
}
if ( state.backtracking==0 ) {action.level_5_expr(numDefinedBinaryOps);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "level_5_expr"
// $ANTLR start "not_op"
// FortranParser08.g:3097:1: not_op returns [Token tk] : T_NOT ;
public final Token not_op() throws RecognitionException {
Token tk = null;
Token T_NOT298=null;
try {
// FortranParser08.g:3098:2: ( T_NOT )
// FortranParser08.g:3098:4: T_NOT
{
T_NOT298=(Token)match(input,T_NOT,FOLLOW_T_NOT_in_not_op13776); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_NOT298; action.not_op(tk); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "not_op"
// $ANTLR start "and_op"
// FortranParser08.g:3102:1: and_op returns [Token tk] : T_AND ;
public final Token and_op() throws RecognitionException {
Token tk = null;
Token T_AND299=null;
try {
// FortranParser08.g:3103:2: ( T_AND )
// FortranParser08.g:3103:4: T_AND
{
T_AND299=(Token)match(input,T_AND,FOLLOW_T_AND_in_and_op13795); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_AND299; action.and_op(tk); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "and_op"
// $ANTLR start "or_op"
// FortranParser08.g:3107:1: or_op returns [Token tk] : T_OR ;
public final Token or_op() throws RecognitionException {
Token tk = null;
Token T_OR300=null;
try {
// FortranParser08.g:3108:2: ( T_OR )
// FortranParser08.g:3108:4: T_OR
{
T_OR300=(Token)match(input,T_OR,FOLLOW_T_OR_in_or_op13813); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_OR300; action.or_op(tk); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "or_op"
// $ANTLR start "equiv_op"
// FortranParser08.g:3112:1: equiv_op returns [Token tk] : ( T_EQV | T_NEQV );
public final Token equiv_op() throws RecognitionException {
Token tk = null;
Token T_EQV301=null;
Token T_NEQV302=null;
try {
// FortranParser08.g:3113:2: ( T_EQV | T_NEQV )
int alt292=2;
int LA292_0 = input.LA(1);
if ( (LA292_0==T_EQV) ) {
alt292=1;
}
else if ( (LA292_0==T_NEQV) ) {
alt292=2;
}
else {
if (state.backtracking>0) {state.failed=true; return tk;}
NoViableAltException nvae =
new NoViableAltException("", 292, 0, input);
throw nvae;
}
switch (alt292) {
case 1 :
// FortranParser08.g:3113:4: T_EQV
{
T_EQV301=(Token)match(input,T_EQV,FOLLOW_T_EQV_in_equiv_op13831); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_EQV301; action.equiv_op(tk); }
}
break;
case 2 :
// FortranParser08.g:3114:4: T_NEQV
{
T_NEQV302=(Token)match(input,T_NEQV,FOLLOW_T_NEQV_in_equiv_op13838); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_NEQV302; action.equiv_op(tk); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "equiv_op"
// $ANTLR start "expr"
// FortranParser08.g:3119:1: expr : level_5_expr ;
public final void expr() throws RecognitionException {
try {
// FortranParser08.g:3122:5: ( level_5_expr )
// FortranParser08.g:3122:7: level_5_expr
{
pushFollow(FOLLOW_level_5_expr_in_expr13858);
level_5_expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.expr();}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "expr"
// $ANTLR start "defined_binary_op"
// FortranParser08.g:3127:1: defined_binary_op returns [Token tk] : T_DEFINED_OP ;
public final Token defined_binary_op() throws RecognitionException {
Token tk = null;
Token T_DEFINED_OP303=null;
try {
// FortranParser08.g:3128:2: ( T_DEFINED_OP )
// FortranParser08.g:3128:4: T_DEFINED_OP
{
T_DEFINED_OP303=(Token)match(input,T_DEFINED_OP,FOLLOW_T_DEFINED_OP_in_defined_binary_op13884); if (state.failed) return tk;
if ( state.backtracking==0 ) { tk = T_DEFINED_OP303; action.defined_binary_op(tk); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "defined_binary_op"
// $ANTLR start "assignment_stmt"
// FortranParser08.g:3160:1: assignment_stmt : ( label )? T_ASSIGNMENT_STMT variable T_EQUALS expr end_of_stmt ;
public final void assignment_stmt() throws RecognitionException {
Token label304 =null;
Token end_of_stmt305 =null;
Token lbl = null;
try {
// FortranParser08.g:3163:2: ( ( label )? T_ASSIGNMENT_STMT variable T_EQUALS expr end_of_stmt )
// FortranParser08.g:3163:4: ( label )? T_ASSIGNMENT_STMT variable T_EQUALS expr end_of_stmt
{
// FortranParser08.g:3163:4: ( label )?
int alt293=2;
int LA293_0 = input.LA(1);
if ( (LA293_0==T_DIGIT_STRING) ) {
alt293=1;
}
switch (alt293) {
case 1 :
// FortranParser08.g:3163:5: label
{
pushFollow(FOLLOW_label_in_assignment_stmt13936);
label304=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label304;}
}
break;
}
match(input,T_ASSIGNMENT_STMT,FOLLOW_T_ASSIGNMENT_STMT_in_assignment_stmt13942); if (state.failed) return;
pushFollow(FOLLOW_variable_in_assignment_stmt13944);
variable();
state._fsp--;
if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_assignment_stmt13948); if (state.failed) return;
pushFollow(FOLLOW_expr_in_assignment_stmt13950);
expr();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_assignment_stmt13952);
end_of_stmt305=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.assignment_stmt(lbl, end_of_stmt305);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "assignment_stmt"
// $ANTLR start "pointer_assignment_stmt"
// FortranParser08.g:3178:1: pointer_assignment_stmt options {backtrack=true; } : ( ( label )? T_PTR_ASSIGNMENT_STMT data_ref T_EQ_GT expr end_of_stmt | ( label )? T_PTR_ASSIGNMENT_STMT data_ref T_LPAREN bounds_spec_list T_RPAREN T_EQ_GT expr end_of_stmt | ( label )? T_PTR_ASSIGNMENT_STMT data_ref T_LPAREN bounds_remapping_list T_RPAREN T_EQ_GT expr end_of_stmt );
public final void pointer_assignment_stmt() throws RecognitionException {
Token label306 =null;
Token end_of_stmt307 =null;
Token label308 =null;
Token end_of_stmt309 =null;
Token label310 =null;
Token end_of_stmt311 =null;
Token lbl = null;
try {
// FortranParser08.g:3182:5: ( ( label )? T_PTR_ASSIGNMENT_STMT data_ref T_EQ_GT expr end_of_stmt | ( label )? T_PTR_ASSIGNMENT_STMT data_ref T_LPAREN bounds_spec_list T_RPAREN T_EQ_GT expr end_of_stmt | ( label )? T_PTR_ASSIGNMENT_STMT data_ref T_LPAREN bounds_remapping_list T_RPAREN T_EQ_GT expr end_of_stmt )
int alt297=3;
int LA297_0 = input.LA(1);
if ( (LA297_0==T_DIGIT_STRING) ) {
int LA297_1 = input.LA(2);
if ( (synpred23_FortranParser08()) ) {
alt297=1;
}
else if ( (synpred24_FortranParser08()) ) {
alt297=2;
}
else if ( (true) ) {
alt297=3;
}
}
else if ( (LA297_0==T_PTR_ASSIGNMENT_STMT) ) {
int LA297_2 = input.LA(2);
if ( (synpred23_FortranParser08()) ) {
alt297=1;
}
else if ( (synpred24_FortranParser08()) ) {
alt297=2;
}
else if ( (true) ) {
alt297=3;
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 297, 0, input);
throw nvae;
}
switch (alt297) {
case 1 :
// FortranParser08.g:3182:7: ( label )? T_PTR_ASSIGNMENT_STMT data_ref T_EQ_GT expr end_of_stmt
{
// FortranParser08.g:3182:7: ( label )?
int alt294=2;
int LA294_0 = input.LA(1);
if ( (LA294_0==T_DIGIT_STRING) ) {
alt294=1;
}
switch (alt294) {
case 1 :
// FortranParser08.g:3182:8: label
{
pushFollow(FOLLOW_label_in_pointer_assignment_stmt13998);
label306=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label306;}
}
break;
}
match(input,T_PTR_ASSIGNMENT_STMT,FOLLOW_T_PTR_ASSIGNMENT_STMT_in_pointer_assignment_stmt14004); if (state.failed) return;
pushFollow(FOLLOW_data_ref_in_pointer_assignment_stmt14006);
data_ref();
state._fsp--;
if (state.failed) return;
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_pointer_assignment_stmt14008); if (state.failed) return;
pushFollow(FOLLOW_expr_in_pointer_assignment_stmt14023);
expr();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_pointer_assignment_stmt14025);
end_of_stmt307=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.pointer_assignment_stmt(lbl, end_of_stmt307,false,false);}
}
break;
case 2 :
// FortranParser08.g:3185:7: ( label )? T_PTR_ASSIGNMENT_STMT data_ref T_LPAREN bounds_spec_list T_RPAREN T_EQ_GT expr end_of_stmt
{
// FortranParser08.g:3185:7: ( label )?
int alt295=2;
int LA295_0 = input.LA(1);
if ( (LA295_0==T_DIGIT_STRING) ) {
alt295=1;
}
switch (alt295) {
case 1 :
// FortranParser08.g:3185:8: label
{
pushFollow(FOLLOW_label_in_pointer_assignment_stmt14039);
label308=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label308;}
}
break;
}
match(input,T_PTR_ASSIGNMENT_STMT,FOLLOW_T_PTR_ASSIGNMENT_STMT_in_pointer_assignment_stmt14045); if (state.failed) return;
pushFollow(FOLLOW_data_ref_in_pointer_assignment_stmt14047);
data_ref();
state._fsp--;
if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_pointer_assignment_stmt14049); if (state.failed) return;
pushFollow(FOLLOW_bounds_spec_list_in_pointer_assignment_stmt14064);
bounds_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_pointer_assignment_stmt14066); if (state.failed) return;
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_pointer_assignment_stmt14068); if (state.failed) return;
pushFollow(FOLLOW_expr_in_pointer_assignment_stmt14070);
expr();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_pointer_assignment_stmt14072);
end_of_stmt309=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.pointer_assignment_stmt(lbl, end_of_stmt309, true,false);}
}
break;
case 3 :
// FortranParser08.g:3188:7: ( label )? T_PTR_ASSIGNMENT_STMT data_ref T_LPAREN bounds_remapping_list T_RPAREN T_EQ_GT expr end_of_stmt
{
// FortranParser08.g:3188:7: ( label )?
int alt296=2;
int LA296_0 = input.LA(1);
if ( (LA296_0==T_DIGIT_STRING) ) {
alt296=1;
}
switch (alt296) {
case 1 :
// FortranParser08.g:3188:8: label
{
pushFollow(FOLLOW_label_in_pointer_assignment_stmt14086);
label310=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label310;}
}
break;
}
match(input,T_PTR_ASSIGNMENT_STMT,FOLLOW_T_PTR_ASSIGNMENT_STMT_in_pointer_assignment_stmt14092); if (state.failed) return;
pushFollow(FOLLOW_data_ref_in_pointer_assignment_stmt14094);
data_ref();
state._fsp--;
if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_pointer_assignment_stmt14096); if (state.failed) return;
pushFollow(FOLLOW_bounds_remapping_list_in_pointer_assignment_stmt14111);
bounds_remapping_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_pointer_assignment_stmt14113); if (state.failed) return;
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_pointer_assignment_stmt14115); if (state.failed) return;
pushFollow(FOLLOW_expr_in_pointer_assignment_stmt14117);
expr();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_pointer_assignment_stmt14119);
end_of_stmt311=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.pointer_assignment_stmt(lbl, end_of_stmt311, false,true);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "pointer_assignment_stmt"
// $ANTLR start "data_pointer_object"
// FortranParser08.g:3197:1: data_pointer_object : designator ;
public final void data_pointer_object() throws RecognitionException {
try {
// FortranParser08.g:3198:2: ( designator )
// FortranParser08.g:3198:4: designator
{
pushFollow(FOLLOW_designator_in_data_pointer_object14142);
designator();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.data_pointer_object(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "data_pointer_object"
// $ANTLR start "bounds_spec"
// FortranParser08.g:3204:1: bounds_spec : expr T_COLON ;
public final void bounds_spec() throws RecognitionException {
try {
// FortranParser08.g:3205:2: ( expr T_COLON )
// FortranParser08.g:3205:4: expr T_COLON
{
pushFollow(FOLLOW_expr_in_bounds_spec14169);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_bounds_spec14171); if (state.failed) return;
if ( state.backtracking==0 ) { action.bounds_spec(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "bounds_spec"
// $ANTLR start "bounds_spec_list"
// FortranParser08.g:3209:1: bounds_spec_list : bounds_spec ( T_COMMA bounds_spec )* ;
public final void bounds_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:3211:5: ( bounds_spec ( T_COMMA bounds_spec )* )
// FortranParser08.g:3211:10: bounds_spec ( T_COMMA bounds_spec )*
{
if ( state.backtracking==0 ) {action.bounds_spec_list__begin();}
pushFollow(FOLLOW_bounds_spec_in_bounds_spec_list14210);
bounds_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:3212:26: ( T_COMMA bounds_spec )*
loop298:
while (true) {
int alt298=2;
int LA298_0 = input.LA(1);
if ( (LA298_0==T_COMMA) ) {
alt298=1;
}
switch (alt298) {
case 1 :
// FortranParser08.g:3212:28: T_COMMA bounds_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_bounds_spec_list14216); if (state.failed) return;
pushFollow(FOLLOW_bounds_spec_in_bounds_spec_list14218);
bounds_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop298;
}
}
if ( state.backtracking==0 ) {action.bounds_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "bounds_spec_list"
// $ANTLR start "bounds_remapping"
// FortranParser08.g:3219:1: bounds_remapping : expr T_COLON expr ;
public final void bounds_remapping() throws RecognitionException {
try {
// FortranParser08.g:3220:2: ( expr T_COLON expr )
// FortranParser08.g:3220:4: expr T_COLON expr
{
pushFollow(FOLLOW_expr_in_bounds_remapping14250);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_bounds_remapping14252); if (state.failed) return;
pushFollow(FOLLOW_expr_in_bounds_remapping14254);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.bounds_remapping(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "bounds_remapping"
// $ANTLR start "bounds_remapping_list"
// FortranParser08.g:3224:1: bounds_remapping_list : bounds_remapping ( T_COMMA bounds_remapping )* ;
public final void bounds_remapping_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:3226:5: ( bounds_remapping ( T_COMMA bounds_remapping )* )
// FortranParser08.g:3226:10: bounds_remapping ( T_COMMA bounds_remapping )*
{
if ( state.backtracking==0 ) {action.bounds_remapping_list__begin();}
pushFollow(FOLLOW_bounds_remapping_in_bounds_remapping_list14293);
bounds_remapping();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:3227:31: ( T_COMMA bounds_remapping )*
loop299:
while (true) {
int alt299=2;
int LA299_0 = input.LA(1);
if ( (LA299_0==T_COMMA) ) {
alt299=1;
}
switch (alt299) {
case 1 :
// FortranParser08.g:3227:33: T_COMMA bounds_remapping
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_bounds_remapping_list14299); if (state.failed) return;
pushFollow(FOLLOW_bounds_remapping_in_bounds_remapping_list14301);
bounds_remapping();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop299;
}
}
if ( state.backtracking==0 ) {action.bounds_remapping_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "bounds_remapping_list"
// $ANTLR start "proc_pointer_object"
// FortranParser08.g:3239:1: proc_pointer_object : designator ;
public final void proc_pointer_object() throws RecognitionException {
try {
// FortranParser08.g:3240:2: ( designator )
// FortranParser08.g:3240:4: designator
{
pushFollow(FOLLOW_designator_in_proc_pointer_object14338);
designator();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.proc_pointer_object(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "proc_pointer_object"
// $ANTLR start "where_stmt"
// FortranParser08.g:3259:1: where_stmt : ( label )? T_WHERE_STMT T_WHERE T_LPAREN expr T_RPAREN assignment_stmt ;
public final void where_stmt() throws RecognitionException {
Token T_WHERE313=null;
Token label312 =null;
Token lbl = null;
action.where_stmt__begin();
try {
// FortranParser08.g:3265:2: ( ( label )? T_WHERE_STMT T_WHERE T_LPAREN expr T_RPAREN assignment_stmt )
// FortranParser08.g:3266:3: ( label )? T_WHERE_STMT T_WHERE T_LPAREN expr T_RPAREN assignment_stmt
{
// FortranParser08.g:3266:3: ( label )?
int alt300=2;
int LA300_0 = input.LA(1);
if ( (LA300_0==T_DIGIT_STRING) ) {
alt300=1;
}
switch (alt300) {
case 1 :
// FortranParser08.g:3266:4: label
{
pushFollow(FOLLOW_label_in_where_stmt14390);
label312=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label312;}
}
break;
}
match(input,T_WHERE_STMT,FOLLOW_T_WHERE_STMT_in_where_stmt14396); if (state.failed) return;
T_WHERE313=(Token)match(input,T_WHERE,FOLLOW_T_WHERE_in_where_stmt14398); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_where_stmt14402); if (state.failed) return;
pushFollow(FOLLOW_expr_in_where_stmt14404);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_where_stmt14406); if (state.failed) return;
pushFollow(FOLLOW_assignment_stmt_in_where_stmt14408);
assignment_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.where_stmt(lbl, T_WHERE313);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "where_stmt"
// $ANTLR start "where_construct"
// FortranParser08.g:3272:1: where_construct : where_construct_stmt ( where_body_construct )* ( masked_elsewhere_stmt ( where_body_construct )* )* ( elsewhere_stmt ( where_body_construct )* )? end_where_stmt ;
public final void where_construct() throws RecognitionException {
int numConstructs = 0;
int numMaskedConstructs = 0;
boolean hasMaskedElsewhere = false;
int numElsewhereConstructs = 0;
boolean hasElsewhere = false;
try {
// FortranParser08.g:3280:5: ( where_construct_stmt ( where_body_construct )* ( masked_elsewhere_stmt ( where_body_construct )* )* ( elsewhere_stmt ( where_body_construct )* )? end_where_stmt )
// FortranParser08.g:3280:10: where_construct_stmt ( where_body_construct )* ( masked_elsewhere_stmt ( where_body_construct )* )* ( elsewhere_stmt ( where_body_construct )* )? end_where_stmt
{
pushFollow(FOLLOW_where_construct_stmt_in_where_construct14436);
where_construct_stmt();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3280:31: ( where_body_construct )*
loop301:
while (true) {
int alt301=2;
int LA301_0 = input.LA(1);
if ( (LA301_0==T_DIGIT_STRING) ) {
int LA301_1 = input.LA(2);
if ( (LA301_1==T_ASSIGNMENT_STMT||LA301_1==T_WHERE_STMT) ) {
alt301=1;
}
}
else if ( (LA301_0==T_ASSIGNMENT_STMT||LA301_0==T_IDENT||(LA301_0 >= T_WHERE_CONSTRUCT_STMT && LA301_0 <= T_WHERE_STMT)) ) {
alt301=1;
}
switch (alt301) {
case 1 :
// FortranParser08.g:3280:33: where_body_construct
{
pushFollow(FOLLOW_where_body_construct_in_where_construct14440);
where_body_construct();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {numConstructs += 1;}
}
break;
default :
break loop301;
}
}
// FortranParser08.g:3281:11: ( masked_elsewhere_stmt ( where_body_construct )* )*
loop303:
while (true) {
int alt303=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA303_1 = input.LA(2);
if ( (LA303_1==T_ELSE) ) {
int LA303_2 = input.LA(3);
if ( (LA303_2==T_WHERE) ) {
int LA303_5 = input.LA(4);
if ( (LA303_5==T_LPAREN) ) {
alt303=1;
}
}
}
else if ( (LA303_1==T_ELSEWHERE) ) {
int LA303_3 = input.LA(3);
if ( (LA303_3==T_LPAREN) ) {
alt303=1;
}
}
}
break;
case T_ELSE:
{
int LA303_2 = input.LA(2);
if ( (LA303_2==T_WHERE) ) {
int LA303_5 = input.LA(3);
if ( (LA303_5==T_LPAREN) ) {
alt303=1;
}
}
}
break;
case T_ELSEWHERE:
{
int LA303_3 = input.LA(2);
if ( (LA303_3==T_LPAREN) ) {
alt303=1;
}
}
break;
}
switch (alt303) {
case 1 :
// FortranParser08.g:3281:13: masked_elsewhere_stmt ( where_body_construct )*
{
pushFollow(FOLLOW_masked_elsewhere_stmt_in_where_construct14459);
masked_elsewhere_stmt();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3281:35: ( where_body_construct )*
loop302:
while (true) {
int alt302=2;
int LA302_0 = input.LA(1);
if ( (LA302_0==T_DIGIT_STRING) ) {
int LA302_1 = input.LA(2);
if ( (LA302_1==T_ASSIGNMENT_STMT||LA302_1==T_WHERE_STMT) ) {
alt302=1;
}
}
else if ( (LA302_0==T_ASSIGNMENT_STMT||LA302_0==T_IDENT||(LA302_0 >= T_WHERE_CONSTRUCT_STMT && LA302_0 <= T_WHERE_STMT)) ) {
alt302=1;
}
switch (alt302) {
case 1 :
// FortranParser08.g:3281:37: where_body_construct
{
pushFollow(FOLLOW_where_body_construct_in_where_construct14463);
where_body_construct();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {numMaskedConstructs += 1;}
}
break;
default :
break loop302;
}
}
if ( state.backtracking==0 ) {hasMaskedElsewhere = true;
action.masked_elsewhere_stmt__end(numMaskedConstructs);}
}
break;
default :
break loop303;
}
}
// FortranParser08.g:3286:11: ( elsewhere_stmt ( where_body_construct )* )?
int alt305=2;
int LA305_0 = input.LA(1);
if ( (LA305_0==T_DIGIT_STRING) ) {
int LA305_1 = input.LA(2);
if ( (LA305_1==T_ELSE||LA305_1==T_ELSEWHERE) ) {
alt305=1;
}
}
else if ( (LA305_0==T_ELSE||LA305_0==T_ELSEWHERE) ) {
alt305=1;
}
switch (alt305) {
case 1 :
// FortranParser08.g:3286:13: elsewhere_stmt ( where_body_construct )*
{
pushFollow(FOLLOW_elsewhere_stmt_in_where_construct14530);
elsewhere_stmt();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3286:28: ( where_body_construct )*
loop304:
while (true) {
int alt304=2;
int LA304_0 = input.LA(1);
if ( (LA304_0==T_DIGIT_STRING) ) {
int LA304_1 = input.LA(2);
if ( (LA304_1==T_ASSIGNMENT_STMT||LA304_1==T_WHERE_STMT) ) {
alt304=1;
}
}
else if ( (LA304_0==T_ASSIGNMENT_STMT||LA304_0==T_IDENT||(LA304_0 >= T_WHERE_CONSTRUCT_STMT && LA304_0 <= T_WHERE_STMT)) ) {
alt304=1;
}
switch (alt304) {
case 1 :
// FortranParser08.g:3286:30: where_body_construct
{
pushFollow(FOLLOW_where_body_construct_in_where_construct14534);
where_body_construct();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {numElsewhereConstructs += 1;}
}
break;
default :
break loop304;
}
}
if ( state.backtracking==0 ) {hasElsewhere = true;
action.elsewhere_stmt__end(numElsewhereConstructs);}
}
break;
}
pushFollow(FOLLOW_end_where_stmt_in_where_construct14598);
end_where_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.where_construct(numConstructs, hasMaskedElsewhere,
hasElsewhere);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "where_construct"
// $ANTLR start "where_construct_stmt"
// FortranParser08.g:3298:1: where_construct_stmt : ( T_IDENT T_COLON )? T_WHERE_CONSTRUCT_STMT T_WHERE T_LPAREN expr T_RPAREN end_of_stmt ;
public final void where_construct_stmt() throws RecognitionException {
Token T_IDENT314=null;
Token T_WHERE315=null;
Token end_of_stmt316 =null;
Token id=null;
try {
// FortranParser08.g:3301:2: ( ( T_IDENT T_COLON )? T_WHERE_CONSTRUCT_STMT T_WHERE T_LPAREN expr T_RPAREN end_of_stmt )
// FortranParser08.g:3301:4: ( T_IDENT T_COLON )? T_WHERE_CONSTRUCT_STMT T_WHERE T_LPAREN expr T_RPAREN end_of_stmt
{
// FortranParser08.g:3301:4: ( T_IDENT T_COLON )?
int alt306=2;
int LA306_0 = input.LA(1);
if ( (LA306_0==T_IDENT) ) {
alt306=1;
}
switch (alt306) {
case 1 :
// FortranParser08.g:3301:6: T_IDENT T_COLON
{
T_IDENT314=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_where_construct_stmt14643); if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_where_construct_stmt14645); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT314;}
}
break;
}
match(input,T_WHERE_CONSTRUCT_STMT,FOLLOW_T_WHERE_CONSTRUCT_STMT_in_where_construct_stmt14651); if (state.failed) return;
T_WHERE315=(Token)match(input,T_WHERE,FOLLOW_T_WHERE_in_where_construct_stmt14653); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_where_construct_stmt14668); if (state.failed) return;
pushFollow(FOLLOW_expr_in_where_construct_stmt14670);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_where_construct_stmt14672); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_where_construct_stmt14674);
end_of_stmt316=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.where_construct_stmt(id, T_WHERE315, end_of_stmt316);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "where_construct_stmt"
// $ANTLR start "where_body_construct"
// FortranParser08.g:3308:1: where_body_construct : ( assignment_stmt | where_stmt | where_construct );
public final void where_body_construct() throws RecognitionException {
try {
// FortranParser08.g:3312:2: ( assignment_stmt | where_stmt | where_construct )
int alt307=3;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA307_1 = input.LA(2);
if ( (LA307_1==T_ASSIGNMENT_STMT) ) {
alt307=1;
}
else if ( (LA307_1==T_WHERE_STMT) ) {
alt307=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 307, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ASSIGNMENT_STMT:
{
alt307=1;
}
break;
case T_WHERE_STMT:
{
alt307=2;
}
break;
case T_IDENT:
case T_WHERE_CONSTRUCT_STMT:
{
alt307=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 307, 0, input);
throw nvae;
}
switch (alt307) {
case 1 :
// FortranParser08.g:3312:4: assignment_stmt
{
pushFollow(FOLLOW_assignment_stmt_in_where_body_construct14701);
assignment_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:3313:4: where_stmt
{
pushFollow(FOLLOW_where_stmt_in_where_body_construct14706);
where_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 3 :
// FortranParser08.g:3314:4: where_construct
{
pushFollow(FOLLOW_where_construct_in_where_body_construct14711);
where_construct();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.where_body_construct();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "where_body_construct"
// $ANTLR start "masked_elsewhere_stmt"
// FortranParser08.g:3327:1: masked_elsewhere_stmt : ( ( label )? T_ELSE T_WHERE T_LPAREN expr T_RPAREN ( T_IDENT )? end_of_stmt | ( label )? T_ELSEWHERE T_LPAREN expr T_RPAREN ( T_IDENT )? end_of_stmt );
public final void masked_elsewhere_stmt() throws RecognitionException {
Token T_IDENT318=null;
Token T_ELSE319=null;
Token T_WHERE320=null;
Token T_IDENT323=null;
Token T_ELSEWHERE324=null;
Token label317 =null;
Token end_of_stmt321 =null;
Token label322 =null;
Token end_of_stmt325 =null;
Token lbl = null;Token id=null;
try {
// FortranParser08.g:3330:2: ( ( label )? T_ELSE T_WHERE T_LPAREN expr T_RPAREN ( T_IDENT )? end_of_stmt | ( label )? T_ELSEWHERE T_LPAREN expr T_RPAREN ( T_IDENT )? end_of_stmt )
int alt312=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA312_1 = input.LA(2);
if ( (LA312_1==T_ELSE) ) {
alt312=1;
}
else if ( (LA312_1==T_ELSEWHERE) ) {
alt312=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 312, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELSE:
{
alt312=1;
}
break;
case T_ELSEWHERE:
{
alt312=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 312, 0, input);
throw nvae;
}
switch (alt312) {
case 1 :
// FortranParser08.g:3330:4: ( label )? T_ELSE T_WHERE T_LPAREN expr T_RPAREN ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3330:4: ( label )?
int alt308=2;
int LA308_0 = input.LA(1);
if ( (LA308_0==T_DIGIT_STRING) ) {
alt308=1;
}
switch (alt308) {
case 1 :
// FortranParser08.g:3330:5: label
{
pushFollow(FOLLOW_label_in_masked_elsewhere_stmt14742);
label317=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label317;}
}
break;
}
T_ELSE319=(Token)match(input,T_ELSE,FOLLOW_T_ELSE_in_masked_elsewhere_stmt14748); if (state.failed) return;
T_WHERE320=(Token)match(input,T_WHERE,FOLLOW_T_WHERE_in_masked_elsewhere_stmt14750); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_masked_elsewhere_stmt14752); if (state.failed) return;
pushFollow(FOLLOW_expr_in_masked_elsewhere_stmt14754);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_masked_elsewhere_stmt14756); if (state.failed) return;
// FortranParser08.g:3331:13: ( T_IDENT )?
int alt309=2;
int LA309_0 = input.LA(1);
if ( (LA309_0==T_IDENT) ) {
alt309=1;
}
switch (alt309) {
case 1 :
// FortranParser08.g:3331:15: T_IDENT
{
T_IDENT318=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_masked_elsewhere_stmt14773); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT318;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_masked_elsewhere_stmt14779);
end_of_stmt321=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.masked_elsewhere_stmt(lbl, T_ELSE319, T_WHERE320, id,
end_of_stmt321);}
}
break;
case 2 :
// FortranParser08.g:3334:4: ( label )? T_ELSEWHERE T_LPAREN expr T_RPAREN ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3334:4: ( label )?
int alt310=2;
int LA310_0 = input.LA(1);
if ( (LA310_0==T_DIGIT_STRING) ) {
alt310=1;
}
switch (alt310) {
case 1 :
// FortranParser08.g:3334:5: label
{
pushFollow(FOLLOW_label_in_masked_elsewhere_stmt14791);
label322=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label322;}
}
break;
}
T_ELSEWHERE324=(Token)match(input,T_ELSEWHERE,FOLLOW_T_ELSEWHERE_in_masked_elsewhere_stmt14797); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_masked_elsewhere_stmt14799); if (state.failed) return;
pushFollow(FOLLOW_expr_in_masked_elsewhere_stmt14801);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_masked_elsewhere_stmt14803); if (state.failed) return;
// FortranParser08.g:3335:13: ( T_IDENT )?
int alt311=2;
int LA311_0 = input.LA(1);
if ( (LA311_0==T_IDENT) ) {
alt311=1;
}
switch (alt311) {
case 1 :
// FortranParser08.g:3335:15: T_IDENT
{
T_IDENT323=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_masked_elsewhere_stmt14820); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT323;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_masked_elsewhere_stmt14826);
end_of_stmt325=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.masked_elsewhere_stmt(lbl, T_ELSEWHERE324, null,id,
end_of_stmt325);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "masked_elsewhere_stmt"
// $ANTLR start "elsewhere_stmt"
// FortranParser08.g:3341:1: elsewhere_stmt : ( ( label )? T_ELSE T_WHERE ( T_IDENT )? end_of_stmt | ( label )? T_ELSEWHERE ( T_IDENT )? end_of_stmt );
public final void elsewhere_stmt() throws RecognitionException {
Token T_IDENT327=null;
Token T_ELSE328=null;
Token T_WHERE329=null;
Token T_IDENT332=null;
Token T_ELSEWHERE333=null;
Token label326 =null;
Token end_of_stmt330 =null;
Token label331 =null;
Token end_of_stmt334 =null;
Token lbl = null; Token id=null;
try {
// FortranParser08.g:3344:2: ( ( label )? T_ELSE T_WHERE ( T_IDENT )? end_of_stmt | ( label )? T_ELSEWHERE ( T_IDENT )? end_of_stmt )
int alt317=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA317_1 = input.LA(2);
if ( (LA317_1==T_ELSE) ) {
alt317=1;
}
else if ( (LA317_1==T_ELSEWHERE) ) {
alt317=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 317, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELSE:
{
alt317=1;
}
break;
case T_ELSEWHERE:
{
alt317=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 317, 0, input);
throw nvae;
}
switch (alt317) {
case 1 :
// FortranParser08.g:3344:4: ( label )? T_ELSE T_WHERE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3344:4: ( label )?
int alt313=2;
int LA313_0 = input.LA(1);
if ( (LA313_0==T_DIGIT_STRING) ) {
alt313=1;
}
switch (alt313) {
case 1 :
// FortranParser08.g:3344:5: label
{
pushFollow(FOLLOW_label_in_elsewhere_stmt14855);
label326=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label326;}
}
break;
}
T_ELSE328=(Token)match(input,T_ELSE,FOLLOW_T_ELSE_in_elsewhere_stmt14861); if (state.failed) return;
T_WHERE329=(Token)match(input,T_WHERE,FOLLOW_T_WHERE_in_elsewhere_stmt14863); if (state.failed) return;
// FortranParser08.g:3345:13: ( T_IDENT )?
int alt314=2;
int LA314_0 = input.LA(1);
if ( (LA314_0==T_IDENT) ) {
alt314=1;
}
switch (alt314) {
case 1 :
// FortranParser08.g:3345:14: T_IDENT
{
T_IDENT327=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_elsewhere_stmt14879); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT327;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_elsewhere_stmt14885);
end_of_stmt330=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.elsewhere_stmt(lbl, T_ELSE328, T_WHERE329, id,
end_of_stmt330);}
}
break;
case 2 :
// FortranParser08.g:3348:4: ( label )? T_ELSEWHERE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3348:4: ( label )?
int alt315=2;
int LA315_0 = input.LA(1);
if ( (LA315_0==T_DIGIT_STRING) ) {
alt315=1;
}
switch (alt315) {
case 1 :
// FortranParser08.g:3348:5: label
{
pushFollow(FOLLOW_label_in_elsewhere_stmt14896);
label331=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label331;}
}
break;
}
T_ELSEWHERE333=(Token)match(input,T_ELSEWHERE,FOLLOW_T_ELSEWHERE_in_elsewhere_stmt14902); if (state.failed) return;
// FortranParser08.g:3348:42: ( T_IDENT )?
int alt316=2;
int LA316_0 = input.LA(1);
if ( (LA316_0==T_IDENT) ) {
alt316=1;
}
switch (alt316) {
case 1 :
// FortranParser08.g:3348:43: T_IDENT
{
T_IDENT332=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_elsewhere_stmt14905); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT332;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_elsewhere_stmt14924);
end_of_stmt334=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.elsewhere_stmt(lbl, T_ELSEWHERE333, null, id,
end_of_stmt334);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "elsewhere_stmt"
// $ANTLR start "end_where_stmt"
// FortranParser08.g:3355:1: end_where_stmt : ( ( label )? T_END T_WHERE ( T_IDENT )? end_of_stmt | ( label )? T_ENDWHERE ( T_IDENT )? end_of_stmt );
public final void end_where_stmt() throws RecognitionException {
Token T_IDENT336=null;
Token T_END337=null;
Token T_WHERE338=null;
Token T_IDENT341=null;
Token T_ENDWHERE342=null;
Token label335 =null;
Token end_of_stmt339 =null;
Token label340 =null;
Token end_of_stmt343 =null;
Token lbl = null; Token id=null;
try {
// FortranParser08.g:3358:2: ( ( label )? T_END T_WHERE ( T_IDENT )? end_of_stmt | ( label )? T_ENDWHERE ( T_IDENT )? end_of_stmt )
int alt322=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA322_1 = input.LA(2);
if ( (LA322_1==T_END) ) {
alt322=1;
}
else if ( (LA322_1==T_ENDWHERE) ) {
alt322=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 322, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
alt322=1;
}
break;
case T_ENDWHERE:
{
alt322=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 322, 0, input);
throw nvae;
}
switch (alt322) {
case 1 :
// FortranParser08.g:3358:4: ( label )? T_END T_WHERE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3358:4: ( label )?
int alt318=2;
int LA318_0 = input.LA(1);
if ( (LA318_0==T_DIGIT_STRING) ) {
alt318=1;
}
switch (alt318) {
case 1 :
// FortranParser08.g:3358:5: label
{
pushFollow(FOLLOW_label_in_end_where_stmt14953);
label335=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label335;}
}
break;
}
T_END337=(Token)match(input,T_END,FOLLOW_T_END_in_end_where_stmt14959); if (state.failed) return;
T_WHERE338=(Token)match(input,T_WHERE,FOLLOW_T_WHERE_in_end_where_stmt14961); if (state.failed) return;
// FortranParser08.g:3358:44: ( T_IDENT )?
int alt319=2;
int LA319_0 = input.LA(1);
if ( (LA319_0==T_IDENT) ) {
alt319=1;
}
switch (alt319) {
case 1 :
// FortranParser08.g:3358:46: T_IDENT
{
T_IDENT336=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_where_stmt14965); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT336;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_where_stmt14981);
end_of_stmt339=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_where_stmt(lbl, T_END337, T_WHERE338, id, end_of_stmt339);}
}
break;
case 2 :
// FortranParser08.g:3361:4: ( label )? T_ENDWHERE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3361:4: ( label )?
int alt320=2;
int LA320_0 = input.LA(1);
if ( (LA320_0==T_DIGIT_STRING) ) {
alt320=1;
}
switch (alt320) {
case 1 :
// FortranParser08.g:3361:5: label
{
pushFollow(FOLLOW_label_in_end_where_stmt14991);
label340=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label340;}
}
break;
}
T_ENDWHERE342=(Token)match(input,T_ENDWHERE,FOLLOW_T_ENDWHERE_in_end_where_stmt14997); if (state.failed) return;
// FortranParser08.g:3361:41: ( T_IDENT )?
int alt321=2;
int LA321_0 = input.LA(1);
if ( (LA321_0==T_IDENT) ) {
alt321=1;
}
switch (alt321) {
case 1 :
// FortranParser08.g:3361:43: T_IDENT
{
T_IDENT341=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_where_stmt15001); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT341;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_where_stmt15017);
end_of_stmt343=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_where_stmt(lbl, T_ENDWHERE342, null, id, end_of_stmt343);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_where_stmt"
// $ANTLR start "forall_construct"
// FortranParser08.g:3367:1: forall_construct : forall_construct_stmt ( forall_body_construct )* end_forall_stmt ;
public final void forall_construct() throws RecognitionException {
try {
// FortranParser08.g:3371:2: ( forall_construct_stmt ( forall_body_construct )* end_forall_stmt )
// FortranParser08.g:3371:4: forall_construct_stmt ( forall_body_construct )* end_forall_stmt
{
pushFollow(FOLLOW_forall_construct_stmt_in_forall_construct15038);
forall_construct_stmt();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3372:3: ( forall_body_construct )*
loop323:
while (true) {
int alt323=2;
int LA323_0 = input.LA(1);
if ( (LA323_0==T_DIGIT_STRING) ) {
int LA323_1 = input.LA(2);
if ( (LA323_1==T_ASSIGNMENT_STMT||(LA323_1 >= T_FORALL_CONSTRUCT_STMT && LA323_1 <= T_FORALL_STMT)||LA323_1==T_IDENT||LA323_1==T_PTR_ASSIGNMENT_STMT||LA323_1==T_WHERE_STMT) ) {
alt323=1;
}
}
else if ( (LA323_0==T_ASSIGNMENT_STMT||(LA323_0 >= T_FORALL_CONSTRUCT_STMT && LA323_0 <= T_FORALL_STMT)||LA323_0==T_IDENT||LA323_0==T_PTR_ASSIGNMENT_STMT||(LA323_0 >= T_WHERE_CONSTRUCT_STMT && LA323_0 <= T_WHERE_STMT)) ) {
alt323=1;
}
switch (alt323) {
case 1 :
// FortranParser08.g:3372:5: forall_body_construct
{
pushFollow(FOLLOW_forall_body_construct_in_forall_construct15044);
forall_body_construct();
state._fsp--;
if (state.failed) return;
}
break;
default :
break loop323;
}
}
pushFollow(FOLLOW_end_forall_stmt_in_forall_construct15051);
end_forall_stmt();
state._fsp--;
if (state.failed) return;
}
if ( state.backtracking==0 ) {
action.forall_construct();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "forall_construct"
// $ANTLR start "forall_construct_stmt"
// FortranParser08.g:3377:1: forall_construct_stmt : ( label )? ( T_IDENT T_COLON )? T_FORALL_CONSTRUCT_STMT T_FORALL forall_header end_of_stmt ;
public final void forall_construct_stmt() throws RecognitionException {
Token T_IDENT345=null;
Token T_FORALL346=null;
Token label344 =null;
Token end_of_stmt347 =null;
Token lbl = null; Token id = null;
try {
// FortranParser08.g:3380:5: ( ( label )? ( T_IDENT T_COLON )? T_FORALL_CONSTRUCT_STMT T_FORALL forall_header end_of_stmt )
// FortranParser08.g:3380:10: ( label )? ( T_IDENT T_COLON )? T_FORALL_CONSTRUCT_STMT T_FORALL forall_header end_of_stmt
{
// FortranParser08.g:3380:10: ( label )?
int alt324=2;
int LA324_0 = input.LA(1);
if ( (LA324_0==T_DIGIT_STRING) ) {
alt324=1;
}
switch (alt324) {
case 1 :
// FortranParser08.g:3380:11: label
{
pushFollow(FOLLOW_label_in_forall_construct_stmt15080);
label344=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label344;}
}
break;
}
// FortranParser08.g:3380:36: ( T_IDENT T_COLON )?
int alt325=2;
int LA325_0 = input.LA(1);
if ( (LA325_0==T_IDENT) ) {
alt325=1;
}
switch (alt325) {
case 1 :
// FortranParser08.g:3380:38: T_IDENT T_COLON
{
T_IDENT345=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_forall_construct_stmt15088); if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_forall_construct_stmt15090); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT345;}
}
break;
}
match(input,T_FORALL_CONSTRUCT_STMT,FOLLOW_T_FORALL_CONSTRUCT_STMT_in_forall_construct_stmt15109); if (state.failed) return;
T_FORALL346=(Token)match(input,T_FORALL,FOLLOW_T_FORALL_in_forall_construct_stmt15111); if (state.failed) return;
pushFollow(FOLLOW_forall_header_in_forall_construct_stmt15126);
forall_header();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_forall_construct_stmt15128);
end_of_stmt347=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.forall_construct_stmt(lbl, id, T_FORALL346,
end_of_stmt347);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "forall_construct_stmt"
// $ANTLR start "forall_header"
// FortranParser08.g:3389:1: forall_header : T_LPAREN forall_triplet_spec_list ( T_COMMA expr )? T_RPAREN ;
public final void forall_header() throws RecognitionException {
try {
// FortranParser08.g:3393:5: ( T_LPAREN forall_triplet_spec_list ( T_COMMA expr )? T_RPAREN )
// FortranParser08.g:3393:7: T_LPAREN forall_triplet_spec_list ( T_COMMA expr )? T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_forall_header15158); if (state.failed) return;
pushFollow(FOLLOW_forall_triplet_spec_list_in_forall_header15160);
forall_triplet_spec_list();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3393:41: ( T_COMMA expr )?
int alt326=2;
int LA326_0 = input.LA(1);
if ( (LA326_0==T_COMMA) ) {
alt326=1;
}
switch (alt326) {
case 1 :
// FortranParser08.g:3393:43: T_COMMA expr
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_forall_header15164); if (state.failed) return;
pushFollow(FOLLOW_expr_in_forall_header15166);
expr();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_forall_header15171); if (state.failed) return;
}
if ( state.backtracking==0 ) {
action.forall_header();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "forall_header"
// $ANTLR start "forall_triplet_spec"
// FortranParser08.g:3399:1: forall_triplet_spec : T_IDENT T_EQUALS expr T_COLON expr ( T_COLON expr )? ;
public final void forall_triplet_spec() throws RecognitionException {
Token T_IDENT348=null;
boolean hasStride=false;
try {
// FortranParser08.g:3401:5: ( T_IDENT T_EQUALS expr T_COLON expr ( T_COLON expr )? )
// FortranParser08.g:3401:7: T_IDENT T_EQUALS expr T_COLON expr ( T_COLON expr )?
{
T_IDENT348=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_forall_triplet_spec15195); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_forall_triplet_spec15197); if (state.failed) return;
pushFollow(FOLLOW_expr_in_forall_triplet_spec15199);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_forall_triplet_spec15201); if (state.failed) return;
pushFollow(FOLLOW_expr_in_forall_triplet_spec15203);
expr();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3401:42: ( T_COLON expr )?
int alt327=2;
int LA327_0 = input.LA(1);
if ( (LA327_0==T_COLON) ) {
alt327=1;
}
switch (alt327) {
case 1 :
// FortranParser08.g:3401:44: T_COLON expr
{
match(input,T_COLON,FOLLOW_T_COLON_in_forall_triplet_spec15207); if (state.failed) return;
pushFollow(FOLLOW_expr_in_forall_triplet_spec15209);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasStride=true;}
}
break;
}
if ( state.backtracking==0 ) {action.forall_triplet_spec(T_IDENT348,hasStride);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "forall_triplet_spec"
// $ANTLR start "forall_triplet_spec_list"
// FortranParser08.g:3406:1: forall_triplet_spec_list : forall_triplet_spec ( T_COMMA forall_triplet_spec )* ;
public final void forall_triplet_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:3408:5: ( forall_triplet_spec ( T_COMMA forall_triplet_spec )* )
// FortranParser08.g:3408:10: forall_triplet_spec ( T_COMMA forall_triplet_spec )*
{
if ( state.backtracking==0 ) {action.forall_triplet_spec_list__begin();}
pushFollow(FOLLOW_forall_triplet_spec_in_forall_triplet_spec_list15247);
forall_triplet_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:3410:13: ( T_COMMA forall_triplet_spec )*
loop328:
while (true) {
int alt328=2;
int LA328_0 = input.LA(1);
if ( (LA328_0==T_COMMA) ) {
int LA328_1 = input.LA(2);
if ( (LA328_1==T_IDENT) ) {
int LA328_3 = input.LA(3);
if ( (LA328_3==T_EQUALS) ) {
alt328=1;
}
}
}
switch (alt328) {
case 1 :
// FortranParser08.g:3410:15: T_COMMA forall_triplet_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_forall_triplet_spec_list15266); if (state.failed) return;
pushFollow(FOLLOW_forall_triplet_spec_in_forall_triplet_spec_list15268);
forall_triplet_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop328;
}
}
if ( state.backtracking==0 ) {action.forall_triplet_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "forall_triplet_spec_list"
// $ANTLR start "forall_body_construct"
// FortranParser08.g:3415:1: forall_body_construct : ( forall_assignment_stmt | where_stmt | where_construct | forall_construct | forall_stmt );
public final void forall_body_construct() throws RecognitionException {
try {
// FortranParser08.g:3419:2: ( forall_assignment_stmt | where_stmt | where_construct | forall_construct | forall_stmt )
int alt329=5;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
switch ( input.LA(2) ) {
case T_ASSIGNMENT_STMT:
case T_PTR_ASSIGNMENT_STMT:
{
alt329=1;
}
break;
case T_WHERE_STMT:
{
alt329=2;
}
break;
case T_FORALL_CONSTRUCT_STMT:
case T_IDENT:
{
alt329=4;
}
break;
case T_FORALL_STMT:
{
alt329=5;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 329, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ASSIGNMENT_STMT:
case T_PTR_ASSIGNMENT_STMT:
{
alt329=1;
}
break;
case T_WHERE_STMT:
{
alt329=2;
}
break;
case T_IDENT:
{
int LA329_4 = input.LA(2);
if ( (LA329_4==T_COLON) ) {
int LA329_8 = input.LA(3);
if ( (LA329_8==T_WHERE_CONSTRUCT_STMT) ) {
alt329=3;
}
else if ( (LA329_8==T_FORALL_CONSTRUCT_STMT) ) {
alt329=4;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 329, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 329, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_WHERE_CONSTRUCT_STMT:
{
alt329=3;
}
break;
case T_FORALL_CONSTRUCT_STMT:
{
alt329=4;
}
break;
case T_FORALL_STMT:
{
alt329=5;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 329, 0, input);
throw nvae;
}
switch (alt329) {
case 1 :
// FortranParser08.g:3419:4: forall_assignment_stmt
{
pushFollow(FOLLOW_forall_assignment_stmt_in_forall_body_construct15303);
forall_assignment_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:3420:4: where_stmt
{
pushFollow(FOLLOW_where_stmt_in_forall_body_construct15308);
where_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 3 :
// FortranParser08.g:3421:4: where_construct
{
pushFollow(FOLLOW_where_construct_in_forall_body_construct15313);
where_construct();
state._fsp--;
if (state.failed) return;
}
break;
case 4 :
// FortranParser08.g:3422:4: forall_construct
{
pushFollow(FOLLOW_forall_construct_in_forall_body_construct15318);
forall_construct();
state._fsp--;
if (state.failed) return;
}
break;
case 5 :
// FortranParser08.g:3423:4: forall_stmt
{
pushFollow(FOLLOW_forall_stmt_in_forall_body_construct15323);
forall_stmt();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.forall_body_construct();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "forall_body_construct"
// $ANTLR start "forall_assignment_stmt"
// FortranParser08.g:3427:1: forall_assignment_stmt : ( assignment_stmt | pointer_assignment_stmt );
public final void forall_assignment_stmt() throws RecognitionException {
try {
// FortranParser08.g:3429:2: ( assignment_stmt | pointer_assignment_stmt )
int alt330=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA330_1 = input.LA(2);
if ( (LA330_1==T_ASSIGNMENT_STMT) ) {
alt330=1;
}
else if ( (LA330_1==T_PTR_ASSIGNMENT_STMT) ) {
alt330=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 330, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ASSIGNMENT_STMT:
{
alt330=1;
}
break;
case T_PTR_ASSIGNMENT_STMT:
{
alt330=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 330, 0, input);
throw nvae;
}
switch (alt330) {
case 1 :
// FortranParser08.g:3429:4: assignment_stmt
{
pushFollow(FOLLOW_assignment_stmt_in_forall_assignment_stmt15339);
assignment_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.forall_assignment_stmt(false);}
}
break;
case 2 :
// FortranParser08.g:3431:4: pointer_assignment_stmt
{
pushFollow(FOLLOW_pointer_assignment_stmt_in_forall_assignment_stmt15349);
pointer_assignment_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.forall_assignment_stmt(true);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "forall_assignment_stmt"
// $ANTLR start "end_forall_stmt"
// FortranParser08.g:3436:1: end_forall_stmt : ( ( label )? T_END T_FORALL ( T_IDENT )? end_of_stmt | ( label )? T_ENDFORALL ( T_IDENT )? end_of_stmt );
public final void end_forall_stmt() throws RecognitionException {
Token T_IDENT350=null;
Token T_END351=null;
Token T_FORALL352=null;
Token T_IDENT355=null;
Token T_ENDFORALL356=null;
Token label349 =null;
Token end_of_stmt353 =null;
Token label354 =null;
Token end_of_stmt357 =null;
Token lbl = null; Token id=null;
try {
// FortranParser08.g:3439:2: ( ( label )? T_END T_FORALL ( T_IDENT )? end_of_stmt | ( label )? T_ENDFORALL ( T_IDENT )? end_of_stmt )
int alt335=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA335_1 = input.LA(2);
if ( (LA335_1==T_END) ) {
alt335=1;
}
else if ( (LA335_1==T_ENDFORALL) ) {
alt335=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 335, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
alt335=1;
}
break;
case T_ENDFORALL:
{
alt335=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 335, 0, input);
throw nvae;
}
switch (alt335) {
case 1 :
// FortranParser08.g:3439:4: ( label )? T_END T_FORALL ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3439:4: ( label )?
int alt331=2;
int LA331_0 = input.LA(1);
if ( (LA331_0==T_DIGIT_STRING) ) {
alt331=1;
}
switch (alt331) {
case 1 :
// FortranParser08.g:3439:5: label
{
pushFollow(FOLLOW_label_in_end_forall_stmt15376);
label349=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label349;}
}
break;
}
T_END351=(Token)match(input,T_END,FOLLOW_T_END_in_end_forall_stmt15382); if (state.failed) return;
T_FORALL352=(Token)match(input,T_FORALL,FOLLOW_T_FORALL_in_end_forall_stmt15384); if (state.failed) return;
// FortranParser08.g:3439:45: ( T_IDENT )?
int alt332=2;
int LA332_0 = input.LA(1);
if ( (LA332_0==T_IDENT) ) {
alt332=1;
}
switch (alt332) {
case 1 :
// FortranParser08.g:3439:47: T_IDENT
{
T_IDENT350=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_forall_stmt15388); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT350;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_forall_stmt15403);
end_of_stmt353=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_forall_stmt(lbl, T_END351, T_FORALL352, id, end_of_stmt353);}
}
break;
case 2 :
// FortranParser08.g:3442:4: ( label )? T_ENDFORALL ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3442:4: ( label )?
int alt333=2;
int LA333_0 = input.LA(1);
if ( (LA333_0==T_DIGIT_STRING) ) {
alt333=1;
}
switch (alt333) {
case 1 :
// FortranParser08.g:3442:5: label
{
pushFollow(FOLLOW_label_in_end_forall_stmt15413);
label354=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label354;}
}
break;
}
T_ENDFORALL356=(Token)match(input,T_ENDFORALL,FOLLOW_T_ENDFORALL_in_end_forall_stmt15419); if (state.failed) return;
// FortranParser08.g:3442:42: ( T_IDENT )?
int alt334=2;
int LA334_0 = input.LA(1);
if ( (LA334_0==T_IDENT) ) {
alt334=1;
}
switch (alt334) {
case 1 :
// FortranParser08.g:3442:44: T_IDENT
{
T_IDENT355=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_forall_stmt15423); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT355;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_forall_stmt15438);
end_of_stmt357=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_forall_stmt(lbl, T_ENDFORALL356, null, id, end_of_stmt357);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_forall_stmt"
// $ANTLR start "forall_stmt"
// FortranParser08.g:3449:1: forall_stmt : ( label )? T_FORALL_STMT T_FORALL forall_header forall_assignment_stmt ;
public final void forall_stmt() throws RecognitionException {
Token T_FORALL359=null;
Token label358 =null;
Token lbl = null;
action.forall_stmt__begin();
try {
// FortranParser08.g:3455:2: ( ( label )? T_FORALL_STMT T_FORALL forall_header forall_assignment_stmt )
// FortranParser08.g:3455:4: ( label )? T_FORALL_STMT T_FORALL forall_header forall_assignment_stmt
{
// FortranParser08.g:3455:4: ( label )?
int alt336=2;
int LA336_0 = input.LA(1);
if ( (LA336_0==T_DIGIT_STRING) ) {
alt336=1;
}
switch (alt336) {
case 1 :
// FortranParser08.g:3455:5: label
{
pushFollow(FOLLOW_label_in_forall_stmt15465);
label358=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label358;}
}
break;
}
match(input,T_FORALL_STMT,FOLLOW_T_FORALL_STMT_in_forall_stmt15471); if (state.failed) return;
T_FORALL359=(Token)match(input,T_FORALL,FOLLOW_T_FORALL_in_forall_stmt15473); if (state.failed) return;
pushFollow(FOLLOW_forall_header_in_forall_stmt15477);
forall_header();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_forall_assignment_stmt_in_forall_stmt15481);
forall_assignment_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.forall_stmt(lbl, T_FORALL359);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "forall_stmt"
// $ANTLR start "block"
// FortranParser08.g:3468:1: block : ( execution_part_construct )* ;
public final void block() throws RecognitionException {
try {
// FortranParser08.g:3472:2: ( ( execution_part_construct )* )
// FortranParser08.g:3472:4: ( execution_part_construct )*
{
// FortranParser08.g:3472:4: ( execution_part_construct )*
loop337:
while (true) {
int alt337=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA337_1 = input.LA(2);
if ( (LA337_1==T_END) ) {
int LA337_3 = input.LA(3);
if ( (LA337_3==T_FILE) ) {
alt337=1;
}
}
else if ( ((LA337_1 >= T_ALLOCATE && LA337_1 <= T_ALLOCATE_STMT_1)||(LA337_1 >= T_ARITHMETIC_IF_STMT && LA337_1 <= T_ASSIGN)||(LA337_1 >= T_ASSIGNMENT_STMT && LA337_1 <= T_ASSOCIATE)||LA337_1==T_BACKSPACE||LA337_1==T_BLOCK||LA337_1==T_CALL||LA337_1==T_CLOSE||LA337_1==T_CONTINUE||(LA337_1 >= T_CRITICAL && LA337_1 <= T_DATA)||LA337_1==T_DEALLOCATE||LA337_1==T_DO||LA337_1==T_ENDFILE||LA337_1==T_ENTRY||LA337_1==T_ERROR||LA337_1==T_EXIT||LA337_1==T_FLUSH||(LA337_1 >= T_FORALL_CONSTRUCT_STMT && LA337_1 <= T_FORMAT)||(LA337_1 >= T_GO && LA337_1 <= T_GOTO)||(LA337_1 >= T_IDENT && LA337_1 <= T_IF_STMT)||(LA337_1 >= T_INQUIRE && LA337_1 <= T_INQUIRE_STMT_2)||LA337_1==T_LOCK||LA337_1==T_NULLIFY||LA337_1==T_OPEN||LA337_1==T_PAUSE||LA337_1==T_PRINT||LA337_1==T_PTR_ASSIGNMENT_STMT||LA337_1==T_READ||(LA337_1 >= T_RETURN && LA337_1 <= T_REWIND)||(LA337_1 >= T_SELECT && LA337_1 <= T_SELECTTYPE)||LA337_1==T_STOP||LA337_1==T_SYNC||LA337_1==T_UNLOCK||LA337_1==T_WAIT||LA337_1==T_WHERE_STMT||LA337_1==T_WRITE) ) {
alt337=1;
}
}
break;
case T_END:
{
int LA337_3 = input.LA(2);
if ( (LA337_3==T_FILE) ) {
alt337=1;
}
}
break;
case T_ALLOCATE:
case T_ALLOCATE_STMT_1:
case T_ARITHMETIC_IF_STMT:
case T_ASSIGN:
case T_ASSIGNMENT_STMT:
case T_ASSOCIATE:
case T_BACKSPACE:
case T_BLOCK:
case T_CALL:
case T_CLOSE:
case T_CONTINUE:
case T_CRITICAL:
case T_CYCLE:
case T_DATA:
case T_DEALLOCATE:
case T_DO:
case T_ENDFILE:
case T_ENTRY:
case T_ERROR:
case T_EXIT:
case T_FLUSH:
case T_FORALL_CONSTRUCT_STMT:
case T_FORALL_STMT:
case T_FORMAT:
case T_GO:
case T_GOTO:
case T_IDENT:
case T_IF:
case T_IF_STMT:
case T_INQUIRE:
case T_INQUIRE_STMT_2:
case T_LOCK:
case T_NULLIFY:
case T_OPEN:
case T_PAUSE:
case T_PRINT:
case T_PTR_ASSIGNMENT_STMT:
case T_READ:
case T_RETURN:
case T_REWIND:
case T_SELECT:
case T_SELECTCASE:
case T_SELECTTYPE:
case T_STOP:
case T_SYNC:
case T_UNLOCK:
case T_WAIT:
case T_WHERE_CONSTRUCT_STMT:
case T_WHERE_STMT:
case T_WRITE:
{
alt337=1;
}
break;
}
switch (alt337) {
case 1 :
// FortranParser08.g:3472:6: execution_part_construct
{
pushFollow(FOLLOW_execution_part_construct_in_block15510);
execution_part_construct();
state._fsp--;
if (state.failed) return;
}
break;
default :
break loop337;
}
}
}
if ( state.backtracking==0 ) {
action.block();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "block"
// $ANTLR start "if_construct"
// FortranParser08.g:3476:1: if_construct : if_then_stmt block ( else_if_stmt block )* ( else_stmt block )? end_if_stmt ;
public final void if_construct() throws RecognitionException {
try {
// FortranParser08.g:3480:5: ( if_then_stmt block ( else_if_stmt block )* ( else_stmt block )? end_if_stmt )
// FortranParser08.g:3480:9: if_then_stmt block ( else_if_stmt block )* ( else_stmt block )? end_if_stmt
{
pushFollow(FOLLOW_if_then_stmt_in_if_construct15535);
if_then_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_block_in_if_construct15537);
block();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3480:28: ( else_if_stmt block )*
loop338:
while (true) {
int alt338=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA338_1 = input.LA(2);
if ( (LA338_1==T_ELSE) ) {
int LA338_2 = input.LA(3);
if ( (LA338_2==T_IF) ) {
alt338=1;
}
}
else if ( (LA338_1==T_ELSEIF) ) {
alt338=1;
}
}
break;
case T_ELSE:
{
int LA338_2 = input.LA(2);
if ( (LA338_2==T_IF) ) {
alt338=1;
}
}
break;
case T_ELSEIF:
{
alt338=1;
}
break;
}
switch (alt338) {
case 1 :
// FortranParser08.g:3480:30: else_if_stmt block
{
pushFollow(FOLLOW_else_if_stmt_in_if_construct15541);
else_if_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_block_in_if_construct15543);
block();
state._fsp--;
if (state.failed) return;
}
break;
default :
break loop338;
}
}
// FortranParser08.g:3480:52: ( else_stmt block )?
int alt339=2;
int LA339_0 = input.LA(1);
if ( (LA339_0==T_DIGIT_STRING) ) {
int LA339_1 = input.LA(2);
if ( (LA339_1==T_ELSE) ) {
alt339=1;
}
}
else if ( (LA339_0==T_ELSE) ) {
alt339=1;
}
switch (alt339) {
case 1 :
// FortranParser08.g:3480:54: else_stmt block
{
pushFollow(FOLLOW_else_stmt_in_if_construct15550);
else_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_block_in_if_construct15552);
block();
state._fsp--;
if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_end_if_stmt_in_if_construct15570);
end_if_stmt();
state._fsp--;
if (state.failed) return;
}
if ( state.backtracking==0 ) {
action.if_construct();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "if_construct"
// $ANTLR start "if_then_stmt"
// FortranParser08.g:3486:1: if_then_stmt : ( label )? ( T_IDENT T_COLON )? T_IF T_LPAREN expr T_RPAREN T_THEN end_of_stmt ;
public final void if_then_stmt() throws RecognitionException {
Token T_IDENT361=null;
Token T_IF362=null;
Token T_THEN363=null;
Token label360 =null;
Token end_of_stmt364 =null;
Token lbl = null; Token id=null;
try {
// FortranParser08.g:3489:5: ( ( label )? ( T_IDENT T_COLON )? T_IF T_LPAREN expr T_RPAREN T_THEN end_of_stmt )
// FortranParser08.g:3489:7: ( label )? ( T_IDENT T_COLON )? T_IF T_LPAREN expr T_RPAREN T_THEN end_of_stmt
{
// FortranParser08.g:3489:7: ( label )?
int alt340=2;
int LA340_0 = input.LA(1);
if ( (LA340_0==T_DIGIT_STRING) ) {
alt340=1;
}
switch (alt340) {
case 1 :
// FortranParser08.g:3489:8: label
{
pushFollow(FOLLOW_label_in_if_then_stmt15599);
label360=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label360;}
}
break;
}
// FortranParser08.g:3489:33: ( T_IDENT T_COLON )?
int alt341=2;
int LA341_0 = input.LA(1);
if ( (LA341_0==T_IDENT) ) {
alt341=1;
}
switch (alt341) {
case 1 :
// FortranParser08.g:3489:35: T_IDENT T_COLON
{
T_IDENT361=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_if_then_stmt15607); if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_if_then_stmt15609); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT361;}
}
break;
}
T_IF362=(Token)match(input,T_IF,FOLLOW_T_IF_in_if_then_stmt15616); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_if_then_stmt15631); if (state.failed) return;
pushFollow(FOLLOW_expr_in_if_then_stmt15633);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_if_then_stmt15635); if (state.failed) return;
T_THEN363=(Token)match(input,T_THEN,FOLLOW_T_THEN_in_if_then_stmt15637); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_if_then_stmt15639);
end_of_stmt364=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.if_then_stmt(lbl, id, T_IF362, T_THEN363, end_of_stmt364);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "if_then_stmt"
// $ANTLR start "else_if_stmt"
// FortranParser08.g:3496:1: else_if_stmt : ( ( label )? T_ELSE T_IF T_LPAREN expr T_RPAREN T_THEN ( T_IDENT )? end_of_stmt | ( label )? T_ELSEIF T_LPAREN expr T_RPAREN T_THEN ( T_IDENT )? end_of_stmt );
public final void else_if_stmt() throws RecognitionException {
Token T_IDENT366=null;
Token T_ELSE367=null;
Token T_IF368=null;
Token T_THEN369=null;
Token T_IDENT372=null;
Token T_ELSEIF373=null;
Token T_THEN374=null;
Token label365 =null;
Token end_of_stmt370 =null;
Token label371 =null;
Token end_of_stmt375 =null;
Token lbl = null; Token id=null;
try {
// FortranParser08.g:3499:2: ( ( label )? T_ELSE T_IF T_LPAREN expr T_RPAREN T_THEN ( T_IDENT )? end_of_stmt | ( label )? T_ELSEIF T_LPAREN expr T_RPAREN T_THEN ( T_IDENT )? end_of_stmt )
int alt346=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA346_1 = input.LA(2);
if ( (LA346_1==T_ELSE) ) {
alt346=1;
}
else if ( (LA346_1==T_ELSEIF) ) {
alt346=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 346, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELSE:
{
alt346=1;
}
break;
case T_ELSEIF:
{
alt346=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 346, 0, input);
throw nvae;
}
switch (alt346) {
case 1 :
// FortranParser08.g:3499:4: ( label )? T_ELSE T_IF T_LPAREN expr T_RPAREN T_THEN ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3499:4: ( label )?
int alt342=2;
int LA342_0 = input.LA(1);
if ( (LA342_0==T_DIGIT_STRING) ) {
alt342=1;
}
switch (alt342) {
case 1 :
// FortranParser08.g:3499:5: label
{
pushFollow(FOLLOW_label_in_else_if_stmt15670);
label365=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label365;}
}
break;
}
T_ELSE367=(Token)match(input,T_ELSE,FOLLOW_T_ELSE_in_else_if_stmt15676); if (state.failed) return;
T_IF368=(Token)match(input,T_IF,FOLLOW_T_IF_in_else_if_stmt15678); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_else_if_stmt15688); if (state.failed) return;
pushFollow(FOLLOW_expr_in_else_if_stmt15690);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_else_if_stmt15692); if (state.failed) return;
T_THEN369=(Token)match(input,T_THEN,FOLLOW_T_THEN_in_else_if_stmt15694); if (state.failed) return;
// FortranParser08.g:3500:39: ( T_IDENT )?
int alt343=2;
int LA343_0 = input.LA(1);
if ( (LA343_0==T_IDENT) ) {
alt343=1;
}
switch (alt343) {
case 1 :
// FortranParser08.g:3500:41: T_IDENT
{
T_IDENT366=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_else_if_stmt15698); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT366;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_else_if_stmt15705);
end_of_stmt370=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.else_if_stmt(lbl, T_ELSE367, T_IF368, T_THEN369, id,
end_of_stmt370);}
}
break;
case 2 :
// FortranParser08.g:3503:4: ( label )? T_ELSEIF T_LPAREN expr T_RPAREN T_THEN ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3503:4: ( label )?
int alt344=2;
int LA344_0 = input.LA(1);
if ( (LA344_0==T_DIGIT_STRING) ) {
alt344=1;
}
switch (alt344) {
case 1 :
// FortranParser08.g:3503:5: label
{
pushFollow(FOLLOW_label_in_else_if_stmt15716);
label371=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label371;}
}
break;
}
T_ELSEIF373=(Token)match(input,T_ELSEIF,FOLLOW_T_ELSEIF_in_else_if_stmt15722); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_else_if_stmt15732); if (state.failed) return;
pushFollow(FOLLOW_expr_in_else_if_stmt15734);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_else_if_stmt15736); if (state.failed) return;
T_THEN374=(Token)match(input,T_THEN,FOLLOW_T_THEN_in_else_if_stmt15738); if (state.failed) return;
// FortranParser08.g:3504:39: ( T_IDENT )?
int alt345=2;
int LA345_0 = input.LA(1);
if ( (LA345_0==T_IDENT) ) {
alt345=1;
}
switch (alt345) {
case 1 :
// FortranParser08.g:3504:41: T_IDENT
{
T_IDENT372=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_else_if_stmt15742); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT372;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_else_if_stmt15749);
end_of_stmt375=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.else_if_stmt(lbl, T_ELSEIF373, null, T_THEN374, id,
end_of_stmt375);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "else_if_stmt"
// $ANTLR start "else_stmt"
// FortranParser08.g:3510:1: else_stmt : ( label )? T_ELSE ( T_IDENT )? end_of_stmt ;
public final void else_stmt() throws RecognitionException {
Token T_IDENT377=null;
Token T_ELSE378=null;
Token label376 =null;
Token end_of_stmt379 =null;
Token lbl = null; Token id=null;
try {
// FortranParser08.g:3513:2: ( ( label )? T_ELSE ( T_IDENT )? end_of_stmt )
// FortranParser08.g:3513:4: ( label )? T_ELSE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3513:4: ( label )?
int alt347=2;
int LA347_0 = input.LA(1);
if ( (LA347_0==T_DIGIT_STRING) ) {
alt347=1;
}
switch (alt347) {
case 1 :
// FortranParser08.g:3513:5: label
{
pushFollow(FOLLOW_label_in_else_stmt15776);
label376=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label376;}
}
break;
}
T_ELSE378=(Token)match(input,T_ELSE,FOLLOW_T_ELSE_in_else_stmt15782); if (state.failed) return;
// FortranParser08.g:3513:37: ( T_IDENT )?
int alt348=2;
int LA348_0 = input.LA(1);
if ( (LA348_0==T_IDENT) ) {
alt348=1;
}
switch (alt348) {
case 1 :
// FortranParser08.g:3513:39: T_IDENT
{
T_IDENT377=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_else_stmt15786); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT377;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_else_stmt15806);
end_of_stmt379=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.else_stmt(lbl, T_ELSE378, id, end_of_stmt379);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "else_stmt"
// $ANTLR start "end_if_stmt"
// FortranParser08.g:3519:1: end_if_stmt : ( ( label )? T_END T_IF ( T_IDENT )? end_of_stmt | ( label )? T_ENDIF ( T_IDENT )? end_of_stmt );
public final void end_if_stmt() throws RecognitionException {
Token T_IDENT381=null;
Token T_END382=null;
Token T_IF383=null;
Token T_IDENT386=null;
Token T_ENDIF387=null;
Token label380 =null;
Token end_of_stmt384 =null;
Token label385 =null;
Token end_of_stmt388 =null;
Token lbl = null; Token id=null;
try {
// FortranParser08.g:3522:2: ( ( label )? T_END T_IF ( T_IDENT )? end_of_stmt | ( label )? T_ENDIF ( T_IDENT )? end_of_stmt )
int alt353=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA353_1 = input.LA(2);
if ( (LA353_1==T_END) ) {
alt353=1;
}
else if ( (LA353_1==T_ENDIF) ) {
alt353=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 353, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
alt353=1;
}
break;
case T_ENDIF:
{
alt353=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 353, 0, input);
throw nvae;
}
switch (alt353) {
case 1 :
// FortranParser08.g:3522:4: ( label )? T_END T_IF ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3522:4: ( label )?
int alt349=2;
int LA349_0 = input.LA(1);
if ( (LA349_0==T_DIGIT_STRING) ) {
alt349=1;
}
switch (alt349) {
case 1 :
// FortranParser08.g:3522:5: label
{
pushFollow(FOLLOW_label_in_end_if_stmt15833);
label380=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label380;}
}
break;
}
T_END382=(Token)match(input,T_END,FOLLOW_T_END_in_end_if_stmt15839); if (state.failed) return;
T_IF383=(Token)match(input,T_IF,FOLLOW_T_IF_in_end_if_stmt15841); if (state.failed) return;
// FortranParser08.g:3522:41: ( T_IDENT )?
int alt350=2;
int LA350_0 = input.LA(1);
if ( (LA350_0==T_IDENT) ) {
alt350=1;
}
switch (alt350) {
case 1 :
// FortranParser08.g:3522:43: T_IDENT
{
T_IDENT381=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_if_stmt15845); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT381;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_if_stmt15861);
end_of_stmt384=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_if_stmt(lbl, T_END382, T_IF383, id, end_of_stmt384);}
}
break;
case 2 :
// FortranParser08.g:3525:4: ( label )? T_ENDIF ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3525:4: ( label )?
int alt351=2;
int LA351_0 = input.LA(1);
if ( (LA351_0==T_DIGIT_STRING) ) {
alt351=1;
}
switch (alt351) {
case 1 :
// FortranParser08.g:3525:5: label
{
pushFollow(FOLLOW_label_in_end_if_stmt15872);
label385=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label385;}
}
break;
}
T_ENDIF387=(Token)match(input,T_ENDIF,FOLLOW_T_ENDIF_in_end_if_stmt15878); if (state.failed) return;
// FortranParser08.g:3525:41: ( T_IDENT )?
int alt352=2;
int LA352_0 = input.LA(1);
if ( (LA352_0==T_IDENT) ) {
alt352=1;
}
switch (alt352) {
case 1 :
// FortranParser08.g:3525:43: T_IDENT
{
T_IDENT386=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_if_stmt15885); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT386;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_if_stmt15905);
end_of_stmt388=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_if_stmt(lbl, T_ENDIF387, null, id, end_of_stmt388);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_if_stmt"
// $ANTLR start "if_stmt"
// FortranParser08.g:3533:1: if_stmt : ( label )? T_IF_STMT T_IF T_LPAREN expr T_RPAREN action_stmt ;
public final void if_stmt() throws RecognitionException {
Token T_IF390=null;
Token label389 =null;
Token lbl = null;
action.if_stmt__begin();
try {
// FortranParser08.g:3539:2: ( ( label )? T_IF_STMT T_IF T_LPAREN expr T_RPAREN action_stmt )
// FortranParser08.g:3539:4: ( label )? T_IF_STMT T_IF T_LPAREN expr T_RPAREN action_stmt
{
// FortranParser08.g:3539:4: ( label )?
int alt354=2;
int LA354_0 = input.LA(1);
if ( (LA354_0==T_DIGIT_STRING) ) {
alt354=1;
}
switch (alt354) {
case 1 :
// FortranParser08.g:3539:5: label
{
pushFollow(FOLLOW_label_in_if_stmt15934);
label389=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label389;}
}
break;
}
match(input,T_IF_STMT,FOLLOW_T_IF_STMT_in_if_stmt15940); if (state.failed) return;
T_IF390=(Token)match(input,T_IF,FOLLOW_T_IF_in_if_stmt15942); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_if_stmt15944); if (state.failed) return;
pushFollow(FOLLOW_expr_in_if_stmt15946);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_if_stmt15948); if (state.failed) return;
pushFollow(FOLLOW_action_stmt_in_if_stmt15954);
gFortranParserExtras.action_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.if_stmt(lbl, T_IF390);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "if_stmt"
// $ANTLR start "block_construct"
// FortranParser08.g:3561:1: block_construct : block_stmt specification_part_and_block end_block_stmt ;
public final void block_construct() throws RecognitionException {
try {
// FortranParser08.g:3563:4: ( block_stmt specification_part_and_block end_block_stmt )
// FortranParser08.g:3563:8: block_stmt specification_part_and_block end_block_stmt
{
pushFollow(FOLLOW_block_stmt_in_block_construct15985);
block_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_specification_part_and_block_in_block_construct15996);
specification_part_and_block();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_block_stmt_in_block_construct16005);
end_block_stmt();
state._fsp--;
if (state.failed) return;
}
if ( state.backtracking==0 ) {action.block_construct();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "block_construct"
// $ANTLR start "specification_part_and_block"
// FortranParser08.g:3568:1: specification_part_and_block : ( use_stmt )* ( import_stmt )* declaration_construct_and_block ;
public final void specification_part_and_block() throws RecognitionException {
int numUseStmts=0; int numImportStmts=0; gCount1=0;
try {
// FortranParser08.g:3570:4: ( ( use_stmt )* ( import_stmt )* declaration_construct_and_block )
// FortranParser08.g:3570:8: ( use_stmt )* ( import_stmt )* declaration_construct_and_block
{
// FortranParser08.g:3570:8: ( use_stmt )*
loop355:
while (true) {
int alt355=2;
int LA355_0 = input.LA(1);
if ( (LA355_0==T_DIGIT_STRING) ) {
int LA355_1 = input.LA(2);
if ( (LA355_1==T_USE) ) {
alt355=1;
}
}
else if ( (LA355_0==T_USE) ) {
alt355=1;
}
switch (alt355) {
case 1 :
// FortranParser08.g:3570:10: use_stmt
{
pushFollow(FOLLOW_use_stmt_in_specification_part_and_block16028);
use_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {numUseStmts++;}
}
break;
default :
break loop355;
}
}
// FortranParser08.g:3571:8: ( import_stmt )*
loop356:
while (true) {
int alt356=2;
int LA356_0 = input.LA(1);
if ( (LA356_0==T_DIGIT_STRING) ) {
int LA356_1 = input.LA(2);
if ( (LA356_1==T_IMPORT) ) {
alt356=1;
}
}
else if ( (LA356_0==T_IMPORT) ) {
alt356=1;
}
switch (alt356) {
case 1 :
// FortranParser08.g:3571:10: import_stmt
{
pushFollow(FOLLOW_import_stmt_in_specification_part_and_block16044);
import_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {numImportStmts++;}
}
break;
default :
break loop356;
}
}
pushFollow(FOLLOW_declaration_construct_and_block_in_specification_part_and_block16058);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.specification_part_and_block(numUseStmts, numImportStmts, gCount1);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "specification_part_and_block"
// $ANTLR start "declaration_construct_and_block"
// FortranParser08.g:3576:1: declaration_construct_and_block : ( ( ( label )? T_ENTRY )=> entry_stmt declaration_construct_and_block | ( ( label )? T_ENUM )=> enum_def declaration_construct_and_block | ( ( label )? T_FORMAT )=> format_stmt declaration_construct_and_block | ( ( label )? T_INTERFACE )=> interface_block declaration_construct_and_block | ( ( label )? T_PARAMETER )=> parameter_stmt declaration_construct_and_block | ( ( label )? T_PROCEDURE )=> procedure_declaration_stmt declaration_construct_and_block | ( derived_type_stmt )=> derived_type_def declaration_construct_and_block | ( type_declaration_stmt )=> type_declaration_stmt declaration_construct_and_block | ( ( label )? access_spec )=> access_stmt declaration_construct_and_block | ( ( label )? T_ALLOCATABLE )=> allocatable_stmt declaration_construct_and_block | ( ( label )? T_ASYNCHRONOUS )=> asynchronous_stmt declaration_construct_and_block | ( ( label )? T_BIND )=> bind_stmt declaration_construct_and_block | ( ( label )? T_CODIMENSION )=> codimension_stmt declaration_construct_and_block | ( ( label )? T_DATA )=> data_stmt declaration_construct_and_block | ( ( label )? T_DIMENSION )=> dimension_stmt declaration_construct_and_block | ( ( label )? T_EXTERNAL )=> external_stmt declaration_construct_and_block | ( ( label )? T_INTRINSIC )=> intrinsic_stmt declaration_construct_and_block | ( ( label )? T_POINTER )=> pointer_stmt declaration_construct_and_block | ( ( label )? T_PROTECTED )=> protected_stmt declaration_construct_and_block | ( ( label )? T_SAVE )=> save_stmt declaration_construct_and_block | ( ( label )? T_TARGET )=> target_stmt declaration_construct_and_block | ( ( label )? T_VOLATILE )=> volatile_stmt declaration_construct_and_block | block );
public final void declaration_construct_and_block() throws RecognitionException {
gCount1++;
try {
// FortranParser08.g:3578:4: ( ( ( label )? T_ENTRY )=> entry_stmt declaration_construct_and_block | ( ( label )? T_ENUM )=> enum_def declaration_construct_and_block | ( ( label )? T_FORMAT )=> format_stmt declaration_construct_and_block | ( ( label )? T_INTERFACE )=> interface_block declaration_construct_and_block | ( ( label )? T_PARAMETER )=> parameter_stmt declaration_construct_and_block | ( ( label )? T_PROCEDURE )=> procedure_declaration_stmt declaration_construct_and_block | ( derived_type_stmt )=> derived_type_def declaration_construct_and_block | ( type_declaration_stmt )=> type_declaration_stmt declaration_construct_and_block | ( ( label )? access_spec )=> access_stmt declaration_construct_and_block | ( ( label )? T_ALLOCATABLE )=> allocatable_stmt declaration_construct_and_block | ( ( label )? T_ASYNCHRONOUS )=> asynchronous_stmt declaration_construct_and_block | ( ( label )? T_BIND )=> bind_stmt declaration_construct_and_block | ( ( label )? T_CODIMENSION )=> codimension_stmt declaration_construct_and_block | ( ( label )? T_DATA )=> data_stmt declaration_construct_and_block | ( ( label )? T_DIMENSION )=> dimension_stmt declaration_construct_and_block | ( ( label )? T_EXTERNAL )=> external_stmt declaration_construct_and_block | ( ( label )? T_INTRINSIC )=> intrinsic_stmt declaration_construct_and_block | ( ( label )? T_POINTER )=> pointer_stmt declaration_construct_and_block | ( ( label )? T_PROTECTED )=> protected_stmt declaration_construct_and_block | ( ( label )? T_SAVE )=> save_stmt declaration_construct_and_block | ( ( label )? T_TARGET )=> target_stmt declaration_construct_and_block | ( ( label )? T_VOLATILE )=> volatile_stmt declaration_construct_and_block | block )
int alt357=23;
alt357 = dfa357.predict(input);
switch (alt357) {
case 1 :
// FortranParser08.g:3578:8: ( ( label )? T_ENTRY )=> entry_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_entry_stmt_in_declaration_construct_and_block16108);
entry_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16116);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:3579:8: ( ( label )? T_ENUM )=> enum_def declaration_construct_and_block
{
pushFollow(FOLLOW_enum_def_in_declaration_construct_and_block16142);
enum_def();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16152);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 3 :
// FortranParser08.g:3580:8: ( ( label )? T_FORMAT )=> format_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_format_stmt_in_declaration_construct_and_block16176);
format_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16183);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 4 :
// FortranParser08.g:3581:8: ( ( label )? T_INTERFACE )=> interface_block declaration_construct_and_block
{
pushFollow(FOLLOW_interface_block_in_declaration_construct_and_block16204);
interface_block();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16207);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 5 :
// FortranParser08.g:3582:8: ( ( label )? T_PARAMETER )=> parameter_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_parameter_stmt_in_declaration_construct_and_block16228);
parameter_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16232);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 6 :
// FortranParser08.g:3583:8: ( ( label )? T_PROCEDURE )=> procedure_declaration_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_procedure_declaration_stmt_in_declaration_construct_and_block16253);
procedure_declaration_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16306);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 7 :
// FortranParser08.g:3585:8: ( derived_type_stmt )=> derived_type_def declaration_construct_and_block
{
pushFollow(FOLLOW_derived_type_def_in_declaration_construct_and_block16325);
derived_type_def();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16327);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 8 :
// FortranParser08.g:3586:8: ( type_declaration_stmt )=> type_declaration_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_type_declaration_stmt_in_declaration_construct_and_block16342);
gFortranParserExtras.type_declaration_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16344);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 9 :
// FortranParser08.g:3590:8: ( ( label )? access_spec )=> access_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_access_stmt_in_declaration_construct_and_block16373);
access_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16381);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 10 :
// FortranParser08.g:3591:8: ( ( label )? T_ALLOCATABLE )=> allocatable_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_allocatable_stmt_in_declaration_construct_and_block16402);
allocatable_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16405);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 11 :
// FortranParser08.g:3592:8: ( ( label )? T_ASYNCHRONOUS )=> asynchronous_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_asynchronous_stmt_in_declaration_construct_and_block16425);
asynchronous_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16427);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 12 :
// FortranParser08.g:3593:8: ( ( label )? T_BIND )=> bind_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_bind_stmt_in_declaration_construct_and_block16455);
bind_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16465);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 13 :
// FortranParser08.g:3594:8: ( ( label )? T_CODIMENSION )=> codimension_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_codimension_stmt_in_declaration_construct_and_block16486);
codimension_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16489);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 14 :
// FortranParser08.g:3595:8: ( ( label )? T_DATA )=> data_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_data_stmt_in_declaration_construct_and_block16517);
data_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16527);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 15 :
// FortranParser08.g:3596:8: ( ( label )? T_DIMENSION )=> dimension_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_dimension_stmt_in_declaration_construct_and_block16550);
dimension_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16555);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 16 :
// FortranParser08.g:3597:8: ( ( label )? T_EXTERNAL )=> external_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_external_stmt_in_declaration_construct_and_block16579);
external_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16585);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 17 :
// FortranParser08.g:3598:8: ( ( label )? T_INTRINSIC )=> intrinsic_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_intrinsic_stmt_in_declaration_construct_and_block16608);
intrinsic_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16613);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 18 :
// FortranParser08.g:3599:8: ( ( label )? T_POINTER )=> pointer_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_pointer_stmt_in_declaration_construct_and_block16638);
pointer_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16645);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 19 :
// FortranParser08.g:3600:8: ( ( label )? T_PROTECTED )=> protected_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_protected_stmt_in_declaration_construct_and_block16668);
protected_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16673);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 20 :
// FortranParser08.g:3601:8: ( ( label )? T_SAVE )=> save_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_save_stmt_in_declaration_construct_and_block16701);
save_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16711);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 21 :
// FortranParser08.g:3602:8: ( ( label )? T_TARGET )=> target_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_target_stmt_in_declaration_construct_and_block16737);
target_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16745);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 22 :
// FortranParser08.g:3603:8: ( ( label )? T_VOLATILE )=> volatile_stmt declaration_construct_and_block
{
pushFollow(FOLLOW_volatile_stmt_in_declaration_construct_and_block16769);
volatile_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16775);
declaration_construct_and_block();
state._fsp--;
if (state.failed) return;
}
break;
case 23 :
// FortranParser08.g:3604:8: block
{
pushFollow(FOLLOW_block_in_declaration_construct_and_block16784);
block();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {gCount1--; /* decrement extra count as this isn't a declConstruct */}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "declaration_construct_and_block"
// $ANTLR start "block_stmt"
// FortranParser08.g:3615:1: block_stmt : ( label )? ( T_IDENT T_COLON )? T_BLOCK end_of_stmt ;
public final void block_stmt() throws RecognitionException {
Token T_IDENT392=null;
Token T_BLOCK393=null;
Token label391 =null;
Token end_of_stmt394 =null;
Token lbl = null; Token name = null;
try {
// FortranParser08.g:3618:4: ( ( label )? ( T_IDENT T_COLON )? T_BLOCK end_of_stmt )
// FortranParser08.g:3618:8: ( label )? ( T_IDENT T_COLON )? T_BLOCK end_of_stmt
{
// FortranParser08.g:3618:8: ( label )?
int alt358=2;
int LA358_0 = input.LA(1);
if ( (LA358_0==T_DIGIT_STRING) ) {
alt358=1;
}
switch (alt358) {
case 1 :
// FortranParser08.g:3618:9: label
{
pushFollow(FOLLOW_label_in_block_stmt16819);
label391=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label391;}
}
break;
}
// FortranParser08.g:3619:8: ( T_IDENT T_COLON )?
int alt359=2;
int LA359_0 = input.LA(1);
if ( (LA359_0==T_IDENT) ) {
alt359=1;
}
switch (alt359) {
case 1 :
// FortranParser08.g:3619:9: T_IDENT T_COLON
{
T_IDENT392=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_block_stmt16833); if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_block_stmt16835); if (state.failed) return;
if ( state.backtracking==0 ) {name=T_IDENT392;}
}
break;
}
T_BLOCK393=(Token)match(input,T_BLOCK,FOLLOW_T_BLOCK_in_block_stmt16848); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_block_stmt16850);
end_of_stmt394=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.block_stmt(lbl, name, T_BLOCK393, end_of_stmt394);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "block_stmt"
// $ANTLR start "end_block_stmt"
// FortranParser08.g:3632:1: end_block_stmt : ( ( label )? T_END T_BLOCK ( T_IDENT )? end_of_stmt | ( label )? T_ENDBLOCK ( T_IDENT )? end_of_stmt );
public final void end_block_stmt() throws RecognitionException {
Token T_IDENT396=null;
Token T_END397=null;
Token T_BLOCK398=null;
Token T_IDENT401=null;
Token T_ENDBLOCK402=null;
Token label395 =null;
Token end_of_stmt399 =null;
Token label400 =null;
Token end_of_stmt403 =null;
Token lbl = null; Token name = null;
try {
// FortranParser08.g:3635:4: ( ( label )? T_END T_BLOCK ( T_IDENT )? end_of_stmt | ( label )? T_ENDBLOCK ( T_IDENT )? end_of_stmt )
int alt364=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA364_1 = input.LA(2);
if ( (LA364_1==T_END) ) {
alt364=1;
}
else if ( (LA364_1==T_ENDBLOCK) ) {
alt364=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 364, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
alt364=1;
}
break;
case T_ENDBLOCK:
{
alt364=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 364, 0, input);
throw nvae;
}
switch (alt364) {
case 1 :
// FortranParser08.g:3635:8: ( label )? T_END T_BLOCK ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3635:8: ( label )?
int alt360=2;
int LA360_0 = input.LA(1);
if ( (LA360_0==T_DIGIT_STRING) ) {
alt360=1;
}
switch (alt360) {
case 1 :
// FortranParser08.g:3635:9: label
{
pushFollow(FOLLOW_label_in_end_block_stmt16896);
label395=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label395;}
}
break;
}
T_END397=(Token)match(input,T_END,FOLLOW_T_END_in_end_block_stmt16909); if (state.failed) return;
T_BLOCK398=(Token)match(input,T_BLOCK,FOLLOW_T_BLOCK_in_end_block_stmt16911); if (state.failed) return;
// FortranParser08.g:3636:22: ( T_IDENT )?
int alt361=2;
int LA361_0 = input.LA(1);
if ( (LA361_0==T_IDENT) ) {
alt361=1;
}
switch (alt361) {
case 1 :
// FortranParser08.g:3636:23: T_IDENT
{
T_IDENT396=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_block_stmt16914); if (state.failed) return;
if ( state.backtracking==0 ) {name=T_IDENT396;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_block_stmt16920);
end_of_stmt399=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_block_stmt(lbl, name, T_END397, T_BLOCK398, end_of_stmt399);}
}
break;
case 2 :
// FortranParser08.g:3638:8: ( label )? T_ENDBLOCK ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3638:8: ( label )?
int alt362=2;
int LA362_0 = input.LA(1);
if ( (LA362_0==T_DIGIT_STRING) ) {
alt362=1;
}
switch (alt362) {
case 1 :
// FortranParser08.g:3638:9: label
{
pushFollow(FOLLOW_label_in_end_block_stmt16943);
label400=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label400;}
}
break;
}
T_ENDBLOCK402=(Token)match(input,T_ENDBLOCK,FOLLOW_T_ENDBLOCK_in_end_block_stmt16956); if (state.failed) return;
// FortranParser08.g:3639:19: ( T_IDENT )?
int alt363=2;
int LA363_0 = input.LA(1);
if ( (LA363_0==T_IDENT) ) {
alt363=1;
}
switch (alt363) {
case 1 :
// FortranParser08.g:3639:20: T_IDENT
{
T_IDENT401=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_block_stmt16959); if (state.failed) return;
if ( state.backtracking==0 ) {name=T_IDENT401;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_block_stmt16965);
end_of_stmt403=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_block_stmt(lbl, name, T_ENDBLOCK402, null, end_of_stmt403);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_block_stmt"
// $ANTLR start "critical_construct"
// FortranParser08.g:3653:1: critical_construct : critical_stmt block end_critical_stmt ;
public final void critical_construct() throws RecognitionException {
try {
// FortranParser08.g:3654:4: ( critical_stmt block end_critical_stmt )
// FortranParser08.g:3654:8: critical_stmt block end_critical_stmt
{
pushFollow(FOLLOW_critical_stmt_in_critical_construct17001);
critical_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_block_in_critical_construct17003);
block();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_critical_stmt_in_critical_construct17005);
end_critical_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.critical_construct();}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "critical_construct"
// $ANTLR start "critical_stmt"
// FortranParser08.g:3666:1: critical_stmt : ( label )? ( T_IDENT T_COLON )? T_CRITICAL end_of_stmt ;
public final void critical_stmt() throws RecognitionException {
Token T_IDENT405=null;
Token T_CRITICAL406=null;
Token label404 =null;
Token end_of_stmt407 =null;
Token lbl = null; Token name = null;
try {
// FortranParser08.g:3669:4: ( ( label )? ( T_IDENT T_COLON )? T_CRITICAL end_of_stmt )
// FortranParser08.g:3669:8: ( label )? ( T_IDENT T_COLON )? T_CRITICAL end_of_stmt
{
// FortranParser08.g:3669:8: ( label )?
int alt365=2;
int LA365_0 = input.LA(1);
if ( (LA365_0==T_DIGIT_STRING) ) {
alt365=1;
}
switch (alt365) {
case 1 :
// FortranParser08.g:3669:9: label
{
pushFollow(FOLLOW_label_in_critical_stmt17051);
label404=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label404;}
}
break;
}
// FortranParser08.g:3670:8: ( T_IDENT T_COLON )?
int alt366=2;
int LA366_0 = input.LA(1);
if ( (LA366_0==T_IDENT) ) {
alt366=1;
}
switch (alt366) {
case 1 :
// FortranParser08.g:3670:9: T_IDENT T_COLON
{
T_IDENT405=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_critical_stmt17065); if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_critical_stmt17067); if (state.failed) return;
if ( state.backtracking==0 ) {name=T_IDENT405;}
}
break;
}
T_CRITICAL406=(Token)match(input,T_CRITICAL,FOLLOW_T_CRITICAL_in_critical_stmt17080); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_critical_stmt17082);
end_of_stmt407=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.critical_stmt(lbl, name, T_CRITICAL406, end_of_stmt407);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "critical_stmt"
// $ANTLR start "end_critical_stmt"
// FortranParser08.g:3683:1: end_critical_stmt : ( label )? T_END T_CRITICAL ( T_IDENT )? end_of_stmt ;
public final void end_critical_stmt() throws RecognitionException {
Token T_IDENT409=null;
Token T_END410=null;
Token T_CRITICAL411=null;
Token label408 =null;
Token end_of_stmt412 =null;
Token lbl = null; Token name = null;
try {
// FortranParser08.g:3686:4: ( ( label )? T_END T_CRITICAL ( T_IDENT )? end_of_stmt )
// FortranParser08.g:3686:8: ( label )? T_END T_CRITICAL ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3686:8: ( label )?
int alt367=2;
int LA367_0 = input.LA(1);
if ( (LA367_0==T_DIGIT_STRING) ) {
alt367=1;
}
switch (alt367) {
case 1 :
// FortranParser08.g:3686:9: label
{
pushFollow(FOLLOW_label_in_end_critical_stmt17128);
label408=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label408;}
}
break;
}
T_END410=(Token)match(input,T_END,FOLLOW_T_END_in_end_critical_stmt17141); if (state.failed) return;
T_CRITICAL411=(Token)match(input,T_CRITICAL,FOLLOW_T_CRITICAL_in_end_critical_stmt17143); if (state.failed) return;
// FortranParser08.g:3687:25: ( T_IDENT )?
int alt368=2;
int LA368_0 = input.LA(1);
if ( (LA368_0==T_IDENT) ) {
alt368=1;
}
switch (alt368) {
case 1 :
// FortranParser08.g:3687:26: T_IDENT
{
T_IDENT409=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_critical_stmt17146); if (state.failed) return;
if ( state.backtracking==0 ) {name=T_IDENT409;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_critical_stmt17152);
end_of_stmt412=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_critical_stmt(lbl, name, T_END410, T_CRITICAL411, end_of_stmt412);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_critical_stmt"
// $ANTLR start "case_construct"
// FortranParser08.g:3692:1: case_construct : select_case_stmt ( case_stmt block )* end_select_stmt ;
public final void case_construct() throws RecognitionException {
try {
// FortranParser08.g:3696:5: ( select_case_stmt ( case_stmt block )* end_select_stmt )
// FortranParser08.g:3696:10: select_case_stmt ( case_stmt block )* end_select_stmt
{
pushFollow(FOLLOW_select_case_stmt_in_case_construct17190);
select_case_stmt();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3696:27: ( case_stmt block )*
loop369:
while (true) {
int alt369=2;
int LA369_0 = input.LA(1);
if ( (LA369_0==T_DIGIT_STRING) ) {
int LA369_1 = input.LA(2);
if ( (LA369_1==T_CASE) ) {
alt369=1;
}
}
else if ( (LA369_0==T_CASE) ) {
alt369=1;
}
switch (alt369) {
case 1 :
// FortranParser08.g:3696:29: case_stmt block
{
pushFollow(FOLLOW_case_stmt_in_case_construct17194);
case_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_block_in_case_construct17196);
block();
state._fsp--;
if (state.failed) return;
}
break;
default :
break loop369;
}
}
pushFollow(FOLLOW_end_select_stmt_in_case_construct17201);
end_select_stmt();
state._fsp--;
if (state.failed) return;
}
if ( state.backtracking==0 ) {
action.case_construct();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "case_construct"
// $ANTLR start "select_case_stmt"
// FortranParser08.g:3701:1: select_case_stmt : ( label )? ( T_IDENT T_COLON )? ( T_SELECT T_CASE | T_SELECTCASE ) T_LPAREN expr T_RPAREN end_of_stmt ;
public final void select_case_stmt() throws RecognitionException {
Token T_IDENT414=null;
Token T_SELECT415=null;
Token T_CASE416=null;
Token T_SELECTCASE417=null;
Token label413 =null;
Token end_of_stmt418 =null;
Token lbl = null; Token id=null; Token tk1 = null; Token tk2 = null;
try {
// FortranParser08.g:3704:5: ( ( label )? ( T_IDENT T_COLON )? ( T_SELECT T_CASE | T_SELECTCASE ) T_LPAREN expr T_RPAREN end_of_stmt )
// FortranParser08.g:3704:10: ( label )? ( T_IDENT T_COLON )? ( T_SELECT T_CASE | T_SELECTCASE ) T_LPAREN expr T_RPAREN end_of_stmt
{
// FortranParser08.g:3704:10: ( label )?
int alt370=2;
int LA370_0 = input.LA(1);
if ( (LA370_0==T_DIGIT_STRING) ) {
alt370=1;
}
switch (alt370) {
case 1 :
// FortranParser08.g:3704:11: label
{
pushFollow(FOLLOW_label_in_select_case_stmt17233);
label413=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label413;}
}
break;
}
// FortranParser08.g:3704:36: ( T_IDENT T_COLON )?
int alt371=2;
int LA371_0 = input.LA(1);
if ( (LA371_0==T_IDENT) ) {
alt371=1;
}
switch (alt371) {
case 1 :
// FortranParser08.g:3704:38: T_IDENT T_COLON
{
T_IDENT414=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_select_case_stmt17241); if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_select_case_stmt17243); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT414;}
}
break;
}
// FortranParser08.g:3705:9: ( T_SELECT T_CASE | T_SELECTCASE )
int alt372=2;
int LA372_0 = input.LA(1);
if ( (LA372_0==T_SELECT) ) {
alt372=1;
}
else if ( (LA372_0==T_SELECTCASE) ) {
alt372=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 372, 0, input);
throw nvae;
}
switch (alt372) {
case 1 :
// FortranParser08.g:3705:10: T_SELECT T_CASE
{
T_SELECT415=(Token)match(input,T_SELECT,FOLLOW_T_SELECT_in_select_case_stmt17258); if (state.failed) return;
T_CASE416=(Token)match(input,T_CASE,FOLLOW_T_CASE_in_select_case_stmt17260); if (state.failed) return;
if ( state.backtracking==0 ) {tk1=T_SELECT415; tk2=T_CASE416;}
}
break;
case 2 :
// FortranParser08.g:3706:15: T_SELECTCASE
{
T_SELECTCASE417=(Token)match(input,T_SELECTCASE,FOLLOW_T_SELECTCASE_in_select_case_stmt17279); if (state.failed) return;
if ( state.backtracking==0 ) {tk1=T_SELECTCASE417; tk2=null;}
}
break;
}
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_select_case_stmt17297); if (state.failed) return;
pushFollow(FOLLOW_expr_in_select_case_stmt17299);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_select_case_stmt17301); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_select_case_stmt17303);
end_of_stmt418=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.select_case_stmt(lbl, id, tk1, tk2, end_of_stmt418);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "select_case_stmt"
// $ANTLR start "case_stmt"
// FortranParser08.g:3712:1: case_stmt : ( label )? T_CASE case_selector ( T_IDENT )? end_of_stmt ;
public final void case_stmt() throws RecognitionException {
Token T_IDENT420=null;
Token T_CASE421=null;
Token label419 =null;
Token end_of_stmt422 =null;
Token lbl = null; Token id=null;
try {
// FortranParser08.g:3715:2: ( ( label )? T_CASE case_selector ( T_IDENT )? end_of_stmt )
// FortranParser08.g:3715:4: ( label )? T_CASE case_selector ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3715:4: ( label )?
int alt373=2;
int LA373_0 = input.LA(1);
if ( (LA373_0==T_DIGIT_STRING) ) {
alt373=1;
}
switch (alt373) {
case 1 :
// FortranParser08.g:3715:5: label
{
pushFollow(FOLLOW_label_in_case_stmt17333);
label419=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label419;}
}
break;
}
T_CASE421=(Token)match(input,T_CASE,FOLLOW_T_CASE_in_case_stmt17339); if (state.failed) return;
pushFollow(FOLLOW_case_selector_in_case_stmt17341);
case_selector();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3716:7: ( T_IDENT )?
int alt374=2;
int LA374_0 = input.LA(1);
if ( (LA374_0==T_IDENT) ) {
alt374=1;
}
switch (alt374) {
case 1 :
// FortranParser08.g:3716:9: T_IDENT
{
T_IDENT420=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_case_stmt17351); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT420;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_case_stmt17357);
end_of_stmt422=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.case_stmt(lbl, T_CASE421, id, end_of_stmt422);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "case_stmt"
// $ANTLR start "end_select_stmt"
// FortranParser08.g:3721:1: end_select_stmt : ( ( label )? T_END T_SELECT ( T_IDENT )? end_of_stmt | ( label )? T_ENDSELECT ( T_IDENT )? end_of_stmt );
public final void end_select_stmt() throws RecognitionException {
Token T_IDENT424=null;
Token T_END425=null;
Token T_SELECT426=null;
Token T_IDENT429=null;
Token T_ENDSELECT430=null;
Token label423 =null;
Token end_of_stmt427 =null;
Token label428 =null;
Token end_of_stmt431 =null;
Token lbl = null; Token id=null;
try {
// FortranParser08.g:3724:2: ( ( label )? T_END T_SELECT ( T_IDENT )? end_of_stmt | ( label )? T_ENDSELECT ( T_IDENT )? end_of_stmt )
int alt379=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA379_1 = input.LA(2);
if ( (LA379_1==T_END) ) {
alt379=1;
}
else if ( (LA379_1==T_ENDSELECT) ) {
alt379=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 379, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
alt379=1;
}
break;
case T_ENDSELECT:
{
alt379=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 379, 0, input);
throw nvae;
}
switch (alt379) {
case 1 :
// FortranParser08.g:3724:4: ( label )? T_END T_SELECT ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3724:4: ( label )?
int alt375=2;
int LA375_0 = input.LA(1);
if ( (LA375_0==T_DIGIT_STRING) ) {
alt375=1;
}
switch (alt375) {
case 1 :
// FortranParser08.g:3724:5: label
{
pushFollow(FOLLOW_label_in_end_select_stmt17384);
label423=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label423;}
}
break;
}
T_END425=(Token)match(input,T_END,FOLLOW_T_END_in_end_select_stmt17390); if (state.failed) return;
T_SELECT426=(Token)match(input,T_SELECT,FOLLOW_T_SELECT_in_end_select_stmt17392); if (state.failed) return;
// FortranParser08.g:3724:45: ( T_IDENT )?
int alt376=2;
int LA376_0 = input.LA(1);
if ( (LA376_0==T_IDENT) ) {
alt376=1;
}
switch (alt376) {
case 1 :
// FortranParser08.g:3724:46: T_IDENT
{
T_IDENT424=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_select_stmt17395); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT424;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_select_stmt17410);
end_of_stmt427=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_select_stmt(lbl, T_END425, T_SELECT426, id,
end_of_stmt427);}
}
break;
case 2 :
// FortranParser08.g:3728:4: ( label )? T_ENDSELECT ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3728:4: ( label )?
int alt377=2;
int LA377_0 = input.LA(1);
if ( (LA377_0==T_DIGIT_STRING) ) {
alt377=1;
}
switch (alt377) {
case 1 :
// FortranParser08.g:3728:5: label
{
pushFollow(FOLLOW_label_in_end_select_stmt17421);
label428=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label428;}
}
break;
}
T_ENDSELECT430=(Token)match(input,T_ENDSELECT,FOLLOW_T_ENDSELECT_in_end_select_stmt17427); if (state.failed) return;
// FortranParser08.g:3728:45: ( T_IDENT )?
int alt378=2;
int LA378_0 = input.LA(1);
if ( (LA378_0==T_IDENT) ) {
alt378=1;
}
switch (alt378) {
case 1 :
// FortranParser08.g:3728:46: T_IDENT
{
T_IDENT429=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_select_stmt17433); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT429;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_select_stmt17448);
end_of_stmt431=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_select_stmt(lbl, T_ENDSELECT430, null, id,
end_of_stmt431);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_select_stmt"
// $ANTLR start "case_selector"
// FortranParser08.g:3740:1: case_selector : ( T_LPAREN case_value_range_list T_RPAREN | T_DEFAULT );
public final void case_selector() throws RecognitionException {
Token T_DEFAULT432=null;
try {
// FortranParser08.g:3741:2: ( T_LPAREN case_value_range_list T_RPAREN | T_DEFAULT )
int alt380=2;
int LA380_0 = input.LA(1);
if ( (LA380_0==T_LPAREN) ) {
alt380=1;
}
else if ( (LA380_0==T_DEFAULT) ) {
alt380=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 380, 0, input);
throw nvae;
}
switch (alt380) {
case 1 :
// FortranParser08.g:3741:4: T_LPAREN case_value_range_list T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_case_selector17470); if (state.failed) return;
pushFollow(FOLLOW_case_value_range_list_in_case_selector17474);
case_value_range_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_case_selector17478); if (state.failed) return;
if ( state.backtracking==0 ) { action.case_selector(null); }
}
break;
case 2 :
// FortranParser08.g:3745:4: T_DEFAULT
{
T_DEFAULT432=(Token)match(input,T_DEFAULT,FOLLOW_T_DEFAULT_in_case_selector17497); if (state.failed) return;
if ( state.backtracking==0 ) { action.case_selector(T_DEFAULT432); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "case_selector"
// $ANTLR start "case_value_range"
// FortranParser08.g:3750:1: case_value_range : ( T_COLON case_value | case_value case_value_range_suffix );
public final void case_value_range() throws RecognitionException {
try {
// FortranParser08.g:3754:2: ( T_COLON case_value | case_value case_value_range_suffix )
int alt381=2;
int LA381_0 = input.LA(1);
if ( (LA381_0==T_COLON) ) {
alt381=1;
}
else if ( (LA381_0==BINARY_CONSTANT||LA381_0==HEX_CONSTANT||LA381_0==OCTAL_CONSTANT||LA381_0==T_CHAR_CONSTANT||(LA381_0 >= T_DEFINED_OP && LA381_0 <= T_DIGIT_STRING)||LA381_0==T_FALSE||(LA381_0 >= T_HOLLERITH && LA381_0 <= T_IDENT)||LA381_0==T_LBRACKET||LA381_0==T_LPAREN||LA381_0==T_MINUS||LA381_0==T_NOT||LA381_0==T_PLUS||LA381_0==T_REAL_CONSTANT||LA381_0==T_TRUE) ) {
alt381=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 381, 0, input);
throw nvae;
}
switch (alt381) {
case 1 :
// FortranParser08.g:3754:4: T_COLON case_value
{
match(input,T_COLON,FOLLOW_T_COLON_in_case_value_range17528); if (state.failed) return;
pushFollow(FOLLOW_case_value_in_case_value_range17530);
case_value();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:3755:4: case_value case_value_range_suffix
{
pushFollow(FOLLOW_case_value_in_case_value_range17535);
case_value();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_case_value_range_suffix_in_case_value_range17537);
case_value_range_suffix();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.case_value_range();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "case_value_range"
// $ANTLR start "case_value_range_suffix"
// FortranParser08.g:3758:1: case_value_range_suffix : ( T_COLON ( case_value )? |);
public final void case_value_range_suffix() throws RecognitionException {
try {
// FortranParser08.g:3762:2: ( T_COLON ( case_value )? |)
int alt383=2;
int LA383_0 = input.LA(1);
if ( (LA383_0==T_COLON) ) {
alt383=1;
}
else if ( (LA383_0==T_COMMA||LA383_0==T_RPAREN) ) {
alt383=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 383, 0, input);
throw nvae;
}
switch (alt383) {
case 1 :
// FortranParser08.g:3762:4: T_COLON ( case_value )?
{
match(input,T_COLON,FOLLOW_T_COLON_in_case_value_range_suffix17553); if (state.failed) return;
// FortranParser08.g:3762:12: ( case_value )?
int alt382=2;
int LA382_0 = input.LA(1);
if ( (LA382_0==BINARY_CONSTANT||LA382_0==HEX_CONSTANT||LA382_0==OCTAL_CONSTANT||LA382_0==T_CHAR_CONSTANT||(LA382_0 >= T_DEFINED_OP && LA382_0 <= T_DIGIT_STRING)||LA382_0==T_FALSE||(LA382_0 >= T_HOLLERITH && LA382_0 <= T_IDENT)||LA382_0==T_LBRACKET||LA382_0==T_LPAREN||LA382_0==T_MINUS||LA382_0==T_NOT||LA382_0==T_PLUS||LA382_0==T_REAL_CONSTANT||LA382_0==T_TRUE) ) {
alt382=1;
}
switch (alt382) {
case 1 :
// FortranParser08.g:3762:14: case_value
{
pushFollow(FOLLOW_case_value_in_case_value_range_suffix17557);
case_value();
state._fsp--;
if (state.failed) return;
}
break;
}
}
break;
case 2 :
// FortranParser08.g:3763:4:
{
if ( state.backtracking==0 ) { /* empty */ }
}
break;
}
if ( state.backtracking==0 ) {
action.case_value_range_suffix();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "case_value_range_suffix"
// $ANTLR start "case_value_range_list"
// FortranParser08.g:3766:1: case_value_range_list : case_value_range ( T_COMMA case_value_range )* ;
public final void case_value_range_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:3768:5: ( case_value_range ( T_COMMA case_value_range )* )
// FortranParser08.g:3768:10: case_value_range ( T_COMMA case_value_range )*
{
if ( state.backtracking==0 ) {action.case_value_range_list__begin();}
pushFollow(FOLLOW_case_value_range_in_case_value_range_list17590);
case_value_range();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:3769:31: ( T_COMMA case_value_range )*
loop384:
while (true) {
int alt384=2;
int LA384_0 = input.LA(1);
if ( (LA384_0==T_COMMA) ) {
alt384=1;
}
switch (alt384) {
case 1 :
// FortranParser08.g:3769:33: T_COMMA case_value_range
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_case_value_range_list17596); if (state.failed) return;
pushFollow(FOLLOW_case_value_range_in_case_value_range_list17598);
case_value_range();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop384;
}
}
if ( state.backtracking==0 ) {action.case_value_range_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "case_value_range_list"
// $ANTLR start "case_value"
// FortranParser08.g:3776:1: case_value : expr ;
public final void case_value() throws RecognitionException {
try {
// FortranParser08.g:3777:2: ( expr )
// FortranParser08.g:3777:4: expr
{
pushFollow(FOLLOW_expr_in_case_value17630);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.case_value(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "case_value"
// $ANTLR start "associate_construct"
// FortranParser08.g:3782:1: associate_construct : associate_stmt block end_associate_stmt ;
public final void associate_construct() throws RecognitionException {
try {
// FortranParser08.g:3783:2: ( associate_stmt block end_associate_stmt )
// FortranParser08.g:3783:4: associate_stmt block end_associate_stmt
{
pushFollow(FOLLOW_associate_stmt_in_associate_construct17656);
associate_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_block_in_associate_construct17660);
block();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_associate_stmt_in_associate_construct17664);
end_associate_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.associate_construct(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "associate_construct"
// $ANTLR start "associate_stmt"
// FortranParser08.g:3790:1: associate_stmt : ( label )? ( T_IDENT T_COLON )? T_ASSOCIATE T_LPAREN association_list T_RPAREN end_of_stmt ;
public final void associate_stmt() throws RecognitionException {
Token T_IDENT434=null;
Token T_ASSOCIATE435=null;
Token label433 =null;
Token end_of_stmt436 =null;
Token lbl = null; Token id=null;
try {
// FortranParser08.g:3793:5: ( ( label )? ( T_IDENT T_COLON )? T_ASSOCIATE T_LPAREN association_list T_RPAREN end_of_stmt )
// FortranParser08.g:3793:9: ( label )? ( T_IDENT T_COLON )? T_ASSOCIATE T_LPAREN association_list T_RPAREN end_of_stmt
{
// FortranParser08.g:3793:9: ( label )?
int alt385=2;
int LA385_0 = input.LA(1);
if ( (LA385_0==T_DIGIT_STRING) ) {
alt385=1;
}
switch (alt385) {
case 1 :
// FortranParser08.g:3793:10: label
{
pushFollow(FOLLOW_label_in_associate_stmt17705);
label433=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label433;}
}
break;
}
// FortranParser08.g:3793:35: ( T_IDENT T_COLON )?
int alt386=2;
int LA386_0 = input.LA(1);
if ( (LA386_0==T_IDENT) ) {
alt386=1;
}
switch (alt386) {
case 1 :
// FortranParser08.g:3793:37: T_IDENT T_COLON
{
T_IDENT434=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_associate_stmt17713); if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_associate_stmt17715); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT434;}
}
break;
}
T_ASSOCIATE435=(Token)match(input,T_ASSOCIATE,FOLLOW_T_ASSOCIATE_in_associate_stmt17734); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_associate_stmt17736); if (state.failed) return;
pushFollow(FOLLOW_association_list_in_associate_stmt17738);
association_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_associate_stmt17740); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_associate_stmt17742);
end_of_stmt436=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.associate_stmt(lbl, id, T_ASSOCIATE435, end_of_stmt436);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "associate_stmt"
// $ANTLR start "association_list"
// FortranParser08.g:3798:1: association_list : association ( T_COMMA association )* ;
public final void association_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:3800:5: ( association ( T_COMMA association )* )
// FortranParser08.g:3800:10: association ( T_COMMA association )*
{
if ( state.backtracking==0 ) {action.association_list__begin();}
pushFollow(FOLLOW_association_in_association_list17775);
association();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:3801:26: ( T_COMMA association )*
loop387:
while (true) {
int alt387=2;
int LA387_0 = input.LA(1);
if ( (LA387_0==T_COMMA) ) {
alt387=1;
}
switch (alt387) {
case 1 :
// FortranParser08.g:3801:28: T_COMMA association
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_association_list17781); if (state.failed) return;
pushFollow(FOLLOW_association_in_association_list17783);
association();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop387;
}
}
if ( state.backtracking==0 ) {action.association_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "association_list"
// $ANTLR start "loop_control"
// FortranParser08.g:3817:1: loop_control : ( ( T_COMMA )? do_variable T_EQUALS expr T_COMMA expr ( T_COMMA expr )? | ( T_COMMA )? T_WHILE T_LPAREN expr T_RPAREN | ( T_COMMA )? T_CONCURRENT forall_header );
public final void loop_control() throws RecognitionException {
Token T_WHILE437=null;
Token T_CONCURRENT438=null;
boolean hasOptExpr = false;
try {
// FortranParser08.g:3819:4: ( ( T_COMMA )? do_variable T_EQUALS expr T_COMMA expr ( T_COMMA expr )? | ( T_COMMA )? T_WHILE T_LPAREN expr T_RPAREN | ( T_COMMA )? T_CONCURRENT forall_header )
int alt392=3;
switch ( input.LA(1) ) {
case T_COMMA:
{
switch ( input.LA(2) ) {
case T_IDENT:
{
alt392=1;
}
break;
case T_WHILE:
{
alt392=2;
}
break;
case T_CONCURRENT:
{
alt392=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 392, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_IDENT:
{
alt392=1;
}
break;
case T_WHILE:
{
alt392=2;
}
break;
case T_CONCURRENT:
{
alt392=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 392, 0, input);
throw nvae;
}
switch (alt392) {
case 1 :
// FortranParser08.g:3819:8: ( T_COMMA )? do_variable T_EQUALS expr T_COMMA expr ( T_COMMA expr )?
{
// FortranParser08.g:3819:8: ( T_COMMA )?
int alt388=2;
int LA388_0 = input.LA(1);
if ( (LA388_0==T_COMMA) ) {
alt388=1;
}
switch (alt388) {
case 1 :
// FortranParser08.g:3819:10: T_COMMA
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_loop_control17831); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_do_variable_in_loop_control17836);
do_variable();
state._fsp--;
if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_loop_control17838); if (state.failed) return;
pushFollow(FOLLOW_expr_in_loop_control17840);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_loop_control17842); if (state.failed) return;
pushFollow(FOLLOW_expr_in_loop_control17844);
expr();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3820:8: ( T_COMMA expr )?
int alt389=2;
int LA389_0 = input.LA(1);
if ( (LA389_0==T_COMMA) ) {
alt389=1;
}
switch (alt389) {
case 1 :
// FortranParser08.g:3820:10: T_COMMA expr
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_loop_control17855); if (state.failed) return;
pushFollow(FOLLOW_expr_in_loop_control17857);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasOptExpr=true;}
}
break;
}
if ( state.backtracking==0 ) {action.loop_control(null, IActionEnums.DoConstruct_variable, hasOptExpr);}
}
break;
case 2 :
// FortranParser08.g:3822:8: ( T_COMMA )? T_WHILE T_LPAREN expr T_RPAREN
{
// FortranParser08.g:3822:8: ( T_COMMA )?
int alt390=2;
int LA390_0 = input.LA(1);
if ( (LA390_0==T_COMMA) ) {
alt390=1;
}
switch (alt390) {
case 1 :
// FortranParser08.g:3822:10: T_COMMA
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_loop_control17885); if (state.failed) return;
}
break;
}
T_WHILE437=(Token)match(input,T_WHILE,FOLLOW_T_WHILE_in_loop_control17890); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_loop_control17892); if (state.failed) return;
pushFollow(FOLLOW_expr_in_loop_control17894);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_loop_control17896); if (state.failed) return;
if ( state.backtracking==0 ) {action.loop_control(T_WHILE437, IActionEnums.DoConstruct_while, hasOptExpr);}
}
break;
case 3 :
// FortranParser08.g:3824:8: ( T_COMMA )? T_CONCURRENT forall_header
{
// FortranParser08.g:3824:8: ( T_COMMA )?
int alt391=2;
int LA391_0 = input.LA(1);
if ( (LA391_0==T_COMMA) ) {
alt391=1;
}
switch (alt391) {
case 1 :
// FortranParser08.g:3824:10: T_COMMA
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_loop_control17921); if (state.failed) return;
}
break;
}
T_CONCURRENT438=(Token)match(input,T_CONCURRENT,FOLLOW_T_CONCURRENT_in_loop_control17926); if (state.failed) return;
pushFollow(FOLLOW_forall_header_in_loop_control17928);
forall_header();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.loop_control(T_CONCURRENT438,
IActionEnums.DoConstruct_concurrent, hasOptExpr);}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "loop_control"
// $ANTLR start "association"
// FortranParser08.g:3831:1: association : T_IDENT T_EQ_GT selector ;
public final void association() throws RecognitionException {
Token T_IDENT439=null;
try {
// FortranParser08.g:3832:2: ( T_IDENT T_EQ_GT selector )
// FortranParser08.g:3832:4: T_IDENT T_EQ_GT selector
{
T_IDENT439=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_association17956); if (state.failed) return;
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_association17958); if (state.failed) return;
pushFollow(FOLLOW_selector_in_association17960);
selector();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.association(T_IDENT439); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "association"
// $ANTLR start "selector"
// FortranParser08.g:3838:1: selector : expr ;
public final void selector() throws RecognitionException {
try {
// FortranParser08.g:3839:2: ( expr )
// FortranParser08.g:3839:4: expr
{
pushFollow(FOLLOW_expr_in_selector17987);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.selector(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "selector"
// $ANTLR start "end_associate_stmt"
// FortranParser08.g:3844:1: end_associate_stmt : ( ( label )? T_END T_ASSOCIATE ( T_IDENT )? end_of_stmt | ( label )? T_ENDASSOCIATE ( T_IDENT )? end_of_stmt );
public final void end_associate_stmt() throws RecognitionException {
Token T_IDENT441=null;
Token T_END442=null;
Token T_ASSOCIATE443=null;
Token T_IDENT446=null;
Token T_ENDASSOCIATE447=null;
Token label440 =null;
Token end_of_stmt444 =null;
Token label445 =null;
Token end_of_stmt448 =null;
Token lbl = null; Token id=null;
try {
// FortranParser08.g:3847:2: ( ( label )? T_END T_ASSOCIATE ( T_IDENT )? end_of_stmt | ( label )? T_ENDASSOCIATE ( T_IDENT )? end_of_stmt )
int alt397=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA397_1 = input.LA(2);
if ( (LA397_1==T_END) ) {
alt397=1;
}
else if ( (LA397_1==T_ENDASSOCIATE) ) {
alt397=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 397, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
alt397=1;
}
break;
case T_ENDASSOCIATE:
{
alt397=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 397, 0, input);
throw nvae;
}
switch (alt397) {
case 1 :
// FortranParser08.g:3847:6: ( label )? T_END T_ASSOCIATE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3847:6: ( label )?
int alt393=2;
int LA393_0 = input.LA(1);
if ( (LA393_0==T_DIGIT_STRING) ) {
alt393=1;
}
switch (alt393) {
case 1 :
// FortranParser08.g:3847:7: label
{
pushFollow(FOLLOW_label_in_end_associate_stmt18025);
label440=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label440;}
}
break;
}
T_END442=(Token)match(input,T_END,FOLLOW_T_END_in_end_associate_stmt18031); if (state.failed) return;
T_ASSOCIATE443=(Token)match(input,T_ASSOCIATE,FOLLOW_T_ASSOCIATE_in_end_associate_stmt18033); if (state.failed) return;
// FortranParser08.g:3848:13: ( T_IDENT )?
int alt394=2;
int LA394_0 = input.LA(1);
if ( (LA394_0==T_IDENT) ) {
alt394=1;
}
switch (alt394) {
case 1 :
// FortranParser08.g:3848:14: T_IDENT
{
T_IDENT441=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_associate_stmt18049); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT441;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_associate_stmt18055);
end_of_stmt444=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_associate_stmt(lbl, T_END442, T_ASSOCIATE443, id,
end_of_stmt444);}
}
break;
case 2 :
// FortranParser08.g:3851:6: ( label )? T_ENDASSOCIATE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3851:6: ( label )?
int alt395=2;
int LA395_0 = input.LA(1);
if ( (LA395_0==T_DIGIT_STRING) ) {
alt395=1;
}
switch (alt395) {
case 1 :
// FortranParser08.g:3851:7: label
{
pushFollow(FOLLOW_label_in_end_associate_stmt18068);
label445=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label445;}
}
break;
}
T_ENDASSOCIATE447=(Token)match(input,T_ENDASSOCIATE,FOLLOW_T_ENDASSOCIATE_in_end_associate_stmt18074); if (state.failed) return;
// FortranParser08.g:3852:13: ( T_IDENT )?
int alt396=2;
int LA396_0 = input.LA(1);
if ( (LA396_0==T_IDENT) ) {
alt396=1;
}
switch (alt396) {
case 1 :
// FortranParser08.g:3852:14: T_IDENT
{
T_IDENT446=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_associate_stmt18091); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT446;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_associate_stmt18097);
end_of_stmt448=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_associate_stmt(lbl, T_ENDASSOCIATE447, null, id,
end_of_stmt448);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_associate_stmt"
// $ANTLR start "select_type_construct"
// FortranParser08.g:3858:1: select_type_construct : select_type_stmt ( type_guard_stmt block )* end_select_type_stmt ;
public final void select_type_construct() throws RecognitionException {
try {
// FortranParser08.g:3859:5: ( select_type_stmt ( type_guard_stmt block )* end_select_type_stmt )
// FortranParser08.g:3859:9: select_type_stmt ( type_guard_stmt block )* end_select_type_stmt
{
pushFollow(FOLLOW_select_type_stmt_in_select_type_construct18119);
select_type_stmt();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:3859:26: ( type_guard_stmt block )*
loop398:
while (true) {
int alt398=2;
int LA398_0 = input.LA(1);
if ( (LA398_0==T_DIGIT_STRING) ) {
int LA398_1 = input.LA(2);
if ( (LA398_1==T_CLASS||LA398_1==T_TYPE) ) {
alt398=1;
}
}
else if ( (LA398_0==T_CLASS||LA398_0==T_TYPE) ) {
alt398=1;
}
switch (alt398) {
case 1 :
// FortranParser08.g:3859:28: type_guard_stmt block
{
pushFollow(FOLLOW_type_guard_stmt_in_select_type_construct18123);
type_guard_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_block_in_select_type_construct18125);
block();
state._fsp--;
if (state.failed) return;
}
break;
default :
break loop398;
}
}
pushFollow(FOLLOW_end_select_type_stmt_in_select_type_construct18130);
end_select_type_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.select_type_construct(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "select_type_construct"
// $ANTLR start "select_type_stmt"
// FortranParser08.g:3865:1: select_type_stmt : ( label )? (idTmp= T_IDENT T_COLON )? select_type T_LPAREN (idTmpx= T_IDENT T_EQ_GT )? selector T_RPAREN end_of_stmt ;
public final void select_type_stmt() throws RecognitionException {
Token idTmp=null;
Token idTmpx=null;
Token label449 =null;
Token end_of_stmt450 =null;
Token lbl = null; Token selectConstructName=null;
Token associateName=null;
try {
// FortranParser08.g:3869:5: ( ( label )? (idTmp= T_IDENT T_COLON )? select_type T_LPAREN (idTmpx= T_IDENT T_EQ_GT )? selector T_RPAREN end_of_stmt )
// FortranParser08.g:3869:7: ( label )? (idTmp= T_IDENT T_COLON )? select_type T_LPAREN (idTmpx= T_IDENT T_EQ_GT )? selector T_RPAREN end_of_stmt
{
// FortranParser08.g:3869:7: ( label )?
int alt399=2;
int LA399_0 = input.LA(1);
if ( (LA399_0==T_DIGIT_STRING) ) {
alt399=1;
}
switch (alt399) {
case 1 :
// FortranParser08.g:3869:8: label
{
pushFollow(FOLLOW_label_in_select_type_stmt18173);
label449=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label449;}
}
break;
}
// FortranParser08.g:3870:3: (idTmp= T_IDENT T_COLON )?
int alt400=2;
int LA400_0 = input.LA(1);
if ( (LA400_0==T_IDENT) ) {
alt400=1;
}
switch (alt400) {
case 1 :
// FortranParser08.g:3870:5: idTmp= T_IDENT T_COLON
{
idTmp=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_select_type_stmt18185); if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_select_type_stmt18187); if (state.failed) return;
if ( state.backtracking==0 ) {selectConstructName=idTmp;}
}
break;
}
pushFollow(FOLLOW_select_type_in_select_type_stmt18193);
select_type();
state._fsp--;
if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_select_type_stmt18203); if (state.failed) return;
// FortranParser08.g:3871:18: (idTmpx= T_IDENT T_EQ_GT )?
int alt401=2;
int LA401_0 = input.LA(1);
if ( (LA401_0==T_IDENT) ) {
int LA401_1 = input.LA(2);
if ( (LA401_1==T_EQ_GT) ) {
alt401=1;
}
}
switch (alt401) {
case 1 :
// FortranParser08.g:3871:20: idTmpx= T_IDENT T_EQ_GT
{
idTmpx=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_select_type_stmt18209); if (state.failed) return;
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_select_type_stmt18211); if (state.failed) return;
if ( state.backtracking==0 ) {associateName=idTmpx;}
}
break;
}
pushFollow(FOLLOW_selector_in_select_type_stmt18220);
selector();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_select_type_stmt18222); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_select_type_stmt18224);
end_of_stmt450=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.select_type_stmt(lbl, selectConstructName, associateName,
end_of_stmt450);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "select_type_stmt"
// $ANTLR start "select_type"
// FortranParser08.g:3877:1: select_type : ( T_SELECT T_TYPE | T_SELECTTYPE );
public final void select_type() throws RecognitionException {
Token T_SELECT451=null;
Token T_TYPE452=null;
Token T_SELECTTYPE453=null;
try {
// FortranParser08.g:3878:5: ( T_SELECT T_TYPE | T_SELECTTYPE )
int alt402=2;
int LA402_0 = input.LA(1);
if ( (LA402_0==T_SELECT) ) {
alt402=1;
}
else if ( (LA402_0==T_SELECTTYPE) ) {
alt402=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 402, 0, input);
throw nvae;
}
switch (alt402) {
case 1 :
// FortranParser08.g:3878:7: T_SELECT T_TYPE
{
T_SELECT451=(Token)match(input,T_SELECT,FOLLOW_T_SELECT_in_select_type18246); if (state.failed) return;
T_TYPE452=(Token)match(input,T_TYPE,FOLLOW_T_TYPE_in_select_type18248); if (state.failed) return;
if ( state.backtracking==0 ) { action.select_type(T_SELECT451, T_TYPE452); }
}
break;
case 2 :
// FortranParser08.g:3879:7: T_SELECTTYPE
{
T_SELECTTYPE453=(Token)match(input,T_SELECTTYPE,FOLLOW_T_SELECTTYPE_in_select_type18258); if (state.failed) return;
if ( state.backtracking==0 ) { action.select_type(T_SELECTTYPE453, null); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "select_type"
// $ANTLR start "type_guard_stmt"
// FortranParser08.g:3889:1: type_guard_stmt : ( ( label )? T_TYPE id1= T_IDENT T_LPAREN type_spec T_RPAREN (idTmp= T_IDENT )? end_of_stmt | ( label )? T_CLASS id1= T_IDENT T_LPAREN type_spec T_RPAREN (idTmp= T_IDENT )? end_of_stmt | ( label )? T_CLASS T_DEFAULT (idTmp= T_IDENT )? end_of_stmt );
public final void type_guard_stmt() throws RecognitionException {
Token id1=null;
Token idTmp=null;
Token T_TYPE455=null;
Token T_CLASS458=null;
Token T_CLASS461=null;
Token T_DEFAULT462=null;
Token label454 =null;
Token end_of_stmt456 =null;
Token label457 =null;
Token end_of_stmt459 =null;
Token label460 =null;
Token end_of_stmt463 =null;
Token lbl = null; Token selectConstructName=null;
try {
// FortranParser08.g:3892:2: ( ( label )? T_TYPE id1= T_IDENT T_LPAREN type_spec T_RPAREN (idTmp= T_IDENT )? end_of_stmt | ( label )? T_CLASS id1= T_IDENT T_LPAREN type_spec T_RPAREN (idTmp= T_IDENT )? end_of_stmt | ( label )? T_CLASS T_DEFAULT (idTmp= T_IDENT )? end_of_stmt )
int alt409=3;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA409_1 = input.LA(2);
if ( (LA409_1==T_TYPE) ) {
alt409=1;
}
else if ( (LA409_1==T_CLASS) ) {
int LA409_3 = input.LA(3);
if ( (LA409_3==T_IDENT) ) {
alt409=2;
}
else if ( (LA409_3==T_DEFAULT) ) {
alt409=3;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 409, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 409, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_TYPE:
{
alt409=1;
}
break;
case T_CLASS:
{
int LA409_3 = input.LA(2);
if ( (LA409_3==T_IDENT) ) {
alt409=2;
}
else if ( (LA409_3==T_DEFAULT) ) {
alt409=3;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 409, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 409, 0, input);
throw nvae;
}
switch (alt409) {
case 1 :
// FortranParser08.g:3892:4: ( label )? T_TYPE id1= T_IDENT T_LPAREN type_spec T_RPAREN (idTmp= T_IDENT )? end_of_stmt
{
// FortranParser08.g:3892:4: ( label )?
int alt403=2;
int LA403_0 = input.LA(1);
if ( (LA403_0==T_DIGIT_STRING) ) {
alt403=1;
}
switch (alt403) {
case 1 :
// FortranParser08.g:3892:5: label
{
pushFollow(FOLLOW_label_in_type_guard_stmt18291);
label454=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label454;}
}
break;
}
T_TYPE455=(Token)match(input,T_TYPE,FOLLOW_T_TYPE_in_type_guard_stmt18297); if (state.failed) return;
id1=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_type_guard_stmt18301); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_type_guard_stmt18316); if (state.failed) return;
pushFollow(FOLLOW_type_spec_in_type_guard_stmt18318);
type_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_type_guard_stmt18320); if (state.failed) return;
// FortranParser08.g:3894:7: (idTmp= T_IDENT )?
int alt404=2;
int LA404_0 = input.LA(1);
if ( (LA404_0==T_IDENT) ) {
alt404=1;
}
switch (alt404) {
case 1 :
// FortranParser08.g:3894:9: idTmp= T_IDENT
{
idTmp=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_type_guard_stmt18332); if (state.failed) return;
if ( state.backtracking==0 ) {selectConstructName=idTmp;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_type_guard_stmt18338);
end_of_stmt456=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.type_guard_stmt(lbl, T_TYPE455, id1, selectConstructName,
end_of_stmt456);}
}
break;
case 2 :
// FortranParser08.g:3897:4: ( label )? T_CLASS id1= T_IDENT T_LPAREN type_spec T_RPAREN (idTmp= T_IDENT )? end_of_stmt
{
// FortranParser08.g:3897:4: ( label )?
int alt405=2;
int LA405_0 = input.LA(1);
if ( (LA405_0==T_DIGIT_STRING) ) {
alt405=1;
}
switch (alt405) {
case 1 :
// FortranParser08.g:3897:5: label
{
pushFollow(FOLLOW_label_in_type_guard_stmt18349);
label457=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label457;}
}
break;
}
T_CLASS458=(Token)match(input,T_CLASS,FOLLOW_T_CLASS_in_type_guard_stmt18355); if (state.failed) return;
id1=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_type_guard_stmt18359); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_type_guard_stmt18374); if (state.failed) return;
pushFollow(FOLLOW_type_spec_in_type_guard_stmt18376);
type_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_type_guard_stmt18378); if (state.failed) return;
// FortranParser08.g:3899:7: (idTmp= T_IDENT )?
int alt406=2;
int LA406_0 = input.LA(1);
if ( (LA406_0==T_IDENT) ) {
alt406=1;
}
switch (alt406) {
case 1 :
// FortranParser08.g:3899:9: idTmp= T_IDENT
{
idTmp=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_type_guard_stmt18390); if (state.failed) return;
if ( state.backtracking==0 ) {selectConstructName=idTmp;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_type_guard_stmt18396);
end_of_stmt459=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.type_guard_stmt(lbl, T_CLASS458, id1, selectConstructName,
end_of_stmt459);}
}
break;
case 3 :
// FortranParser08.g:3902:4: ( label )? T_CLASS T_DEFAULT (idTmp= T_IDENT )? end_of_stmt
{
// FortranParser08.g:3902:4: ( label )?
int alt407=2;
int LA407_0 = input.LA(1);
if ( (LA407_0==T_DIGIT_STRING) ) {
alt407=1;
}
switch (alt407) {
case 1 :
// FortranParser08.g:3902:5: label
{
pushFollow(FOLLOW_label_in_type_guard_stmt18407);
label460=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label460;}
}
break;
}
T_CLASS461=(Token)match(input,T_CLASS,FOLLOW_T_CLASS_in_type_guard_stmt18413); if (state.failed) return;
T_DEFAULT462=(Token)match(input,T_DEFAULT,FOLLOW_T_DEFAULT_in_type_guard_stmt18415); if (state.failed) return;
// FortranParser08.g:3903:3: (idTmp= T_IDENT )?
int alt408=2;
int LA408_0 = input.LA(1);
if ( (LA408_0==T_IDENT) ) {
alt408=1;
}
switch (alt408) {
case 1 :
// FortranParser08.g:3903:5: idTmp= T_IDENT
{
idTmp=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_type_guard_stmt18423); if (state.failed) return;
if ( state.backtracking==0 ) {selectConstructName=idTmp;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_type_guard_stmt18429);
end_of_stmt463=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.type_guard_stmt(lbl, T_CLASS461, T_DEFAULT462,
selectConstructName, end_of_stmt463);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "type_guard_stmt"
// $ANTLR start "end_select_type_stmt"
// FortranParser08.g:3910:1: end_select_type_stmt : ( ( label )? T_END T_SELECT ( T_IDENT )? end_of_stmt | ( label )? T_ENDSELECT ( T_IDENT )? end_of_stmt );
public final void end_select_type_stmt() throws RecognitionException {
Token T_IDENT465=null;
Token T_END466=null;
Token T_SELECT467=null;
Token T_IDENT470=null;
Token T_ENDSELECT471=null;
Token label464 =null;
Token end_of_stmt468 =null;
Token label469 =null;
Token end_of_stmt472 =null;
Token lbl = null; Token id = null;
try {
// FortranParser08.g:3913:2: ( ( label )? T_END T_SELECT ( T_IDENT )? end_of_stmt | ( label )? T_ENDSELECT ( T_IDENT )? end_of_stmt )
int alt414=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA414_1 = input.LA(2);
if ( (LA414_1==T_END) ) {
alt414=1;
}
else if ( (LA414_1==T_ENDSELECT) ) {
alt414=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 414, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
alt414=1;
}
break;
case T_ENDSELECT:
{
alt414=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 414, 0, input);
throw nvae;
}
switch (alt414) {
case 1 :
// FortranParser08.g:3913:4: ( label )? T_END T_SELECT ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3913:4: ( label )?
int alt410=2;
int LA410_0 = input.LA(1);
if ( (LA410_0==T_DIGIT_STRING) ) {
alt410=1;
}
switch (alt410) {
case 1 :
// FortranParser08.g:3913:5: label
{
pushFollow(FOLLOW_label_in_end_select_type_stmt18457);
label464=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label464;}
}
break;
}
T_END466=(Token)match(input,T_END,FOLLOW_T_END_in_end_select_type_stmt18463); if (state.failed) return;
T_SELECT467=(Token)match(input,T_SELECT,FOLLOW_T_SELECT_in_end_select_type_stmt18465); if (state.failed) return;
// FortranParser08.g:3914:13: ( T_IDENT )?
int alt411=2;
int LA411_0 = input.LA(1);
if ( (LA411_0==T_IDENT) ) {
alt411=1;
}
switch (alt411) {
case 1 :
// FortranParser08.g:3914:15: T_IDENT
{
T_IDENT465=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_select_type_stmt18482); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT465;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_select_type_stmt18488);
end_of_stmt468=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_select_type_stmt(lbl, T_END466, T_SELECT467, id,
end_of_stmt468);}
}
break;
case 2 :
// FortranParser08.g:3917:4: ( label )? T_ENDSELECT ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3917:4: ( label )?
int alt412=2;
int LA412_0 = input.LA(1);
if ( (LA412_0==T_DIGIT_STRING) ) {
alt412=1;
}
switch (alt412) {
case 1 :
// FortranParser08.g:3917:5: label
{
pushFollow(FOLLOW_label_in_end_select_type_stmt18499);
label469=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label469;}
}
break;
}
T_ENDSELECT471=(Token)match(input,T_ENDSELECT,FOLLOW_T_ENDSELECT_in_end_select_type_stmt18505); if (state.failed) return;
// FortranParser08.g:3918:13: ( T_IDENT )?
int alt413=2;
int LA413_0 = input.LA(1);
if ( (LA413_0==T_IDENT) ) {
alt413=1;
}
switch (alt413) {
case 1 :
// FortranParser08.g:3918:15: T_IDENT
{
T_IDENT470=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_select_type_stmt18525); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT470;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_select_type_stmt18531);
end_of_stmt472=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_select_type_stmt(lbl, T_ENDSELECT471, null, id,
end_of_stmt472);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_select_type_stmt"
// $ANTLR start "do_construct"
// FortranParser08.g:3926:1: do_construct : block_do_construct ;
public final void do_construct() throws RecognitionException {
try {
// FortranParser08.g:3927:2: ( block_do_construct )
// FortranParser08.g:3927:4: block_do_construct
{
pushFollow(FOLLOW_block_do_construct_in_do_construct18550);
block_do_construct();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.do_construct(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "do_construct"
// $ANTLR start "block_do_construct"
// FortranParser08.g:3933:1: block_do_construct : do_stmt block end_do ;
public final void block_do_construct() throws RecognitionException {
try {
// FortranParser08.g:3934:2: ( do_stmt block end_do )
// FortranParser08.g:3934:4: do_stmt block end_do
{
pushFollow(FOLLOW_do_stmt_in_block_do_construct18577);
do_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_block_in_block_do_construct18581);
block();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_do_in_block_do_construct18585);
end_do();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.block_do_construct(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "block_do_construct"
// $ANTLR start "do_stmt"
// FortranParser08.g:3942:1: do_stmt : ( label )? ( T_IDENT T_COLON )? T_DO ( T_DIGIT_STRING )? ( loop_control )? end_of_stmt ;
public final void do_stmt() throws RecognitionException {
Token T_IDENT474=null;
Token T_DIGIT_STRING475=null;
Token T_DO476=null;
Token label473 =null;
Token end_of_stmt477 =null;
Token lbl=null;
Token id=null;
Token digitString=null;
boolean hasLoopControl=false;
try {
// FortranParser08.g:3948:2: ( ( label )? ( T_IDENT T_COLON )? T_DO ( T_DIGIT_STRING )? ( loop_control )? end_of_stmt )
// FortranParser08.g:3948:4: ( label )? ( T_IDENT T_COLON )? T_DO ( T_DIGIT_STRING )? ( loop_control )? end_of_stmt
{
// FortranParser08.g:3948:4: ( label )?
int alt415=2;
int LA415_0 = input.LA(1);
if ( (LA415_0==T_DIGIT_STRING) ) {
alt415=1;
}
switch (alt415) {
case 1 :
// FortranParser08.g:3948:5: label
{
pushFollow(FOLLOW_label_in_do_stmt18622);
label473=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label473;}
}
break;
}
// FortranParser08.g:3948:30: ( T_IDENT T_COLON )?
int alt416=2;
int LA416_0 = input.LA(1);
if ( (LA416_0==T_IDENT) ) {
alt416=1;
}
switch (alt416) {
case 1 :
// FortranParser08.g:3948:32: T_IDENT T_COLON
{
T_IDENT474=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_do_stmt18630); if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_do_stmt18632); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT474;}
}
break;
}
T_DO476=(Token)match(input,T_DO,FOLLOW_T_DO_in_do_stmt18638); if (state.failed) return;
// FortranParser08.g:3949:4: ( T_DIGIT_STRING )?
int alt417=2;
int LA417_0 = input.LA(1);
if ( (LA417_0==T_DIGIT_STRING) ) {
alt417=1;
}
switch (alt417) {
case 1 :
// FortranParser08.g:3949:6: T_DIGIT_STRING
{
T_DIGIT_STRING475=(Token)match(input,T_DIGIT_STRING,FOLLOW_T_DIGIT_STRING_in_do_stmt18646); if (state.failed) return;
if ( state.backtracking==0 ) {digitString=T_DIGIT_STRING475;}
}
break;
}
// FortranParser08.g:3950:4: ( loop_control )?
int alt418=2;
int LA418_0 = input.LA(1);
if ( (LA418_0==T_COMMA||LA418_0==T_CONCURRENT||LA418_0==T_IDENT||LA418_0==T_WHILE) ) {
alt418=1;
}
switch (alt418) {
case 1 :
// FortranParser08.g:3950:6: loop_control
{
pushFollow(FOLLOW_loop_control_in_do_stmt18658);
loop_control();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasLoopControl=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_do_stmt18664);
end_of_stmt477=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.do_stmt(lbl, id, T_DO476, digitString, end_of_stmt477,
hasLoopControl);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "do_stmt"
// $ANTLR start "label_do_stmt"
// FortranParser08.g:3958:1: label_do_stmt : ( label )? ( T_IDENT T_COLON )? T_DO T_DIGIT_STRING ( loop_control )? end_of_stmt ;
public final void label_do_stmt() throws RecognitionException {
Token T_IDENT479=null;
Token T_DO480=null;
Token T_DIGIT_STRING481=null;
Token label478 =null;
Token end_of_stmt482 =null;
Token lbl = null; Token id=null; boolean hasLoopControl=false;
try {
// FortranParser08.g:3961:2: ( ( label )? ( T_IDENT T_COLON )? T_DO T_DIGIT_STRING ( loop_control )? end_of_stmt )
// FortranParser08.g:3961:4: ( label )? ( T_IDENT T_COLON )? T_DO T_DIGIT_STRING ( loop_control )? end_of_stmt
{
// FortranParser08.g:3961:4: ( label )?
int alt419=2;
int LA419_0 = input.LA(1);
if ( (LA419_0==T_DIGIT_STRING) ) {
alt419=1;
}
switch (alt419) {
case 1 :
// FortranParser08.g:3961:5: label
{
pushFollow(FOLLOW_label_in_label_do_stmt18694);
label478=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label478;}
}
break;
}
// FortranParser08.g:3961:30: ( T_IDENT T_COLON )?
int alt420=2;
int LA420_0 = input.LA(1);
if ( (LA420_0==T_IDENT) ) {
alt420=1;
}
switch (alt420) {
case 1 :
// FortranParser08.g:3961:32: T_IDENT T_COLON
{
T_IDENT479=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_label_do_stmt18702); if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_label_do_stmt18704); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT479;}
}
break;
}
T_DO480=(Token)match(input,T_DO,FOLLOW_T_DO_in_label_do_stmt18715); if (state.failed) return;
T_DIGIT_STRING481=(Token)match(input,T_DIGIT_STRING,FOLLOW_T_DIGIT_STRING_in_label_do_stmt18717); if (state.failed) return;
// FortranParser08.g:3962:24: ( loop_control )?
int alt421=2;
int LA421_0 = input.LA(1);
if ( (LA421_0==T_COMMA||LA421_0==T_CONCURRENT||LA421_0==T_IDENT||LA421_0==T_WHILE) ) {
alt421=1;
}
switch (alt421) {
case 1 :
// FortranParser08.g:3962:26: loop_control
{
pushFollow(FOLLOW_loop_control_in_label_do_stmt18721);
loop_control();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasLoopControl=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_label_do_stmt18740);
end_of_stmt482=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.label_do_stmt(lbl, id, T_DO480, T_DIGIT_STRING481,
end_of_stmt482, hasLoopControl);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "label_do_stmt"
// $ANTLR start "do_variable"
// FortranParser08.g:3973:1: do_variable : T_IDENT ;
public final void do_variable() throws RecognitionException {
Token T_IDENT483=null;
try {
// FortranParser08.g:3974:2: ( T_IDENT )
// FortranParser08.g:3974:4: T_IDENT
{
T_IDENT483=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_do_variable18761); if (state.failed) return;
if ( state.backtracking==0 ) { action.do_variable(T_IDENT483); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "do_variable"
// $ANTLR start "end_do"
// FortranParser08.g:3986:1: end_do : ( end_do_stmt | do_term_action_stmt );
public final void end_do() throws RecognitionException {
try {
// FortranParser08.g:3990:2: ( end_do_stmt | do_term_action_stmt )
int alt422=2;
int LA422_0 = input.LA(1);
if ( (LA422_0==T_DIGIT_STRING) ) {
int LA422_1 = input.LA(2);
if ( (LA422_1==T_END||LA422_1==T_ENDDO) ) {
alt422=1;
}
else if ( (LA422_1==T_LABEL_DO_TERMINAL) ) {
alt422=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 422, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA422_0==T_END||LA422_0==T_ENDDO) ) {
alt422=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 422, 0, input);
throw nvae;
}
switch (alt422) {
case 1 :
// FortranParser08.g:3990:4: end_do_stmt
{
pushFollow(FOLLOW_end_do_stmt_in_end_do18799);
end_do_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:3991:4: do_term_action_stmt
{
pushFollow(FOLLOW_do_term_action_stmt_in_end_do18804);
do_term_action_stmt();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.end_do();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_do"
// $ANTLR start "end_do_stmt"
// FortranParser08.g:3996:1: end_do_stmt : ( ( label )? T_END T_DO ( T_IDENT )? end_of_stmt | ( label )? T_ENDDO ( T_IDENT )? end_of_stmt );
public final void end_do_stmt() throws RecognitionException {
Token T_IDENT485=null;
Token T_END486=null;
Token T_DO487=null;
Token T_IDENT490=null;
Token T_ENDDO491=null;
Token label484 =null;
Token end_of_stmt488 =null;
Token label489 =null;
Token end_of_stmt492 =null;
Token lbl = null; Token id=null;
try {
// FortranParser08.g:3999:2: ( ( label )? T_END T_DO ( T_IDENT )? end_of_stmt | ( label )? T_ENDDO ( T_IDENT )? end_of_stmt )
int alt427=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA427_1 = input.LA(2);
if ( (LA427_1==T_END) ) {
alt427=1;
}
else if ( (LA427_1==T_ENDDO) ) {
alt427=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 427, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
alt427=1;
}
break;
case T_ENDDO:
{
alt427=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 427, 0, input);
throw nvae;
}
switch (alt427) {
case 1 :
// FortranParser08.g:3999:4: ( label )? T_END T_DO ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:3999:4: ( label )?
int alt423=2;
int LA423_0 = input.LA(1);
if ( (LA423_0==T_DIGIT_STRING) ) {
alt423=1;
}
switch (alt423) {
case 1 :
// FortranParser08.g:3999:5: label
{
pushFollow(FOLLOW_label_in_end_do_stmt18827);
label484=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label484;}
}
break;
}
T_END486=(Token)match(input,T_END,FOLLOW_T_END_in_end_do_stmt18833); if (state.failed) return;
T_DO487=(Token)match(input,T_DO,FOLLOW_T_DO_in_end_do_stmt18835); if (state.failed) return;
// FortranParser08.g:3999:41: ( T_IDENT )?
int alt424=2;
int LA424_0 = input.LA(1);
if ( (LA424_0==T_IDENT) ) {
alt424=1;
}
switch (alt424) {
case 1 :
// FortranParser08.g:3999:43: T_IDENT
{
T_IDENT485=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_do_stmt18839); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT485;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_do_stmt18858);
end_of_stmt488=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_do_stmt(lbl, T_END486, T_DO487, id, end_of_stmt488);}
}
break;
case 2 :
// FortranParser08.g:4002:4: ( label )? T_ENDDO ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:4002:4: ( label )?
int alt425=2;
int LA425_0 = input.LA(1);
if ( (LA425_0==T_DIGIT_STRING) ) {
alt425=1;
}
switch (alt425) {
case 1 :
// FortranParser08.g:4002:5: label
{
pushFollow(FOLLOW_label_in_end_do_stmt18869);
label489=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label489;}
}
break;
}
T_ENDDO491=(Token)match(input,T_ENDDO,FOLLOW_T_ENDDO_in_end_do_stmt18875); if (state.failed) return;
// FortranParser08.g:4002:41: ( T_IDENT )?
int alt426=2;
int LA426_0 = input.LA(1);
if ( (LA426_0==T_IDENT) ) {
alt426=1;
}
switch (alt426) {
case 1 :
// FortranParser08.g:4002:43: T_IDENT
{
T_IDENT490=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_do_stmt18882); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT490;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_do_stmt18901);
end_of_stmt492=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_do_stmt(lbl, T_ENDDO491, null, id, end_of_stmt492);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_do_stmt"
// $ANTLR start "do_term_action_stmt"
// FortranParser08.g:4030:1: do_term_action_stmt : label T_LABEL_DO_TERMINAL ( action_stmt | ( ( T_END T_DO | T_ENDDO ) ( T_IDENT )? ) end_of_stmt ) ;
public final void do_term_action_stmt() throws RecognitionException {
Token T_END493=null;
Token T_DO494=null;
Token T_ENDDO495=null;
Token T_IDENT496=null;
Token label497 =null;
Token end_of_stmt498 =null;
Token id=null; Token endToken = null; Token doToken = null;
try {
// FortranParser08.g:4037:5: ( label T_LABEL_DO_TERMINAL ( action_stmt | ( ( T_END T_DO | T_ENDDO ) ( T_IDENT )? ) end_of_stmt ) )
// FortranParser08.g:4037:9: label T_LABEL_DO_TERMINAL ( action_stmt | ( ( T_END T_DO | T_ENDDO ) ( T_IDENT )? ) end_of_stmt )
{
pushFollow(FOLLOW_label_in_do_term_action_stmt18974);
label497=label();
state._fsp--;
if (state.failed) return;
match(input,T_LABEL_DO_TERMINAL,FOLLOW_T_LABEL_DO_TERMINAL_in_do_term_action_stmt18976); if (state.failed) return;
// FortranParser08.g:4038:9: ( action_stmt | ( ( T_END T_DO | T_ENDDO ) ( T_IDENT )? ) end_of_stmt )
int alt430=2;
switch ( input.LA(1) ) {
case T_ALLOCATE:
case T_ALLOCATE_STMT_1:
case T_ARITHMETIC_IF_STMT:
case T_ASSIGN:
case T_ASSIGNMENT_STMT:
case T_BACKSPACE:
case T_CALL:
case T_CLOSE:
case T_CONTINUE:
case T_CYCLE:
case T_DEALLOCATE:
case T_DIGIT_STRING:
case T_ENDFILE:
case T_ERROR:
case T_EXIT:
case T_FLUSH:
case T_FORALL_STMT:
case T_GO:
case T_GOTO:
case T_IF_STMT:
case T_INQUIRE:
case T_INQUIRE_STMT_2:
case T_LOCK:
case T_NULLIFY:
case T_OPEN:
case T_PAUSE:
case T_PRINT:
case T_PTR_ASSIGNMENT_STMT:
case T_READ:
case T_RETURN:
case T_REWIND:
case T_STOP:
case T_SYNC:
case T_UNLOCK:
case T_WAIT:
case T_WHERE_STMT:
case T_WRITE:
{
alt430=1;
}
break;
case T_END:
{
int LA430_2 = input.LA(2);
if ( (LA430_2==T_FILE) ) {
alt430=1;
}
else if ( (LA430_2==T_DO) ) {
alt430=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 430, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ENDDO:
{
alt430=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 430, 0, input);
throw nvae;
}
switch (alt430) {
case 1 :
// FortranParser08.g:4038:10: action_stmt
{
pushFollow(FOLLOW_action_stmt_in_do_term_action_stmt18988);
gFortranParserExtras.action_stmt();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:4038:24: ( ( T_END T_DO | T_ENDDO ) ( T_IDENT )? ) end_of_stmt
{
// FortranParser08.g:4038:24: ( ( T_END T_DO | T_ENDDO ) ( T_IDENT )? )
// FortranParser08.g:4038:26: ( T_END T_DO | T_ENDDO ) ( T_IDENT )?
{
// FortranParser08.g:4038:26: ( T_END T_DO | T_ENDDO )
int alt428=2;
int LA428_0 = input.LA(1);
if ( (LA428_0==T_END) ) {
alt428=1;
}
else if ( (LA428_0==T_ENDDO) ) {
alt428=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 428, 0, input);
throw nvae;
}
switch (alt428) {
case 1 :
// FortranParser08.g:4038:27: T_END T_DO
{
T_END493=(Token)match(input,T_END,FOLLOW_T_END_in_do_term_action_stmt18995); if (state.failed) return;
T_DO494=(Token)match(input,T_DO,FOLLOW_T_DO_in_do_term_action_stmt18997); if (state.failed) return;
if ( state.backtracking==0 ) {endToken=T_END493; doToken=T_DO494;}
}
break;
case 2 :
// FortranParser08.g:4039:29: T_ENDDO
{
T_ENDDO495=(Token)match(input,T_ENDDO,FOLLOW_T_ENDDO_in_do_term_action_stmt19030); if (state.failed) return;
if ( state.backtracking==0 ) {endToken=T_ENDDO495; doToken=null;}
}
break;
}
// FortranParser08.g:4040:17: ( T_IDENT )?
int alt429=2;
int LA429_0 = input.LA(1);
if ( (LA429_0==T_IDENT) ) {
alt429=1;
}
switch (alt429) {
case 1 :
// FortranParser08.g:4040:18: T_IDENT
{
T_IDENT496=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_do_term_action_stmt19053); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT496;}
}
break;
}
}
pushFollow(FOLLOW_end_of_stmt_in_do_term_action_stmt19060);
end_of_stmt498=end_of_stmt();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {action.do_term_action_stmt(label497, endToken, doToken, id,
end_of_stmt498);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "do_term_action_stmt"
// $ANTLR start "cycle_stmt"
// FortranParser08.g:4060:1: cycle_stmt : ( label )? T_CYCLE ( T_IDENT )? end_of_stmt ;
public final void cycle_stmt() throws RecognitionException {
Token T_IDENT500=null;
Token T_CYCLE501=null;
Token label499 =null;
Token end_of_stmt502 =null;
Token lbl = null; Token id = null;
try {
// FortranParser08.g:4063:2: ( ( label )? T_CYCLE ( T_IDENT )? end_of_stmt )
// FortranParser08.g:4063:4: ( label )? T_CYCLE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:4063:4: ( label )?
int alt431=2;
int LA431_0 = input.LA(1);
if ( (LA431_0==T_DIGIT_STRING) ) {
alt431=1;
}
switch (alt431) {
case 1 :
// FortranParser08.g:4063:5: label
{
pushFollow(FOLLOW_label_in_cycle_stmt19111);
label499=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label499;}
}
break;
}
T_CYCLE501=(Token)match(input,T_CYCLE,FOLLOW_T_CYCLE_in_cycle_stmt19117); if (state.failed) return;
// FortranParser08.g:4063:38: ( T_IDENT )?
int alt432=2;
int LA432_0 = input.LA(1);
if ( (LA432_0==T_IDENT) ) {
alt432=1;
}
switch (alt432) {
case 1 :
// FortranParser08.g:4063:39: T_IDENT
{
T_IDENT500=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_cycle_stmt19120); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT500;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_cycle_stmt19126);
end_of_stmt502=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.cycle_stmt(lbl, T_CYCLE501, id, end_of_stmt502); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "cycle_stmt"
// $ANTLR start "exit_stmt"
// FortranParser08.g:4069:1: exit_stmt : ( label )? T_EXIT ( T_IDENT )? end_of_stmt ;
public final void exit_stmt() throws RecognitionException {
Token T_IDENT504=null;
Token T_EXIT505=null;
Token label503 =null;
Token end_of_stmt506 =null;
Token lbl = null; Token id = null;
try {
// FortranParser08.g:4072:2: ( ( label )? T_EXIT ( T_IDENT )? end_of_stmt )
// FortranParser08.g:4072:4: ( label )? T_EXIT ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:4072:4: ( label )?
int alt433=2;
int LA433_0 = input.LA(1);
if ( (LA433_0==T_DIGIT_STRING) ) {
alt433=1;
}
switch (alt433) {
case 1 :
// FortranParser08.g:4072:5: label
{
pushFollow(FOLLOW_label_in_exit_stmt19154);
label503=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label503;}
}
break;
}
T_EXIT505=(Token)match(input,T_EXIT,FOLLOW_T_EXIT_in_exit_stmt19160); if (state.failed) return;
// FortranParser08.g:4072:37: ( T_IDENT )?
int alt434=2;
int LA434_0 = input.LA(1);
if ( (LA434_0==T_IDENT) ) {
alt434=1;
}
switch (alt434) {
case 1 :
// FortranParser08.g:4072:38: T_IDENT
{
T_IDENT504=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_exit_stmt19163); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT504;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_exit_stmt19169);
end_of_stmt506=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.exit_stmt(lbl, T_EXIT505, id, end_of_stmt506); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "exit_stmt"
// $ANTLR start "goto_stmt"
// FortranParser08.g:4077:1: goto_stmt : ( label )? ( T_GO T_TO | T_GOTO ) T_DIGIT_STRING end_of_stmt ;
public final void goto_stmt() throws RecognitionException {
Token T_GO508=null;
Token T_TO509=null;
Token T_GOTO510=null;
Token T_DIGIT_STRING511=null;
Token label507 =null;
Token end_of_stmt512 =null;
Token lbl=null;
Token goto_target=null;
Token goKeyword=null;
Token toKeyword=null;
try {
// FortranParser08.g:4083:4: ( ( label )? ( T_GO T_TO | T_GOTO ) T_DIGIT_STRING end_of_stmt )
// FortranParser08.g:4083:8: ( label )? ( T_GO T_TO | T_GOTO ) T_DIGIT_STRING end_of_stmt
{
// FortranParser08.g:4083:8: ( label )?
int alt435=2;
int LA435_0 = input.LA(1);
if ( (LA435_0==T_DIGIT_STRING) ) {
alt435=1;
}
switch (alt435) {
case 1 :
// FortranParser08.g:4083:9: label
{
pushFollow(FOLLOW_label_in_goto_stmt19200);
label507=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label507;}
}
break;
}
// FortranParser08.g:4084:8: ( T_GO T_TO | T_GOTO )
int alt436=2;
int LA436_0 = input.LA(1);
if ( (LA436_0==T_GO) ) {
alt436=1;
}
else if ( (LA436_0==T_GOTO) ) {
alt436=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 436, 0, input);
throw nvae;
}
switch (alt436) {
case 1 :
// FortranParser08.g:4084:12: T_GO T_TO
{
T_GO508=(Token)match(input,T_GO,FOLLOW_T_GO_in_goto_stmt19217); if (state.failed) return;
T_TO509=(Token)match(input,T_TO,FOLLOW_T_TO_in_goto_stmt19219); if (state.failed) return;
if ( state.backtracking==0 ) { goKeyword=T_GO508; toKeyword=T_TO509;}
}
break;
case 2 :
// FortranParser08.g:4085:12: T_GOTO
{
T_GOTO510=(Token)match(input,T_GOTO,FOLLOW_T_GOTO_in_goto_stmt19235); if (state.failed) return;
if ( state.backtracking==0 ) { goKeyword=T_GOTO510; toKeyword=null;}
}
break;
}
T_DIGIT_STRING511=(Token)match(input,T_DIGIT_STRING,FOLLOW_T_DIGIT_STRING_in_goto_stmt19258); if (state.failed) return;
if ( state.backtracking==0 ) {goto_target=T_DIGIT_STRING511;}
pushFollow(FOLLOW_end_of_stmt_in_goto_stmt19262);
end_of_stmt512=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.goto_stmt(lbl, goKeyword, toKeyword, goto_target, end_of_stmt512); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "goto_stmt"
// $ANTLR start "computed_goto_stmt"
// FortranParser08.g:4093:1: computed_goto_stmt : ( label )? ( T_GO T_TO | T_GOTO ) T_LPAREN label_list T_RPAREN ( T_COMMA )? expr end_of_stmt ;
public final void computed_goto_stmt() throws RecognitionException {
Token T_GO514=null;
Token T_TO515=null;
Token T_GOTO516=null;
Token label513 =null;
Token end_of_stmt517 =null;
Token lbl = null; Token goKeyword=null; Token toKeyword=null;
try {
// FortranParser08.g:4096:2: ( ( label )? ( T_GO T_TO | T_GOTO ) T_LPAREN label_list T_RPAREN ( T_COMMA )? expr end_of_stmt )
// FortranParser08.g:4096:4: ( label )? ( T_GO T_TO | T_GOTO ) T_LPAREN label_list T_RPAREN ( T_COMMA )? expr end_of_stmt
{
// FortranParser08.g:4096:4: ( label )?
int alt437=2;
int LA437_0 = input.LA(1);
if ( (LA437_0==T_DIGIT_STRING) ) {
alt437=1;
}
switch (alt437) {
case 1 :
// FortranParser08.g:4096:5: label
{
pushFollow(FOLLOW_label_in_computed_goto_stmt19299);
label513=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label513;}
}
break;
}
// FortranParser08.g:4097:3: ( T_GO T_TO | T_GOTO )
int alt438=2;
int LA438_0 = input.LA(1);
if ( (LA438_0==T_GO) ) {
alt438=1;
}
else if ( (LA438_0==T_GOTO) ) {
alt438=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 438, 0, input);
throw nvae;
}
switch (alt438) {
case 1 :
// FortranParser08.g:4097:4: T_GO T_TO
{
T_GO514=(Token)match(input,T_GO,FOLLOW_T_GO_in_computed_goto_stmt19308); if (state.failed) return;
T_TO515=(Token)match(input,T_TO,FOLLOW_T_TO_in_computed_goto_stmt19310); if (state.failed) return;
if ( state.backtracking==0 ) {goKeyword=T_GO514; toKeyword=T_TO515;}
}
break;
case 2 :
// FortranParser08.g:4098:12: T_GOTO
{
T_GOTO516=(Token)match(input,T_GOTO,FOLLOW_T_GOTO_in_computed_goto_stmt19326); if (state.failed) return;
if ( state.backtracking==0 ) {goKeyword=T_GOTO516; toKeyword=null;}
}
break;
}
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_computed_goto_stmt19344); if (state.failed) return;
pushFollow(FOLLOW_label_list_in_computed_goto_stmt19346);
label_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_computed_goto_stmt19348); if (state.failed) return;
// FortranParser08.g:4099:42: ( T_COMMA )?
int alt439=2;
int LA439_0 = input.LA(1);
if ( (LA439_0==T_COMMA) ) {
alt439=1;
}
switch (alt439) {
case 1 :
// FortranParser08.g:4099:44: T_COMMA
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_computed_goto_stmt19352); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_expr_in_computed_goto_stmt19357);
expr();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_computed_goto_stmt19359);
end_of_stmt517=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.computed_goto_stmt(lbl, goKeyword, toKeyword,
end_of_stmt517); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "computed_goto_stmt"
// $ANTLR start "assign_stmt"
// FortranParser08.g:4105:1: assign_stmt : (lbl1= label )? T_ASSIGN lbl2= label T_TO name end_of_stmt ;
public final void assign_stmt() throws RecognitionException {
Token T_ASSIGN518=null;
Token T_TO519=null;
Token lbl1 =null;
Token lbl2 =null;
Token name520 =null;
Token end_of_stmt521 =null;
try {
// FortranParser08.g:4107:5: ( (lbl1= label )? T_ASSIGN lbl2= label T_TO name end_of_stmt )
// FortranParser08.g:4107:9: (lbl1= label )? T_ASSIGN lbl2= label T_TO name end_of_stmt
{
// FortranParser08.g:4107:9: (lbl1= label )?
int alt440=2;
int LA440_0 = input.LA(1);
if ( (LA440_0==T_DIGIT_STRING) ) {
alt440=1;
}
switch (alt440) {
case 1 :
// FortranParser08.g:4107:10: lbl1= label
{
pushFollow(FOLLOW_label_in_assign_stmt19389);
lbl1=label();
state._fsp--;
if (state.failed) return;
}
break;
}
T_ASSIGN518=(Token)match(input,T_ASSIGN,FOLLOW_T_ASSIGN_in_assign_stmt19393); if (state.failed) return;
pushFollow(FOLLOW_label_in_assign_stmt19397);
lbl2=label();
state._fsp--;
if (state.failed) return;
T_TO519=(Token)match(input,T_TO,FOLLOW_T_TO_in_assign_stmt19399); if (state.failed) return;
pushFollow(FOLLOW_name_in_assign_stmt19401);
name520=name();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_assign_stmt19403);
end_of_stmt521=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.assign_stmt(lbl1, T_ASSIGN518, lbl2, T_TO519, name520,
end_of_stmt521); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "assign_stmt"
// $ANTLR start "assigned_goto_stmt"
// FortranParser08.g:4113:1: assigned_goto_stmt : ( label )? ( T_GOTO | T_GO T_TO ) name ( T_COMMA stmt_label_list )? end_of_stmt ;
public final void assigned_goto_stmt() throws RecognitionException {
Token T_GOTO522=null;
Token T_GO523=null;
Token T_TO524=null;
Token label525 =null;
Token name526 =null;
Token end_of_stmt527 =null;
Token goKeyword=null; Token toKeyword=null;
try {
// FortranParser08.g:4116:5: ( ( label )? ( T_GOTO | T_GO T_TO ) name ( T_COMMA stmt_label_list )? end_of_stmt )
// FortranParser08.g:4116:9: ( label )? ( T_GOTO | T_GO T_TO ) name ( T_COMMA stmt_label_list )? end_of_stmt
{
// FortranParser08.g:4116:9: ( label )?
int alt441=2;
int LA441_0 = input.LA(1);
if ( (LA441_0==T_DIGIT_STRING) ) {
alt441=1;
}
switch (alt441) {
case 1 :
// FortranParser08.g:4116:10: label
{
pushFollow(FOLLOW_label_in_assigned_goto_stmt19448);
label525=label();
state._fsp--;
if (state.failed) return;
}
break;
}
// FortranParser08.g:4116:18: ( T_GOTO | T_GO T_TO )
int alt442=2;
int LA442_0 = input.LA(1);
if ( (LA442_0==T_GOTO) ) {
alt442=1;
}
else if ( (LA442_0==T_GO) ) {
alt442=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 442, 0, input);
throw nvae;
}
switch (alt442) {
case 1 :
// FortranParser08.g:4116:20: T_GOTO
{
T_GOTO522=(Token)match(input,T_GOTO,FOLLOW_T_GOTO_in_assigned_goto_stmt19454); if (state.failed) return;
if ( state.backtracking==0 ) {goKeyword=T_GOTO522; toKeyword=null;}
}
break;
case 2 :
// FortranParser08.g:4117:22: T_GO T_TO
{
T_GO523=(Token)match(input,T_GO,FOLLOW_T_GO_in_assigned_goto_stmt19479); if (state.failed) return;
T_TO524=(Token)match(input,T_TO,FOLLOW_T_TO_in_assigned_goto_stmt19481); if (state.failed) return;
if ( state.backtracking==0 ) {goKeyword=T_GO523; toKeyword=T_TO524;}
}
break;
}
pushFollow(FOLLOW_name_in_assigned_goto_stmt19500);
name526=name();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:4118:18: ( T_COMMA stmt_label_list )?
int alt443=2;
int LA443_0 = input.LA(1);
if ( (LA443_0==T_COMMA) ) {
alt443=1;
}
switch (alt443) {
case 1 :
// FortranParser08.g:4118:19: T_COMMA stmt_label_list
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_assigned_goto_stmt19503); if (state.failed) return;
pushFollow(FOLLOW_stmt_label_list_in_assigned_goto_stmt19505);
stmt_label_list();
state._fsp--;
if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_assigned_goto_stmt19509);
end_of_stmt527=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.assigned_goto_stmt(label525, goKeyword, toKeyword,
name526, end_of_stmt527); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "assigned_goto_stmt"
// $ANTLR start "stmt_label_list"
// FortranParser08.g:4124:1: stmt_label_list : T_LPAREN label ( T_COMMA label )* T_RPAREN ;
public final void stmt_label_list() throws RecognitionException {
try {
// FortranParser08.g:4125:5: ( T_LPAREN label ( T_COMMA label )* T_RPAREN )
// FortranParser08.g:4125:9: T_LPAREN label ( T_COMMA label )* T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_stmt_label_list19543); if (state.failed) return;
pushFollow(FOLLOW_label_in_stmt_label_list19545);
label();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:4125:24: ( T_COMMA label )*
loop444:
while (true) {
int alt444=2;
int LA444_0 = input.LA(1);
if ( (LA444_0==T_COMMA) ) {
alt444=1;
}
switch (alt444) {
case 1 :
// FortranParser08.g:4125:26: T_COMMA label
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_stmt_label_list19549); if (state.failed) return;
pushFollow(FOLLOW_label_in_stmt_label_list19551);
label();
state._fsp--;
if (state.failed) return;
}
break;
default :
break loop444;
}
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_stmt_label_list19556); if (state.failed) return;
if ( state.backtracking==0 ) { action.stmt_label_list(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "stmt_label_list"
// $ANTLR start "pause_stmt"
// FortranParser08.g:4130:1: pause_stmt : (lbl1= label )? T_PAUSE (lbl2= label | char_literal_constant )? end_of_stmt ;
public final void pause_stmt() throws RecognitionException {
Token T_PAUSE528=null;
Token lbl1 =null;
Token lbl2 =null;
Token end_of_stmt529 =null;
Token tmpToken=null;
try {
// FortranParser08.g:4133:5: ( (lbl1= label )? T_PAUSE (lbl2= label | char_literal_constant )? end_of_stmt )
// FortranParser08.g:4133:9: (lbl1= label )? T_PAUSE (lbl2= label | char_literal_constant )? end_of_stmt
{
// FortranParser08.g:4133:9: (lbl1= label )?
int alt445=2;
int LA445_0 = input.LA(1);
if ( (LA445_0==T_DIGIT_STRING) ) {
alt445=1;
}
switch (alt445) {
case 1 :
// FortranParser08.g:4133:10: lbl1= label
{
pushFollow(FOLLOW_label_in_pause_stmt19603);
lbl1=label();
state._fsp--;
if (state.failed) return;
}
break;
}
T_PAUSE528=(Token)match(input,T_PAUSE,FOLLOW_T_PAUSE_in_pause_stmt19607); if (state.failed) return;
// FortranParser08.g:4133:31: (lbl2= label | char_literal_constant )?
int alt446=3;
int LA446_0 = input.LA(1);
if ( (LA446_0==T_DIGIT_STRING) ) {
int LA446_1 = input.LA(2);
if ( (LA446_1==T_UNDERSCORE) ) {
alt446=2;
}
else if ( (LA446_1==EOF||LA446_1==T_EOS) ) {
alt446=1;
}
}
else if ( (LA446_0==T_CHAR_CONSTANT||LA446_0==T_IDENT) ) {
alt446=2;
}
switch (alt446) {
case 1 :
// FortranParser08.g:4133:32: lbl2= label
{
pushFollow(FOLLOW_label_in_pause_stmt19612);
lbl2=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {tmpToken=lbl2;}
}
break;
case 2 :
// FortranParser08.g:4134:20: char_literal_constant
{
pushFollow(FOLLOW_char_literal_constant_in_pause_stmt19636);
char_literal_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {tmpToken=null;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_pause_stmt19642);
end_of_stmt529=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.pause_stmt(lbl1, T_PAUSE528, tmpToken,
end_of_stmt529); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "pause_stmt"
// $ANTLR start "arithmetic_if_stmt"
// FortranParser08.g:4141:1: arithmetic_if_stmt : (lbl= label )? T_ARITHMETIC_IF_STMT T_IF T_LPAREN expr T_RPAREN label1= label T_COMMA label2= label T_COMMA label3= label end_of_stmt ;
public final void arithmetic_if_stmt() throws RecognitionException {
Token T_IF530=null;
Token lbl =null;
Token label1 =null;
Token label2 =null;
Token label3 =null;
Token end_of_stmt531 =null;
try {
// FortranParser08.g:4143:2: ( (lbl= label )? T_ARITHMETIC_IF_STMT T_IF T_LPAREN expr T_RPAREN label1= label T_COMMA label2= label T_COMMA label3= label end_of_stmt )
// FortranParser08.g:4143:4: (lbl= label )? T_ARITHMETIC_IF_STMT T_IF T_LPAREN expr T_RPAREN label1= label T_COMMA label2= label T_COMMA label3= label end_of_stmt
{
// FortranParser08.g:4143:4: (lbl= label )?
int alt447=2;
int LA447_0 = input.LA(1);
if ( (LA447_0==T_DIGIT_STRING) ) {
alt447=1;
}
switch (alt447) {
case 1 :
// FortranParser08.g:4143:5: lbl= label
{
pushFollow(FOLLOW_label_in_arithmetic_if_stmt19680);
lbl=label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_ARITHMETIC_IF_STMT,FOLLOW_T_ARITHMETIC_IF_STMT_in_arithmetic_if_stmt19684); if (state.failed) return;
T_IF530=(Token)match(input,T_IF,FOLLOW_T_IF_in_arithmetic_if_stmt19686); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_arithmetic_if_stmt19690); if (state.failed) return;
pushFollow(FOLLOW_expr_in_arithmetic_if_stmt19692);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_arithmetic_if_stmt19694); if (state.failed) return;
pushFollow(FOLLOW_label_in_arithmetic_if_stmt19698);
label1=label();
state._fsp--;
if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_arithmetic_if_stmt19702); if (state.failed) return;
pushFollow(FOLLOW_label_in_arithmetic_if_stmt19706);
label2=label();
state._fsp--;
if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_arithmetic_if_stmt19710); if (state.failed) return;
pushFollow(FOLLOW_label_in_arithmetic_if_stmt19714);
label3=label();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_arithmetic_if_stmt19716);
end_of_stmt531=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.arithmetic_if_stmt(lbl, T_IF530, label1, label2, label3,
end_of_stmt531); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "arithmetic_if_stmt"
// $ANTLR start "continue_stmt"
// FortranParser08.g:4152:1: continue_stmt : ( label )? T_CONTINUE end_of_stmt ;
public final void continue_stmt() throws RecognitionException {
Token T_CONTINUE533=null;
Token label532 =null;
Token end_of_stmt534 =null;
Token lbl = null;
try {
// FortranParser08.g:4155:5: ( ( label )? T_CONTINUE end_of_stmt )
// FortranParser08.g:4155:7: ( label )? T_CONTINUE end_of_stmt
{
// FortranParser08.g:4155:7: ( label )?
int alt448=2;
int LA448_0 = input.LA(1);
if ( (LA448_0==T_DIGIT_STRING) ) {
alt448=1;
}
switch (alt448) {
case 1 :
// FortranParser08.g:4155:8: label
{
pushFollow(FOLLOW_label_in_continue_stmt19746);
label532=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label532;}
}
break;
}
T_CONTINUE533=(Token)match(input,T_CONTINUE,FOLLOW_T_CONTINUE_in_continue_stmt19752); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_continue_stmt19754);
end_of_stmt534=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.continue_stmt(lbl, T_CONTINUE533, end_of_stmt534); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "continue_stmt"
// $ANTLR start "stop_stmt"
// FortranParser08.g:4160:1: stop_stmt : ( label )? T_STOP ( stop_code )? end_of_stmt ;
public final void stop_stmt() throws RecognitionException {
Token T_STOP536=null;
Token label535 =null;
Token end_of_stmt537 =null;
Token lbl = null; boolean hasStopCode = false;
try {
// FortranParser08.g:4163:2: ( ( label )? T_STOP ( stop_code )? end_of_stmt )
// FortranParser08.g:4163:4: ( label )? T_STOP ( stop_code )? end_of_stmt
{
// FortranParser08.g:4163:4: ( label )?
int alt449=2;
int LA449_0 = input.LA(1);
if ( (LA449_0==T_DIGIT_STRING) ) {
alt449=1;
}
switch (alt449) {
case 1 :
// FortranParser08.g:4163:5: label
{
pushFollow(FOLLOW_label_in_stop_stmt19785);
label535=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label535;}
}
break;
}
T_STOP536=(Token)match(input,T_STOP,FOLLOW_T_STOP_in_stop_stmt19791); if (state.failed) return;
// FortranParser08.g:4163:37: ( stop_code )?
int alt450=2;
int LA450_0 = input.LA(1);
if ( (LA450_0==T_CHAR_CONSTANT||LA450_0==T_DIGIT_STRING||LA450_0==T_IDENT) ) {
alt450=1;
}
switch (alt450) {
case 1 :
// FortranParser08.g:4163:38: stop_code
{
pushFollow(FOLLOW_stop_code_in_stop_stmt19794);
stop_code();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasStopCode=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_stop_stmt19813);
end_of_stmt537=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.stop_stmt(lbl, T_STOP536, end_of_stmt537, hasStopCode); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "stop_stmt"
// $ANTLR start "stop_code"
// FortranParser08.g:4170:1: stop_code : ( scalar_char_constant | T_DIGIT_STRING );
public final void stop_code() throws RecognitionException {
Token T_DIGIT_STRING538=null;
try {
// FortranParser08.g:4171:5: ( scalar_char_constant | T_DIGIT_STRING )
int alt451=2;
int LA451_0 = input.LA(1);
if ( (LA451_0==T_DIGIT_STRING) ) {
int LA451_1 = input.LA(2);
if ( (LA451_1==T_UNDERSCORE) ) {
alt451=1;
}
else if ( (LA451_1==EOF||LA451_1==T_EOS) ) {
alt451=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 451, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA451_0==T_CHAR_CONSTANT||LA451_0==T_IDENT) ) {
alt451=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 451, 0, input);
throw nvae;
}
switch (alt451) {
case 1 :
// FortranParser08.g:4171:7: scalar_char_constant
{
pushFollow(FOLLOW_scalar_char_constant_in_stop_code19834);
scalar_char_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.stop_code(null); }
}
break;
case 2 :
// FortranParser08.g:4174:7: T_DIGIT_STRING
{
T_DIGIT_STRING538=(Token)match(input,T_DIGIT_STRING,FOLLOW_T_DIGIT_STRING_in_stop_code19853); if (state.failed) return;
if ( state.backtracking==0 ) { action.stop_code(T_DIGIT_STRING538); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "stop_code"
// $ANTLR start "errorstop_stmt"
// FortranParser08.g:4186:1: errorstop_stmt : ( label )? T_ERROR T_STOP ( stop_code )? end_of_stmt ;
public final void errorstop_stmt() throws RecognitionException {
Token T_ERROR540=null;
Token T_STOP541=null;
Token label539 =null;
Token end_of_stmt542 =null;
Token lbl = null; boolean hasStopCode = false;
try {
// FortranParser08.g:4189:4: ( ( label )? T_ERROR T_STOP ( stop_code )? end_of_stmt )
// FortranParser08.g:4189:8: ( label )? T_ERROR T_STOP ( stop_code )? end_of_stmt
{
// FortranParser08.g:4189:8: ( label )?
int alt452=2;
int LA452_0 = input.LA(1);
if ( (LA452_0==T_DIGIT_STRING) ) {
alt452=1;
}
switch (alt452) {
case 1 :
// FortranParser08.g:4189:9: label
{
pushFollow(FOLLOW_label_in_errorstop_stmt19895);
label539=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label539;}
}
break;
}
T_ERROR540=(Token)match(input,T_ERROR,FOLLOW_T_ERROR_in_errorstop_stmt19901); if (state.failed) return;
T_STOP541=(Token)match(input,T_STOP,FOLLOW_T_STOP_in_errorstop_stmt19903); if (state.failed) return;
// FortranParser08.g:4189:49: ( stop_code )?
int alt453=2;
int LA453_0 = input.LA(1);
if ( (LA453_0==T_CHAR_CONSTANT||LA453_0==T_DIGIT_STRING||LA453_0==T_IDENT) ) {
alt453=1;
}
switch (alt453) {
case 1 :
// FortranParser08.g:4189:50: stop_code
{
pushFollow(FOLLOW_stop_code_in_errorstop_stmt19906);
stop_code();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasStopCode=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_errorstop_stmt19920);
end_of_stmt542=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.errorstop_stmt(lbl, T_ERROR540, T_STOP541, end_of_stmt542, hasStopCode); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "errorstop_stmt"
// $ANTLR start "sync_all_stmt"
// FortranParser08.g:4202:1: sync_all_stmt : ( ( label )? T_SYNC T_ALL ( T_LPAREN T_RPAREN )? end_of_stmt | ( label )? T_SYNC T_ALL T_LPAREN sync_stat_list T_RPAREN end_of_stmt );
public final void sync_all_stmt() throws RecognitionException {
Token T_SYNC544=null;
Token T_ALL545=null;
Token T_SYNC548=null;
Token T_ALL549=null;
Token label543 =null;
Token end_of_stmt546 =null;
Token label547 =null;
Token end_of_stmt550 =null;
Token lbl = null; boolean hasSyncStatList = false;
try {
// FortranParser08.g:4205:4: ( ( label )? T_SYNC T_ALL ( T_LPAREN T_RPAREN )? end_of_stmt | ( label )? T_SYNC T_ALL T_LPAREN sync_stat_list T_RPAREN end_of_stmt )
int alt457=2;
int LA457_0 = input.LA(1);
if ( (LA457_0==T_DIGIT_STRING) ) {
int LA457_1 = input.LA(2);
if ( (LA457_1==T_SYNC) ) {
int LA457_2 = input.LA(3);
if ( (LA457_2==T_ALL) ) {
int LA457_3 = input.LA(4);
if ( (LA457_3==T_LPAREN) ) {
int LA457_4 = input.LA(5);
if ( (LA457_4==T_RPAREN) ) {
alt457=1;
}
else if ( (LA457_4==T_IDENT) ) {
alt457=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 5 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 457, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA457_3==EOF||LA457_3==T_EOS) ) {
alt457=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 457, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 457, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 457, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA457_0==T_SYNC) ) {
int LA457_2 = input.LA(2);
if ( (LA457_2==T_ALL) ) {
int LA457_3 = input.LA(3);
if ( (LA457_3==T_LPAREN) ) {
int LA457_4 = input.LA(4);
if ( (LA457_4==T_RPAREN) ) {
alt457=1;
}
else if ( (LA457_4==T_IDENT) ) {
alt457=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 457, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA457_3==EOF||LA457_3==T_EOS) ) {
alt457=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 457, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 457, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 457, 0, input);
throw nvae;
}
switch (alt457) {
case 1 :
// FortranParser08.g:4205:8: ( label )? T_SYNC T_ALL ( T_LPAREN T_RPAREN )? end_of_stmt
{
// FortranParser08.g:4205:8: ( label )?
int alt454=2;
int LA454_0 = input.LA(1);
if ( (LA454_0==T_DIGIT_STRING) ) {
alt454=1;
}
switch (alt454) {
case 1 :
// FortranParser08.g:4205:9: label
{
pushFollow(FOLLOW_label_in_sync_all_stmt19966);
label543=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label543;}
}
break;
}
T_SYNC544=(Token)match(input,T_SYNC,FOLLOW_T_SYNC_in_sync_all_stmt19972); if (state.failed) return;
T_ALL545=(Token)match(input,T_ALL,FOLLOW_T_ALL_in_sync_all_stmt19974); if (state.failed) return;
// FortranParser08.g:4206:8: ( T_LPAREN T_RPAREN )?
int alt455=2;
int LA455_0 = input.LA(1);
if ( (LA455_0==T_LPAREN) ) {
alt455=1;
}
switch (alt455) {
case 1 :
// FortranParser08.g:4206:9: T_LPAREN T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_sync_all_stmt19984); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_sync_all_stmt19986); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_sync_all_stmt19990);
end_of_stmt546=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.sync_all_stmt(lbl, T_SYNC544, T_ALL545, end_of_stmt546, hasSyncStatList); }
}
break;
case 2 :
// FortranParser08.g:4208:8: ( label )? T_SYNC T_ALL T_LPAREN sync_stat_list T_RPAREN end_of_stmt
{
// FortranParser08.g:4208:8: ( label )?
int alt456=2;
int LA456_0 = input.LA(1);
if ( (LA456_0==T_DIGIT_STRING) ) {
alt456=1;
}
switch (alt456) {
case 1 :
// FortranParser08.g:4208:9: label
{
pushFollow(FOLLOW_label_in_sync_all_stmt20015);
label547=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label547;}
}
break;
}
T_SYNC548=(Token)match(input,T_SYNC,FOLLOW_T_SYNC_in_sync_all_stmt20021); if (state.failed) return;
T_ALL549=(Token)match(input,T_ALL,FOLLOW_T_ALL_in_sync_all_stmt20023); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_sync_all_stmt20032); if (state.failed) return;
pushFollow(FOLLOW_sync_stat_list_in_sync_all_stmt20034);
sync_stat_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_sync_all_stmt20036); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_sync_all_stmt20038);
end_of_stmt550=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.sync_all_stmt(lbl, T_SYNC548, T_ALL549, end_of_stmt550, true); }
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "sync_all_stmt"
// $ANTLR start "sync_stat"
// FortranParser08.g:4223:1: sync_stat : T_IDENT T_EQUALS expr ;
public final void sync_stat() throws RecognitionException {
Token T_IDENT551=null;
try {
// FortranParser08.g:4224:5: ( T_IDENT T_EQUALS expr )
// FortranParser08.g:4224:10: T_IDENT T_EQUALS expr
{
T_IDENT551=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_sync_stat20080); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_sync_stat20082); if (state.failed) return;
pushFollow(FOLLOW_expr_in_sync_stat20084);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.sync_stat(T_IDENT551); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "sync_stat"
// $ANTLR start "sync_stat_list"
// FortranParser08.g:4229:1: sync_stat_list : sync_stat ( T_COMMA sync_stat )* ;
public final void sync_stat_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:4231:4: ( sync_stat ( T_COMMA sync_stat )* )
// FortranParser08.g:4231:12: sync_stat ( T_COMMA sync_stat )*
{
if ( state.backtracking==0 ) {action.sync_stat_list__begin();}
pushFollow(FOLLOW_sync_stat_in_sync_stat_list20153);
sync_stat();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:4232:29: ( T_COMMA sync_stat )*
loop458:
while (true) {
int alt458=2;
int LA458_0 = input.LA(1);
if ( (LA458_0==T_COMMA) ) {
alt458=1;
}
switch (alt458) {
case 1 :
// FortranParser08.g:4232:31: T_COMMA sync_stat
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_sync_stat_list20159); if (state.failed) return;
pushFollow(FOLLOW_sync_stat_in_sync_stat_list20161);
sync_stat();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop458;
}
}
if ( state.backtracking==0 ) {action.sync_stat_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "sync_stat_list"
// $ANTLR start "sync_images_stmt"
// FortranParser08.g:4245:1: sync_images_stmt : ( label )? T_SYNC T_IMAGES T_LPAREN image_set ( T_COMMA sync_stat_list )? T_RPAREN end_of_stmt ;
public final void sync_images_stmt() throws RecognitionException {
Token T_SYNC553=null;
Token T_IMAGES554=null;
Token label552 =null;
Token end_of_stmt555 =null;
Token lbl = null; boolean hasSyncStatList = false;
try {
// FortranParser08.g:4248:4: ( ( label )? T_SYNC T_IMAGES T_LPAREN image_set ( T_COMMA sync_stat_list )? T_RPAREN end_of_stmt )
// FortranParser08.g:4248:8: ( label )? T_SYNC T_IMAGES T_LPAREN image_set ( T_COMMA sync_stat_list )? T_RPAREN end_of_stmt
{
// FortranParser08.g:4248:8: ( label )?
int alt459=2;
int LA459_0 = input.LA(1);
if ( (LA459_0==T_DIGIT_STRING) ) {
alt459=1;
}
switch (alt459) {
case 1 :
// FortranParser08.g:4248:9: label
{
pushFollow(FOLLOW_label_in_sync_images_stmt20214);
label552=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label552;}
}
break;
}
T_SYNC553=(Token)match(input,T_SYNC,FOLLOW_T_SYNC_in_sync_images_stmt20220); if (state.failed) return;
T_IMAGES554=(Token)match(input,T_IMAGES,FOLLOW_T_IMAGES_in_sync_images_stmt20222); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_sync_images_stmt20231); if (state.failed) return;
pushFollow(FOLLOW_image_set_in_sync_images_stmt20233);
image_set();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:4249:27: ( T_COMMA sync_stat_list )?
int alt460=2;
int LA460_0 = input.LA(1);
if ( (LA460_0==T_COMMA) ) {
alt460=1;
}
switch (alt460) {
case 1 :
// FortranParser08.g:4249:28: T_COMMA sync_stat_list
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_sync_images_stmt20236); if (state.failed) return;
pushFollow(FOLLOW_sync_stat_list_in_sync_images_stmt20238);
sync_stat_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasSyncStatList=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_sync_images_stmt20244); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_sync_images_stmt20253);
end_of_stmt555=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.sync_images_stmt(lbl, T_SYNC553, T_IMAGES554, end_of_stmt555, hasSyncStatList); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "sync_images_stmt"
// $ANTLR start "image_set"
// FortranParser08.g:4264:1: image_set : ( expr | T_ASTERISK );
public final void image_set() throws RecognitionException {
Token T_ASTERISK556=null;
Token asterisk = null; boolean hasIntExpr = false;
try {
// FortranParser08.g:4266:4: ( expr | T_ASTERISK )
int alt461=2;
int LA461_0 = input.LA(1);
if ( (LA461_0==BINARY_CONSTANT||LA461_0==HEX_CONSTANT||LA461_0==OCTAL_CONSTANT||LA461_0==T_CHAR_CONSTANT||(LA461_0 >= T_DEFINED_OP && LA461_0 <= T_DIGIT_STRING)||LA461_0==T_FALSE||(LA461_0 >= T_HOLLERITH && LA461_0 <= T_IDENT)||LA461_0==T_LBRACKET||LA461_0==T_LPAREN||LA461_0==T_MINUS||LA461_0==T_NOT||LA461_0==T_PLUS||LA461_0==T_REAL_CONSTANT||LA461_0==T_TRUE) ) {
alt461=1;
}
else if ( (LA461_0==T_ASTERISK) ) {
alt461=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 461, 0, input);
throw nvae;
}
switch (alt461) {
case 1 :
// FortranParser08.g:4266:8: expr
{
pushFollow(FOLLOW_expr_in_image_set20298);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { hasIntExpr = true; action.image_set(asterisk, hasIntExpr); }
}
break;
case 2 :
// FortranParser08.g:4268:8: T_ASTERISK
{
T_ASTERISK556=(Token)match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_image_set20323); if (state.failed) return;
if ( state.backtracking==0 ) { asterisk = T_ASTERISK556; action.image_set(asterisk, hasIntExpr); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "image_set"
// $ANTLR start "sync_memory_stmt"
// FortranParser08.g:4281:1: sync_memory_stmt : ( ( label )? T_SYNC T_MEMORY ( T_LPAREN T_RPAREN )? end_of_stmt | ( label )? T_SYNC T_MEMORY T_LPAREN sync_stat_list T_RPAREN end_of_stmt );
public final void sync_memory_stmt() throws RecognitionException {
Token T_SYNC558=null;
Token T_MEMORY559=null;
Token T_SYNC562=null;
Token T_MEMORY563=null;
Token label557 =null;
Token end_of_stmt560 =null;
Token label561 =null;
Token end_of_stmt564 =null;
Token lbl = null; boolean hasSyncStatList = false;
try {
// FortranParser08.g:4284:4: ( ( label )? T_SYNC T_MEMORY ( T_LPAREN T_RPAREN )? end_of_stmt | ( label )? T_SYNC T_MEMORY T_LPAREN sync_stat_list T_RPAREN end_of_stmt )
int alt465=2;
int LA465_0 = input.LA(1);
if ( (LA465_0==T_DIGIT_STRING) ) {
int LA465_1 = input.LA(2);
if ( (LA465_1==T_SYNC) ) {
int LA465_2 = input.LA(3);
if ( (LA465_2==T_MEMORY) ) {
int LA465_3 = input.LA(4);
if ( (LA465_3==T_LPAREN) ) {
int LA465_4 = input.LA(5);
if ( (LA465_4==T_RPAREN) ) {
alt465=1;
}
else if ( (LA465_4==T_IDENT) ) {
alt465=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 5 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 465, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA465_3==EOF||LA465_3==T_EOS) ) {
alt465=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 465, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 465, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 465, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA465_0==T_SYNC) ) {
int LA465_2 = input.LA(2);
if ( (LA465_2==T_MEMORY) ) {
int LA465_3 = input.LA(3);
if ( (LA465_3==T_LPAREN) ) {
int LA465_4 = input.LA(4);
if ( (LA465_4==T_RPAREN) ) {
alt465=1;
}
else if ( (LA465_4==T_IDENT) ) {
alt465=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 465, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA465_3==EOF||LA465_3==T_EOS) ) {
alt465=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 465, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 465, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 465, 0, input);
throw nvae;
}
switch (alt465) {
case 1 :
// FortranParser08.g:4284:8: ( label )? T_SYNC T_MEMORY ( T_LPAREN T_RPAREN )? end_of_stmt
{
// FortranParser08.g:4284:8: ( label )?
int alt462=2;
int LA462_0 = input.LA(1);
if ( (LA462_0==T_DIGIT_STRING) ) {
alt462=1;
}
switch (alt462) {
case 1 :
// FortranParser08.g:4284:9: label
{
pushFollow(FOLLOW_label_in_sync_memory_stmt20373);
label557=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label557;}
}
break;
}
T_SYNC558=(Token)match(input,T_SYNC,FOLLOW_T_SYNC_in_sync_memory_stmt20379); if (state.failed) return;
T_MEMORY559=(Token)match(input,T_MEMORY,FOLLOW_T_MEMORY_in_sync_memory_stmt20381); if (state.failed) return;
// FortranParser08.g:4285:8: ( T_LPAREN T_RPAREN )?
int alt463=2;
int LA463_0 = input.LA(1);
if ( (LA463_0==T_LPAREN) ) {
alt463=1;
}
switch (alt463) {
case 1 :
// FortranParser08.g:4285:9: T_LPAREN T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_sync_memory_stmt20391); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_sync_memory_stmt20393); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_sync_memory_stmt20397);
end_of_stmt560=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.sync_memory_stmt(lbl, T_SYNC558, T_MEMORY559, end_of_stmt560, hasSyncStatList); }
}
break;
case 2 :
// FortranParser08.g:4287:8: ( label )? T_SYNC T_MEMORY T_LPAREN sync_stat_list T_RPAREN end_of_stmt
{
// FortranParser08.g:4287:8: ( label )?
int alt464=2;
int LA464_0 = input.LA(1);
if ( (LA464_0==T_DIGIT_STRING) ) {
alt464=1;
}
switch (alt464) {
case 1 :
// FortranParser08.g:4287:9: label
{
pushFollow(FOLLOW_label_in_sync_memory_stmt20422);
label561=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label561;}
}
break;
}
T_SYNC562=(Token)match(input,T_SYNC,FOLLOW_T_SYNC_in_sync_memory_stmt20428); if (state.failed) return;
T_MEMORY563=(Token)match(input,T_MEMORY,FOLLOW_T_MEMORY_in_sync_memory_stmt20430); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_sync_memory_stmt20439); if (state.failed) return;
pushFollow(FOLLOW_sync_stat_list_in_sync_memory_stmt20441);
sync_stat_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_sync_memory_stmt20443); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_sync_memory_stmt20445);
end_of_stmt564=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.sync_memory_stmt(lbl, T_SYNC562, T_MEMORY563, end_of_stmt564, true); }
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "sync_memory_stmt"
// $ANTLR start "lock_stmt"
// FortranParser08.g:4302:1: lock_stmt : ( label )? T_LOCK T_LPAREN variable ( T_COMMA lock_stat_list )? T_RPAREN end_of_stmt ;
public final void lock_stmt() throws RecognitionException {
Token T_LOCK566=null;
Token label565 =null;
Token end_of_stmt567 =null;
Token lbl = null; boolean hasLockStatList = false;
try {
// FortranParser08.g:4305:5: ( ( label )? T_LOCK T_LPAREN variable ( T_COMMA lock_stat_list )? T_RPAREN end_of_stmt )
// FortranParser08.g:4305:10: ( label )? T_LOCK T_LPAREN variable ( T_COMMA lock_stat_list )? T_RPAREN end_of_stmt
{
// FortranParser08.g:4305:10: ( label )?
int alt466=2;
int LA466_0 = input.LA(1);
if ( (LA466_0==T_DIGIT_STRING) ) {
alt466=1;
}
switch (alt466) {
case 1 :
// FortranParser08.g:4305:11: label
{
pushFollow(FOLLOW_label_in_lock_stmt20498);
label565=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label565;}
}
break;
}
T_LOCK566=(Token)match(input,T_LOCK,FOLLOW_T_LOCK_in_lock_stmt20504); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_lock_stmt20506); if (state.failed) return;
pushFollow(FOLLOW_variable_in_lock_stmt20508);
variable();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:4306:14: ( T_COMMA lock_stat_list )?
int alt467=2;
int LA467_0 = input.LA(1);
if ( (LA467_0==T_COMMA) ) {
alt467=1;
}
switch (alt467) {
case 1 :
// FortranParser08.g:4306:15: T_COMMA lock_stat_list
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_lock_stmt20524); if (state.failed) return;
pushFollow(FOLLOW_lock_stat_list_in_lock_stmt20526);
lock_stat_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasLockStatList=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_lock_stmt20532); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_lock_stmt20547);
end_of_stmt567=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.lock_stmt(lbl, T_LOCK566, end_of_stmt567, hasLockStatList); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "lock_stmt"
// $ANTLR start "lock_stat"
// FortranParser08.g:4321:1: lock_stat : ( T_ACQUIRED_LOCK T_EQUALS expr | sync_stat );
public final void lock_stat() throws RecognitionException {
Token T_ACQUIRED_LOCK568=null;
try {
// FortranParser08.g:4322:4: ( T_ACQUIRED_LOCK T_EQUALS expr | sync_stat )
int alt468=2;
int LA468_0 = input.LA(1);
if ( (LA468_0==T_ACQUIRED_LOCK) ) {
alt468=1;
}
else if ( (LA468_0==T_IDENT) ) {
alt468=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 468, 0, input);
throw nvae;
}
switch (alt468) {
case 1 :
// FortranParser08.g:4322:8: T_ACQUIRED_LOCK T_EQUALS expr
{
T_ACQUIRED_LOCK568=(Token)match(input,T_ACQUIRED_LOCK,FOLLOW_T_ACQUIRED_LOCK_in_lock_stat20589); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_lock_stat20591); if (state.failed) return;
pushFollow(FOLLOW_expr_in_lock_stat20593);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.lock_stat(T_ACQUIRED_LOCK568); }
}
break;
case 2 :
// FortranParser08.g:4324:8: sync_stat
{
pushFollow(FOLLOW_sync_stat_in_lock_stat20618);
sync_stat();
state._fsp--;
if (state.failed) return;
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "lock_stat"
// $ANTLR start "lock_stat_list"
// FortranParser08.g:4327:1: lock_stat_list : lock_stat ( T_COMMA lock_stat )* ;
public final void lock_stat_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:4329:5: ( lock_stat ( T_COMMA lock_stat )* )
// FortranParser08.g:4329:13: lock_stat ( T_COMMA lock_stat )*
{
if ( state.backtracking==0 ) {action.lock_stat_list__begin();}
pushFollow(FOLLOW_lock_stat_in_lock_stat_list20654);
lock_stat();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:4330:30: ( T_COMMA lock_stat )*
loop469:
while (true) {
int alt469=2;
int LA469_0 = input.LA(1);
if ( (LA469_0==T_COMMA) ) {
alt469=1;
}
switch (alt469) {
case 1 :
// FortranParser08.g:4330:32: T_COMMA lock_stat
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_lock_stat_list20660); if (state.failed) return;
pushFollow(FOLLOW_lock_stat_in_lock_stat_list20662);
lock_stat();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop469;
}
}
if ( state.backtracking==0 ) {action.lock_stat_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "lock_stat_list"
// $ANTLR start "unlock_stmt"
// FortranParser08.g:4343:1: unlock_stmt : ( label )? T_UNLOCK T_LPAREN variable ( T_COMMA sync_stat_list )? T_RPAREN end_of_stmt ;
public final void unlock_stmt() throws RecognitionException {
Token T_UNLOCK570=null;
Token label569 =null;
Token end_of_stmt571 =null;
Token lbl = null; boolean hasSyncStatList = false;
try {
// FortranParser08.g:4346:4: ( ( label )? T_UNLOCK T_LPAREN variable ( T_COMMA sync_stat_list )? T_RPAREN end_of_stmt )
// FortranParser08.g:4346:8: ( label )? T_UNLOCK T_LPAREN variable ( T_COMMA sync_stat_list )? T_RPAREN end_of_stmt
{
// FortranParser08.g:4346:8: ( label )?
int alt470=2;
int LA470_0 = input.LA(1);
if ( (LA470_0==T_DIGIT_STRING) ) {
alt470=1;
}
switch (alt470) {
case 1 :
// FortranParser08.g:4346:9: label
{
pushFollow(FOLLOW_label_in_unlock_stmt20717);
label569=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label569;}
}
break;
}
T_UNLOCK570=(Token)match(input,T_UNLOCK,FOLLOW_T_UNLOCK_in_unlock_stmt20730); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_unlock_stmt20732); if (state.failed) return;
pushFollow(FOLLOW_variable_in_unlock_stmt20734);
variable();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:4347:35: ( T_COMMA sync_stat_list )?
int alt471=2;
int LA471_0 = input.LA(1);
if ( (LA471_0==T_COMMA) ) {
alt471=1;
}
switch (alt471) {
case 1 :
// FortranParser08.g:4347:36: T_COMMA sync_stat_list
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_unlock_stmt20737); if (state.failed) return;
pushFollow(FOLLOW_sync_stat_list_in_unlock_stmt20739);
sync_stat_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasSyncStatList=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_unlock_stmt20761); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_unlock_stmt20763);
end_of_stmt571=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.unlock_stmt(lbl, T_UNLOCK570, end_of_stmt571, hasSyncStatList);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "unlock_stmt"
// $ANTLR start "scalar_char_constant"
// FortranParser08.g:4352:1: scalar_char_constant : char_constant ;
public final void scalar_char_constant() throws RecognitionException {
try {
// FortranParser08.g:4353:5: ( char_constant )
// FortranParser08.g:4353:10: char_constant
{
pushFollow(FOLLOW_char_constant_in_scalar_char_constant20795);
char_constant();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.scalar_char_constant(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "scalar_char_constant"
// $ANTLR start "io_unit"
// FortranParser08.g:4364:1: io_unit : ( expr | T_ASTERISK );
public final void io_unit() throws RecognitionException {
try {
// FortranParser08.g:4368:2: ( expr | T_ASTERISK )
int alt472=2;
int LA472_0 = input.LA(1);
if ( (LA472_0==BINARY_CONSTANT||LA472_0==HEX_CONSTANT||LA472_0==OCTAL_CONSTANT||LA472_0==T_CHAR_CONSTANT||(LA472_0 >= T_DEFINED_OP && LA472_0 <= T_DIGIT_STRING)||LA472_0==T_FALSE||(LA472_0 >= T_HOLLERITH && LA472_0 <= T_IDENT)||LA472_0==T_LBRACKET||LA472_0==T_LPAREN||LA472_0==T_MINUS||LA472_0==T_NOT||LA472_0==T_PLUS||LA472_0==T_REAL_CONSTANT||LA472_0==T_TRUE) ) {
alt472=1;
}
else if ( (LA472_0==T_ASTERISK) ) {
alt472=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 472, 0, input);
throw nvae;
}
switch (alt472) {
case 1 :
// FortranParser08.g:4368:4: expr
{
pushFollow(FOLLOW_expr_in_io_unit20838);
expr();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:4369:4: T_ASTERISK
{
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_io_unit20843); if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.io_unit();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "io_unit"
// $ANTLR start "file_unit_number"
// FortranParser08.g:4374:1: file_unit_number : expr ;
public final void file_unit_number() throws RecognitionException {
try {
// FortranParser08.g:4378:2: ( expr )
// FortranParser08.g:4378:4: expr
{
pushFollow(FOLLOW_expr_in_file_unit_number20861);
expr();
state._fsp--;
if (state.failed) return;
}
if ( state.backtracking==0 ) {
action.file_unit_number();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "file_unit_number"
// $ANTLR start "open_stmt"
// FortranParser08.g:4385:1: open_stmt : ( label )? T_OPEN T_LPAREN connect_spec_list T_RPAREN end_of_stmt ;
public final void open_stmt() throws RecognitionException {
Token T_OPEN573=null;
Token label572 =null;
Token end_of_stmt574 =null;
Token lbl = null;
try {
// FortranParser08.g:4388:2: ( ( label )? T_OPEN T_LPAREN connect_spec_list T_RPAREN end_of_stmt )
// FortranParser08.g:4388:4: ( label )? T_OPEN T_LPAREN connect_spec_list T_RPAREN end_of_stmt
{
// FortranParser08.g:4388:4: ( label )?
int alt473=2;
int LA473_0 = input.LA(1);
if ( (LA473_0==T_DIGIT_STRING) ) {
alt473=1;
}
switch (alt473) {
case 1 :
// FortranParser08.g:4388:5: label
{
pushFollow(FOLLOW_label_in_open_stmt20886);
label572=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label572;}
}
break;
}
T_OPEN573=(Token)match(input,T_OPEN,FOLLOW_T_OPEN_in_open_stmt20892); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_open_stmt20894); if (state.failed) return;
pushFollow(FOLLOW_connect_spec_list_in_open_stmt20896);
connect_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_open_stmt20911); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_open_stmt20913);
end_of_stmt574=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.open_stmt(lbl, T_OPEN573, end_of_stmt574);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "open_stmt"
// $ANTLR start "connect_spec"
// FortranParser08.g:4395:1: connect_spec : ( expr | T_IDENT T_EQUALS expr );
public final void connect_spec() throws RecognitionException {
Token T_IDENT575=null;
try {
// FortranParser08.g:4396:5: ( expr | T_IDENT T_EQUALS expr )
int alt474=2;
int LA474_0 = input.LA(1);
if ( (LA474_0==BINARY_CONSTANT||LA474_0==HEX_CONSTANT||LA474_0==OCTAL_CONSTANT||LA474_0==T_CHAR_CONSTANT||(LA474_0 >= T_DEFINED_OP && LA474_0 <= T_DIGIT_STRING)||LA474_0==T_FALSE||LA474_0==T_HOLLERITH||LA474_0==T_LBRACKET||LA474_0==T_LPAREN||LA474_0==T_MINUS||LA474_0==T_NOT||LA474_0==T_PLUS||LA474_0==T_REAL_CONSTANT||LA474_0==T_TRUE) ) {
alt474=1;
}
else if ( (LA474_0==T_IDENT) ) {
int LA474_2 = input.LA(2);
if ( (LA474_2==T_AND||LA474_2==T_ASTERISK||LA474_2==T_CHAR_CONSTANT||LA474_2==T_COMMA||LA474_2==T_DEFINED_OP||LA474_2==T_EQ||(LA474_2 >= T_EQV && LA474_2 <= T_EQ_EQ)||LA474_2==T_GE||(LA474_2 >= T_GREATERTHAN && LA474_2 <= T_GT)||(LA474_2 >= T_LBRACKET && LA474_2 <= T_LE)||(LA474_2 >= T_LESSTHAN && LA474_2 <= T_LESSTHAN_EQ)||(LA474_2 >= T_LPAREN && LA474_2 <= T_LT)||LA474_2==T_MINUS||(LA474_2 >= T_NE && LA474_2 <= T_NEQV)||LA474_2==T_OR||LA474_2==T_PERCENT||LA474_2==T_PLUS||LA474_2==T_POWER||LA474_2==T_RPAREN||(LA474_2 >= T_SLASH && LA474_2 <= T_SLASH_SLASH)) ) {
alt474=1;
}
else if ( (LA474_2==T_EQUALS) ) {
alt474=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 474, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 474, 0, input);
throw nvae;
}
switch (alt474) {
case 1 :
// FortranParser08.g:4396:7: expr
{
pushFollow(FOLLOW_expr_in_connect_spec20934);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.connect_spec(null); }
}
break;
case 2 :
// FortranParser08.g:4398:7: T_IDENT T_EQUALS expr
{
T_IDENT575=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_connect_spec20956); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_connect_spec21024); if (state.failed) return;
pushFollow(FOLLOW_expr_in_connect_spec21026);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.connect_spec(T_IDENT575); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "connect_spec"
// $ANTLR start "connect_spec_list"
// FortranParser08.g:4409:1: connect_spec_list : connect_spec ( T_COMMA connect_spec )* ;
public final void connect_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:4411:5: ( connect_spec ( T_COMMA connect_spec )* )
// FortranParser08.g:4411:10: connect_spec ( T_COMMA connect_spec )*
{
if ( state.backtracking==0 ) {action.connect_spec_list__begin();}
pushFollow(FOLLOW_connect_spec_in_connect_spec_list21068);
connect_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:4412:27: ( T_COMMA connect_spec )*
loop475:
while (true) {
int alt475=2;
int LA475_0 = input.LA(1);
if ( (LA475_0==T_COMMA) ) {
alt475=1;
}
switch (alt475) {
case 1 :
// FortranParser08.g:4412:29: T_COMMA connect_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_connect_spec_list21074); if (state.failed) return;
pushFollow(FOLLOW_connect_spec_in_connect_spec_list21076);
connect_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop475;
}
}
if ( state.backtracking==0 ) {action.connect_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "connect_spec_list"
// $ANTLR start "close_stmt"
// FortranParser08.g:4424:1: close_stmt : ( label )? T_CLOSE T_LPAREN close_spec_list T_RPAREN end_of_stmt ;
public final void close_stmt() throws RecognitionException {
Token T_CLOSE577=null;
Token label576 =null;
Token end_of_stmt578 =null;
Token lbl = null;
try {
// FortranParser08.g:4427:2: ( ( label )? T_CLOSE T_LPAREN close_spec_list T_RPAREN end_of_stmt )
// FortranParser08.g:4427:4: ( label )? T_CLOSE T_LPAREN close_spec_list T_RPAREN end_of_stmt
{
// FortranParser08.g:4427:4: ( label )?
int alt476=2;
int LA476_0 = input.LA(1);
if ( (LA476_0==T_DIGIT_STRING) ) {
alt476=1;
}
switch (alt476) {
case 1 :
// FortranParser08.g:4427:5: label
{
pushFollow(FOLLOW_label_in_close_stmt21123);
label576=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label576;}
}
break;
}
T_CLOSE577=(Token)match(input,T_CLOSE,FOLLOW_T_CLOSE_in_close_stmt21129); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_close_stmt21131); if (state.failed) return;
pushFollow(FOLLOW_close_spec_list_in_close_stmt21133);
close_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_close_stmt21148); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_close_stmt21150);
end_of_stmt578=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.close_stmt(lbl, T_CLOSE577, end_of_stmt578);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "close_stmt"
// $ANTLR start "close_spec"
// FortranParser08.g:4435:1: close_spec : ( expr | T_IDENT T_EQUALS expr );
public final void close_spec() throws RecognitionException {
Token T_IDENT579=null;
try {
// FortranParser08.g:4436:2: ( expr | T_IDENT T_EQUALS expr )
int alt477=2;
int LA477_0 = input.LA(1);
if ( (LA477_0==BINARY_CONSTANT||LA477_0==HEX_CONSTANT||LA477_0==OCTAL_CONSTANT||LA477_0==T_CHAR_CONSTANT||(LA477_0 >= T_DEFINED_OP && LA477_0 <= T_DIGIT_STRING)||LA477_0==T_FALSE||LA477_0==T_HOLLERITH||LA477_0==T_LBRACKET||LA477_0==T_LPAREN||LA477_0==T_MINUS||LA477_0==T_NOT||LA477_0==T_PLUS||LA477_0==T_REAL_CONSTANT||LA477_0==T_TRUE) ) {
alt477=1;
}
else if ( (LA477_0==T_IDENT) ) {
int LA477_2 = input.LA(2);
if ( (LA477_2==T_AND||LA477_2==T_ASTERISK||LA477_2==T_CHAR_CONSTANT||LA477_2==T_COMMA||LA477_2==T_DEFINED_OP||LA477_2==T_EQ||(LA477_2 >= T_EQV && LA477_2 <= T_EQ_EQ)||LA477_2==T_GE||(LA477_2 >= T_GREATERTHAN && LA477_2 <= T_GT)||(LA477_2 >= T_LBRACKET && LA477_2 <= T_LE)||(LA477_2 >= T_LESSTHAN && LA477_2 <= T_LESSTHAN_EQ)||(LA477_2 >= T_LPAREN && LA477_2 <= T_LT)||LA477_2==T_MINUS||(LA477_2 >= T_NE && LA477_2 <= T_NEQV)||LA477_2==T_OR||LA477_2==T_PERCENT||LA477_2==T_PLUS||LA477_2==T_POWER||LA477_2==T_RPAREN||(LA477_2 >= T_SLASH && LA477_2 <= T_SLASH_SLASH)) ) {
alt477=1;
}
else if ( (LA477_2==T_EQUALS) ) {
alt477=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 477, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 477, 0, input);
throw nvae;
}
switch (alt477) {
case 1 :
// FortranParser08.g:4436:4: expr
{
pushFollow(FOLLOW_expr_in_close_spec21169);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.close_spec(null); }
}
break;
case 2 :
// FortranParser08.g:4438:4: T_IDENT T_EQUALS expr
{
T_IDENT579=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_close_spec21188); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_close_spec21192); if (state.failed) return;
pushFollow(FOLLOW_expr_in_close_spec21194);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.close_spec(T_IDENT579); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "close_spec"
// $ANTLR start "close_spec_list"
// FortranParser08.g:4442:1: close_spec_list : close_spec ( T_COMMA close_spec )* ;
public final void close_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:4444:5: ( close_spec ( T_COMMA close_spec )* )
// FortranParser08.g:4444:10: close_spec ( T_COMMA close_spec )*
{
if ( state.backtracking==0 ) {action.close_spec_list__begin();}
pushFollow(FOLLOW_close_spec_in_close_spec_list21233);
close_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:4445:25: ( T_COMMA close_spec )*
loop478:
while (true) {
int alt478=2;
int LA478_0 = input.LA(1);
if ( (LA478_0==T_COMMA) ) {
alt478=1;
}
switch (alt478) {
case 1 :
// FortranParser08.g:4445:27: T_COMMA close_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_close_spec_list21239); if (state.failed) return;
pushFollow(FOLLOW_close_spec_in_close_spec_list21241);
close_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop478;
}
}
if ( state.backtracking==0 ) {action.close_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "close_spec_list"
// $ANTLR start "read_stmt"
// FortranParser08.g:4450:1: read_stmt options {k=3; } : ( ( ( label )? T_READ T_LPAREN )=> ( label )? T_READ T_LPAREN io_control_spec_list T_RPAREN ( input_item_list )? end_of_stmt | ( ( label )? T_READ )=> ( label )? T_READ format ( T_COMMA input_item_list )? end_of_stmt );
public final void read_stmt() throws RecognitionException {
Token T_READ581=null;
Token T_READ584=null;
Token label580 =null;
Token end_of_stmt582 =null;
Token label583 =null;
Token end_of_stmt585 =null;
Token lbl = null; boolean hasInputItemList=false;
try {
// FortranParser08.g:4454:5: ( ( ( label )? T_READ T_LPAREN )=> ( label )? T_READ T_LPAREN io_control_spec_list T_RPAREN ( input_item_list )? end_of_stmt | ( ( label )? T_READ )=> ( label )? T_READ format ( T_COMMA input_item_list )? end_of_stmt )
int alt483=2;
int LA483_0 = input.LA(1);
if ( (LA483_0==T_DIGIT_STRING) ) {
int LA483_1 = input.LA(2);
if ( (LA483_1==T_READ) ) {
int LA483_3 = input.LA(3);
if ( (LA483_3==T_LPAREN) ) {
int LA483_21 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 21, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_3==T_NOT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==T_PLUS) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==T_MINUS) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==T_DEFINED_OP) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==T_IDENT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==T_DIGIT_STRING) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==T_CHAR_CONSTANT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==T_REAL_CONSTANT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==T_TRUE) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==T_FALSE) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==BINARY_CONSTANT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==OCTAL_CONSTANT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==HEX_CONSTANT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==T_HOLLERITH) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==T_LBRACKET) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_3==T_ASTERISK) && (synpred48_FortranParser08())) {
alt483=2;
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 483, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_0==T_READ) ) {
int LA483_2 = input.LA(2);
if ( (LA483_2==T_LPAREN) ) {
int LA483_4 = input.LA(3);
if ( (LA483_4==T_SLASH) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_4==T_NOT) ) {
int LA483_39 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 39, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==T_PLUS) ) {
int LA483_40 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 40, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==T_MINUS) ) {
int LA483_41 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 41, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==T_DEFINED_OP) ) {
int LA483_42 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 42, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==T_IDENT) ) {
int LA483_43 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 43, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==T_DIGIT_STRING) ) {
int LA483_44 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 44, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==T_CHAR_CONSTANT) ) {
int LA483_45 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 45, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==T_REAL_CONSTANT) ) {
int LA483_46 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 46, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==T_LPAREN) ) {
int LA483_47 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 47, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==T_TRUE) ) {
int LA483_48 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 48, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==T_FALSE) ) {
int LA483_49 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 49, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==BINARY_CONSTANT) ) {
int LA483_50 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 50, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==OCTAL_CONSTANT) ) {
int LA483_51 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 51, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==HEX_CONSTANT) ) {
int LA483_52 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 52, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==T_HOLLERITH) ) {
int LA483_53 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 53, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==T_LBRACKET) ) {
int LA483_54 = input.LA(4);
if ( (synpred47_FortranParser08()) ) {
alt483=1;
}
else if ( (synpred48_FortranParser08()) ) {
alt483=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 483, 54, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA483_4==T_ASTERISK) && (synpred47_FortranParser08())) {
alt483=1;
}
}
else if ( (LA483_2==T_NOT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==T_PLUS) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==T_MINUS) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==T_DEFINED_OP) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==T_IDENT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==T_DIGIT_STRING) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==T_CHAR_CONSTANT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==T_REAL_CONSTANT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==T_TRUE) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==T_FALSE) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==BINARY_CONSTANT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==OCTAL_CONSTANT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==HEX_CONSTANT) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==T_HOLLERITH) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==T_LBRACKET) && (synpred48_FortranParser08())) {
alt483=2;
}
else if ( (LA483_2==T_ASTERISK) && (synpred48_FortranParser08())) {
alt483=2;
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 483, 0, input);
throw nvae;
}
switch (alt483) {
case 1 :
// FortranParser08.g:4454:10: ( ( label )? T_READ T_LPAREN )=> ( label )? T_READ T_LPAREN io_control_spec_list T_RPAREN ( input_item_list )? end_of_stmt
{
// FortranParser08.g:4455:13: ( label )?
int alt479=2;
int LA479_0 = input.LA(1);
if ( (LA479_0==T_DIGIT_STRING) ) {
alt479=1;
}
switch (alt479) {
case 1 :
// FortranParser08.g:4455:14: label
{
pushFollow(FOLLOW_label_in_read_stmt21320);
label580=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label580;}
}
break;
}
T_READ581=(Token)match(input,T_READ,FOLLOW_T_READ_in_read_stmt21326); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_read_stmt21328); if (state.failed) return;
pushFollow(FOLLOW_io_control_spec_list_in_read_stmt21330);
io_control_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_read_stmt21345); if (state.failed) return;
// FortranParser08.g:4456:22: ( input_item_list )?
int alt480=2;
int LA480_0 = input.LA(1);
if ( (LA480_0==T_CHAR_CONSTANT||LA480_0==T_DIGIT_STRING||LA480_0==T_IDENT||LA480_0==T_LPAREN) ) {
alt480=1;
}
switch (alt480) {
case 1 :
// FortranParser08.g:4456:24: input_item_list
{
pushFollow(FOLLOW_input_item_list_in_read_stmt21349);
input_item_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasInputItemList=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_read_stmt21355);
end_of_stmt582=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.read_stmt(lbl, T_READ581, end_of_stmt582,
hasInputItemList);}
}
break;
case 2 :
// FortranParser08.g:4459:10: ( ( label )? T_READ )=> ( label )? T_READ format ( T_COMMA input_item_list )? end_of_stmt
{
// FortranParser08.g:4460:13: ( label )?
int alt481=2;
int LA481_0 = input.LA(1);
if ( (LA481_0==T_DIGIT_STRING) ) {
alt481=1;
}
switch (alt481) {
case 1 :
// FortranParser08.g:4460:14: label
{
pushFollow(FOLLOW_label_in_read_stmt21396);
label583=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label583;}
}
break;
}
T_READ584=(Token)match(input,T_READ,FOLLOW_T_READ_in_read_stmt21402); if (state.failed) return;
pushFollow(FOLLOW_format_in_read_stmt21404);
format();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:4461:13: ( T_COMMA input_item_list )?
int alt482=2;
int LA482_0 = input.LA(1);
if ( (LA482_0==T_COMMA) ) {
alt482=1;
}
switch (alt482) {
case 1 :
// FortranParser08.g:4461:15: T_COMMA input_item_list
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_read_stmt21421); if (state.failed) return;
pushFollow(FOLLOW_input_item_list_in_read_stmt21423);
input_item_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasInputItemList=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_read_stmt21429);
end_of_stmt585=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.read_stmt(lbl, T_READ584, end_of_stmt585,
hasInputItemList);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "read_stmt"
// $ANTLR start "write_stmt"
// FortranParser08.g:4467:1: write_stmt : ( label )? T_WRITE T_LPAREN io_control_spec_list T_RPAREN ( output_item_list )? end_of_stmt ;
public final void write_stmt() throws RecognitionException {
Token T_WRITE587=null;
Token label586 =null;
Token end_of_stmt588 =null;
Token lbl = null; boolean hasOutputItemList=false;
try {
// FortranParser08.g:4470:2: ( ( label )? T_WRITE T_LPAREN io_control_spec_list T_RPAREN ( output_item_list )? end_of_stmt )
// FortranParser08.g:4470:4: ( label )? T_WRITE T_LPAREN io_control_spec_list T_RPAREN ( output_item_list )? end_of_stmt
{
// FortranParser08.g:4470:4: ( label )?
int alt484=2;
int LA484_0 = input.LA(1);
if ( (LA484_0==T_DIGIT_STRING) ) {
alt484=1;
}
switch (alt484) {
case 1 :
// FortranParser08.g:4470:5: label
{
pushFollow(FOLLOW_label_in_write_stmt21459);
label586=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label586;}
}
break;
}
T_WRITE587=(Token)match(input,T_WRITE,FOLLOW_T_WRITE_in_write_stmt21465); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_write_stmt21467); if (state.failed) return;
pushFollow(FOLLOW_io_control_spec_list_in_write_stmt21469);
io_control_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_write_stmt21484); if (state.failed) return;
// FortranParser08.g:4471:22: ( output_item_list )?
int alt485=2;
int LA485_0 = input.LA(1);
if ( (LA485_0==BINARY_CONSTANT||LA485_0==HEX_CONSTANT||LA485_0==OCTAL_CONSTANT||LA485_0==T_CHAR_CONSTANT||(LA485_0 >= T_DEFINED_OP && LA485_0 <= T_DIGIT_STRING)||LA485_0==T_FALSE||(LA485_0 >= T_HOLLERITH && LA485_0 <= T_IDENT)||LA485_0==T_LBRACKET||LA485_0==T_LPAREN||LA485_0==T_MINUS||LA485_0==T_NOT||LA485_0==T_PLUS||LA485_0==T_REAL_CONSTANT||LA485_0==T_TRUE) ) {
alt485=1;
}
switch (alt485) {
case 1 :
// FortranParser08.g:4471:24: output_item_list
{
pushFollow(FOLLOW_output_item_list_in_write_stmt21488);
output_item_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasOutputItemList=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_write_stmt21494);
end_of_stmt588=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.write_stmt(lbl, T_WRITE587, end_of_stmt588,
hasOutputItemList); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "write_stmt"
// $ANTLR start "print_stmt"
// FortranParser08.g:4477:1: print_stmt : ( label )? T_PRINT format ( T_COMMA output_item_list )? end_of_stmt ;
public final void print_stmt() throws RecognitionException {
Token T_PRINT590=null;
Token label589 =null;
Token end_of_stmt591 =null;
Token lbl = null; boolean hasOutputItemList=false;
try {
// FortranParser08.g:4480:5: ( ( label )? T_PRINT format ( T_COMMA output_item_list )? end_of_stmt )
// FortranParser08.g:4480:10: ( label )? T_PRINT format ( T_COMMA output_item_list )? end_of_stmt
{
// FortranParser08.g:4480:10: ( label )?
int alt486=2;
int LA486_0 = input.LA(1);
if ( (LA486_0==T_DIGIT_STRING) ) {
alt486=1;
}
switch (alt486) {
case 1 :
// FortranParser08.g:4480:11: label
{
pushFollow(FOLLOW_label_in_print_stmt21527);
label589=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label589;}
}
break;
}
T_PRINT590=(Token)match(input,T_PRINT,FOLLOW_T_PRINT_in_print_stmt21533); if (state.failed) return;
pushFollow(FOLLOW_format_in_print_stmt21535);
format();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:4481:13: ( T_COMMA output_item_list )?
int alt487=2;
int LA487_0 = input.LA(1);
if ( (LA487_0==T_COMMA) ) {
alt487=1;
}
switch (alt487) {
case 1 :
// FortranParser08.g:4481:15: T_COMMA output_item_list
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_print_stmt21552); if (state.failed) return;
pushFollow(FOLLOW_output_item_list_in_print_stmt21554);
output_item_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasOutputItemList=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_print_stmt21560);
end_of_stmt591=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.print_stmt(lbl, T_PRINT590, end_of_stmt591,
hasOutputItemList); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "print_stmt"
// $ANTLR start "io_control_spec"
// FortranParser08.g:4489:1: io_control_spec : ( expr | T_ASTERISK | T_IDENT T_EQUALS T_ASTERISK | T_IDENT T_EQUALS expr );
public final void io_control_spec() throws RecognitionException {
Token T_IDENT592=null;
Token T_IDENT593=null;
try {
// FortranParser08.g:4490:9: ( expr | T_ASTERISK | T_IDENT T_EQUALS T_ASTERISK | T_IDENT T_EQUALS expr )
int alt488=4;
switch ( input.LA(1) ) {
case BINARY_CONSTANT:
case HEX_CONSTANT:
case OCTAL_CONSTANT:
case T_CHAR_CONSTANT:
case T_DEFINED_OP:
case T_DIGIT_STRING:
case T_FALSE:
case T_HOLLERITH:
case T_LBRACKET:
case T_LPAREN:
case T_MINUS:
case T_NOT:
case T_PLUS:
case T_REAL_CONSTANT:
case T_TRUE:
{
alt488=1;
}
break;
case T_IDENT:
{
int LA488_2 = input.LA(2);
if ( (LA488_2==T_AND||LA488_2==T_ASTERISK||LA488_2==T_CHAR_CONSTANT||LA488_2==T_COMMA||LA488_2==T_DEFINED_OP||LA488_2==T_EQ||(LA488_2 >= T_EQV && LA488_2 <= T_EQ_EQ)||LA488_2==T_GE||(LA488_2 >= T_GREATERTHAN && LA488_2 <= T_GT)||(LA488_2 >= T_LBRACKET && LA488_2 <= T_LE)||(LA488_2 >= T_LESSTHAN && LA488_2 <= T_LESSTHAN_EQ)||(LA488_2 >= T_LPAREN && LA488_2 <= T_LT)||LA488_2==T_MINUS||(LA488_2 >= T_NE && LA488_2 <= T_NEQV)||LA488_2==T_OR||LA488_2==T_PERCENT||LA488_2==T_PLUS||LA488_2==T_POWER||LA488_2==T_RPAREN||(LA488_2 >= T_SLASH && LA488_2 <= T_SLASH_SLASH)) ) {
alt488=1;
}
else if ( (LA488_2==T_EQUALS) ) {
int LA488_4 = input.LA(3);
if ( (LA488_4==T_ASTERISK) ) {
alt488=3;
}
else if ( (LA488_4==BINARY_CONSTANT||LA488_4==HEX_CONSTANT||LA488_4==OCTAL_CONSTANT||LA488_4==T_CHAR_CONSTANT||(LA488_4 >= T_DEFINED_OP && LA488_4 <= T_DIGIT_STRING)||LA488_4==T_FALSE||(LA488_4 >= T_HOLLERITH && LA488_4 <= T_IDENT)||LA488_4==T_LBRACKET||LA488_4==T_LPAREN||LA488_4==T_MINUS||LA488_4==T_NOT||LA488_4==T_PLUS||LA488_4==T_REAL_CONSTANT||LA488_4==T_TRUE) ) {
alt488=4;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 488, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 488, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ASTERISK:
{
alt488=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 488, 0, input);
throw nvae;
}
switch (alt488) {
case 1 :
// FortranParser08.g:4490:11: expr
{
pushFollow(FOLLOW_expr_in_io_control_spec21589);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.io_control_spec(true, null, false); }
}
break;
case 2 :
// FortranParser08.g:4493:11: T_ASTERISK
{
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_io_control_spec21631); if (state.failed) return;
if ( state.backtracking==0 ) { action.io_control_spec(false, null, true); }
}
break;
case 3 :
// FortranParser08.g:4496:11: T_IDENT T_EQUALS T_ASTERISK
{
T_IDENT592=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_io_control_spec21673); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_io_control_spec21677); if (state.failed) return;
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_io_control_spec21679); if (state.failed) return;
if ( state.backtracking==0 ) { action.io_control_spec(false, T_IDENT592, true); }
}
break;
case 4 :
// FortranParser08.g:4499:11: T_IDENT T_EQUALS expr
{
T_IDENT593=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_io_control_spec21721); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_io_control_spec21765); if (state.failed) return;
pushFollow(FOLLOW_expr_in_io_control_spec21767);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.io_control_spec(true, T_IDENT593, false); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "io_control_spec"
// $ANTLR start "io_control_spec_list"
// FortranParser08.g:4511:1: io_control_spec_list : io_control_spec ( T_COMMA io_control_spec )* ;
public final void io_control_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:4513:5: ( io_control_spec ( T_COMMA io_control_spec )* )
// FortranParser08.g:4513:10: io_control_spec ( T_COMMA io_control_spec )*
{
if ( state.backtracking==0 ) {action.io_control_spec_list__begin();}
pushFollow(FOLLOW_io_control_spec_in_io_control_spec_list21826);
io_control_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:4514:30: ( T_COMMA io_control_spec )*
loop489:
while (true) {
int alt489=2;
int LA489_0 = input.LA(1);
if ( (LA489_0==T_COMMA) ) {
alt489=1;
}
switch (alt489) {
case 1 :
// FortranParser08.g:4514:32: T_COMMA io_control_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_io_control_spec_list21832); if (state.failed) return;
pushFollow(FOLLOW_io_control_spec_in_io_control_spec_list21834);
io_control_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop489;
}
}
if ( state.backtracking==0 ) {action.io_control_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "io_control_spec_list"
// $ANTLR start "format"
// FortranParser08.g:4521:1: format : ( expr | T_ASTERISK );
public final void format() throws RecognitionException {
try {
// FortranParser08.g:4525:2: ( expr | T_ASTERISK )
int alt490=2;
int LA490_0 = input.LA(1);
if ( (LA490_0==BINARY_CONSTANT||LA490_0==HEX_CONSTANT||LA490_0==OCTAL_CONSTANT||LA490_0==T_CHAR_CONSTANT||(LA490_0 >= T_DEFINED_OP && LA490_0 <= T_DIGIT_STRING)||LA490_0==T_FALSE||(LA490_0 >= T_HOLLERITH && LA490_0 <= T_IDENT)||LA490_0==T_LBRACKET||LA490_0==T_LPAREN||LA490_0==T_MINUS||LA490_0==T_NOT||LA490_0==T_PLUS||LA490_0==T_REAL_CONSTANT||LA490_0==T_TRUE) ) {
alt490=1;
}
else if ( (LA490_0==T_ASTERISK) ) {
alt490=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 490, 0, input);
throw nvae;
}
switch (alt490) {
case 1 :
// FortranParser08.g:4525:4: expr
{
pushFollow(FOLLOW_expr_in_format21871);
expr();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:4526:4: T_ASTERISK
{
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_format21876); if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.format();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "format"
// $ANTLR start "input_item"
// FortranParser08.g:4530:1: input_item : ( variable | io_implied_do );
public final void input_item() throws RecognitionException {
try {
// FortranParser08.g:4534:2: ( variable | io_implied_do )
int alt491=2;
int LA491_0 = input.LA(1);
if ( (LA491_0==T_CHAR_CONSTANT||LA491_0==T_DIGIT_STRING||LA491_0==T_IDENT) ) {
alt491=1;
}
else if ( (LA491_0==T_LPAREN) ) {
alt491=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 491, 0, input);
throw nvae;
}
switch (alt491) {
case 1 :
// FortranParser08.g:4534:4: variable
{
pushFollow(FOLLOW_variable_in_input_item21893);
variable();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:4535:4: io_implied_do
{
pushFollow(FOLLOW_io_implied_do_in_input_item21898);
io_implied_do();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.input_item();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "input_item"
// $ANTLR start "input_item_list"
// FortranParser08.g:4538:1: input_item_list : input_item ( T_COMMA input_item )* ;
public final void input_item_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:4540:5: ( input_item ( T_COMMA input_item )* )
// FortranParser08.g:4540:10: input_item ( T_COMMA input_item )*
{
if ( state.backtracking==0 ) {action.input_item_list__begin();}
pushFollow(FOLLOW_input_item_in_input_item_list21923);
input_item();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:4541:25: ( T_COMMA input_item )*
loop492:
while (true) {
int alt492=2;
int LA492_0 = input.LA(1);
if ( (LA492_0==T_COMMA) ) {
alt492=1;
}
switch (alt492) {
case 1 :
// FortranParser08.g:4541:27: T_COMMA input_item
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_input_item_list21929); if (state.failed) return;
pushFollow(FOLLOW_input_item_in_input_item_list21931);
input_item();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop492;
}
}
if ( state.backtracking==0 ) {action.input_item_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "input_item_list"
// $ANTLR start "output_item"
// FortranParser08.g:4546:1: output_item options {backtrack=true; } : ( expr | io_implied_do );
public final void output_item() throws RecognitionException {
try {
// FortranParser08.g:4551:2: ( expr | io_implied_do )
int alt493=2;
int LA493_0 = input.LA(1);
if ( (LA493_0==BINARY_CONSTANT||LA493_0==HEX_CONSTANT||LA493_0==OCTAL_CONSTANT||LA493_0==T_CHAR_CONSTANT||(LA493_0 >= T_DEFINED_OP && LA493_0 <= T_DIGIT_STRING)||LA493_0==T_FALSE||(LA493_0 >= T_HOLLERITH && LA493_0 <= T_IDENT)||LA493_0==T_LBRACKET||LA493_0==T_MINUS||LA493_0==T_NOT||LA493_0==T_PLUS||LA493_0==T_REAL_CONSTANT||LA493_0==T_TRUE) ) {
alt493=1;
}
else if ( (LA493_0==T_LPAREN) ) {
int LA493_9 = input.LA(2);
if ( (synpred49_FortranParser08()) ) {
alt493=1;
}
else if ( (true) ) {
alt493=2;
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 493, 0, input);
throw nvae;
}
switch (alt493) {
case 1 :
// FortranParser08.g:4551:4: expr
{
pushFollow(FOLLOW_expr_in_output_item21973);
expr();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:4552:4: io_implied_do
{
pushFollow(FOLLOW_io_implied_do_in_output_item21978);
io_implied_do();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.output_item();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "output_item"
// $ANTLR start "output_item_list"
// FortranParser08.g:4556:1: output_item_list : output_item ( T_COMMA output_item )* ;
public final void output_item_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:4558:5: ( output_item ( T_COMMA output_item )* )
// FortranParser08.g:4558:10: output_item ( T_COMMA output_item )*
{
if ( state.backtracking==0 ) {action.output_item_list__begin();}
pushFollow(FOLLOW_output_item_in_output_item_list22004);
output_item();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:4559:26: ( T_COMMA output_item )*
loop494:
while (true) {
int alt494=2;
int LA494_0 = input.LA(1);
if ( (LA494_0==T_COMMA) ) {
alt494=1;
}
switch (alt494) {
case 1 :
// FortranParser08.g:4559:28: T_COMMA output_item
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_output_item_list22010); if (state.failed) return;
pushFollow(FOLLOW_output_item_in_output_item_list22012);
output_item();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop494;
}
}
if ( state.backtracking==0 ) {action.output_item_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "output_item_list"
// $ANTLR start "io_implied_do"
// FortranParser08.g:4564:1: io_implied_do : T_LPAREN io_implied_do_object io_implied_do_suffix T_RPAREN ;
public final void io_implied_do() throws RecognitionException {
try {
// FortranParser08.g:4565:2: ( T_LPAREN io_implied_do_object io_implied_do_suffix T_RPAREN )
// FortranParser08.g:4565:4: T_LPAREN io_implied_do_object io_implied_do_suffix T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_io_implied_do22042); if (state.failed) return;
pushFollow(FOLLOW_io_implied_do_object_in_io_implied_do22044);
io_implied_do_object();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_io_implied_do_suffix_in_io_implied_do22046);
io_implied_do_suffix();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_io_implied_do22048); if (state.failed) return;
if ( state.backtracking==0 ) { action.io_implied_do(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "io_implied_do"
// $ANTLR start "io_implied_do_object"
// FortranParser08.g:4571:1: io_implied_do_object : output_item ;
public final void io_implied_do_object() throws RecognitionException {
try {
// FortranParser08.g:4572:2: ( output_item )
// FortranParser08.g:4572:4: output_item
{
pushFollow(FOLLOW_output_item_in_io_implied_do_object22075);
output_item();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.io_implied_do_object(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "io_implied_do_object"
// $ANTLR start "io_implied_do_suffix"
// FortranParser08.g:4576:1: io_implied_do_suffix options {backtrack=true; } : ( T_COMMA io_implied_do_object io_implied_do_suffix | T_COMMA io_implied_do_control );
public final void io_implied_do_suffix() throws RecognitionException {
try {
// FortranParser08.g:4578:2: ( T_COMMA io_implied_do_object io_implied_do_suffix | T_COMMA io_implied_do_control )
int alt495=2;
int LA495_0 = input.LA(1);
if ( (LA495_0==T_COMMA) ) {
int LA495_1 = input.LA(2);
if ( (LA495_1==BINARY_CONSTANT||LA495_1==HEX_CONSTANT||LA495_1==OCTAL_CONSTANT||LA495_1==T_CHAR_CONSTANT||(LA495_1 >= T_DEFINED_OP && LA495_1 <= T_DIGIT_STRING)||LA495_1==T_FALSE||LA495_1==T_HOLLERITH||LA495_1==T_LBRACKET||LA495_1==T_LPAREN||LA495_1==T_MINUS||LA495_1==T_NOT||LA495_1==T_PLUS||LA495_1==T_REAL_CONSTANT||LA495_1==T_TRUE) ) {
alt495=1;
}
else if ( (LA495_1==T_IDENT) ) {
int LA495_3 = input.LA(3);
if ( (LA495_3==T_AND||LA495_3==T_ASTERISK||LA495_3==T_CHAR_CONSTANT||LA495_3==T_COMMA||LA495_3==T_DEFINED_OP||LA495_3==T_EQ||(LA495_3 >= T_EQV && LA495_3 <= T_EQ_EQ)||LA495_3==T_GE||(LA495_3 >= T_GREATERTHAN && LA495_3 <= T_GT)||(LA495_3 >= T_LBRACKET && LA495_3 <= T_LE)||(LA495_3 >= T_LESSTHAN && LA495_3 <= T_LESSTHAN_EQ)||(LA495_3 >= T_LPAREN && LA495_3 <= T_LT)||LA495_3==T_MINUS||(LA495_3 >= T_NE && LA495_3 <= T_NEQV)||LA495_3==T_OR||LA495_3==T_PERCENT||LA495_3==T_PLUS||LA495_3==T_POWER||(LA495_3 >= T_SLASH && LA495_3 <= T_SLASH_SLASH)) ) {
alt495=1;
}
else if ( (LA495_3==T_EQUALS) ) {
alt495=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 495, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 495, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 495, 0, input);
throw nvae;
}
switch (alt495) {
case 1 :
// FortranParser08.g:4578:4: T_COMMA io_implied_do_object io_implied_do_suffix
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_io_implied_do_suffix22107); if (state.failed) return;
pushFollow(FOLLOW_io_implied_do_object_in_io_implied_do_suffix22109);
io_implied_do_object();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_io_implied_do_suffix_in_io_implied_do_suffix22111);
io_implied_do_suffix();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:4579:4: T_COMMA io_implied_do_control
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_io_implied_do_suffix22116); if (state.failed) return;
pushFollow(FOLLOW_io_implied_do_control_in_io_implied_do_suffix22118);
io_implied_do_control();
state._fsp--;
if (state.failed) return;
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "io_implied_do_suffix"
// $ANTLR start "io_implied_do_control"
// FortranParser08.g:4584:1: io_implied_do_control : do_variable T_EQUALS expr T_COMMA expr ( T_COMMA expr )? ;
public final void io_implied_do_control() throws RecognitionException {
boolean hasStride=false;
try {
// FortranParser08.g:4586:5: ( do_variable T_EQUALS expr T_COMMA expr ( T_COMMA expr )? )
// FortranParser08.g:4586:7: do_variable T_EQUALS expr T_COMMA expr ( T_COMMA expr )?
{
pushFollow(FOLLOW_do_variable_in_io_implied_do_control22138);
do_variable();
state._fsp--;
if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_io_implied_do_control22140); if (state.failed) return;
pushFollow(FOLLOW_expr_in_io_implied_do_control22142);
expr();
state._fsp--;
if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_io_implied_do_control22144); if (state.failed) return;
pushFollow(FOLLOW_expr_in_io_implied_do_control22146);
expr();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:4586:46: ( T_COMMA expr )?
int alt496=2;
int LA496_0 = input.LA(1);
if ( (LA496_0==T_COMMA) ) {
alt496=1;
}
switch (alt496) {
case 1 :
// FortranParser08.g:4586:48: T_COMMA expr
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_io_implied_do_control22150); if (state.failed) return;
pushFollow(FOLLOW_expr_in_io_implied_do_control22152);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasStride=true;}
}
break;
}
if ( state.backtracking==0 ) { action.io_implied_do_control(hasStride); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "io_implied_do_control"
// $ANTLR start "dtv_type_spec"
// FortranParser08.g:4592:1: dtv_type_spec : ( T_TYPE T_LPAREN derived_type_spec T_RPAREN | T_CLASS T_LPAREN derived_type_spec T_RPAREN );
public final void dtv_type_spec() throws RecognitionException {
Token T_TYPE594=null;
Token T_CLASS595=null;
try {
// FortranParser08.g:4593:2: ( T_TYPE T_LPAREN derived_type_spec T_RPAREN | T_CLASS T_LPAREN derived_type_spec T_RPAREN )
int alt497=2;
int LA497_0 = input.LA(1);
if ( (LA497_0==T_TYPE) ) {
alt497=1;
}
else if ( (LA497_0==T_CLASS) ) {
alt497=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 497, 0, input);
throw nvae;
}
switch (alt497) {
case 1 :
// FortranParser08.g:4593:4: T_TYPE T_LPAREN derived_type_spec T_RPAREN
{
T_TYPE594=(Token)match(input,T_TYPE,FOLLOW_T_TYPE_in_dtv_type_spec22186); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_dtv_type_spec22190); if (state.failed) return;
pushFollow(FOLLOW_derived_type_spec_in_dtv_type_spec22194);
derived_type_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_dtv_type_spec22198); if (state.failed) return;
if ( state.backtracking==0 ) { action.dtv_type_spec(T_TYPE594); }
}
break;
case 2 :
// FortranParser08.g:4598:4: T_CLASS T_LPAREN derived_type_spec T_RPAREN
{
T_CLASS595=(Token)match(input,T_CLASS,FOLLOW_T_CLASS_in_dtv_type_spec22217); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_dtv_type_spec22221); if (state.failed) return;
pushFollow(FOLLOW_derived_type_spec_in_dtv_type_spec22225);
derived_type_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_dtv_type_spec22229); if (state.failed) return;
if ( state.backtracking==0 ) { action.dtv_type_spec(T_CLASS595); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "dtv_type_spec"
// $ANTLR start "wait_stmt"
// FortranParser08.g:4606:1: wait_stmt : ( label )? T_WAIT T_LPAREN wait_spec_list T_RPAREN end_of_stmt ;
public final void wait_stmt() throws RecognitionException {
Token T_WAIT597=null;
Token label596 =null;
Token end_of_stmt598 =null;
Token lbl = null;
try {
// FortranParser08.g:4609:2: ( ( label )? T_WAIT T_LPAREN wait_spec_list T_RPAREN end_of_stmt )
// FortranParser08.g:4609:4: ( label )? T_WAIT T_LPAREN wait_spec_list T_RPAREN end_of_stmt
{
// FortranParser08.g:4609:4: ( label )?
int alt498=2;
int LA498_0 = input.LA(1);
if ( (LA498_0==T_DIGIT_STRING) ) {
alt498=1;
}
switch (alt498) {
case 1 :
// FortranParser08.g:4609:5: label
{
pushFollow(FOLLOW_label_in_wait_stmt22265);
label596=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label596;}
}
break;
}
T_WAIT597=(Token)match(input,T_WAIT,FOLLOW_T_WAIT_in_wait_stmt22271); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_wait_stmt22273); if (state.failed) return;
pushFollow(FOLLOW_wait_spec_list_in_wait_stmt22275);
wait_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_wait_stmt22277); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_wait_stmt22292);
end_of_stmt598=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.wait_stmt(lbl, T_WAIT597, end_of_stmt598);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "wait_stmt"
// $ANTLR start "wait_spec"
// FortranParser08.g:4617:1: wait_spec : ( expr | T_IDENT T_EQUALS expr );
public final void wait_spec() throws RecognitionException {
Token T_IDENT599=null;
try {
// FortranParser08.g:4618:2: ( expr | T_IDENT T_EQUALS expr )
int alt499=2;
int LA499_0 = input.LA(1);
if ( (LA499_0==BINARY_CONSTANT||LA499_0==HEX_CONSTANT||LA499_0==OCTAL_CONSTANT||LA499_0==T_CHAR_CONSTANT||(LA499_0 >= T_DEFINED_OP && LA499_0 <= T_DIGIT_STRING)||LA499_0==T_FALSE||LA499_0==T_HOLLERITH||LA499_0==T_LBRACKET||LA499_0==T_LPAREN||LA499_0==T_MINUS||LA499_0==T_NOT||LA499_0==T_PLUS||LA499_0==T_REAL_CONSTANT||LA499_0==T_TRUE) ) {
alt499=1;
}
else if ( (LA499_0==T_IDENT) ) {
int LA499_2 = input.LA(2);
if ( (LA499_2==T_AND||LA499_2==T_ASTERISK||LA499_2==T_CHAR_CONSTANT||LA499_2==T_COMMA||LA499_2==T_DEFINED_OP||LA499_2==T_EQ||(LA499_2 >= T_EQV && LA499_2 <= T_EQ_EQ)||LA499_2==T_GE||(LA499_2 >= T_GREATERTHAN && LA499_2 <= T_GT)||(LA499_2 >= T_LBRACKET && LA499_2 <= T_LE)||(LA499_2 >= T_LESSTHAN && LA499_2 <= T_LESSTHAN_EQ)||(LA499_2 >= T_LPAREN && LA499_2 <= T_LT)||LA499_2==T_MINUS||(LA499_2 >= T_NE && LA499_2 <= T_NEQV)||LA499_2==T_OR||LA499_2==T_PERCENT||LA499_2==T_PLUS||LA499_2==T_POWER||LA499_2==T_RPAREN||(LA499_2 >= T_SLASH && LA499_2 <= T_SLASH_SLASH)) ) {
alt499=1;
}
else if ( (LA499_2==T_EQUALS) ) {
alt499=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 499, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 499, 0, input);
throw nvae;
}
switch (alt499) {
case 1 :
// FortranParser08.g:4618:4: expr
{
pushFollow(FOLLOW_expr_in_wait_spec22311);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.wait_spec(null); }
}
break;
case 2 :
// FortranParser08.g:4620:4: T_IDENT T_EQUALS expr
{
T_IDENT599=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_wait_spec22330); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_wait_spec22347); if (state.failed) return;
pushFollow(FOLLOW_expr_in_wait_spec22349);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.wait_spec(T_IDENT599); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "wait_spec"
// $ANTLR start "wait_spec_list"
// FortranParser08.g:4626:1: wait_spec_list : wait_spec ( T_COMMA wait_spec )* ;
public final void wait_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:4628:5: ( wait_spec ( T_COMMA wait_spec )* )
// FortranParser08.g:4628:10: wait_spec ( T_COMMA wait_spec )*
{
if ( state.backtracking==0 ) {action.wait_spec_list__begin();}
pushFollow(FOLLOW_wait_spec_in_wait_spec_list22389);
wait_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:4629:24: ( T_COMMA wait_spec )*
loop500:
while (true) {
int alt500=2;
int LA500_0 = input.LA(1);
if ( (LA500_0==T_COMMA) ) {
alt500=1;
}
switch (alt500) {
case 1 :
// FortranParser08.g:4629:26: T_COMMA wait_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_wait_spec_list22395); if (state.failed) return;
pushFollow(FOLLOW_wait_spec_in_wait_spec_list22397);
wait_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop500;
}
}
if ( state.backtracking==0 ) {action.wait_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "wait_spec_list"
// $ANTLR start "backspace_stmt"
// FortranParser08.g:4634:1: backspace_stmt options {k=3; } : ( ( ( label )? T_BACKSPACE T_LPAREN )=> ( label )? T_BACKSPACE T_LPAREN position_spec_list T_RPAREN end_of_stmt | ( ( label )? T_BACKSPACE )=> ( label )? T_BACKSPACE file_unit_number end_of_stmt );
public final void backspace_stmt() throws RecognitionException {
Token T_BACKSPACE601=null;
Token T_BACKSPACE604=null;
Token label600 =null;
Token end_of_stmt602 =null;
Token label603 =null;
Token end_of_stmt605 =null;
Token lbl = null;
try {
// FortranParser08.g:4638:2: ( ( ( label )? T_BACKSPACE T_LPAREN )=> ( label )? T_BACKSPACE T_LPAREN position_spec_list T_RPAREN end_of_stmt | ( ( label )? T_BACKSPACE )=> ( label )? T_BACKSPACE file_unit_number end_of_stmt )
int alt503=2;
int LA503_0 = input.LA(1);
if ( (LA503_0==T_DIGIT_STRING) ) {
int LA503_1 = input.LA(2);
if ( (LA503_1==T_BACKSPACE) ) {
int LA503_3 = input.LA(3);
if ( (LA503_3==T_LPAREN) ) {
int LA503_20 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 20, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_3==T_NOT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==T_PLUS) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==T_MINUS) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==T_DEFINED_OP) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==T_IDENT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==T_DIGIT_STRING) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==T_CHAR_CONSTANT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==T_REAL_CONSTANT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==T_TRUE) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==T_FALSE) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==BINARY_CONSTANT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==OCTAL_CONSTANT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==HEX_CONSTANT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==T_HOLLERITH) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_3==T_LBRACKET) && (synpred52_FortranParser08())) {
alt503=2;
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 503, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_0==T_BACKSPACE) ) {
int LA503_2 = input.LA(2);
if ( (LA503_2==T_LPAREN) ) {
int LA503_4 = input.LA(3);
if ( (LA503_4==T_SLASH) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_4==T_NOT) ) {
int LA503_37 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 37, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==T_PLUS) ) {
int LA503_38 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 38, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==T_MINUS) ) {
int LA503_39 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 39, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==T_DEFINED_OP) ) {
int LA503_40 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 40, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==T_IDENT) ) {
int LA503_41 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 41, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==T_DIGIT_STRING) ) {
int LA503_42 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 42, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==T_CHAR_CONSTANT) ) {
int LA503_43 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 43, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==T_REAL_CONSTANT) ) {
int LA503_44 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 44, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==T_LPAREN) ) {
int LA503_45 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 45, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==T_TRUE) ) {
int LA503_46 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 46, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==T_FALSE) ) {
int LA503_47 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 47, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==BINARY_CONSTANT) ) {
int LA503_48 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 48, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==OCTAL_CONSTANT) ) {
int LA503_49 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 49, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==HEX_CONSTANT) ) {
int LA503_50 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 50, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==T_HOLLERITH) ) {
int LA503_51 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 51, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_4==T_LBRACKET) ) {
int LA503_52 = input.LA(4);
if ( (synpred51_FortranParser08()) ) {
alt503=1;
}
else if ( (synpred52_FortranParser08()) ) {
alt503=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 52, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 503, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA503_2==T_NOT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==T_PLUS) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==T_MINUS) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==T_DEFINED_OP) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==T_IDENT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==T_DIGIT_STRING) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==T_CHAR_CONSTANT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==T_REAL_CONSTANT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==T_TRUE) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==T_FALSE) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==BINARY_CONSTANT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==OCTAL_CONSTANT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==HEX_CONSTANT) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==T_HOLLERITH) && (synpred52_FortranParser08())) {
alt503=2;
}
else if ( (LA503_2==T_LBRACKET) && (synpred52_FortranParser08())) {
alt503=2;
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 503, 0, input);
throw nvae;
}
switch (alt503) {
case 1 :
// FortranParser08.g:4638:4: ( ( label )? T_BACKSPACE T_LPAREN )=> ( label )? T_BACKSPACE T_LPAREN position_spec_list T_RPAREN end_of_stmt
{
// FortranParser08.g:4639:13: ( label )?
int alt501=2;
int LA501_0 = input.LA(1);
if ( (LA501_0==T_DIGIT_STRING) ) {
alt501=1;
}
switch (alt501) {
case 1 :
// FortranParser08.g:4639:14: label
{
pushFollow(FOLLOW_label_in_backspace_stmt22470);
label600=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label600;}
}
break;
}
T_BACKSPACE601=(Token)match(input,T_BACKSPACE,FOLLOW_T_BACKSPACE_in_backspace_stmt22476); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_backspace_stmt22478); if (state.failed) return;
pushFollow(FOLLOW_position_spec_list_in_backspace_stmt22480);
position_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_backspace_stmt22495); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_backspace_stmt22497);
end_of_stmt602=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.backspace_stmt(lbl, T_BACKSPACE601, end_of_stmt602, true);}
}
break;
case 2 :
// FortranParser08.g:4642:4: ( ( label )? T_BACKSPACE )=> ( label )? T_BACKSPACE file_unit_number end_of_stmt
{
// FortranParser08.g:4643:13: ( label )?
int alt502=2;
int LA502_0 = input.LA(1);
if ( (LA502_0==T_DIGIT_STRING) ) {
alt502=1;
}
switch (alt502) {
case 1 :
// FortranParser08.g:4643:14: label
{
pushFollow(FOLLOW_label_in_backspace_stmt22532);
label603=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label603;}
}
break;
}
T_BACKSPACE604=(Token)match(input,T_BACKSPACE,FOLLOW_T_BACKSPACE_in_backspace_stmt22538); if (state.failed) return;
pushFollow(FOLLOW_file_unit_number_in_backspace_stmt22540);
file_unit_number();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_backspace_stmt22542);
end_of_stmt605=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.backspace_stmt(lbl, T_BACKSPACE604, end_of_stmt605, false);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "backspace_stmt"
// $ANTLR start "endfile_stmt"
// FortranParser08.g:4648:1: endfile_stmt options {k=3; } : ( ( ( label )? T_END T_FILE T_LPAREN )=> ( label )? T_END T_FILE T_LPAREN position_spec_list T_RPAREN end_of_stmt | ( ( label )? T_ENDFILE T_LPAREN )=> ( label )? T_ENDFILE T_LPAREN position_spec_list T_RPAREN end_of_stmt | ( ( label )? T_END T_FILE )=> ( label )? T_END T_FILE file_unit_number end_of_stmt | ( ( label )? T_ENDFILE )=> ( label )? T_ENDFILE file_unit_number end_of_stmt );
public final void endfile_stmt() throws RecognitionException {
Token T_END607=null;
Token T_FILE608=null;
Token T_ENDFILE611=null;
Token T_END614=null;
Token T_FILE615=null;
Token T_ENDFILE618=null;
Token label606 =null;
Token end_of_stmt609 =null;
Token label610 =null;
Token end_of_stmt612 =null;
Token label613 =null;
Token end_of_stmt616 =null;
Token label617 =null;
Token end_of_stmt619 =null;
Token lbl = null;
try {
// FortranParser08.g:4652:2: ( ( ( label )? T_END T_FILE T_LPAREN )=> ( label )? T_END T_FILE T_LPAREN position_spec_list T_RPAREN end_of_stmt | ( ( label )? T_ENDFILE T_LPAREN )=> ( label )? T_ENDFILE T_LPAREN position_spec_list T_RPAREN end_of_stmt | ( ( label )? T_END T_FILE )=> ( label )? T_END T_FILE file_unit_number end_of_stmt | ( ( label )? T_ENDFILE )=> ( label )? T_ENDFILE file_unit_number end_of_stmt )
int alt508=4;
alt508 = dfa508.predict(input);
switch (alt508) {
case 1 :
// FortranParser08.g:4652:4: ( ( label )? T_END T_FILE T_LPAREN )=> ( label )? T_END T_FILE T_LPAREN position_spec_list T_RPAREN end_of_stmt
{
// FortranParser08.g:4653:13: ( label )?
int alt504=2;
int LA504_0 = input.LA(1);
if ( (LA504_0==T_DIGIT_STRING) ) {
alt504=1;
}
switch (alt504) {
case 1 :
// FortranParser08.g:4653:14: label
{
pushFollow(FOLLOW_label_in_endfile_stmt22604);
label606=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label606;}
}
break;
}
T_END607=(Token)match(input,T_END,FOLLOW_T_END_in_endfile_stmt22610); if (state.failed) return;
T_FILE608=(Token)match(input,T_FILE,FOLLOW_T_FILE_in_endfile_stmt22612); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_endfile_stmt22614); if (state.failed) return;
pushFollow(FOLLOW_position_spec_list_in_endfile_stmt22616);
position_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_endfile_stmt22631); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_endfile_stmt22633);
end_of_stmt609=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.endfile_stmt(lbl, T_END607, T_FILE608, end_of_stmt609, true);}
}
break;
case 2 :
// FortranParser08.g:4656:4: ( ( label )? T_ENDFILE T_LPAREN )=> ( label )? T_ENDFILE T_LPAREN position_spec_list T_RPAREN end_of_stmt
{
// FortranParser08.g:4657:13: ( label )?
int alt505=2;
int LA505_0 = input.LA(1);
if ( (LA505_0==T_DIGIT_STRING) ) {
alt505=1;
}
switch (alt505) {
case 1 :
// FortranParser08.g:4657:14: label
{
pushFollow(FOLLOW_label_in_endfile_stmt22670);
label610=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label610;}
}
break;
}
T_ENDFILE611=(Token)match(input,T_ENDFILE,FOLLOW_T_ENDFILE_in_endfile_stmt22676); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_endfile_stmt22678); if (state.failed) return;
pushFollow(FOLLOW_position_spec_list_in_endfile_stmt22680);
position_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_endfile_stmt22695); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_endfile_stmt22697);
end_of_stmt612=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.endfile_stmt(lbl, T_ENDFILE611, null, end_of_stmt612,
true);}
}
break;
case 3 :
// FortranParser08.g:4661:4: ( ( label )? T_END T_FILE )=> ( label )? T_END T_FILE file_unit_number end_of_stmt
{
// FortranParser08.g:4662:13: ( label )?
int alt506=2;
int LA506_0 = input.LA(1);
if ( (LA506_0==T_DIGIT_STRING) ) {
alt506=1;
}
switch (alt506) {
case 1 :
// FortranParser08.g:4662:14: label
{
pushFollow(FOLLOW_label_in_endfile_stmt22734);
label613=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label613;}
}
break;
}
T_END614=(Token)match(input,T_END,FOLLOW_T_END_in_endfile_stmt22740); if (state.failed) return;
T_FILE615=(Token)match(input,T_FILE,FOLLOW_T_FILE_in_endfile_stmt22742); if (state.failed) return;
pushFollow(FOLLOW_file_unit_number_in_endfile_stmt22744);
file_unit_number();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_endfile_stmt22746);
end_of_stmt616=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.endfile_stmt(lbl, T_END614, T_FILE615, end_of_stmt616,
false);}
}
break;
case 4 :
// FortranParser08.g:4665:4: ( ( label )? T_ENDFILE )=> ( label )? T_ENDFILE file_unit_number end_of_stmt
{
// FortranParser08.g:4666:13: ( label )?
int alt507=2;
int LA507_0 = input.LA(1);
if ( (LA507_0==T_DIGIT_STRING) ) {
alt507=1;
}
switch (alt507) {
case 1 :
// FortranParser08.g:4666:14: label
{
pushFollow(FOLLOW_label_in_endfile_stmt22781);
label617=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label617;}
}
break;
}
T_ENDFILE618=(Token)match(input,T_ENDFILE,FOLLOW_T_ENDFILE_in_endfile_stmt22787); if (state.failed) return;
pushFollow(FOLLOW_file_unit_number_in_endfile_stmt22789);
file_unit_number();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_endfile_stmt22791);
end_of_stmt619=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.endfile_stmt(lbl, T_ENDFILE618, null, end_of_stmt619,
false);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "endfile_stmt"
// $ANTLR start "rewind_stmt"
// FortranParser08.g:4672:1: rewind_stmt options {k=3; } : ( ( ( label )? T_REWIND T_LPAREN )=> ( label )? T_REWIND T_LPAREN position_spec_list T_RPAREN end_of_stmt | ( ( label )? T_REWIND )=> ( label )? T_REWIND file_unit_number end_of_stmt );
public final void rewind_stmt() throws RecognitionException {
Token T_REWIND621=null;
Token T_REWIND624=null;
Token label620 =null;
Token end_of_stmt622 =null;
Token label623 =null;
Token end_of_stmt625 =null;
Token lbl = null;
try {
// FortranParser08.g:4676:2: ( ( ( label )? T_REWIND T_LPAREN )=> ( label )? T_REWIND T_LPAREN position_spec_list T_RPAREN end_of_stmt | ( ( label )? T_REWIND )=> ( label )? T_REWIND file_unit_number end_of_stmt )
int alt511=2;
int LA511_0 = input.LA(1);
if ( (LA511_0==T_DIGIT_STRING) ) {
int LA511_1 = input.LA(2);
if ( (LA511_1==T_REWIND) ) {
int LA511_3 = input.LA(3);
if ( (LA511_3==T_LPAREN) ) {
int LA511_20 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 20, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_3==T_NOT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==T_PLUS) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==T_MINUS) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==T_DEFINED_OP) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==T_IDENT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==T_DIGIT_STRING) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==T_CHAR_CONSTANT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==T_REAL_CONSTANT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==T_TRUE) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==T_FALSE) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==BINARY_CONSTANT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==OCTAL_CONSTANT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==HEX_CONSTANT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==T_HOLLERITH) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_3==T_LBRACKET) && (synpred58_FortranParser08())) {
alt511=2;
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 511, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_0==T_REWIND) ) {
int LA511_2 = input.LA(2);
if ( (LA511_2==T_LPAREN) ) {
int LA511_4 = input.LA(3);
if ( (LA511_4==T_SLASH) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_4==T_NOT) ) {
int LA511_37 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 37, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==T_PLUS) ) {
int LA511_38 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 38, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==T_MINUS) ) {
int LA511_39 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 39, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==T_DEFINED_OP) ) {
int LA511_40 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 40, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==T_IDENT) ) {
int LA511_41 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 41, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==T_DIGIT_STRING) ) {
int LA511_42 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 42, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==T_CHAR_CONSTANT) ) {
int LA511_43 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 43, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==T_REAL_CONSTANT) ) {
int LA511_44 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 44, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==T_LPAREN) ) {
int LA511_45 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 45, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==T_TRUE) ) {
int LA511_46 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 46, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==T_FALSE) ) {
int LA511_47 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 47, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==BINARY_CONSTANT) ) {
int LA511_48 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 48, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==OCTAL_CONSTANT) ) {
int LA511_49 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 49, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==HEX_CONSTANT) ) {
int LA511_50 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 50, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==T_HOLLERITH) ) {
int LA511_51 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 51, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_4==T_LBRACKET) ) {
int LA511_52 = input.LA(4);
if ( (synpred57_FortranParser08()) ) {
alt511=1;
}
else if ( (synpred58_FortranParser08()) ) {
alt511=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 52, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 511, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA511_2==T_NOT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==T_PLUS) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==T_MINUS) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==T_DEFINED_OP) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==T_IDENT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==T_DIGIT_STRING) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==T_CHAR_CONSTANT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==T_REAL_CONSTANT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==T_TRUE) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==T_FALSE) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==BINARY_CONSTANT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==OCTAL_CONSTANT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==HEX_CONSTANT) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==T_HOLLERITH) && (synpred58_FortranParser08())) {
alt511=2;
}
else if ( (LA511_2==T_LBRACKET) && (synpred58_FortranParser08())) {
alt511=2;
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 511, 0, input);
throw nvae;
}
switch (alt511) {
case 1 :
// FortranParser08.g:4676:4: ( ( label )? T_REWIND T_LPAREN )=> ( label )? T_REWIND T_LPAREN position_spec_list T_RPAREN end_of_stmt
{
// FortranParser08.g:4677:13: ( label )?
int alt509=2;
int LA509_0 = input.LA(1);
if ( (LA509_0==T_DIGIT_STRING) ) {
alt509=1;
}
switch (alt509) {
case 1 :
// FortranParser08.g:4677:14: label
{
pushFollow(FOLLOW_label_in_rewind_stmt22851);
label620=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label620;}
}
break;
}
T_REWIND621=(Token)match(input,T_REWIND,FOLLOW_T_REWIND_in_rewind_stmt22857); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_rewind_stmt22859); if (state.failed) return;
pushFollow(FOLLOW_position_spec_list_in_rewind_stmt22861);
position_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_rewind_stmt22876); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_rewind_stmt22878);
end_of_stmt622=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.rewind_stmt(lbl, T_REWIND621, end_of_stmt622, true);}
}
break;
case 2 :
// FortranParser08.g:4680:4: ( ( label )? T_REWIND )=> ( label )? T_REWIND file_unit_number end_of_stmt
{
// FortranParser08.g:4681:13: ( label )?
int alt510=2;
int LA510_0 = input.LA(1);
if ( (LA510_0==T_DIGIT_STRING) ) {
alt510=1;
}
switch (alt510) {
case 1 :
// FortranParser08.g:4681:14: label
{
pushFollow(FOLLOW_label_in_rewind_stmt22913);
label623=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label623;}
}
break;
}
T_REWIND624=(Token)match(input,T_REWIND,FOLLOW_T_REWIND_in_rewind_stmt22919); if (state.failed) return;
pushFollow(FOLLOW_file_unit_number_in_rewind_stmt22921);
file_unit_number();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_rewind_stmt22923);
end_of_stmt625=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.rewind_stmt(lbl, T_REWIND624, end_of_stmt625, false);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "rewind_stmt"
// $ANTLR start "position_spec"
// FortranParser08.g:4688:1: position_spec : ( expr | T_IDENT T_EQUALS expr );
public final void position_spec() throws RecognitionException {
Token T_IDENT626=null;
try {
// FortranParser08.g:4689:2: ( expr | T_IDENT T_EQUALS expr )
int alt512=2;
int LA512_0 = input.LA(1);
if ( (LA512_0==BINARY_CONSTANT||LA512_0==HEX_CONSTANT||LA512_0==OCTAL_CONSTANT||LA512_0==T_CHAR_CONSTANT||(LA512_0 >= T_DEFINED_OP && LA512_0 <= T_DIGIT_STRING)||LA512_0==T_FALSE||LA512_0==T_HOLLERITH||LA512_0==T_LBRACKET||LA512_0==T_LPAREN||LA512_0==T_MINUS||LA512_0==T_NOT||LA512_0==T_PLUS||LA512_0==T_REAL_CONSTANT||LA512_0==T_TRUE) ) {
alt512=1;
}
else if ( (LA512_0==T_IDENT) ) {
int LA512_2 = input.LA(2);
if ( (LA512_2==T_AND||LA512_2==T_ASTERISK||LA512_2==T_CHAR_CONSTANT||LA512_2==T_COMMA||LA512_2==T_DEFINED_OP||LA512_2==T_EQ||(LA512_2 >= T_EQV && LA512_2 <= T_EQ_EQ)||LA512_2==T_GE||(LA512_2 >= T_GREATERTHAN && LA512_2 <= T_GT)||(LA512_2 >= T_LBRACKET && LA512_2 <= T_LE)||(LA512_2 >= T_LESSTHAN && LA512_2 <= T_LESSTHAN_EQ)||(LA512_2 >= T_LPAREN && LA512_2 <= T_LT)||LA512_2==T_MINUS||(LA512_2 >= T_NE && LA512_2 <= T_NEQV)||LA512_2==T_OR||LA512_2==T_PERCENT||LA512_2==T_PLUS||LA512_2==T_POWER||LA512_2==T_RPAREN||(LA512_2 >= T_SLASH && LA512_2 <= T_SLASH_SLASH)) ) {
alt512=1;
}
else if ( (LA512_2==T_EQUALS) ) {
alt512=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 512, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 512, 0, input);
throw nvae;
}
switch (alt512) {
case 1 :
// FortranParser08.g:4689:4: expr
{
pushFollow(FOLLOW_expr_in_position_spec22942);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.position_spec(null); }
}
break;
case 2 :
// FortranParser08.g:4691:4: T_IDENT T_EQUALS expr
{
T_IDENT626=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_position_spec22961); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_position_spec22965); if (state.failed) return;
pushFollow(FOLLOW_expr_in_position_spec22967);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.position_spec(T_IDENT626); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "position_spec"
// $ANTLR start "position_spec_list"
// FortranParser08.g:4695:1: position_spec_list : position_spec ( T_COMMA position_spec )* ;
public final void position_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:4697:5: ( position_spec ( T_COMMA position_spec )* )
// FortranParser08.g:4697:10: position_spec ( T_COMMA position_spec )*
{
if ( state.backtracking==0 ) {action.position_spec_list__begin();}
pushFollow(FOLLOW_position_spec_in_position_spec_list23009);
position_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:4698:28: ( T_COMMA position_spec )*
loop513:
while (true) {
int alt513=2;
int LA513_0 = input.LA(1);
if ( (LA513_0==T_COMMA) ) {
alt513=1;
}
switch (alt513) {
case 1 :
// FortranParser08.g:4698:30: T_COMMA position_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_position_spec_list23015); if (state.failed) return;
pushFollow(FOLLOW_position_spec_in_position_spec_list23017);
position_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop513;
}
}
if ( state.backtracking==0 ) {action.position_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "position_spec_list"
// $ANTLR start "flush_stmt"
// FortranParser08.g:4703:1: flush_stmt options {k=3; } : ( ( ( label )? T_FLUSH T_LPAREN )=> ( label )? T_FLUSH T_LPAREN flush_spec_list T_RPAREN end_of_stmt | ( ( label )? T_FLUSH )=> ( label )? T_FLUSH file_unit_number end_of_stmt );
public final void flush_stmt() throws RecognitionException {
Token T_FLUSH628=null;
Token T_FLUSH631=null;
Token label627 =null;
Token end_of_stmt629 =null;
Token label630 =null;
Token end_of_stmt632 =null;
Token lbl = null;
try {
// FortranParser08.g:4707:2: ( ( ( label )? T_FLUSH T_LPAREN )=> ( label )? T_FLUSH T_LPAREN flush_spec_list T_RPAREN end_of_stmt | ( ( label )? T_FLUSH )=> ( label )? T_FLUSH file_unit_number end_of_stmt )
int alt516=2;
int LA516_0 = input.LA(1);
if ( (LA516_0==T_DIGIT_STRING) ) {
int LA516_1 = input.LA(2);
if ( (LA516_1==T_FLUSH) ) {
int LA516_3 = input.LA(3);
if ( (LA516_3==T_LPAREN) ) {
int LA516_20 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 20, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_3==T_NOT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==T_PLUS) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==T_MINUS) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==T_DEFINED_OP) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==T_IDENT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==T_DIGIT_STRING) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==T_CHAR_CONSTANT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==T_REAL_CONSTANT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==T_TRUE) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==T_FALSE) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==BINARY_CONSTANT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==OCTAL_CONSTANT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==HEX_CONSTANT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==T_HOLLERITH) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_3==T_LBRACKET) && (synpred60_FortranParser08())) {
alt516=2;
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 516, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_0==T_FLUSH) ) {
int LA516_2 = input.LA(2);
if ( (LA516_2==T_LPAREN) ) {
int LA516_4 = input.LA(3);
if ( (LA516_4==T_SLASH) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_4==T_NOT) ) {
int LA516_37 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 37, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==T_PLUS) ) {
int LA516_38 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 38, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==T_MINUS) ) {
int LA516_39 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 39, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==T_DEFINED_OP) ) {
int LA516_40 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 40, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==T_IDENT) ) {
int LA516_41 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 41, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==T_DIGIT_STRING) ) {
int LA516_42 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 42, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==T_CHAR_CONSTANT) ) {
int LA516_43 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 43, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==T_REAL_CONSTANT) ) {
int LA516_44 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 44, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==T_LPAREN) ) {
int LA516_45 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 45, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==T_TRUE) ) {
int LA516_46 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 46, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==T_FALSE) ) {
int LA516_47 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 47, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==BINARY_CONSTANT) ) {
int LA516_48 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 48, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==OCTAL_CONSTANT) ) {
int LA516_49 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 49, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==HEX_CONSTANT) ) {
int LA516_50 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 50, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==T_HOLLERITH) ) {
int LA516_51 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 51, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_4==T_LBRACKET) ) {
int LA516_52 = input.LA(4);
if ( (synpred59_FortranParser08()) ) {
alt516=1;
}
else if ( (synpred60_FortranParser08()) ) {
alt516=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 52, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 516, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA516_2==T_NOT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==T_PLUS) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==T_MINUS) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==T_DEFINED_OP) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==T_IDENT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==T_DIGIT_STRING) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==T_CHAR_CONSTANT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==T_REAL_CONSTANT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==T_TRUE) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==T_FALSE) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==BINARY_CONSTANT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==OCTAL_CONSTANT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==HEX_CONSTANT) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==T_HOLLERITH) && (synpred60_FortranParser08())) {
alt516=2;
}
else if ( (LA516_2==T_LBRACKET) && (synpred60_FortranParser08())) {
alt516=2;
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 516, 0, input);
throw nvae;
}
switch (alt516) {
case 1 :
// FortranParser08.g:4707:4: ( ( label )? T_FLUSH T_LPAREN )=> ( label )? T_FLUSH T_LPAREN flush_spec_list T_RPAREN end_of_stmt
{
// FortranParser08.g:4708:13: ( label )?
int alt514=2;
int LA514_0 = input.LA(1);
if ( (LA514_0==T_DIGIT_STRING) ) {
alt514=1;
}
switch (alt514) {
case 1 :
// FortranParser08.g:4708:14: label
{
pushFollow(FOLLOW_label_in_flush_stmt23091);
label627=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label627;}
}
break;
}
T_FLUSH628=(Token)match(input,T_FLUSH,FOLLOW_T_FLUSH_in_flush_stmt23097); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_flush_stmt23099); if (state.failed) return;
pushFollow(FOLLOW_flush_spec_list_in_flush_stmt23101);
flush_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_flush_stmt23116); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_flush_stmt23118);
end_of_stmt629=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.flush_stmt(lbl, T_FLUSH628, end_of_stmt629, true);}
}
break;
case 2 :
// FortranParser08.g:4711:4: ( ( label )? T_FLUSH )=> ( label )? T_FLUSH file_unit_number end_of_stmt
{
// FortranParser08.g:4712:13: ( label )?
int alt515=2;
int LA515_0 = input.LA(1);
if ( (LA515_0==T_DIGIT_STRING) ) {
alt515=1;
}
switch (alt515) {
case 1 :
// FortranParser08.g:4712:14: label
{
pushFollow(FOLLOW_label_in_flush_stmt23153);
label630=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label630;}
}
break;
}
T_FLUSH631=(Token)match(input,T_FLUSH,FOLLOW_T_FLUSH_in_flush_stmt23159); if (state.failed) return;
pushFollow(FOLLOW_file_unit_number_in_flush_stmt23161);
file_unit_number();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_flush_stmt23163);
end_of_stmt632=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.flush_stmt(lbl, T_FLUSH631, end_of_stmt632, false);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "flush_stmt"
// $ANTLR start "flush_spec"
// FortranParser08.g:4719:1: flush_spec : ( expr | T_IDENT T_EQUALS expr );
public final void flush_spec() throws RecognitionException {
Token T_IDENT633=null;
try {
// FortranParser08.g:4720:2: ( expr | T_IDENT T_EQUALS expr )
int alt517=2;
int LA517_0 = input.LA(1);
if ( (LA517_0==BINARY_CONSTANT||LA517_0==HEX_CONSTANT||LA517_0==OCTAL_CONSTANT||LA517_0==T_CHAR_CONSTANT||(LA517_0 >= T_DEFINED_OP && LA517_0 <= T_DIGIT_STRING)||LA517_0==T_FALSE||LA517_0==T_HOLLERITH||LA517_0==T_LBRACKET||LA517_0==T_LPAREN||LA517_0==T_MINUS||LA517_0==T_NOT||LA517_0==T_PLUS||LA517_0==T_REAL_CONSTANT||LA517_0==T_TRUE) ) {
alt517=1;
}
else if ( (LA517_0==T_IDENT) ) {
int LA517_2 = input.LA(2);
if ( (LA517_2==T_AND||LA517_2==T_ASTERISK||LA517_2==T_CHAR_CONSTANT||LA517_2==T_COMMA||LA517_2==T_DEFINED_OP||LA517_2==T_EQ||(LA517_2 >= T_EQV && LA517_2 <= T_EQ_EQ)||LA517_2==T_GE||(LA517_2 >= T_GREATERTHAN && LA517_2 <= T_GT)||(LA517_2 >= T_LBRACKET && LA517_2 <= T_LE)||(LA517_2 >= T_LESSTHAN && LA517_2 <= T_LESSTHAN_EQ)||(LA517_2 >= T_LPAREN && LA517_2 <= T_LT)||LA517_2==T_MINUS||(LA517_2 >= T_NE && LA517_2 <= T_NEQV)||LA517_2==T_OR||LA517_2==T_PERCENT||LA517_2==T_PLUS||LA517_2==T_POWER||LA517_2==T_RPAREN||(LA517_2 >= T_SLASH && LA517_2 <= T_SLASH_SLASH)) ) {
alt517=1;
}
else if ( (LA517_2==T_EQUALS) ) {
alt517=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 517, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 517, 0, input);
throw nvae;
}
switch (alt517) {
case 1 :
// FortranParser08.g:4720:4: expr
{
pushFollow(FOLLOW_expr_in_flush_spec23182);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.flush_spec(null); }
}
break;
case 2 :
// FortranParser08.g:4722:4: T_IDENT T_EQUALS expr
{
T_IDENT633=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_flush_spec23201); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_flush_spec23205); if (state.failed) return;
pushFollow(FOLLOW_expr_in_flush_spec23207);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.flush_spec(T_IDENT633); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "flush_spec"
// $ANTLR start "flush_spec_list"
// FortranParser08.g:4726:1: flush_spec_list : flush_spec ( T_COMMA flush_spec )* ;
public final void flush_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:4728:5: ( flush_spec ( T_COMMA flush_spec )* )
// FortranParser08.g:4728:10: flush_spec ( T_COMMA flush_spec )*
{
if ( state.backtracking==0 ) {action.flush_spec_list__begin();}
pushFollow(FOLLOW_flush_spec_in_flush_spec_list23249);
flush_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:4729:25: ( T_COMMA flush_spec )*
loop518:
while (true) {
int alt518=2;
int LA518_0 = input.LA(1);
if ( (LA518_0==T_COMMA) ) {
alt518=1;
}
switch (alt518) {
case 1 :
// FortranParser08.g:4729:27: T_COMMA flush_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_flush_spec_list23255); if (state.failed) return;
pushFollow(FOLLOW_flush_spec_in_flush_spec_list23257);
flush_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop518;
}
}
if ( state.backtracking==0 ) {action.flush_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "flush_spec_list"
// $ANTLR start "inquire_stmt"
// FortranParser08.g:4734:1: inquire_stmt : ( ( label )? T_INQUIRE T_LPAREN inquire_spec_list T_RPAREN end_of_stmt | ( label )? T_INQUIRE_STMT_2 T_INQUIRE T_LPAREN T_IDENT T_EQUALS scalar_int_variable T_RPAREN output_item_list end_of_stmt );
public final void inquire_stmt() throws RecognitionException {
Token T_INQUIRE635=null;
Token T_INQUIRE638=null;
Token T_IDENT639=null;
Token label634 =null;
Token end_of_stmt636 =null;
Token label637 =null;
Token end_of_stmt640 =null;
Token lbl = null;
try {
// FortranParser08.g:4737:2: ( ( label )? T_INQUIRE T_LPAREN inquire_spec_list T_RPAREN end_of_stmt | ( label )? T_INQUIRE_STMT_2 T_INQUIRE T_LPAREN T_IDENT T_EQUALS scalar_int_variable T_RPAREN output_item_list end_of_stmt )
int alt521=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA521_1 = input.LA(2);
if ( (LA521_1==T_INQUIRE) ) {
alt521=1;
}
else if ( (LA521_1==T_INQUIRE_STMT_2) ) {
alt521=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 521, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_INQUIRE:
{
alt521=1;
}
break;
case T_INQUIRE_STMT_2:
{
alt521=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 521, 0, input);
throw nvae;
}
switch (alt521) {
case 1 :
// FortranParser08.g:4737:4: ( label )? T_INQUIRE T_LPAREN inquire_spec_list T_RPAREN end_of_stmt
{
// FortranParser08.g:4737:4: ( label )?
int alt519=2;
int LA519_0 = input.LA(1);
if ( (LA519_0==T_DIGIT_STRING) ) {
alt519=1;
}
switch (alt519) {
case 1 :
// FortranParser08.g:4737:5: label
{
pushFollow(FOLLOW_label_in_inquire_stmt23297);
label634=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label634;}
}
break;
}
T_INQUIRE635=(Token)match(input,T_INQUIRE,FOLLOW_T_INQUIRE_in_inquire_stmt23303); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_inquire_stmt23305); if (state.failed) return;
pushFollow(FOLLOW_inquire_spec_list_in_inquire_stmt23307);
inquire_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_inquire_stmt23322); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_inquire_stmt23324);
end_of_stmt636=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.inquire_stmt(lbl, T_INQUIRE635, null, end_of_stmt636,
false);}
}
break;
case 2 :
// FortranParser08.g:4741:4: ( label )? T_INQUIRE_STMT_2 T_INQUIRE T_LPAREN T_IDENT T_EQUALS scalar_int_variable T_RPAREN output_item_list end_of_stmt
{
// FortranParser08.g:4741:4: ( label )?
int alt520=2;
int LA520_0 = input.LA(1);
if ( (LA520_0==T_DIGIT_STRING) ) {
alt520=1;
}
switch (alt520) {
case 1 :
// FortranParser08.g:4741:5: label
{
pushFollow(FOLLOW_label_in_inquire_stmt23344);
label637=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label637;}
}
break;
}
match(input,T_INQUIRE_STMT_2,FOLLOW_T_INQUIRE_STMT_2_in_inquire_stmt23350); if (state.failed) return;
T_INQUIRE638=(Token)match(input,T_INQUIRE,FOLLOW_T_INQUIRE_in_inquire_stmt23365); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_inquire_stmt23367); if (state.failed) return;
T_IDENT639=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_inquire_stmt23369); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_inquire_stmt23373); if (state.failed) return;
pushFollow(FOLLOW_scalar_int_variable_in_inquire_stmt23388);
scalar_int_variable();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_inquire_stmt23390); if (state.failed) return;
pushFollow(FOLLOW_output_item_list_in_inquire_stmt23392);
output_item_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_inquire_stmt23394);
end_of_stmt640=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.inquire_stmt(lbl, T_INQUIRE638, T_IDENT639,
end_of_stmt640, true);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "inquire_stmt"
// $ANTLR start "inquire_spec"
// FortranParser08.g:4753:1: inquire_spec : ( expr | T_IDENT T_EQUALS expr );
public final void inquire_spec() throws RecognitionException {
Token T_IDENT641=null;
try {
// FortranParser08.g:4754:2: ( expr | T_IDENT T_EQUALS expr )
int alt522=2;
int LA522_0 = input.LA(1);
if ( (LA522_0==BINARY_CONSTANT||LA522_0==HEX_CONSTANT||LA522_0==OCTAL_CONSTANT||LA522_0==T_CHAR_CONSTANT||(LA522_0 >= T_DEFINED_OP && LA522_0 <= T_DIGIT_STRING)||LA522_0==T_FALSE||LA522_0==T_HOLLERITH||LA522_0==T_LBRACKET||LA522_0==T_LPAREN||LA522_0==T_MINUS||LA522_0==T_NOT||LA522_0==T_PLUS||LA522_0==T_REAL_CONSTANT||LA522_0==T_TRUE) ) {
alt522=1;
}
else if ( (LA522_0==T_IDENT) ) {
int LA522_2 = input.LA(2);
if ( (LA522_2==T_AND||LA522_2==T_ASTERISK||LA522_2==T_CHAR_CONSTANT||LA522_2==T_COMMA||LA522_2==T_DEFINED_OP||LA522_2==T_EQ||(LA522_2 >= T_EQV && LA522_2 <= T_EQ_EQ)||LA522_2==T_GE||(LA522_2 >= T_GREATERTHAN && LA522_2 <= T_GT)||(LA522_2 >= T_LBRACKET && LA522_2 <= T_LE)||(LA522_2 >= T_LESSTHAN && LA522_2 <= T_LESSTHAN_EQ)||(LA522_2 >= T_LPAREN && LA522_2 <= T_LT)||LA522_2==T_MINUS||(LA522_2 >= T_NE && LA522_2 <= T_NEQV)||LA522_2==T_OR||LA522_2==T_PERCENT||LA522_2==T_PLUS||LA522_2==T_POWER||LA522_2==T_RPAREN||(LA522_2 >= T_SLASH && LA522_2 <= T_SLASH_SLASH)) ) {
alt522=1;
}
else if ( (LA522_2==T_EQUALS) ) {
alt522=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 522, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 522, 0, input);
throw nvae;
}
switch (alt522) {
case 1 :
// FortranParser08.g:4754:4: expr
{
pushFollow(FOLLOW_expr_in_inquire_spec23416);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.inquire_spec(null); }
}
break;
case 2 :
// FortranParser08.g:4756:4: T_IDENT T_EQUALS expr
{
T_IDENT641=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_inquire_spec23435); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_inquire_spec23450); if (state.failed) return;
pushFollow(FOLLOW_expr_in_inquire_spec23452);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.inquire_spec(T_IDENT641); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "inquire_spec"
// $ANTLR start "inquire_spec_list"
// FortranParser08.g:4767:1: inquire_spec_list : inquire_spec ( T_COMMA inquire_spec )* ;
public final void inquire_spec_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:4769:5: ( inquire_spec ( T_COMMA inquire_spec )* )
// FortranParser08.g:4769:10: inquire_spec ( T_COMMA inquire_spec )*
{
if ( state.backtracking==0 ) {action.inquire_spec_list__begin();}
pushFollow(FOLLOW_inquire_spec_in_inquire_spec_list23492);
inquire_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:4770:27: ( T_COMMA inquire_spec )*
loop523:
while (true) {
int alt523=2;
int LA523_0 = input.LA(1);
if ( (LA523_0==T_COMMA) ) {
alt523=1;
}
switch (alt523) {
case 1 :
// FortranParser08.g:4770:29: T_COMMA inquire_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_inquire_spec_list23498); if (state.failed) return;
pushFollow(FOLLOW_inquire_spec_in_inquire_spec_list23500);
inquire_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop523;
}
}
if ( state.backtracking==0 ) {action.inquire_spec_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "inquire_spec_list"
// $ANTLR start "format_stmt"
// FortranParser08.g:4781:1: format_stmt : ( label )? T_FORMAT format_specification end_of_stmt ;
public final void format_stmt() throws RecognitionException {
Token T_FORMAT643=null;
Token label642 =null;
Token end_of_stmt644 =null;
Token lbl = null;
try {
// FortranParser08.g:4784:2: ( ( label )? T_FORMAT format_specification end_of_stmt )
// FortranParser08.g:4784:4: ( label )? T_FORMAT format_specification end_of_stmt
{
// FortranParser08.g:4784:4: ( label )?
int alt524=2;
int LA524_0 = input.LA(1);
if ( (LA524_0==T_DIGIT_STRING) ) {
alt524=1;
}
switch (alt524) {
case 1 :
// FortranParser08.g:4784:5: label
{
pushFollow(FOLLOW_label_in_format_stmt23545);
label642=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label642;}
}
break;
}
T_FORMAT643=(Token)match(input,T_FORMAT,FOLLOW_T_FORMAT_in_format_stmt23551); if (state.failed) return;
pushFollow(FOLLOW_format_specification_in_format_stmt23553);
format_specification();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_format_stmt23555);
end_of_stmt644=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.format_stmt(lbl, T_FORMAT643, end_of_stmt644);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "format_stmt"
// $ANTLR start "format_specification"
// FortranParser08.g:4789:1: format_specification : T_LPAREN ( format_item_list )? T_RPAREN ;
public final void format_specification() throws RecognitionException {
boolean hasFormatItemList=false;
try {
// FortranParser08.g:4791:2: ( T_LPAREN ( format_item_list )? T_RPAREN )
// FortranParser08.g:4791:4: T_LPAREN ( format_item_list )? T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_format_specification23576); if (state.failed) return;
// FortranParser08.g:4791:13: ( format_item_list )?
int alt525=2;
int LA525_0 = input.LA(1);
if ( (LA525_0==T_CHAR_STRING_EDIT_DESC||LA525_0==T_CONTROL_EDIT_DESC||LA525_0==T_DATA_EDIT_DESC||LA525_0==T_DIGIT_STRING||LA525_0==T_LPAREN) ) {
alt525=1;
}
switch (alt525) {
case 1 :
// FortranParser08.g:4791:15: format_item_list
{
pushFollow(FOLLOW_format_item_list_in_format_specification23580);
format_item_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasFormatItemList=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_format_specification23586); if (state.failed) return;
if ( state.backtracking==0 ) {action.format_specification(hasFormatItemList);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "format_specification"
// $ANTLR start "format_item"
// FortranParser08.g:4799:1: format_item : ( T_DATA_EDIT_DESC | T_CONTROL_EDIT_DESC | T_CHAR_STRING_EDIT_DESC | ( T_DIGIT_STRING )? T_LPAREN format_item_list T_RPAREN );
public final void format_item() throws RecognitionException {
Token T_DATA_EDIT_DESC645=null;
Token T_CONTROL_EDIT_DESC646=null;
Token T_CHAR_STRING_EDIT_DESC647=null;
Token T_DIGIT_STRING648=null;
Token descOrDigit=null; boolean hasFormatItemList=false;
try {
// FortranParser08.g:4801:5: ( T_DATA_EDIT_DESC | T_CONTROL_EDIT_DESC | T_CHAR_STRING_EDIT_DESC | ( T_DIGIT_STRING )? T_LPAREN format_item_list T_RPAREN )
int alt527=4;
switch ( input.LA(1) ) {
case T_DATA_EDIT_DESC:
{
alt527=1;
}
break;
case T_CONTROL_EDIT_DESC:
{
alt527=2;
}
break;
case T_CHAR_STRING_EDIT_DESC:
{
alt527=3;
}
break;
case T_DIGIT_STRING:
case T_LPAREN:
{
alt527=4;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 527, 0, input);
throw nvae;
}
switch (alt527) {
case 1 :
// FortranParser08.g:4801:9: T_DATA_EDIT_DESC
{
T_DATA_EDIT_DESC645=(Token)match(input,T_DATA_EDIT_DESC,FOLLOW_T_DATA_EDIT_DESC_in_format_item23615); if (state.failed) return;
if ( state.backtracking==0 ) {action.format_item(T_DATA_EDIT_DESC645,hasFormatItemList);}
}
break;
case 2 :
// FortranParser08.g:4803:9: T_CONTROL_EDIT_DESC
{
T_CONTROL_EDIT_DESC646=(Token)match(input,T_CONTROL_EDIT_DESC,FOLLOW_T_CONTROL_EDIT_DESC_in_format_item23634); if (state.failed) return;
if ( state.backtracking==0 ) {action.format_item(T_CONTROL_EDIT_DESC646,hasFormatItemList);}
}
break;
case 3 :
// FortranParser08.g:4805:9: T_CHAR_STRING_EDIT_DESC
{
T_CHAR_STRING_EDIT_DESC647=(Token)match(input,T_CHAR_STRING_EDIT_DESC,FOLLOW_T_CHAR_STRING_EDIT_DESC_in_format_item23652); if (state.failed) return;
if ( state.backtracking==0 ) {action.format_item(T_CHAR_STRING_EDIT_DESC647,hasFormatItemList);}
}
break;
case 4 :
// FortranParser08.g:4807:9: ( T_DIGIT_STRING )? T_LPAREN format_item_list T_RPAREN
{
// FortranParser08.g:4807:9: ( T_DIGIT_STRING )?
int alt526=2;
int LA526_0 = input.LA(1);
if ( (LA526_0==T_DIGIT_STRING) ) {
alt526=1;
}
switch (alt526) {
case 1 :
// FortranParser08.g:4807:10: T_DIGIT_STRING
{
T_DIGIT_STRING648=(Token)match(input,T_DIGIT_STRING,FOLLOW_T_DIGIT_STRING_in_format_item23671); if (state.failed) return;
if ( state.backtracking==0 ) {descOrDigit=T_DIGIT_STRING648;}
}
break;
}
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_format_item23678); if (state.failed) return;
pushFollow(FOLLOW_format_item_list_in_format_item23693);
format_item_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_format_item23695); if (state.failed) return;
if ( state.backtracking==0 ) {action.format_item(descOrDigit,hasFormatItemList);}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "format_item"
// $ANTLR start "format_item_list"
// FortranParser08.g:4815:1: format_item_list : format_item ( ( T_COMMA )? format_item )* ;
public final void format_item_list() throws RecognitionException {
int count=1;
try {
// FortranParser08.g:4817:5: ( format_item ( ( T_COMMA )? format_item )* )
// FortranParser08.g:4817:10: format_item ( ( T_COMMA )? format_item )*
{
if ( state.backtracking==0 ) {action.format_item_list__begin();}
pushFollow(FOLLOW_format_item_in_format_item_list23734);
format_item();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:4818:15: ( ( T_COMMA )? format_item )*
loop529:
while (true) {
int alt529=2;
int LA529_0 = input.LA(1);
if ( (LA529_0==T_CHAR_STRING_EDIT_DESC||LA529_0==T_COMMA||LA529_0==T_CONTROL_EDIT_DESC||LA529_0==T_DATA_EDIT_DESC||LA529_0==T_DIGIT_STRING||LA529_0==T_LPAREN) ) {
alt529=1;
}
switch (alt529) {
case 1 :
// FortranParser08.g:4818:17: ( T_COMMA )? format_item
{
// FortranParser08.g:4818:17: ( T_COMMA )?
int alt528=2;
int LA528_0 = input.LA(1);
if ( (LA528_0==T_COMMA) ) {
alt528=1;
}
switch (alt528) {
case 1 :
// FortranParser08.g:4818:18: T_COMMA
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_format_item_list23739); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_format_item_in_format_item_list23743);
format_item();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop529;
}
}
if ( state.backtracking==0 ) {action.format_item_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "format_item_list"
// $ANTLR start "v_list"
// FortranParser08.g:4877:1: v_list : (pm= T_PLUS | T_MINUS )? ds= T_DIGIT_STRING ( T_COMMA (pm= T_PLUS | T_MINUS )? ds= T_DIGIT_STRING )* ;
public final void v_list() throws RecognitionException {
Token pm=null;
Token ds=null;
int count=0;
try {
// FortranParser08.g:4879:5: ( (pm= T_PLUS | T_MINUS )? ds= T_DIGIT_STRING ( T_COMMA (pm= T_PLUS | T_MINUS )? ds= T_DIGIT_STRING )* )
// FortranParser08.g:4879:10: (pm= T_PLUS | T_MINUS )? ds= T_DIGIT_STRING ( T_COMMA (pm= T_PLUS | T_MINUS )? ds= T_DIGIT_STRING )*
{
if ( state.backtracking==0 ) {action.v_list__begin();}
// FortranParser08.g:4880:3: (pm= T_PLUS | T_MINUS )?
int alt530=3;
int LA530_0 = input.LA(1);
if ( (LA530_0==T_PLUS) ) {
alt530=1;
}
else if ( (LA530_0==T_MINUS) ) {
alt530=2;
}
switch (alt530) {
case 1 :
// FortranParser08.g:4880:4: pm= T_PLUS
{
pm=(Token)match(input,T_PLUS,FOLLOW_T_PLUS_in_v_list23844); if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:4880:14: T_MINUS
{
match(input,T_MINUS,FOLLOW_T_MINUS_in_v_list23846); if (state.failed) return;
}
break;
}
ds=(Token)match(input,T_DIGIT_STRING,FOLLOW_T_DIGIT_STRING_in_v_list23852); if (state.failed) return;
if ( state.backtracking==0 ) {
count++;
action.v_list_part(pm, ds);
}
// FortranParser08.g:4885:3: ( T_COMMA (pm= T_PLUS | T_MINUS )? ds= T_DIGIT_STRING )*
loop532:
while (true) {
int alt532=2;
int LA532_0 = input.LA(1);
if ( (LA532_0==T_COMMA) ) {
alt532=1;
}
switch (alt532) {
case 1 :
// FortranParser08.g:4885:5: T_COMMA (pm= T_PLUS | T_MINUS )? ds= T_DIGIT_STRING
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_v_list23863); if (state.failed) return;
// FortranParser08.g:4885:13: (pm= T_PLUS | T_MINUS )?
int alt531=3;
int LA531_0 = input.LA(1);
if ( (LA531_0==T_PLUS) ) {
alt531=1;
}
else if ( (LA531_0==T_MINUS) ) {
alt531=2;
}
switch (alt531) {
case 1 :
// FortranParser08.g:4885:14: pm= T_PLUS
{
pm=(Token)match(input,T_PLUS,FOLLOW_T_PLUS_in_v_list23868); if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:4885:24: T_MINUS
{
match(input,T_MINUS,FOLLOW_T_MINUS_in_v_list23870); if (state.failed) return;
}
break;
}
ds=(Token)match(input,T_DIGIT_STRING,FOLLOW_T_DIGIT_STRING_in_v_list23876); if (state.failed) return;
if ( state.backtracking==0 ) {
count++;
action.v_list_part(pm, ds);
}
}
break;
default :
break loop532;
}
}
if ( state.backtracking==0 ) {action.v_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "v_list"
// $ANTLR start "program_stmt"
// FortranParser08.g:4931:1: program_stmt : ( label )? T_PROGRAM T_IDENT end_of_stmt ;
public final void program_stmt() throws RecognitionException {
Token T_PROGRAM650=null;
Token T_IDENT651=null;
Token label649 =null;
Token end_of_stmt652 =null;
Token lbl = null;
try {
// FortranParser08.g:4934:2: ( ( label )? T_PROGRAM T_IDENT end_of_stmt )
// FortranParser08.g:4934:4: ( label )? T_PROGRAM T_IDENT end_of_stmt
{
// FortranParser08.g:4934:4: ( label )?
int alt533=2;
int LA533_0 = input.LA(1);
if ( (LA533_0==T_DIGIT_STRING) ) {
alt533=1;
}
switch (alt533) {
case 1 :
// FortranParser08.g:4934:5: label
{
pushFollow(FOLLOW_label_in_program_stmt23957);
label649=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label649;}
}
break;
}
T_PROGRAM650=(Token)match(input,T_PROGRAM,FOLLOW_T_PROGRAM_in_program_stmt23963); if (state.failed) return;
T_IDENT651=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_program_stmt23965); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_program_stmt23967);
end_of_stmt652=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.program_stmt(lbl, T_PROGRAM650, T_IDENT651, end_of_stmt652); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "program_stmt"
// $ANTLR start "end_program_stmt"
// FortranParser08.g:4940:1: end_program_stmt : ( ( label )? T_END T_PROGRAM ( T_IDENT )? end_of_stmt | ( label )? T_ENDPROGRAM ( T_IDENT )? end_of_stmt | ( label )? T_END end_of_stmt );
public final void end_program_stmt() throws RecognitionException {
Token T_IDENT654=null;
Token T_END655=null;
Token T_PROGRAM656=null;
Token T_IDENT659=null;
Token T_ENDPROGRAM660=null;
Token T_END663=null;
Token label653 =null;
Token end_of_stmt657 =null;
Token label658 =null;
Token end_of_stmt661 =null;
Token label662 =null;
Token end_of_stmt664 =null;
Token lbl = null; Token id = null;
try {
// FortranParser08.g:4943:2: ( ( label )? T_END T_PROGRAM ( T_IDENT )? end_of_stmt | ( label )? T_ENDPROGRAM ( T_IDENT )? end_of_stmt | ( label )? T_END end_of_stmt )
int alt539=3;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA539_1 = input.LA(2);
if ( (LA539_1==T_END) ) {
int LA539_2 = input.LA(3);
if ( (LA539_2==T_PROGRAM) ) {
alt539=1;
}
else if ( (LA539_2==EOF||LA539_2==T_EOS) ) {
alt539=3;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 539, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA539_1==T_ENDPROGRAM) ) {
alt539=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 539, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
int LA539_2 = input.LA(2);
if ( (LA539_2==T_PROGRAM) ) {
alt539=1;
}
else if ( (LA539_2==EOF||LA539_2==T_EOS) ) {
alt539=3;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 539, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ENDPROGRAM:
{
alt539=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 539, 0, input);
throw nvae;
}
switch (alt539) {
case 1 :
// FortranParser08.g:4943:4: ( label )? T_END T_PROGRAM ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:4943:4: ( label )?
int alt534=2;
int LA534_0 = input.LA(1);
if ( (LA534_0==T_DIGIT_STRING) ) {
alt534=1;
}
switch (alt534) {
case 1 :
// FortranParser08.g:4943:5: label
{
pushFollow(FOLLOW_label_in_end_program_stmt23996);
label653=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label653;}
}
break;
}
T_END655=(Token)match(input,T_END,FOLLOW_T_END_in_end_program_stmt24002); if (state.failed) return;
T_PROGRAM656=(Token)match(input,T_PROGRAM,FOLLOW_T_PROGRAM_in_end_program_stmt24004); if (state.failed) return;
// FortranParser08.g:4943:46: ( T_IDENT )?
int alt535=2;
int LA535_0 = input.LA(1);
if ( (LA535_0==T_IDENT) ) {
alt535=1;
}
switch (alt535) {
case 1 :
// FortranParser08.g:4943:47: T_IDENT
{
T_IDENT654=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_program_stmt24007); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT654;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_program_stmt24026);
end_of_stmt657=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.end_program_stmt(lbl, T_END655, T_PROGRAM656, id,
end_of_stmt657); }
}
break;
case 2 :
// FortranParser08.g:4947:4: ( label )? T_ENDPROGRAM ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:4947:4: ( label )?
int alt536=2;
int LA536_0 = input.LA(1);
if ( (LA536_0==T_DIGIT_STRING) ) {
alt536=1;
}
switch (alt536) {
case 1 :
// FortranParser08.g:4947:5: label
{
pushFollow(FOLLOW_label_in_end_program_stmt24037);
label658=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label658;}
}
break;
}
T_ENDPROGRAM660=(Token)match(input,T_ENDPROGRAM,FOLLOW_T_ENDPROGRAM_in_end_program_stmt24043); if (state.failed) return;
// FortranParser08.g:4947:43: ( T_IDENT )?
int alt537=2;
int LA537_0 = input.LA(1);
if ( (LA537_0==T_IDENT) ) {
alt537=1;
}
switch (alt537) {
case 1 :
// FortranParser08.g:4947:44: T_IDENT
{
T_IDENT659=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_program_stmt24046); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT659;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_program_stmt24065);
end_of_stmt661=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.end_program_stmt(lbl, T_ENDPROGRAM660, null, id,
end_of_stmt661); }
}
break;
case 3 :
// FortranParser08.g:4951:4: ( label )? T_END end_of_stmt
{
// FortranParser08.g:4951:4: ( label )?
int alt538=2;
int LA538_0 = input.LA(1);
if ( (LA538_0==T_DIGIT_STRING) ) {
alt538=1;
}
switch (alt538) {
case 1 :
// FortranParser08.g:4951:5: label
{
pushFollow(FOLLOW_label_in_end_program_stmt24076);
label662=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label662;}
}
break;
}
T_END663=(Token)match(input,T_END,FOLLOW_T_END_in_end_program_stmt24082); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_end_program_stmt24084);
end_of_stmt664=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.end_program_stmt(lbl, T_END663, null, null,
end_of_stmt664); }
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_program_stmt"
// $ANTLR start "module"
// FortranParser08.g:4962:1: module : module_stmt specification_part ( module_subprogram_part )? end_module_stmt ;
public final void module() throws RecognitionException {
try {
// FortranParser08.g:4966:2: ( module_stmt specification_part ( module_subprogram_part )? end_module_stmt )
// FortranParser08.g:4966:4: module_stmt specification_part ( module_subprogram_part )? end_module_stmt
{
pushFollow(FOLLOW_module_stmt_in_module24112);
module_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_specification_part_in_module24116);
gFortranParserExtras.specification_part();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:4968:3: ( module_subprogram_part )?
int alt540=2;
int LA540_0 = input.LA(1);
if ( (LA540_0==T_DIGIT_STRING) ) {
int LA540_1 = input.LA(2);
if ( (LA540_1==T_CONTAINS) ) {
alt540=1;
}
}
else if ( (LA540_0==T_CONTAINS) ) {
alt540=1;
}
switch (alt540) {
case 1 :
// FortranParser08.g:4968:5: module_subprogram_part
{
pushFollow(FOLLOW_module_subprogram_part_in_module24122);
module_subprogram_part();
state._fsp--;
if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_end_module_stmt_in_module24129);
end_module_stmt();
state._fsp--;
if (state.failed) return;
}
if ( state.backtracking==0 ) {
action.module();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "module"
// $ANTLR start "module_stmt"
// FortranParser08.g:4973:1: module_stmt : ( label )? T_MODULE ( T_IDENT )? end_of_stmt ;
public final void module_stmt() throws RecognitionException {
Token T_IDENT666=null;
Token T_MODULE667=null;
Token label665 =null;
Token end_of_stmt668 =null;
Token lbl = null; Token id = null;
try {
// FortranParser08.g:4976:3: ( ( label )? T_MODULE ( T_IDENT )? end_of_stmt )
// FortranParser08.g:4976:6: ( label )? T_MODULE ( T_IDENT )? end_of_stmt
{
if ( state.backtracking==0 ) {action.module_stmt__begin();}
// FortranParser08.g:4977:4: ( label )?
int alt541=2;
int LA541_0 = input.LA(1);
if ( (LA541_0==T_DIGIT_STRING) ) {
alt541=1;
}
switch (alt541) {
case 1 :
// FortranParser08.g:4977:5: label
{
pushFollow(FOLLOW_label_in_module_stmt24158);
label665=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label665;}
}
break;
}
T_MODULE667=(Token)match(input,T_MODULE,FOLLOW_T_MODULE_in_module_stmt24164); if (state.failed) return;
// FortranParser08.g:4977:39: ( T_IDENT )?
int alt542=2;
int LA542_0 = input.LA(1);
if ( (LA542_0==T_IDENT) ) {
alt542=1;
}
switch (alt542) {
case 1 :
// FortranParser08.g:4977:41: T_IDENT
{
T_IDENT666=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_module_stmt24168); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT666;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_module_stmt24188);
end_of_stmt668=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.module_stmt(lbl, T_MODULE667, id, end_of_stmt668);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "module_stmt"
// $ANTLR start "end_module_stmt"
// FortranParser08.g:4984:1: end_module_stmt : ( ( label )? T_END T_MODULE ( T_IDENT )? end_of_stmt | ( label )? T_ENDMODULE ( T_IDENT )? end_of_stmt | ( label )? T_END end_of_stmt );
public final void end_module_stmt() throws RecognitionException {
Token T_IDENT670=null;
Token T_END671=null;
Token T_MODULE672=null;
Token T_IDENT675=null;
Token T_ENDMODULE676=null;
Token T_END679=null;
Token label669 =null;
Token end_of_stmt673 =null;
Token label674 =null;
Token end_of_stmt677 =null;
Token label678 =null;
Token end_of_stmt680 =null;
Token lbl = null; Token id = null;
try {
// FortranParser08.g:4987:5: ( ( label )? T_END T_MODULE ( T_IDENT )? end_of_stmt | ( label )? T_ENDMODULE ( T_IDENT )? end_of_stmt | ( label )? T_END end_of_stmt )
int alt548=3;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA548_1 = input.LA(2);
if ( (LA548_1==T_END) ) {
int LA548_2 = input.LA(3);
if ( (LA548_2==T_MODULE) ) {
alt548=1;
}
else if ( (LA548_2==EOF||LA548_2==T_EOS) ) {
alt548=3;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 548, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA548_1==T_ENDMODULE) ) {
alt548=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 548, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
int LA548_2 = input.LA(2);
if ( (LA548_2==T_MODULE) ) {
alt548=1;
}
else if ( (LA548_2==EOF||LA548_2==T_EOS) ) {
alt548=3;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 548, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ENDMODULE:
{
alt548=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 548, 0, input);
throw nvae;
}
switch (alt548) {
case 1 :
// FortranParser08.g:4987:8: ( label )? T_END T_MODULE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:4987:8: ( label )?
int alt543=2;
int LA543_0 = input.LA(1);
if ( (LA543_0==T_DIGIT_STRING) ) {
alt543=1;
}
switch (alt543) {
case 1 :
// FortranParser08.g:4987:9: label
{
pushFollow(FOLLOW_label_in_end_module_stmt24221);
label669=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label669;}
}
break;
}
T_END671=(Token)match(input,T_END,FOLLOW_T_END_in_end_module_stmt24227); if (state.failed) return;
T_MODULE672=(Token)match(input,T_MODULE,FOLLOW_T_MODULE_in_end_module_stmt24229); if (state.failed) return;
// FortranParser08.g:4987:49: ( T_IDENT )?
int alt544=2;
int LA544_0 = input.LA(1);
if ( (LA544_0==T_IDENT) ) {
alt544=1;
}
switch (alt544) {
case 1 :
// FortranParser08.g:4987:50: T_IDENT
{
T_IDENT670=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_module_stmt24232); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT670;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_module_stmt24251);
end_of_stmt673=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_module_stmt(lbl, T_END671, T_MODULE672, id,
end_of_stmt673);}
}
break;
case 2 :
// FortranParser08.g:4991:8: ( label )? T_ENDMODULE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:4991:8: ( label )?
int alt545=2;
int LA545_0 = input.LA(1);
if ( (LA545_0==T_DIGIT_STRING) ) {
alt545=1;
}
switch (alt545) {
case 1 :
// FortranParser08.g:4991:9: label
{
pushFollow(FOLLOW_label_in_end_module_stmt24275);
label674=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label674;}
}
break;
}
T_ENDMODULE676=(Token)match(input,T_ENDMODULE,FOLLOW_T_ENDMODULE_in_end_module_stmt24281); if (state.failed) return;
// FortranParser08.g:4991:46: ( T_IDENT )?
int alt546=2;
int LA546_0 = input.LA(1);
if ( (LA546_0==T_IDENT) ) {
alt546=1;
}
switch (alt546) {
case 1 :
// FortranParser08.g:4991:47: T_IDENT
{
T_IDENT675=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_module_stmt24284); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT675;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_module_stmt24303);
end_of_stmt677=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_module_stmt(lbl, T_ENDMODULE676, null, id,
end_of_stmt677);}
}
break;
case 3 :
// FortranParser08.g:4995:8: ( label )? T_END end_of_stmt
{
// FortranParser08.g:4995:8: ( label )?
int alt547=2;
int LA547_0 = input.LA(1);
if ( (LA547_0==T_DIGIT_STRING) ) {
alt547=1;
}
switch (alt547) {
case 1 :
// FortranParser08.g:4995:9: label
{
pushFollow(FOLLOW_label_in_end_module_stmt24323);
label678=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label678;}
}
break;
}
T_END679=(Token)match(input,T_END,FOLLOW_T_END_in_end_module_stmt24329); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_end_module_stmt24331);
end_of_stmt680=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_module_stmt(lbl, T_END679, null, id, end_of_stmt680);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_module_stmt"
// $ANTLR start "module_subprogram_part"
// FortranParser08.g:5009:1: module_subprogram_part : contains_stmt ( module_subprogram )* ;
public final void module_subprogram_part() throws RecognitionException {
int count = 0;
try {
// FortranParser08.g:5011:4: ( contains_stmt ( module_subprogram )* )
// FortranParser08.g:5011:8: contains_stmt ( module_subprogram )*
{
pushFollow(FOLLOW_contains_stmt_in_module_subprogram_part24375);
contains_stmt();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:5012:8: ( module_subprogram )*
loop549:
while (true) {
int alt549=2;
int LA549_0 = input.LA(1);
if ( (LA549_0==T_DIGIT_STRING) ) {
int LA549_1 = input.LA(2);
if ( (LA549_1==T_ELEMENTAL||LA549_1==T_FUNCTION||LA549_1==T_MODULE||LA549_1==T_PURE||LA549_1==T_RECURSIVE||LA549_1==T_SUBROUTINE) ) {
alt549=1;
}
}
else if ( (LA549_0==T_CHARACTER||LA549_0==T_CLASS||LA549_0==T_COMPLEX||(LA549_0 >= T_DOUBLE && LA549_0 <= T_DOUBLEPRECISION)||LA549_0==T_ELEMENTAL||LA549_0==T_FUNCTION||LA549_0==T_INTEGER||LA549_0==T_LOGICAL||LA549_0==T_MODULE||LA549_0==T_PURE||LA549_0==T_REAL||LA549_0==T_RECURSIVE||LA549_0==T_SUBROUTINE||LA549_0==T_TYPE) ) {
alt549=1;
}
switch (alt549) {
case 1 :
// FortranParser08.g:5012:10: module_subprogram
{
pushFollow(FOLLOW_module_subprogram_in_module_subprogram_part24386);
module_subprogram();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count += 1;}
}
break;
default :
break loop549;
}
}
if ( state.backtracking==0 ) { action.module_subprogram_part(count); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "module_subprogram_part"
// $ANTLR start "module_subprogram"
// FortranParser08.g:5029:1: module_subprogram : ( ( prefix )? function_subprogram | subroutine_subprogram | separate_module_subprogram );
public final void module_subprogram() throws RecognitionException {
boolean hasPrefix = false;
try {
// FortranParser08.g:5032:4: ( ( prefix )? function_subprogram | subroutine_subprogram | separate_module_subprogram )
int alt551=3;
switch ( input.LA(1) ) {
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_FUNCTION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
case T_TYPE:
{
alt551=1;
}
break;
case T_RECURSIVE:
{
switch ( input.LA(2) ) {
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DIGIT_STRING:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_FUNCTION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
case T_TYPE:
{
alt551=1;
}
break;
case T_RECURSIVE:
{
int LA551_8 = input.LA(3);
if ( (LA551_8==T_CHARACTER||LA551_8==T_CLASS||LA551_8==T_COMPLEX||LA551_8==T_DIGIT_STRING||(LA551_8 >= T_DOUBLE && LA551_8 <= T_DOUBLEPRECISION)||LA551_8==T_ELEMENTAL||LA551_8==T_FUNCTION||LA551_8==T_INTEGER||LA551_8==T_LOGICAL||LA551_8==T_PURE||LA551_8==T_REAL||LA551_8==T_RECURSIVE||LA551_8==T_TYPE) ) {
alt551=1;
}
else if ( (LA551_8==T_SUBROUTINE) ) {
alt551=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 551, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PURE:
{
int LA551_9 = input.LA(3);
if ( (LA551_9==T_CHARACTER||LA551_9==T_CLASS||LA551_9==T_COMPLEX||LA551_9==T_DIGIT_STRING||(LA551_9 >= T_DOUBLE && LA551_9 <= T_DOUBLEPRECISION)||LA551_9==T_ELEMENTAL||LA551_9==T_FUNCTION||LA551_9==T_INTEGER||LA551_9==T_LOGICAL||LA551_9==T_PURE||LA551_9==T_REAL||LA551_9==T_RECURSIVE||LA551_9==T_TYPE) ) {
alt551=1;
}
else if ( (LA551_9==T_SUBROUTINE) ) {
alt551=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 551, 9, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELEMENTAL:
{
int LA551_10 = input.LA(3);
if ( (LA551_10==T_CHARACTER||LA551_10==T_CLASS||LA551_10==T_COMPLEX||LA551_10==T_DIGIT_STRING||(LA551_10 >= T_DOUBLE && LA551_10 <= T_DOUBLEPRECISION)||LA551_10==T_ELEMENTAL||LA551_10==T_FUNCTION||LA551_10==T_INTEGER||LA551_10==T_LOGICAL||LA551_10==T_PURE||LA551_10==T_REAL||LA551_10==T_RECURSIVE||LA551_10==T_TYPE) ) {
alt551=1;
}
else if ( (LA551_10==T_SUBROUTINE) ) {
alt551=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 551, 10, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_SUBROUTINE:
{
alt551=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 551, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PURE:
{
switch ( input.LA(2) ) {
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DIGIT_STRING:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_FUNCTION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
case T_TYPE:
{
alt551=1;
}
break;
case T_RECURSIVE:
{
int LA551_8 = input.LA(3);
if ( (LA551_8==T_CHARACTER||LA551_8==T_CLASS||LA551_8==T_COMPLEX||LA551_8==T_DIGIT_STRING||(LA551_8 >= T_DOUBLE && LA551_8 <= T_DOUBLEPRECISION)||LA551_8==T_ELEMENTAL||LA551_8==T_FUNCTION||LA551_8==T_INTEGER||LA551_8==T_LOGICAL||LA551_8==T_PURE||LA551_8==T_REAL||LA551_8==T_RECURSIVE||LA551_8==T_TYPE) ) {
alt551=1;
}
else if ( (LA551_8==T_SUBROUTINE) ) {
alt551=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 551, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PURE:
{
int LA551_9 = input.LA(3);
if ( (LA551_9==T_CHARACTER||LA551_9==T_CLASS||LA551_9==T_COMPLEX||LA551_9==T_DIGIT_STRING||(LA551_9 >= T_DOUBLE && LA551_9 <= T_DOUBLEPRECISION)||LA551_9==T_ELEMENTAL||LA551_9==T_FUNCTION||LA551_9==T_INTEGER||LA551_9==T_LOGICAL||LA551_9==T_PURE||LA551_9==T_REAL||LA551_9==T_RECURSIVE||LA551_9==T_TYPE) ) {
alt551=1;
}
else if ( (LA551_9==T_SUBROUTINE) ) {
alt551=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 551, 9, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELEMENTAL:
{
int LA551_10 = input.LA(3);
if ( (LA551_10==T_CHARACTER||LA551_10==T_CLASS||LA551_10==T_COMPLEX||LA551_10==T_DIGIT_STRING||(LA551_10 >= T_DOUBLE && LA551_10 <= T_DOUBLEPRECISION)||LA551_10==T_ELEMENTAL||LA551_10==T_FUNCTION||LA551_10==T_INTEGER||LA551_10==T_LOGICAL||LA551_10==T_PURE||LA551_10==T_REAL||LA551_10==T_RECURSIVE||LA551_10==T_TYPE) ) {
alt551=1;
}
else if ( (LA551_10==T_SUBROUTINE) ) {
alt551=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 551, 10, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_SUBROUTINE:
{
alt551=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 551, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELEMENTAL:
{
switch ( input.LA(2) ) {
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DIGIT_STRING:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_FUNCTION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
case T_TYPE:
{
alt551=1;
}
break;
case T_RECURSIVE:
{
int LA551_8 = input.LA(3);
if ( (LA551_8==T_CHARACTER||LA551_8==T_CLASS||LA551_8==T_COMPLEX||LA551_8==T_DIGIT_STRING||(LA551_8 >= T_DOUBLE && LA551_8 <= T_DOUBLEPRECISION)||LA551_8==T_ELEMENTAL||LA551_8==T_FUNCTION||LA551_8==T_INTEGER||LA551_8==T_LOGICAL||LA551_8==T_PURE||LA551_8==T_REAL||LA551_8==T_RECURSIVE||LA551_8==T_TYPE) ) {
alt551=1;
}
else if ( (LA551_8==T_SUBROUTINE) ) {
alt551=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 551, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PURE:
{
int LA551_9 = input.LA(3);
if ( (LA551_9==T_CHARACTER||LA551_9==T_CLASS||LA551_9==T_COMPLEX||LA551_9==T_DIGIT_STRING||(LA551_9 >= T_DOUBLE && LA551_9 <= T_DOUBLEPRECISION)||LA551_9==T_ELEMENTAL||LA551_9==T_FUNCTION||LA551_9==T_INTEGER||LA551_9==T_LOGICAL||LA551_9==T_PURE||LA551_9==T_REAL||LA551_9==T_RECURSIVE||LA551_9==T_TYPE) ) {
alt551=1;
}
else if ( (LA551_9==T_SUBROUTINE) ) {
alt551=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 551, 9, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELEMENTAL:
{
int LA551_10 = input.LA(3);
if ( (LA551_10==T_CHARACTER||LA551_10==T_CLASS||LA551_10==T_COMPLEX||LA551_10==T_DIGIT_STRING||(LA551_10 >= T_DOUBLE && LA551_10 <= T_DOUBLEPRECISION)||LA551_10==T_ELEMENTAL||LA551_10==T_FUNCTION||LA551_10==T_INTEGER||LA551_10==T_LOGICAL||LA551_10==T_PURE||LA551_10==T_REAL||LA551_10==T_RECURSIVE||LA551_10==T_TYPE) ) {
alt551=1;
}
else if ( (LA551_10==T_SUBROUTINE) ) {
alt551=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 551, 10, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_SUBROUTINE:
{
alt551=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 551, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_DIGIT_STRING:
{
switch ( input.LA(2) ) {
case T_FUNCTION:
{
alt551=1;
}
break;
case T_ELEMENTAL:
case T_PURE:
case T_RECURSIVE:
case T_SUBROUTINE:
{
alt551=2;
}
break;
case T_MODULE:
{
alt551=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 551, 5, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_SUBROUTINE:
{
alt551=2;
}
break;
case T_MODULE:
{
alt551=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 551, 0, input);
throw nvae;
}
switch (alt551) {
case 1 :
// FortranParser08.g:5032:8: ( prefix )? function_subprogram
{
// FortranParser08.g:5032:8: ( prefix )?
int alt550=2;
int LA550_0 = input.LA(1);
if ( (LA550_0==T_CHARACTER||LA550_0==T_CLASS||LA550_0==T_COMPLEX||(LA550_0 >= T_DOUBLE && LA550_0 <= T_DOUBLEPRECISION)||LA550_0==T_ELEMENTAL||LA550_0==T_INTEGER||LA550_0==T_LOGICAL||LA550_0==T_PURE||LA550_0==T_REAL||LA550_0==T_RECURSIVE||LA550_0==T_TYPE) ) {
alt550=1;
}
switch (alt550) {
case 1 :
// FortranParser08.g:5032:9: prefix
{
pushFollow(FOLLOW_prefix_in_module_subprogram24440);
prefix();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasPrefix=true;}
}
break;
}
pushFollow(FOLLOW_function_subprogram_in_module_subprogram24446);
function_subprogram();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:5033:8: subroutine_subprogram
{
pushFollow(FOLLOW_subroutine_subprogram_in_module_subprogram24455);
subroutine_subprogram();
state._fsp--;
if (state.failed) return;
}
break;
case 3 :
// FortranParser08.g:5034:8: separate_module_subprogram
{
pushFollow(FOLLOW_separate_module_subprogram_in_module_subprogram24464);
separate_module_subprogram();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {action.module_subprogram(hasPrefix);}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "module_subprogram"
// $ANTLR start "use_stmt"
// FortranParser08.g:5039:1: use_stmt : ( ( label )? T_USE ( ( T_COMMA module_nature )? T_COLON_COLON )? T_IDENT ( T_COMMA rename_list )? end_of_stmt | ( label )? T_USE ( ( T_COMMA module_nature )? T_COLON_COLON )? T_IDENT T_COMMA T_ONLY T_COLON ( only_list )? end_of_stmt );
public final void use_stmt() throws RecognitionException {
Token T_USE682=null;
Token T_IDENT683=null;
Token T_USE686=null;
Token T_IDENT687=null;
Token T_ONLY688=null;
Token label681 =null;
Token end_of_stmt684 =null;
Token label685 =null;
Token end_of_stmt689 =null;
Token lbl=null;
boolean hasModuleNature=false;
boolean hasRenameList=false;
try {
// FortranParser08.g:5046:5: ( ( label )? T_USE ( ( T_COMMA module_nature )? T_COLON_COLON )? T_IDENT ( T_COMMA rename_list )? end_of_stmt | ( label )? T_USE ( ( T_COMMA module_nature )? T_COLON_COLON )? T_IDENT T_COMMA T_ONLY T_COLON ( only_list )? end_of_stmt )
int alt560=2;
int LA560_0 = input.LA(1);
if ( (LA560_0==T_DIGIT_STRING) ) {
int LA560_1 = input.LA(2);
if ( (LA560_1==T_USE) ) {
switch ( input.LA(3) ) {
case T_COMMA:
{
int LA560_3 = input.LA(4);
if ( (LA560_3==T_INTRINSIC) ) {
int LA560_6 = input.LA(5);
if ( (LA560_6==T_COLON_COLON) ) {
int LA560_4 = input.LA(6);
if ( (LA560_4==T_IDENT) ) {
int LA560_5 = input.LA(7);
if ( (LA560_5==T_COMMA) ) {
int LA560_8 = input.LA(8);
if ( (LA560_8==T_ONLY) ) {
alt560=2;
}
else if ( (LA560_8==T_IDENT||LA560_8==T_OPERATOR) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 8 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA560_5==EOF||LA560_5==T_EOS) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 7 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 5, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 6 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 5 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 6, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA560_3==T_NON_INTRINSIC) ) {
int LA560_7 = input.LA(5);
if ( (LA560_7==T_COLON_COLON) ) {
int LA560_4 = input.LA(6);
if ( (LA560_4==T_IDENT) ) {
int LA560_5 = input.LA(7);
if ( (LA560_5==T_COMMA) ) {
int LA560_8 = input.LA(8);
if ( (LA560_8==T_ONLY) ) {
alt560=2;
}
else if ( (LA560_8==T_IDENT||LA560_8==T_OPERATOR) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 8 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA560_5==EOF||LA560_5==T_EOS) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 7 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 5, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 6 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 5 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 7, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_COLON_COLON:
{
int LA560_4 = input.LA(4);
if ( (LA560_4==T_IDENT) ) {
int LA560_5 = input.LA(5);
if ( (LA560_5==T_COMMA) ) {
int LA560_8 = input.LA(6);
if ( (LA560_8==T_ONLY) ) {
alt560=2;
}
else if ( (LA560_8==T_IDENT||LA560_8==T_OPERATOR) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 6 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA560_5==EOF||LA560_5==T_EOS) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 5 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 5, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_IDENT:
{
int LA560_5 = input.LA(4);
if ( (LA560_5==T_COMMA) ) {
int LA560_8 = input.LA(5);
if ( (LA560_8==T_ONLY) ) {
alt560=2;
}
else if ( (LA560_8==T_IDENT||LA560_8==T_OPERATOR) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 5 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA560_5==EOF||LA560_5==T_EOS) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 5, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 560, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA560_0==T_USE) ) {
switch ( input.LA(2) ) {
case T_COMMA:
{
int LA560_3 = input.LA(3);
if ( (LA560_3==T_INTRINSIC) ) {
int LA560_6 = input.LA(4);
if ( (LA560_6==T_COLON_COLON) ) {
int LA560_4 = input.LA(5);
if ( (LA560_4==T_IDENT) ) {
int LA560_5 = input.LA(6);
if ( (LA560_5==T_COMMA) ) {
int LA560_8 = input.LA(7);
if ( (LA560_8==T_ONLY) ) {
alt560=2;
}
else if ( (LA560_8==T_IDENT||LA560_8==T_OPERATOR) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 7 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA560_5==EOF||LA560_5==T_EOS) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 6 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 5, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 5 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 6, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA560_3==T_NON_INTRINSIC) ) {
int LA560_7 = input.LA(4);
if ( (LA560_7==T_COLON_COLON) ) {
int LA560_4 = input.LA(5);
if ( (LA560_4==T_IDENT) ) {
int LA560_5 = input.LA(6);
if ( (LA560_5==T_COMMA) ) {
int LA560_8 = input.LA(7);
if ( (LA560_8==T_ONLY) ) {
alt560=2;
}
else if ( (LA560_8==T_IDENT||LA560_8==T_OPERATOR) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 7 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA560_5==EOF||LA560_5==T_EOS) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 6 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 5, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 5 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 7, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_COLON_COLON:
{
int LA560_4 = input.LA(3);
if ( (LA560_4==T_IDENT) ) {
int LA560_5 = input.LA(4);
if ( (LA560_5==T_COMMA) ) {
int LA560_8 = input.LA(5);
if ( (LA560_8==T_ONLY) ) {
alt560=2;
}
else if ( (LA560_8==T_IDENT||LA560_8==T_OPERATOR) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 5 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA560_5==EOF||LA560_5==T_EOS) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 5, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_IDENT:
{
int LA560_5 = input.LA(3);
if ( (LA560_5==T_COMMA) ) {
int LA560_8 = input.LA(4);
if ( (LA560_8==T_ONLY) ) {
alt560=2;
}
else if ( (LA560_8==T_IDENT||LA560_8==T_OPERATOR) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA560_5==EOF||LA560_5==T_EOS) ) {
alt560=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 560, 5, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 560, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 560, 0, input);
throw nvae;
}
switch (alt560) {
case 1 :
// FortranParser08.g:5046:10: ( label )? T_USE ( ( T_COMMA module_nature )? T_COLON_COLON )? T_IDENT ( T_COMMA rename_list )? end_of_stmt
{
// FortranParser08.g:5046:10: ( label )?
int alt552=2;
int LA552_0 = input.LA(1);
if ( (LA552_0==T_DIGIT_STRING) ) {
alt552=1;
}
switch (alt552) {
case 1 :
// FortranParser08.g:5046:11: label
{
pushFollow(FOLLOW_label_in_use_stmt24495);
label681=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label681;}
}
break;
}
T_USE682=(Token)match(input,T_USE,FOLLOW_T_USE_in_use_stmt24501); if (state.failed) return;
// FortranParser08.g:5047:13: ( ( T_COMMA module_nature )? T_COLON_COLON )?
int alt554=2;
int LA554_0 = input.LA(1);
if ( ((LA554_0 >= T_COLON_COLON && LA554_0 <= T_COMMA)) ) {
alt554=1;
}
switch (alt554) {
case 1 :
// FortranParser08.g:5047:15: ( T_COMMA module_nature )? T_COLON_COLON
{
// FortranParser08.g:5047:15: ( T_COMMA module_nature )?
int alt553=2;
int LA553_0 = input.LA(1);
if ( (LA553_0==T_COMMA) ) {
alt553=1;
}
switch (alt553) {
case 1 :
// FortranParser08.g:5047:16: T_COMMA module_nature
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_use_stmt24519); if (state.failed) return;
pushFollow(FOLLOW_module_nature_in_use_stmt24521);
module_nature();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasModuleNature=true;}
}
break;
}
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_use_stmt24540); if (state.failed) return;
}
break;
}
T_IDENT683=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_use_stmt24545); if (state.failed) return;
// FortranParser08.g:5048:38: ( T_COMMA rename_list )?
int alt555=2;
int LA555_0 = input.LA(1);
if ( (LA555_0==T_COMMA) ) {
alt555=1;
}
switch (alt555) {
case 1 :
// FortranParser08.g:5048:40: T_COMMA rename_list
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_use_stmt24549); if (state.failed) return;
pushFollow(FOLLOW_rename_list_in_use_stmt24564);
rename_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasRenameList=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_use_stmt24570);
end_of_stmt684=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.use_stmt(lbl, T_USE682, T_IDENT683, null, end_of_stmt684,
hasModuleNature, hasRenameList, false);}
}
break;
case 2 :
// FortranParser08.g:5052:10: ( label )? T_USE ( ( T_COMMA module_nature )? T_COLON_COLON )? T_IDENT T_COMMA T_ONLY T_COLON ( only_list )? end_of_stmt
{
// FortranParser08.g:5052:10: ( label )?
int alt556=2;
int LA556_0 = input.LA(1);
if ( (LA556_0==T_DIGIT_STRING) ) {
alt556=1;
}
switch (alt556) {
case 1 :
// FortranParser08.g:5052:11: label
{
pushFollow(FOLLOW_label_in_use_stmt24587);
label685=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label685;}
}
break;
}
T_USE686=(Token)match(input,T_USE,FOLLOW_T_USE_in_use_stmt24593); if (state.failed) return;
// FortranParser08.g:5053:13: ( ( T_COMMA module_nature )? T_COLON_COLON )?
int alt558=2;
int LA558_0 = input.LA(1);
if ( ((LA558_0 >= T_COLON_COLON && LA558_0 <= T_COMMA)) ) {
alt558=1;
}
switch (alt558) {
case 1 :
// FortranParser08.g:5053:15: ( T_COMMA module_nature )? T_COLON_COLON
{
// FortranParser08.g:5053:15: ( T_COMMA module_nature )?
int alt557=2;
int LA557_0 = input.LA(1);
if ( (LA557_0==T_COMMA) ) {
alt557=1;
}
switch (alt557) {
case 1 :
// FortranParser08.g:5053:17: T_COMMA module_nature
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_use_stmt24612); if (state.failed) return;
pushFollow(FOLLOW_module_nature_in_use_stmt24614);
module_nature();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasModuleNature=true;}
}
break;
}
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_use_stmt24633); if (state.failed) return;
}
break;
}
T_IDENT687=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_use_stmt24638); if (state.failed) return;
match(input,T_COMMA,FOLLOW_T_COMMA_in_use_stmt24640); if (state.failed) return;
T_ONLY688=(Token)match(input,T_ONLY,FOLLOW_T_ONLY_in_use_stmt24642); if (state.failed) return;
match(input,T_COLON,FOLLOW_T_COLON_in_use_stmt24644); if (state.failed) return;
// FortranParser08.g:5054:61: ( only_list )?
int alt559=2;
int LA559_0 = input.LA(1);
if ( (LA559_0==T_ASSIGNMENT||LA559_0==T_IDENT||LA559_0==T_OPERATOR||LA559_0==T_READ||LA559_0==T_WRITE) ) {
alt559=1;
}
switch (alt559) {
case 1 :
// FortranParser08.g:5054:63: only_list
{
pushFollow(FOLLOW_only_list_in_use_stmt24648);
only_list();
state._fsp--;
if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_use_stmt24666);
end_of_stmt689=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.use_stmt(lbl, T_USE686, T_IDENT687, T_ONLY688, end_of_stmt689,
hasModuleNature,hasRenameList,true);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "use_stmt"
// $ANTLR start "module_nature"
// FortranParser08.g:5061:1: module_nature : ( T_INTRINSIC | T_NON_INTRINSIC );
public final void module_nature() throws RecognitionException {
Token T_INTRINSIC690=null;
Token T_NON_INTRINSIC691=null;
try {
// FortranParser08.g:5062:2: ( T_INTRINSIC | T_NON_INTRINSIC )
int alt561=2;
int LA561_0 = input.LA(1);
if ( (LA561_0==T_INTRINSIC) ) {
alt561=1;
}
else if ( (LA561_0==T_NON_INTRINSIC) ) {
alt561=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 561, 0, input);
throw nvae;
}
switch (alt561) {
case 1 :
// FortranParser08.g:5062:4: T_INTRINSIC
{
T_INTRINSIC690=(Token)match(input,T_INTRINSIC,FOLLOW_T_INTRINSIC_in_module_nature24686); if (state.failed) return;
if ( state.backtracking==0 ) { action.module_nature(T_INTRINSIC690); }
}
break;
case 2 :
// FortranParser08.g:5064:4: T_NON_INTRINSIC
{
T_NON_INTRINSIC691=(Token)match(input,T_NON_INTRINSIC,FOLLOW_T_NON_INTRINSIC_in_module_nature24705); if (state.failed) return;
if ( state.backtracking==0 ) { action.module_nature(T_NON_INTRINSIC691); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "module_nature"
// $ANTLR start "rename"
// FortranParser08.g:5071:1: rename : (id1= T_IDENT T_EQ_GT id2= T_IDENT |op1= T_OPERATOR T_LPAREN defOp1= T_DEFINED_OP T_RPAREN T_EQ_GT op2= T_OPERATOR T_LPAREN defOp2= T_DEFINED_OP T_RPAREN );
public final void rename() throws RecognitionException {
Token id1=null;
Token id2=null;
Token op1=null;
Token defOp1=null;
Token op2=null;
Token defOp2=null;
try {
// FortranParser08.g:5072:2: (id1= T_IDENT T_EQ_GT id2= T_IDENT |op1= T_OPERATOR T_LPAREN defOp1= T_DEFINED_OP T_RPAREN T_EQ_GT op2= T_OPERATOR T_LPAREN defOp2= T_DEFINED_OP T_RPAREN )
int alt562=2;
int LA562_0 = input.LA(1);
if ( (LA562_0==T_IDENT) ) {
alt562=1;
}
else if ( (LA562_0==T_OPERATOR) ) {
alt562=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 562, 0, input);
throw nvae;
}
switch (alt562) {
case 1 :
// FortranParser08.g:5072:4: id1= T_IDENT T_EQ_GT id2= T_IDENT
{
id1=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_rename24735); if (state.failed) return;
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_rename24737); if (state.failed) return;
id2=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_rename24741); if (state.failed) return;
if ( state.backtracking==0 ) { action.rename(id1, id2, null, null, null, null); }
}
break;
case 2 :
// FortranParser08.g:5074:4: op1= T_OPERATOR T_LPAREN defOp1= T_DEFINED_OP T_RPAREN T_EQ_GT op2= T_OPERATOR T_LPAREN defOp2= T_DEFINED_OP T_RPAREN
{
op1=(Token)match(input,T_OPERATOR,FOLLOW_T_OPERATOR_in_rename24762); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_rename24764); if (state.failed) return;
defOp1=(Token)match(input,T_DEFINED_OP,FOLLOW_T_DEFINED_OP_in_rename24768); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_rename24770); if (state.failed) return;
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_rename24772); if (state.failed) return;
op2=(Token)match(input,T_OPERATOR,FOLLOW_T_OPERATOR_in_rename24778); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_rename24780); if (state.failed) return;
defOp2=(Token)match(input,T_DEFINED_OP,FOLLOW_T_DEFINED_OP_in_rename24784); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_rename24786); if (state.failed) return;
if ( state.backtracking==0 ) { action.rename(null, null, op1, defOp1, op2, defOp2); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "rename"
// $ANTLR start "rename_list"
// FortranParser08.g:5079:1: rename_list : rename ( T_COMMA rename )* ;
public final void rename_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:5081:5: ( rename ( T_COMMA rename )* )
// FortranParser08.g:5081:10: rename ( T_COMMA rename )*
{
if ( state.backtracking==0 ) {action.rename_list__begin();}
pushFollow(FOLLOW_rename_in_rename_list24826);
rename();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:5082:21: ( T_COMMA rename )*
loop563:
while (true) {
int alt563=2;
int LA563_0 = input.LA(1);
if ( (LA563_0==T_COMMA) ) {
alt563=1;
}
switch (alt563) {
case 1 :
// FortranParser08.g:5082:23: T_COMMA rename
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_rename_list24832); if (state.failed) return;
pushFollow(FOLLOW_rename_in_rename_list24834);
rename();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop563;
}
}
if ( state.backtracking==0 ) {action.rename_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "rename_list"
// $ANTLR start "only"
// FortranParser08.g:5089:1: only : ( generic_spec | rename );
public final void only() throws RecognitionException {
boolean hasGenericSpec=false;
boolean hasRename=false;
boolean hasOnlyUseName=false;
try {
// FortranParser08.g:5096:2: ( generic_spec | rename )
int alt564=2;
switch ( input.LA(1) ) {
case T_IDENT:
{
int LA564_1 = input.LA(2);
if ( (LA564_1==T_EQ_GT) ) {
alt564=2;
}
else if ( (LA564_1==EOF||LA564_1==T_COMMA||LA564_1==T_EOS) ) {
alt564=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 564, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_OPERATOR:
{
int LA564_2 = input.LA(2);
if ( (LA564_2==T_LPAREN) ) {
int LA564_5 = input.LA(3);
if ( (LA564_5==T_DEFINED_OP) ) {
int LA564_6 = input.LA(4);
if ( (LA564_6==T_RPAREN) ) {
int LA564_7 = input.LA(5);
if ( (LA564_7==T_EQ_GT) ) {
alt564=2;
}
else if ( (LA564_7==EOF||LA564_7==T_COMMA||LA564_7==T_EOS) ) {
alt564=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 5 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 564, 7, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 4 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 564, 6, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA564_5==T_AND||LA564_5==T_ASTERISK||LA564_5==T_EQ||(LA564_5 >= T_EQV && LA564_5 <= T_EQ_EQ)||LA564_5==T_GE||(LA564_5 >= T_GREATERTHAN && LA564_5 <= T_GT)||LA564_5==T_LE||(LA564_5 >= T_LESSTHAN && LA564_5 <= T_LESSTHAN_EQ)||LA564_5==T_LT||LA564_5==T_MINUS||(LA564_5 >= T_NE && LA564_5 <= T_NEQV)||LA564_5==T_NOT||LA564_5==T_OR||LA564_5==T_PLUS||LA564_5==T_POWER||(LA564_5 >= T_SLASH && LA564_5 <= T_SLASH_SLASH)) ) {
alt564=1;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 564, 5, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 564, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ASSIGNMENT:
case T_READ:
case T_WRITE:
{
alt564=1;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 564, 0, input);
throw nvae;
}
switch (alt564) {
case 1 :
// FortranParser08.g:5096:4: generic_spec
{
pushFollow(FOLLOW_generic_spec_in_only24875);
generic_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasGenericSpec=true;}
}
break;
case 2 :
// FortranParser08.g:5097:4: rename
{
pushFollow(FOLLOW_rename_in_only24882);
rename();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasRename=true;}
}
break;
}
if ( state.backtracking==0 ) {
action.only(hasGenericSpec, hasRename, hasOnlyUseName);
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "only"
// $ANTLR start "only_list"
// FortranParser08.g:5100:1: only_list : only ( T_COMMA only )* ;
public final void only_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:5102:5: ( only ( T_COMMA only )* )
// FortranParser08.g:5102:10: only ( T_COMMA only )*
{
if ( state.backtracking==0 ) {action.only_list__begin();}
pushFollow(FOLLOW_only_in_only_list24915);
only();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:5103:19: ( T_COMMA only )*
loop565:
while (true) {
int alt565=2;
int LA565_0 = input.LA(1);
if ( (LA565_0==T_COMMA) ) {
alt565=1;
}
switch (alt565) {
case 1 :
// FortranParser08.g:5103:21: T_COMMA only
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_only_list24921); if (state.failed) return;
pushFollow(FOLLOW_only_in_only_list24923);
only();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop565;
}
}
if ( state.backtracking==0 ) {action.only_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "only_list"
// $ANTLR start "submodule"
// FortranParser08.g:5124:1: submodule : submodule_stmt specification_part ( module_subprogram_part )? end_submodule_stmt ;
public final void submodule() throws RecognitionException {
boolean hasModuleSubprogramPart = false;
try {
// FortranParser08.g:5127:4: ( submodule_stmt specification_part ( module_subprogram_part )? end_submodule_stmt )
// FortranParser08.g:5127:8: submodule_stmt specification_part ( module_subprogram_part )? end_submodule_stmt
{
pushFollow(FOLLOW_submodule_stmt_in_submodule24977);
submodule_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_specification_part_in_submodule24986);
gFortranParserExtras.specification_part();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:5129:8: ( module_subprogram_part )?
int alt566=2;
int LA566_0 = input.LA(1);
if ( (LA566_0==T_DIGIT_STRING) ) {
int LA566_1 = input.LA(2);
if ( (LA566_1==T_CONTAINS) ) {
alt566=1;
}
}
else if ( (LA566_0==T_CONTAINS) ) {
alt566=1;
}
switch (alt566) {
case 1 :
// FortranParser08.g:5129:10: module_subprogram_part
{
pushFollow(FOLLOW_module_subprogram_part_in_submodule24999);
module_subprogram_part();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasModuleSubprogramPart=true;}
}
break;
}
pushFollow(FOLLOW_end_submodule_stmt_in_submodule25013);
end_submodule_stmt();
state._fsp--;
if (state.failed) return;
}
if ( state.backtracking==0 ) {action.submodule(hasModuleSubprogramPart);}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "submodule"
// $ANTLR start "submodule_stmt"
// FortranParser08.g:5141:1: submodule_stmt : ( label )? T_SUBMODULE T_LPAREN parent_identifier T_RPAREN name end_of_stmt ;
public final void submodule_stmt() throws RecognitionException {
Token T_SUBMODULE694=null;
Token label692 =null;
Token name693 =null;
Token end_of_stmt695 =null;
Token lbl = null; Token t_subname = null;
try {
// FortranParser08.g:5144:4: ( ( label )? T_SUBMODULE T_LPAREN parent_identifier T_RPAREN name end_of_stmt )
// FortranParser08.g:5144:12: ( label )? T_SUBMODULE T_LPAREN parent_identifier T_RPAREN name end_of_stmt
{
if ( state.backtracking==0 ) {action.submodule_stmt__begin();}
// FortranParser08.g:5145:8: ( label )?
int alt567=2;
int LA567_0 = input.LA(1);
if ( (LA567_0==T_DIGIT_STRING) ) {
alt567=1;
}
switch (alt567) {
case 1 :
// FortranParser08.g:5145:9: label
{
pushFollow(FOLLOW_label_in_submodule_stmt25059);
label692=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label692;}
}
break;
}
T_SUBMODULE694=(Token)match(input,T_SUBMODULE,FOLLOW_T_SUBMODULE_in_submodule_stmt25072); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_submodule_stmt25074); if (state.failed) return;
pushFollow(FOLLOW_parent_identifier_in_submodule_stmt25076);
parent_identifier();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_submodule_stmt25078); if (state.failed) return;
pushFollow(FOLLOW_name_in_submodule_stmt25087);
name693=name();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {t_subname=name693;}
pushFollow(FOLLOW_end_of_stmt_in_submodule_stmt25091);
end_of_stmt695=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.submodule_stmt(lbl, T_SUBMODULE694, t_subname, end_of_stmt695);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "submodule_stmt"
// $ANTLR start "parent_identifier"
// FortranParser08.g:5160:1: parent_identifier : name ( T_IDENT )? ;
public final void parent_identifier() throws RecognitionException {
Token T_IDENT697=null;
Token name696 =null;
Token ancestor = null; Token parent = null;
try {
// FortranParser08.g:5162:4: ( name ( T_IDENT )? )
// FortranParser08.g:5162:8: name ( T_IDENT )?
{
pushFollow(FOLLOW_name_in_parent_identifier25133);
name696=name();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {ancestor=name696;}
// FortranParser08.g:5163:8: ( T_IDENT )?
int alt568=2;
int LA568_0 = input.LA(1);
if ( (LA568_0==T_IDENT) ) {
alt568=1;
}
switch (alt568) {
case 1 :
// FortranParser08.g:5163:12: T_IDENT
{
T_IDENT697=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_parent_identifier25148); if (state.failed) return;
if ( state.backtracking==0 ) {parent=T_IDENT697;}
}
break;
}
if ( state.backtracking==0 ) {action.parent_identifier(ancestor, parent);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "parent_identifier"
// $ANTLR start "end_submodule_stmt"
// FortranParser08.g:5176:1: end_submodule_stmt : ( label )? T_END ( T_SUBMODULE ( name )? )? end_of_stmt ;
public final void end_submodule_stmt() throws RecognitionException {
Token T_SUBMODULE700=null;
Token T_END701=null;
Token label698 =null;
Token name699 =null;
Token end_of_stmt702 =null;
Token lbl = null; Token t_submod = null; Token t_name = null;
try {
// FortranParser08.g:5179:4: ( ( label )? T_END ( T_SUBMODULE ( name )? )? end_of_stmt )
// FortranParser08.g:5179:8: ( label )? T_END ( T_SUBMODULE ( name )? )? end_of_stmt
{
// FortranParser08.g:5179:8: ( label )?
int alt569=2;
int LA569_0 = input.LA(1);
if ( (LA569_0==T_DIGIT_STRING) ) {
alt569=1;
}
switch (alt569) {
case 1 :
// FortranParser08.g:5179:9: label
{
pushFollow(FOLLOW_label_in_end_submodule_stmt25200);
label698=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label698;}
}
break;
}
T_END701=(Token)match(input,T_END,FOLLOW_T_END_in_end_submodule_stmt25213); if (state.failed) return;
// FortranParser08.g:5180:14: ( T_SUBMODULE ( name )? )?
int alt571=2;
int LA571_0 = input.LA(1);
if ( (LA571_0==T_SUBMODULE) ) {
alt571=1;
}
switch (alt571) {
case 1 :
// FortranParser08.g:5180:15: T_SUBMODULE ( name )?
{
T_SUBMODULE700=(Token)match(input,T_SUBMODULE,FOLLOW_T_SUBMODULE_in_end_submodule_stmt25216); if (state.failed) return;
// FortranParser08.g:5180:27: ( name )?
int alt570=2;
int LA570_0 = input.LA(1);
if ( (LA570_0==T_IDENT) ) {
alt570=1;
}
switch (alt570) {
case 1 :
// FortranParser08.g:5180:28: name
{
pushFollow(FOLLOW_name_in_end_submodule_stmt25219);
name699=name();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {t_name=name699;}
}
break;
}
if ( state.backtracking==0 ) {t_submod=T_SUBMODULE700;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_submodule_stmt25236);
end_of_stmt702=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_submodule_stmt(lbl, T_END701, t_submod, t_name, end_of_stmt702);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_submodule_stmt"
// $ANTLR start "block_data"
// FortranParser08.g:5188:1: block_data : block_data_stmt specification_part end_block_data_stmt ;
public final void block_data() throws RecognitionException {
try {
// FortranParser08.g:5192:2: ( block_data_stmt specification_part end_block_data_stmt )
// FortranParser08.g:5192:4: block_data_stmt specification_part end_block_data_stmt
{
pushFollow(FOLLOW_block_data_stmt_in_block_data25270);
block_data_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_specification_part_in_block_data25274);
gFortranParserExtras.specification_part();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_block_data_stmt_in_block_data25278);
end_block_data_stmt();
state._fsp--;
if (state.failed) return;
}
if ( state.backtracking==0 ) {
action.block_data();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "block_data"
// $ANTLR start "block_data_stmt"
// FortranParser08.g:5198:1: block_data_stmt : ( ( label )? T_BLOCK T_DATA ( T_IDENT )? end_of_stmt | ( label )? T_BLOCKDATA ( T_IDENT )? end_of_stmt );
public final void block_data_stmt() throws RecognitionException {
Token T_IDENT704=null;
Token T_BLOCK705=null;
Token T_DATA706=null;
Token T_IDENT709=null;
Token T_BLOCKDATA710=null;
Token label703 =null;
Token end_of_stmt707 =null;
Token label708 =null;
Token end_of_stmt711 =null;
Token lbl = null; Token id = null;
action.block_data_stmt__begin();
try {
// FortranParser08.g:5205:4: ( ( label )? T_BLOCK T_DATA ( T_IDENT )? end_of_stmt | ( label )? T_BLOCKDATA ( T_IDENT )? end_of_stmt )
int alt576=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA576_1 = input.LA(2);
if ( (LA576_1==T_BLOCK) ) {
alt576=1;
}
else if ( (LA576_1==T_BLOCKDATA) ) {
alt576=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 576, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_BLOCK:
{
alt576=1;
}
break;
case T_BLOCKDATA:
{
alt576=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 576, 0, input);
throw nvae;
}
switch (alt576) {
case 1 :
// FortranParser08.g:5205:8: ( label )? T_BLOCK T_DATA ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:5205:8: ( label )?
int alt572=2;
int LA572_0 = input.LA(1);
if ( (LA572_0==T_DIGIT_STRING) ) {
alt572=1;
}
switch (alt572) {
case 1 :
// FortranParser08.g:5205:9: label
{
pushFollow(FOLLOW_label_in_block_data_stmt25305);
label703=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label703;}
}
break;
}
T_BLOCK705=(Token)match(input,T_BLOCK,FOLLOW_T_BLOCK_in_block_data_stmt25318); if (state.failed) return;
T_DATA706=(Token)match(input,T_DATA,FOLLOW_T_DATA_in_block_data_stmt25320); if (state.failed) return;
// FortranParser08.g:5206:23: ( T_IDENT )?
int alt573=2;
int LA573_0 = input.LA(1);
if ( (LA573_0==T_IDENT) ) {
alt573=1;
}
switch (alt573) {
case 1 :
// FortranParser08.g:5206:24: T_IDENT
{
T_IDENT704=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_block_data_stmt25323); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT704;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_block_data_stmt25329);
end_of_stmt707=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.block_data_stmt(lbl, T_BLOCK705, T_DATA706, id, end_of_stmt707);}
}
break;
case 2 :
// FortranParser08.g:5208:8: ( label )? T_BLOCKDATA ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:5208:8: ( label )?
int alt574=2;
int LA574_0 = input.LA(1);
if ( (LA574_0==T_DIGIT_STRING) ) {
alt574=1;
}
switch (alt574) {
case 1 :
// FortranParser08.g:5208:9: label
{
pushFollow(FOLLOW_label_in_block_data_stmt25352);
label708=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label708;}
}
break;
}
T_BLOCKDATA710=(Token)match(input,T_BLOCKDATA,FOLLOW_T_BLOCKDATA_in_block_data_stmt25365); if (state.failed) return;
// FortranParser08.g:5209:21: ( T_IDENT )?
int alt575=2;
int LA575_0 = input.LA(1);
if ( (LA575_0==T_IDENT) ) {
alt575=1;
}
switch (alt575) {
case 1 :
// FortranParser08.g:5209:22: T_IDENT
{
T_IDENT709=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_block_data_stmt25369); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT709;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_block_data_stmt25375);
end_of_stmt711=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.block_data_stmt(lbl, T_BLOCKDATA710, null, id, end_of_stmt711);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "block_data_stmt"
// $ANTLR start "end_block_data_stmt"
// FortranParser08.g:5214:1: end_block_data_stmt : ( ( label )? T_END T_BLOCK T_DATA ( T_IDENT )? end_of_stmt | ( label )? T_ENDBLOCK T_DATA ( T_IDENT )? end_of_stmt | ( label )? T_END T_BLOCKDATA ( T_IDENT )? end_of_stmt | ( label )? T_ENDBLOCKDATA ( T_IDENT )? end_of_stmt | ( label )? T_END end_of_stmt );
public final void end_block_data_stmt() throws RecognitionException {
Token T_IDENT713=null;
Token T_END714=null;
Token T_BLOCK715=null;
Token T_DATA716=null;
Token T_IDENT719=null;
Token T_ENDBLOCK720=null;
Token T_DATA721=null;
Token T_IDENT724=null;
Token T_END725=null;
Token T_BLOCKDATA726=null;
Token T_IDENT729=null;
Token T_ENDBLOCKDATA730=null;
Token T_END733=null;
Token label712 =null;
Token end_of_stmt717 =null;
Token label718 =null;
Token end_of_stmt722 =null;
Token label723 =null;
Token end_of_stmt727 =null;
Token label728 =null;
Token end_of_stmt731 =null;
Token label732 =null;
Token end_of_stmt734 =null;
Token lbl = null; Token id = null;
try {
// FortranParser08.g:5217:2: ( ( label )? T_END T_BLOCK T_DATA ( T_IDENT )? end_of_stmt | ( label )? T_ENDBLOCK T_DATA ( T_IDENT )? end_of_stmt | ( label )? T_END T_BLOCKDATA ( T_IDENT )? end_of_stmt | ( label )? T_ENDBLOCKDATA ( T_IDENT )? end_of_stmt | ( label )? T_END end_of_stmt )
int alt586=5;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
switch ( input.LA(2) ) {
case T_END:
{
switch ( input.LA(3) ) {
case T_BLOCK:
{
alt586=1;
}
break;
case T_BLOCKDATA:
{
alt586=3;
}
break;
case EOF:
case T_EOS:
{
alt586=5;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 586, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ENDBLOCK:
{
alt586=2;
}
break;
case T_ENDBLOCKDATA:
{
alt586=4;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 586, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
switch ( input.LA(2) ) {
case T_BLOCK:
{
alt586=1;
}
break;
case T_BLOCKDATA:
{
alt586=3;
}
break;
case EOF:
case T_EOS:
{
alt586=5;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 586, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ENDBLOCK:
{
alt586=2;
}
break;
case T_ENDBLOCKDATA:
{
alt586=4;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 586, 0, input);
throw nvae;
}
switch (alt586) {
case 1 :
// FortranParser08.g:5217:6: ( label )? T_END T_BLOCK T_DATA ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:5217:6: ( label )?
int alt577=2;
int LA577_0 = input.LA(1);
if ( (LA577_0==T_DIGIT_STRING) ) {
alt577=1;
}
switch (alt577) {
case 1 :
// FortranParser08.g:5217:7: label
{
pushFollow(FOLLOW_label_in_end_block_data_stmt25414);
label712=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label712;}
}
break;
}
T_END714=(Token)match(input,T_END,FOLLOW_T_END_in_end_block_data_stmt25420); if (state.failed) return;
T_BLOCK715=(Token)match(input,T_BLOCK,FOLLOW_T_BLOCK_in_end_block_data_stmt25422); if (state.failed) return;
T_DATA716=(Token)match(input,T_DATA,FOLLOW_T_DATA_in_end_block_data_stmt25424); if (state.failed) return;
// FortranParser08.g:5218:13: ( T_IDENT )?
int alt578=2;
int LA578_0 = input.LA(1);
if ( (LA578_0==T_IDENT) ) {
alt578=1;
}
switch (alt578) {
case 1 :
// FortranParser08.g:5218:15: T_IDENT
{
T_IDENT713=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_block_data_stmt25441); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT713;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_block_data_stmt25447);
end_of_stmt717=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_block_data_stmt(lbl, T_END714, T_BLOCK715, T_DATA716, id,
end_of_stmt717);}
}
break;
case 2 :
// FortranParser08.g:5221:6: ( label )? T_ENDBLOCK T_DATA ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:5221:6: ( label )?
int alt579=2;
int LA579_0 = input.LA(1);
if ( (LA579_0==T_DIGIT_STRING) ) {
alt579=1;
}
switch (alt579) {
case 1 :
// FortranParser08.g:5221:7: label
{
pushFollow(FOLLOW_label_in_end_block_data_stmt25460);
label718=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label718;}
}
break;
}
T_ENDBLOCK720=(Token)match(input,T_ENDBLOCK,FOLLOW_T_ENDBLOCK_in_end_block_data_stmt25466); if (state.failed) return;
T_DATA721=(Token)match(input,T_DATA,FOLLOW_T_DATA_in_end_block_data_stmt25468); if (state.failed) return;
// FortranParser08.g:5222:13: ( T_IDENT )?
int alt580=2;
int LA580_0 = input.LA(1);
if ( (LA580_0==T_IDENT) ) {
alt580=1;
}
switch (alt580) {
case 1 :
// FortranParser08.g:5222:15: T_IDENT
{
T_IDENT719=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_block_data_stmt25488); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT719;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_block_data_stmt25494);
end_of_stmt722=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_block_data_stmt(lbl, T_ENDBLOCK720, null, T_DATA721, id,
end_of_stmt722);}
}
break;
case 3 :
// FortranParser08.g:5225:6: ( label )? T_END T_BLOCKDATA ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:5225:6: ( label )?
int alt581=2;
int LA581_0 = input.LA(1);
if ( (LA581_0==T_DIGIT_STRING) ) {
alt581=1;
}
switch (alt581) {
case 1 :
// FortranParser08.g:5225:7: label
{
pushFollow(FOLLOW_label_in_end_block_data_stmt25507);
label723=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label723;}
}
break;
}
T_END725=(Token)match(input,T_END,FOLLOW_T_END_in_end_block_data_stmt25513); if (state.failed) return;
T_BLOCKDATA726=(Token)match(input,T_BLOCKDATA,FOLLOW_T_BLOCKDATA_in_end_block_data_stmt25515); if (state.failed) return;
// FortranParser08.g:5226:13: ( T_IDENT )?
int alt582=2;
int LA582_0 = input.LA(1);
if ( (LA582_0==T_IDENT) ) {
alt582=1;
}
switch (alt582) {
case 1 :
// FortranParser08.g:5226:15: T_IDENT
{
T_IDENT724=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_block_data_stmt25535); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT724;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_block_data_stmt25541);
end_of_stmt727=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_block_data_stmt(lbl, T_END725, T_BLOCKDATA726, null, id,
end_of_stmt727);}
}
break;
case 4 :
// FortranParser08.g:5229:6: ( label )? T_ENDBLOCKDATA ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:5229:6: ( label )?
int alt583=2;
int LA583_0 = input.LA(1);
if ( (LA583_0==T_DIGIT_STRING) ) {
alt583=1;
}
switch (alt583) {
case 1 :
// FortranParser08.g:5229:7: label
{
pushFollow(FOLLOW_label_in_end_block_data_stmt25554);
label728=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label728;}
}
break;
}
T_ENDBLOCKDATA730=(Token)match(input,T_ENDBLOCKDATA,FOLLOW_T_ENDBLOCKDATA_in_end_block_data_stmt25560); if (state.failed) return;
// FortranParser08.g:5230:13: ( T_IDENT )?
int alt584=2;
int LA584_0 = input.LA(1);
if ( (LA584_0==T_IDENT) ) {
alt584=1;
}
switch (alt584) {
case 1 :
// FortranParser08.g:5230:15: T_IDENT
{
T_IDENT729=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_block_data_stmt25583); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT729;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_block_data_stmt25589);
end_of_stmt731=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_block_data_stmt(lbl, T_ENDBLOCKDATA730, null, null, id,
end_of_stmt731);}
}
break;
case 5 :
// FortranParser08.g:5233:4: ( label )? T_END end_of_stmt
{
// FortranParser08.g:5233:4: ( label )?
int alt585=2;
int LA585_0 = input.LA(1);
if ( (LA585_0==T_DIGIT_STRING) ) {
alt585=1;
}
switch (alt585) {
case 1 :
// FortranParser08.g:5233:5: label
{
pushFollow(FOLLOW_label_in_end_block_data_stmt25600);
label732=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label732;}
}
break;
}
T_END733=(Token)match(input,T_END,FOLLOW_T_END_in_end_block_data_stmt25606); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_end_block_data_stmt25608);
end_of_stmt734=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_block_data_stmt(lbl, T_END733, null, null, id,
end_of_stmt734);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_block_data_stmt"
// $ANTLR start "interface_block"
// FortranParser08.g:5243:1: interface_block : interface_stmt ( interface_specification )* end_interface_stmt ;
public final void interface_block() throws RecognitionException {
try {
// FortranParser08.g:5247:2: ( interface_stmt ( interface_specification )* end_interface_stmt )
// FortranParser08.g:5247:4: interface_stmt ( interface_specification )* end_interface_stmt
{
pushFollow(FOLLOW_interface_stmt_in_interface_block25633);
interface_stmt();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:5248:3: ( interface_specification )*
loop587:
while (true) {
int alt587=2;
int LA587_0 = input.LA(1);
if ( (LA587_0==T_DIGIT_STRING) ) {
int LA587_1 = input.LA(2);
if ( (LA587_1==T_ELEMENTAL||LA587_1==T_FUNCTION||LA587_1==T_MODULE||LA587_1==T_PROCEDURE||LA587_1==T_PURE||LA587_1==T_RECURSIVE||LA587_1==T_SUBROUTINE) ) {
alt587=1;
}
}
else if ( (LA587_0==T_CHARACTER||LA587_0==T_CLASS||LA587_0==T_COMPLEX||(LA587_0 >= T_DOUBLE && LA587_0 <= T_DOUBLEPRECISION)||LA587_0==T_ELEMENTAL||LA587_0==T_FUNCTION||LA587_0==T_INTEGER||LA587_0==T_LOGICAL||LA587_0==T_MODULE||LA587_0==T_PROCEDURE||LA587_0==T_PURE||LA587_0==T_REAL||LA587_0==T_RECURSIVE||LA587_0==T_SUBROUTINE||LA587_0==T_TYPE) ) {
alt587=1;
}
switch (alt587) {
case 1 :
// FortranParser08.g:5248:5: interface_specification
{
pushFollow(FOLLOW_interface_specification_in_interface_block25639);
interface_specification();
state._fsp--;
if (state.failed) return;
}
break;
default :
break loop587;
}
}
pushFollow(FOLLOW_end_interface_stmt_in_interface_block25646);
end_interface_stmt();
state._fsp--;
if (state.failed) return;
}
if ( state.backtracking==0 ) {
action.interface_block();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "interface_block"
// $ANTLR start "interface_specification"
// FortranParser08.g:5253:1: interface_specification : ( interface_body | procedure_stmt );
public final void interface_specification() throws RecognitionException {
try {
// FortranParser08.g:5257:2: ( interface_body | procedure_stmt )
int alt588=2;
switch ( input.LA(1) ) {
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_ELEMENTAL:
case T_FUNCTION:
case T_INTEGER:
case T_LOGICAL:
case T_PURE:
case T_REAL:
case T_RECURSIVE:
case T_SUBROUTINE:
case T_TYPE:
{
alt588=1;
}
break;
case T_DIGIT_STRING:
{
int LA588_2 = input.LA(2);
if ( (LA588_2==T_ELEMENTAL||LA588_2==T_FUNCTION||LA588_2==T_PURE||LA588_2==T_RECURSIVE||LA588_2==T_SUBROUTINE) ) {
alt588=1;
}
else if ( (LA588_2==T_MODULE||LA588_2==T_PROCEDURE) ) {
alt588=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 588, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_MODULE:
case T_PROCEDURE:
{
alt588=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 588, 0, input);
throw nvae;
}
switch (alt588) {
case 1 :
// FortranParser08.g:5257:4: interface_body
{
pushFollow(FOLLOW_interface_body_in_interface_specification25663);
interface_body();
state._fsp--;
if (state.failed) return;
}
break;
case 2 :
// FortranParser08.g:5258:4: procedure_stmt
{
pushFollow(FOLLOW_procedure_stmt_in_interface_specification25668);
procedure_stmt();
state._fsp--;
if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) {
action.interface_specification();
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "interface_specification"
// $ANTLR start "interface_stmt"
// FortranParser08.g:5263:1: interface_stmt : ( ( label )? T_INTERFACE ( generic_spec )? end_of_stmt | ( label )? T_ABSTRACT T_INTERFACE end_of_stmt );
public final void interface_stmt() throws RecognitionException {
Token T_INTERFACE736=null;
Token T_ABSTRACT739=null;
Token T_INTERFACE740=null;
Token label735 =null;
Token end_of_stmt737 =null;
Token label738 =null;
Token end_of_stmt741 =null;
Token lbl = null; boolean hasGenericSpec=false;
try {
// FortranParser08.g:5266:2: ( ( label )? T_INTERFACE ( generic_spec )? end_of_stmt | ( label )? T_ABSTRACT T_INTERFACE end_of_stmt )
int alt592=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA592_1 = input.LA(2);
if ( (LA592_1==T_INTERFACE) ) {
alt592=1;
}
else if ( (LA592_1==T_ABSTRACT) ) {
alt592=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 592, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_INTERFACE:
{
alt592=1;
}
break;
case T_ABSTRACT:
{
alt592=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 592, 0, input);
throw nvae;
}
switch (alt592) {
case 1 :
// FortranParser08.g:5266:5: ( label )? T_INTERFACE ( generic_spec )? end_of_stmt
{
if ( state.backtracking==0 ) {action.interface_stmt__begin();}
// FortranParser08.g:5267:3: ( label )?
int alt589=2;
int LA589_0 = input.LA(1);
if ( (LA589_0==T_DIGIT_STRING) ) {
alt589=1;
}
switch (alt589) {
case 1 :
// FortranParser08.g:5267:4: label
{
pushFollow(FOLLOW_label_in_interface_stmt25696);
label735=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label735;}
}
break;
}
T_INTERFACE736=(Token)match(input,T_INTERFACE,FOLLOW_T_INTERFACE_in_interface_stmt25702); if (state.failed) return;
// FortranParser08.g:5267:41: ( generic_spec )?
int alt590=2;
int LA590_0 = input.LA(1);
if ( (LA590_0==T_ASSIGNMENT||LA590_0==T_IDENT||LA590_0==T_OPERATOR||LA590_0==T_READ||LA590_0==T_WRITE) ) {
alt590=1;
}
switch (alt590) {
case 1 :
// FortranParser08.g:5267:43: generic_spec
{
pushFollow(FOLLOW_generic_spec_in_interface_stmt25706);
generic_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasGenericSpec=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_interface_stmt25725);
end_of_stmt737=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.interface_stmt(lbl, null, T_INTERFACE736, end_of_stmt737,
hasGenericSpec);}
}
break;
case 2 :
// FortranParser08.g:5271:4: ( label )? T_ABSTRACT T_INTERFACE end_of_stmt
{
// FortranParser08.g:5271:4: ( label )?
int alt591=2;
int LA591_0 = input.LA(1);
if ( (LA591_0==T_DIGIT_STRING) ) {
alt591=1;
}
switch (alt591) {
case 1 :
// FortranParser08.g:5271:5: label
{
pushFollow(FOLLOW_label_in_interface_stmt25736);
label738=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label738;}
}
break;
}
T_ABSTRACT739=(Token)match(input,T_ABSTRACT,FOLLOW_T_ABSTRACT_in_interface_stmt25742); if (state.failed) return;
T_INTERFACE740=(Token)match(input,T_INTERFACE,FOLLOW_T_INTERFACE_in_interface_stmt25744); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_interface_stmt25746);
end_of_stmt741=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.interface_stmt(lbl, T_ABSTRACT739, T_INTERFACE740,
end_of_stmt741, hasGenericSpec);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "interface_stmt"
// $ANTLR start "end_interface_stmt"
// FortranParser08.g:5277:1: end_interface_stmt : ( ( label )? T_END T_INTERFACE ( generic_spec )? end_of_stmt | ( label )? T_ENDINTERFACE ( generic_spec )? end_of_stmt );
public final void end_interface_stmt() throws RecognitionException {
Token T_END743=null;
Token T_INTERFACE744=null;
Token T_ENDINTERFACE747=null;
Token label742 =null;
Token end_of_stmt745 =null;
Token label746 =null;
Token end_of_stmt748 =null;
Token lbl = null; boolean hasGenericSpec=false;
try {
// FortranParser08.g:5280:2: ( ( label )? T_END T_INTERFACE ( generic_spec )? end_of_stmt | ( label )? T_ENDINTERFACE ( generic_spec )? end_of_stmt )
int alt597=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA597_1 = input.LA(2);
if ( (LA597_1==T_END) ) {
alt597=1;
}
else if ( (LA597_1==T_ENDINTERFACE) ) {
alt597=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 597, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
alt597=1;
}
break;
case T_ENDINTERFACE:
{
alt597=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 597, 0, input);
throw nvae;
}
switch (alt597) {
case 1 :
// FortranParser08.g:5280:4: ( label )? T_END T_INTERFACE ( generic_spec )? end_of_stmt
{
// FortranParser08.g:5280:4: ( label )?
int alt593=2;
int LA593_0 = input.LA(1);
if ( (LA593_0==T_DIGIT_STRING) ) {
alt593=1;
}
switch (alt593) {
case 1 :
// FortranParser08.g:5280:5: label
{
pushFollow(FOLLOW_label_in_end_interface_stmt25773);
label742=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label742;}
}
break;
}
T_END743=(Token)match(input,T_END,FOLLOW_T_END_in_end_interface_stmt25779); if (state.failed) return;
T_INTERFACE744=(Token)match(input,T_INTERFACE,FOLLOW_T_INTERFACE_in_end_interface_stmt25781); if (state.failed) return;
// FortranParser08.g:5280:48: ( generic_spec )?
int alt594=2;
int LA594_0 = input.LA(1);
if ( (LA594_0==T_ASSIGNMENT||LA594_0==T_IDENT||LA594_0==T_OPERATOR||LA594_0==T_READ||LA594_0==T_WRITE) ) {
alt594=1;
}
switch (alt594) {
case 1 :
// FortranParser08.g:5280:50: generic_spec
{
pushFollow(FOLLOW_generic_spec_in_end_interface_stmt25785);
generic_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasGenericSpec=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_interface_stmt25804);
end_of_stmt745=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_interface_stmt(lbl, T_END743, T_INTERFACE744,
end_of_stmt745, hasGenericSpec);}
}
break;
case 2 :
// FortranParser08.g:5284:4: ( label )? T_ENDINTERFACE ( generic_spec )? end_of_stmt
{
// FortranParser08.g:5284:4: ( label )?
int alt595=2;
int LA595_0 = input.LA(1);
if ( (LA595_0==T_DIGIT_STRING) ) {
alt595=1;
}
switch (alt595) {
case 1 :
// FortranParser08.g:5284:5: label
{
pushFollow(FOLLOW_label_in_end_interface_stmt25818);
label746=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label746;}
}
break;
}
T_ENDINTERFACE747=(Token)match(input,T_ENDINTERFACE,FOLLOW_T_ENDINTERFACE_in_end_interface_stmt25824); if (state.failed) return;
// FortranParser08.g:5284:48: ( generic_spec )?
int alt596=2;
int LA596_0 = input.LA(1);
if ( (LA596_0==T_ASSIGNMENT||LA596_0==T_IDENT||LA596_0==T_OPERATOR||LA596_0==T_READ||LA596_0==T_WRITE) ) {
alt596=1;
}
switch (alt596) {
case 1 :
// FortranParser08.g:5284:50: generic_spec
{
pushFollow(FOLLOW_generic_spec_in_end_interface_stmt25831);
generic_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasGenericSpec=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_interface_stmt25850);
end_of_stmt748=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_interface_stmt(lbl, T_ENDINTERFACE747, null,
end_of_stmt748, hasGenericSpec);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_interface_stmt"
// $ANTLR start "interface_body"
// FortranParser08.g:5293:1: interface_body : ( ( prefix )? function_stmt specification_part end_function_stmt | subroutine_stmt specification_part end_subroutine_stmt );
public final void interface_body() throws RecognitionException {
try {
// FortranParser08.g:5294:2: ( ( prefix )? function_stmt specification_part end_function_stmt | subroutine_stmt specification_part end_subroutine_stmt )
int alt599=2;
switch ( input.LA(1) ) {
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_FUNCTION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
case T_TYPE:
{
alt599=1;
}
break;
case T_RECURSIVE:
{
switch ( input.LA(2) ) {
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DIGIT_STRING:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_FUNCTION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
case T_TYPE:
{
alt599=1;
}
break;
case T_RECURSIVE:
{
int LA599_7 = input.LA(3);
if ( (LA599_7==T_CHARACTER||LA599_7==T_CLASS||LA599_7==T_COMPLEX||LA599_7==T_DIGIT_STRING||(LA599_7 >= T_DOUBLE && LA599_7 <= T_DOUBLEPRECISION)||LA599_7==T_ELEMENTAL||LA599_7==T_FUNCTION||LA599_7==T_INTEGER||LA599_7==T_LOGICAL||LA599_7==T_PURE||LA599_7==T_REAL||LA599_7==T_RECURSIVE||LA599_7==T_TYPE) ) {
alt599=1;
}
else if ( (LA599_7==T_SUBROUTINE) ) {
alt599=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 599, 7, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PURE:
{
int LA599_8 = input.LA(3);
if ( (LA599_8==T_CHARACTER||LA599_8==T_CLASS||LA599_8==T_COMPLEX||LA599_8==T_DIGIT_STRING||(LA599_8 >= T_DOUBLE && LA599_8 <= T_DOUBLEPRECISION)||LA599_8==T_ELEMENTAL||LA599_8==T_FUNCTION||LA599_8==T_INTEGER||LA599_8==T_LOGICAL||LA599_8==T_PURE||LA599_8==T_REAL||LA599_8==T_RECURSIVE||LA599_8==T_TYPE) ) {
alt599=1;
}
else if ( (LA599_8==T_SUBROUTINE) ) {
alt599=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 599, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELEMENTAL:
{
int LA599_9 = input.LA(3);
if ( (LA599_9==T_CHARACTER||LA599_9==T_CLASS||LA599_9==T_COMPLEX||LA599_9==T_DIGIT_STRING||(LA599_9 >= T_DOUBLE && LA599_9 <= T_DOUBLEPRECISION)||LA599_9==T_ELEMENTAL||LA599_9==T_FUNCTION||LA599_9==T_INTEGER||LA599_9==T_LOGICAL||LA599_9==T_PURE||LA599_9==T_REAL||LA599_9==T_RECURSIVE||LA599_9==T_TYPE) ) {
alt599=1;
}
else if ( (LA599_9==T_SUBROUTINE) ) {
alt599=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 599, 9, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_SUBROUTINE:
{
alt599=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 599, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PURE:
{
switch ( input.LA(2) ) {
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DIGIT_STRING:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_FUNCTION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
case T_TYPE:
{
alt599=1;
}
break;
case T_RECURSIVE:
{
int LA599_7 = input.LA(3);
if ( (LA599_7==T_CHARACTER||LA599_7==T_CLASS||LA599_7==T_COMPLEX||LA599_7==T_DIGIT_STRING||(LA599_7 >= T_DOUBLE && LA599_7 <= T_DOUBLEPRECISION)||LA599_7==T_ELEMENTAL||LA599_7==T_FUNCTION||LA599_7==T_INTEGER||LA599_7==T_LOGICAL||LA599_7==T_PURE||LA599_7==T_REAL||LA599_7==T_RECURSIVE||LA599_7==T_TYPE) ) {
alt599=1;
}
else if ( (LA599_7==T_SUBROUTINE) ) {
alt599=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 599, 7, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PURE:
{
int LA599_8 = input.LA(3);
if ( (LA599_8==T_CHARACTER||LA599_8==T_CLASS||LA599_8==T_COMPLEX||LA599_8==T_DIGIT_STRING||(LA599_8 >= T_DOUBLE && LA599_8 <= T_DOUBLEPRECISION)||LA599_8==T_ELEMENTAL||LA599_8==T_FUNCTION||LA599_8==T_INTEGER||LA599_8==T_LOGICAL||LA599_8==T_PURE||LA599_8==T_REAL||LA599_8==T_RECURSIVE||LA599_8==T_TYPE) ) {
alt599=1;
}
else if ( (LA599_8==T_SUBROUTINE) ) {
alt599=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 599, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELEMENTAL:
{
int LA599_9 = input.LA(3);
if ( (LA599_9==T_CHARACTER||LA599_9==T_CLASS||LA599_9==T_COMPLEX||LA599_9==T_DIGIT_STRING||(LA599_9 >= T_DOUBLE && LA599_9 <= T_DOUBLEPRECISION)||LA599_9==T_ELEMENTAL||LA599_9==T_FUNCTION||LA599_9==T_INTEGER||LA599_9==T_LOGICAL||LA599_9==T_PURE||LA599_9==T_REAL||LA599_9==T_RECURSIVE||LA599_9==T_TYPE) ) {
alt599=1;
}
else if ( (LA599_9==T_SUBROUTINE) ) {
alt599=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 599, 9, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_SUBROUTINE:
{
alt599=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 599, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELEMENTAL:
{
switch ( input.LA(2) ) {
case T_CHARACTER:
case T_CLASS:
case T_COMPLEX:
case T_DIGIT_STRING:
case T_DOUBLE:
case T_DOUBLECOMPLEX:
case T_DOUBLEPRECISION:
case T_FUNCTION:
case T_INTEGER:
case T_LOGICAL:
case T_REAL:
case T_TYPE:
{
alt599=1;
}
break;
case T_RECURSIVE:
{
int LA599_7 = input.LA(3);
if ( (LA599_7==T_CHARACTER||LA599_7==T_CLASS||LA599_7==T_COMPLEX||LA599_7==T_DIGIT_STRING||(LA599_7 >= T_DOUBLE && LA599_7 <= T_DOUBLEPRECISION)||LA599_7==T_ELEMENTAL||LA599_7==T_FUNCTION||LA599_7==T_INTEGER||LA599_7==T_LOGICAL||LA599_7==T_PURE||LA599_7==T_REAL||LA599_7==T_RECURSIVE||LA599_7==T_TYPE) ) {
alt599=1;
}
else if ( (LA599_7==T_SUBROUTINE) ) {
alt599=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 599, 7, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_PURE:
{
int LA599_8 = input.LA(3);
if ( (LA599_8==T_CHARACTER||LA599_8==T_CLASS||LA599_8==T_COMPLEX||LA599_8==T_DIGIT_STRING||(LA599_8 >= T_DOUBLE && LA599_8 <= T_DOUBLEPRECISION)||LA599_8==T_ELEMENTAL||LA599_8==T_FUNCTION||LA599_8==T_INTEGER||LA599_8==T_LOGICAL||LA599_8==T_PURE||LA599_8==T_REAL||LA599_8==T_RECURSIVE||LA599_8==T_TYPE) ) {
alt599=1;
}
else if ( (LA599_8==T_SUBROUTINE) ) {
alt599=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 599, 8, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ELEMENTAL:
{
int LA599_9 = input.LA(3);
if ( (LA599_9==T_CHARACTER||LA599_9==T_CLASS||LA599_9==T_COMPLEX||LA599_9==T_DIGIT_STRING||(LA599_9 >= T_DOUBLE && LA599_9 <= T_DOUBLEPRECISION)||LA599_9==T_ELEMENTAL||LA599_9==T_FUNCTION||LA599_9==T_INTEGER||LA599_9==T_LOGICAL||LA599_9==T_PURE||LA599_9==T_REAL||LA599_9==T_RECURSIVE||LA599_9==T_TYPE) ) {
alt599=1;
}
else if ( (LA599_9==T_SUBROUTINE) ) {
alt599=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 599, 9, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_SUBROUTINE:
{
alt599=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 599, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_DIGIT_STRING:
{
int LA599_5 = input.LA(2);
if ( (LA599_5==T_FUNCTION) ) {
alt599=1;
}
else if ( (LA599_5==T_ELEMENTAL||LA599_5==T_PURE||LA599_5==T_RECURSIVE||LA599_5==T_SUBROUTINE) ) {
alt599=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 599, 5, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_SUBROUTINE:
{
alt599=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 599, 0, input);
throw nvae;
}
switch (alt599) {
case 1 :
// FortranParser08.g:5294:4: ( prefix )? function_stmt specification_part end_function_stmt
{
// FortranParser08.g:5294:4: ( prefix )?
int alt598=2;
int LA598_0 = input.LA(1);
if ( (LA598_0==T_CHARACTER||LA598_0==T_CLASS||LA598_0==T_COMPLEX||(LA598_0 >= T_DOUBLE && LA598_0 <= T_DOUBLEPRECISION)||LA598_0==T_ELEMENTAL||LA598_0==T_INTEGER||LA598_0==T_LOGICAL||LA598_0==T_PURE||LA598_0==T_REAL||LA598_0==T_RECURSIVE||LA598_0==T_TYPE) ) {
alt598=1;
}
switch (alt598) {
case 1 :
// FortranParser08.g:5294:5: prefix
{
pushFollow(FOLLOW_prefix_in_interface_body25873);
prefix();
state._fsp--;
if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_function_stmt_in_interface_body25877);
function_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_specification_part_in_interface_body25879);
gFortranParserExtras.specification_part();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_function_stmt_in_interface_body25881);
end_function_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.interface_body(true); /* true for hasPrefix */ }
}
break;
case 2 :
// FortranParser08.g:5296:4: subroutine_stmt specification_part end_subroutine_stmt
{
pushFollow(FOLLOW_subroutine_stmt_in_interface_body25900);
subroutine_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_specification_part_in_interface_body25902);
gFortranParserExtras.specification_part();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_subroutine_stmt_in_interface_body25904);
end_subroutine_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.interface_body(false); /* false for hasPrefix */ }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "interface_body"
// $ANTLR start "procedure_stmt"
// FortranParser08.g:5302:1: procedure_stmt : ( label )? ( T_MODULE )? T_PROCEDURE generic_name_list end_of_stmt ;
public final void procedure_stmt() throws RecognitionException {
Token T_MODULE750=null;
Token T_PROCEDURE751=null;
Token label749 =null;
Token end_of_stmt752 =null;
Token lbl = null; Token module=null;
try {
// FortranParser08.g:5305:2: ( ( label )? ( T_MODULE )? T_PROCEDURE generic_name_list end_of_stmt )
// FortranParser08.g:5305:4: ( label )? ( T_MODULE )? T_PROCEDURE generic_name_list end_of_stmt
{
// FortranParser08.g:5305:4: ( label )?
int alt600=2;
int LA600_0 = input.LA(1);
if ( (LA600_0==T_DIGIT_STRING) ) {
alt600=1;
}
switch (alt600) {
case 1 :
// FortranParser08.g:5305:5: label
{
pushFollow(FOLLOW_label_in_procedure_stmt25942);
label749=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label749;}
}
break;
}
// FortranParser08.g:5305:30: ( T_MODULE )?
int alt601=2;
int LA601_0 = input.LA(1);
if ( (LA601_0==T_MODULE) ) {
alt601=1;
}
switch (alt601) {
case 1 :
// FortranParser08.g:5305:32: T_MODULE
{
T_MODULE750=(Token)match(input,T_MODULE,FOLLOW_T_MODULE_in_procedure_stmt25950); if (state.failed) return;
if ( state.backtracking==0 ) {module=T_MODULE750;}
}
break;
}
T_PROCEDURE751=(Token)match(input,T_PROCEDURE,FOLLOW_T_PROCEDURE_in_procedure_stmt25969); if (state.failed) return;
pushFollow(FOLLOW_generic_name_list_in_procedure_stmt25971);
generic_name_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_procedure_stmt25973);
end_of_stmt752=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.procedure_stmt(lbl, module, T_PROCEDURE751,
end_of_stmt752);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "procedure_stmt"
// $ANTLR start "generic_spec"
// FortranParser08.g:5313:1: generic_spec : ( T_IDENT | T_OPERATOR T_LPAREN defined_operator T_RPAREN | T_ASSIGNMENT T_LPAREN T_EQUALS T_RPAREN | defined_io_generic_spec );
public final void generic_spec() throws RecognitionException {
Token T_IDENT753=null;
Token T_OPERATOR754=null;
Token T_ASSIGNMENT755=null;
try {
// FortranParser08.g:5314:2: ( T_IDENT | T_OPERATOR T_LPAREN defined_operator T_RPAREN | T_ASSIGNMENT T_LPAREN T_EQUALS T_RPAREN | defined_io_generic_spec )
int alt602=4;
switch ( input.LA(1) ) {
case T_IDENT:
{
alt602=1;
}
break;
case T_OPERATOR:
{
alt602=2;
}
break;
case T_ASSIGNMENT:
{
alt602=3;
}
break;
case T_READ:
case T_WRITE:
{
alt602=4;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 602, 0, input);
throw nvae;
}
switch (alt602) {
case 1 :
// FortranParser08.g:5314:4: T_IDENT
{
T_IDENT753=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_generic_spec25991); if (state.failed) return;
if ( state.backtracking==0 ) {action.generic_spec(null, T_IDENT753,
IActionEnums.GenericSpec_generic_name);}
}
break;
case 2 :
// FortranParser08.g:5317:4: T_OPERATOR T_LPAREN defined_operator T_RPAREN
{
T_OPERATOR754=(Token)match(input,T_OPERATOR,FOLLOW_T_OPERATOR_in_generic_spec26001); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_generic_spec26003); if (state.failed) return;
pushFollow(FOLLOW_defined_operator_in_generic_spec26005);
defined_operator();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_generic_spec26007); if (state.failed) return;
if ( state.backtracking==0 ) {action.generic_spec(T_OPERATOR754, null,
IActionEnums.GenericSpec_OPERATOR);}
}
break;
case 3 :
// FortranParser08.g:5320:4: T_ASSIGNMENT T_LPAREN T_EQUALS T_RPAREN
{
T_ASSIGNMENT755=(Token)match(input,T_ASSIGNMENT,FOLLOW_T_ASSIGNMENT_in_generic_spec26017); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_generic_spec26019); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_generic_spec26021); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_generic_spec26023); if (state.failed) return;
if ( state.backtracking==0 ) {action.generic_spec(T_ASSIGNMENT755, null,
IActionEnums.GenericSpec_ASSIGNMENT);}
}
break;
case 4 :
// FortranParser08.g:5323:4: defined_io_generic_spec
{
pushFollow(FOLLOW_defined_io_generic_spec_in_generic_spec26033);
defined_io_generic_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.generic_spec(null, null,
IActionEnums.GenericSpec_dtio_generic_spec); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "generic_spec"
// $ANTLR start "defined_io_generic_spec"
// FortranParser08.g:5331:1: defined_io_generic_spec : ( T_READ T_LPAREN T_FORMATTED T_RPAREN | T_READ T_LPAREN T_UNFORMATTED T_RPAREN | T_WRITE T_LPAREN T_FORMATTED T_RPAREN | T_WRITE T_LPAREN T_UNFORMATTED T_RPAREN );
public final void defined_io_generic_spec() throws RecognitionException {
Token T_READ756=null;
Token T_FORMATTED757=null;
Token T_READ758=null;
Token T_UNFORMATTED759=null;
Token T_WRITE760=null;
Token T_FORMATTED761=null;
Token T_WRITE762=null;
Token T_UNFORMATTED763=null;
try {
// FortranParser08.g:5332:2: ( T_READ T_LPAREN T_FORMATTED T_RPAREN | T_READ T_LPAREN T_UNFORMATTED T_RPAREN | T_WRITE T_LPAREN T_FORMATTED T_RPAREN | T_WRITE T_LPAREN T_UNFORMATTED T_RPAREN )
int alt603=4;
int LA603_0 = input.LA(1);
if ( (LA603_0==T_READ) ) {
int LA603_1 = input.LA(2);
if ( (LA603_1==T_LPAREN) ) {
int LA603_3 = input.LA(3);
if ( (LA603_3==T_FORMATTED) ) {
alt603=1;
}
else if ( (LA603_3==T_UNFORMATTED) ) {
alt603=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 603, 3, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 603, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA603_0==T_WRITE) ) {
int LA603_2 = input.LA(2);
if ( (LA603_2==T_LPAREN) ) {
int LA603_4 = input.LA(3);
if ( (LA603_4==T_FORMATTED) ) {
alt603=3;
}
else if ( (LA603_4==T_UNFORMATTED) ) {
alt603=4;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 603, 4, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 603, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 603, 0, input);
throw nvae;
}
switch (alt603) {
case 1 :
// FortranParser08.g:5332:4: T_READ T_LPAREN T_FORMATTED T_RPAREN
{
T_READ756=(Token)match(input,T_READ,FOLLOW_T_READ_in_defined_io_generic_spec26061); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_defined_io_generic_spec26063); if (state.failed) return;
T_FORMATTED757=(Token)match(input,T_FORMATTED,FOLLOW_T_FORMATTED_in_defined_io_generic_spec26065); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_defined_io_generic_spec26067); if (state.failed) return;
if ( state.backtracking==0 ) {action.dtio_generic_spec(T_READ756, T_FORMATTED757,
IActionEnums.
DTIOGenericSpec_READ_FORMATTED);}
}
break;
case 2 :
// FortranParser08.g:5336:4: T_READ T_LPAREN T_UNFORMATTED T_RPAREN
{
T_READ758=(Token)match(input,T_READ,FOLLOW_T_READ_in_defined_io_generic_spec26076); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_defined_io_generic_spec26078); if (state.failed) return;
T_UNFORMATTED759=(Token)match(input,T_UNFORMATTED,FOLLOW_T_UNFORMATTED_in_defined_io_generic_spec26080); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_defined_io_generic_spec26082); if (state.failed) return;
if ( state.backtracking==0 ) {action.dtio_generic_spec(T_READ758, T_UNFORMATTED759,
IActionEnums.
DTIOGenericSpec_READ_UNFORMATTED);}
}
break;
case 3 :
// FortranParser08.g:5340:4: T_WRITE T_LPAREN T_FORMATTED T_RPAREN
{
T_WRITE760=(Token)match(input,T_WRITE,FOLLOW_T_WRITE_in_defined_io_generic_spec26091); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_defined_io_generic_spec26093); if (state.failed) return;
T_FORMATTED761=(Token)match(input,T_FORMATTED,FOLLOW_T_FORMATTED_in_defined_io_generic_spec26095); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_defined_io_generic_spec26097); if (state.failed) return;
if ( state.backtracking==0 ) {action.dtio_generic_spec(T_WRITE760, T_FORMATTED761,
IActionEnums.
DTIOGenericSpec_WRITE_FORMATTED);}
}
break;
case 4 :
// FortranParser08.g:5344:4: T_WRITE T_LPAREN T_UNFORMATTED T_RPAREN
{
T_WRITE762=(Token)match(input,T_WRITE,FOLLOW_T_WRITE_in_defined_io_generic_spec26106); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_defined_io_generic_spec26108); if (state.failed) return;
T_UNFORMATTED763=(Token)match(input,T_UNFORMATTED,FOLLOW_T_UNFORMATTED_in_defined_io_generic_spec26110); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_defined_io_generic_spec26112); if (state.failed) return;
if ( state.backtracking==0 ) {action.dtio_generic_spec(T_WRITE762, T_UNFORMATTED763,
IActionEnums.
DTIOGenericSpec_WRITE_UNFORMATTED);}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "defined_io_generic_spec"
// $ANTLR start "import_stmt"
// FortranParser08.g:5352:1: import_stmt : ( label )? T_IMPORT ( ( T_COLON_COLON )? generic_name_list )? end_of_stmt ;
public final void import_stmt() throws RecognitionException {
Token T_IMPORT765=null;
Token label764 =null;
Token end_of_stmt766 =null;
Token lbl = null; boolean hasGenericNameList=false;
try {
// FortranParser08.g:5355:5: ( ( label )? T_IMPORT ( ( T_COLON_COLON )? generic_name_list )? end_of_stmt )
// FortranParser08.g:5355:10: ( label )? T_IMPORT ( ( T_COLON_COLON )? generic_name_list )? end_of_stmt
{
// FortranParser08.g:5355:10: ( label )?
int alt604=2;
int LA604_0 = input.LA(1);
if ( (LA604_0==T_DIGIT_STRING) ) {
alt604=1;
}
switch (alt604) {
case 1 :
// FortranParser08.g:5355:11: label
{
pushFollow(FOLLOW_label_in_import_stmt26145);
label764=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label764;}
}
break;
}
T_IMPORT765=(Token)match(input,T_IMPORT,FOLLOW_T_IMPORT_in_import_stmt26151); if (state.failed) return;
// FortranParser08.g:5355:45: ( ( T_COLON_COLON )? generic_name_list )?
int alt606=2;
int LA606_0 = input.LA(1);
if ( (LA606_0==T_COLON_COLON||LA606_0==T_IDENT) ) {
alt606=1;
}
switch (alt606) {
case 1 :
// FortranParser08.g:5355:47: ( T_COLON_COLON )? generic_name_list
{
// FortranParser08.g:5355:47: ( T_COLON_COLON )?
int alt605=2;
int LA605_0 = input.LA(1);
if ( (LA605_0==T_COLON_COLON) ) {
alt605=1;
}
switch (alt605) {
case 1 :
// FortranParser08.g:5355:49: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_import_stmt26157); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_generic_name_list_in_import_stmt26175);
generic_name_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasGenericNameList=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_import_stmt26181);
end_of_stmt766=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.import_stmt(lbl, T_IMPORT765, end_of_stmt766,
hasGenericNameList);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "import_stmt"
// $ANTLR start "external_stmt"
// FortranParser08.g:5363:1: external_stmt : ( label )? T_EXTERNAL ( T_COLON_COLON )? generic_name_list end_of_stmt ;
public final void external_stmt() throws RecognitionException {
Token T_EXTERNAL768=null;
Token label767 =null;
Token end_of_stmt769 =null;
Token lbl = null;
try {
// FortranParser08.g:5366:2: ( ( label )? T_EXTERNAL ( T_COLON_COLON )? generic_name_list end_of_stmt )
// FortranParser08.g:5366:4: ( label )? T_EXTERNAL ( T_COLON_COLON )? generic_name_list end_of_stmt
{
// FortranParser08.g:5366:4: ( label )?
int alt607=2;
int LA607_0 = input.LA(1);
if ( (LA607_0==T_DIGIT_STRING) ) {
alt607=1;
}
switch (alt607) {
case 1 :
// FortranParser08.g:5366:5: label
{
pushFollow(FOLLOW_label_in_external_stmt26213);
label767=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label767;}
}
break;
}
T_EXTERNAL768=(Token)match(input,T_EXTERNAL,FOLLOW_T_EXTERNAL_in_external_stmt26219); if (state.failed) return;
// FortranParser08.g:5366:41: ( T_COLON_COLON )?
int alt608=2;
int LA608_0 = input.LA(1);
if ( (LA608_0==T_COLON_COLON) ) {
alt608=1;
}
switch (alt608) {
case 1 :
// FortranParser08.g:5366:43: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_external_stmt26223); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_generic_name_list_in_external_stmt26241);
generic_name_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_external_stmt26243);
end_of_stmt769=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.external_stmt(lbl, T_EXTERNAL768, end_of_stmt769);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "external_stmt"
// $ANTLR start "procedure_declaration_stmt"
// FortranParser08.g:5372:1: procedure_declaration_stmt : ( label )? T_PROCEDURE T_LPAREN ( proc_interface )? T_RPAREN ( ( T_COMMA proc_attr_spec )* T_COLON_COLON )? proc_decl_list end_of_stmt ;
public final void procedure_declaration_stmt() throws RecognitionException {
Token T_PROCEDURE771=null;
Token label770 =null;
Token end_of_stmt772 =null;
Token lbl = null; boolean hasProcInterface=false; int count=0;
try {
// FortranParser08.g:5375:5: ( ( label )? T_PROCEDURE T_LPAREN ( proc_interface )? T_RPAREN ( ( T_COMMA proc_attr_spec )* T_COLON_COLON )? proc_decl_list end_of_stmt )
// FortranParser08.g:5375:7: ( label )? T_PROCEDURE T_LPAREN ( proc_interface )? T_RPAREN ( ( T_COMMA proc_attr_spec )* T_COLON_COLON )? proc_decl_list end_of_stmt
{
// FortranParser08.g:5375:7: ( label )?
int alt609=2;
int LA609_0 = input.LA(1);
if ( (LA609_0==T_DIGIT_STRING) ) {
alt609=1;
}
switch (alt609) {
case 1 :
// FortranParser08.g:5375:8: label
{
pushFollow(FOLLOW_label_in_procedure_declaration_stmt26273);
label770=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label770;}
}
break;
}
T_PROCEDURE771=(Token)match(input,T_PROCEDURE,FOLLOW_T_PROCEDURE_in_procedure_declaration_stmt26279); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_procedure_declaration_stmt26281); if (state.failed) return;
// FortranParser08.g:5376:3: ( proc_interface )?
int alt610=2;
int LA610_0 = input.LA(1);
if ( (LA610_0==T_CHARACTER||LA610_0==T_CLASS||LA610_0==T_COMPLEX||(LA610_0 >= T_DOUBLE && LA610_0 <= T_DOUBLEPRECISION)||LA610_0==T_IDENT||LA610_0==T_INTEGER||LA610_0==T_LOGICAL||LA610_0==T_REAL||LA610_0==T_TYPE) ) {
alt610=1;
}
switch (alt610) {
case 1 :
// FortranParser08.g:5376:5: proc_interface
{
pushFollow(FOLLOW_proc_interface_in_procedure_declaration_stmt26287);
proc_interface();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasProcInterface=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_procedure_declaration_stmt26293); if (state.failed) return;
// FortranParser08.g:5377:9: ( ( T_COMMA proc_attr_spec )* T_COLON_COLON )?
int alt612=2;
int LA612_0 = input.LA(1);
if ( ((LA612_0 >= T_COLON_COLON && LA612_0 <= T_COMMA)) ) {
alt612=1;
}
switch (alt612) {
case 1 :
// FortranParser08.g:5377:11: ( T_COMMA proc_attr_spec )* T_COLON_COLON
{
// FortranParser08.g:5377:11: ( T_COMMA proc_attr_spec )*
loop611:
while (true) {
int alt611=2;
int LA611_0 = input.LA(1);
if ( (LA611_0==T_COMMA) ) {
alt611=1;
}
switch (alt611) {
case 1 :
// FortranParser08.g:5377:13: T_COMMA proc_attr_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_procedure_declaration_stmt26307); if (state.failed) return;
pushFollow(FOLLOW_proc_attr_spec_in_procedure_declaration_stmt26309);
proc_attr_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop611;
}
}
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_procedure_declaration_stmt26315); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_proc_decl_list_in_procedure_declaration_stmt26322);
proc_decl_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_procedure_declaration_stmt26324);
end_of_stmt772=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.procedure_declaration_stmt(lbl, T_PROCEDURE771,
end_of_stmt772, hasProcInterface, count);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "procedure_declaration_stmt"
// $ANTLR start "proc_interface"
// FortranParser08.g:5385:1: proc_interface : ( T_IDENT | declaration_type_spec );
public final void proc_interface() throws RecognitionException {
Token T_IDENT773=null;
try {
// FortranParser08.g:5386:2: ( T_IDENT | declaration_type_spec )
int alt613=2;
int LA613_0 = input.LA(1);
if ( (LA613_0==T_IDENT) ) {
alt613=1;
}
else if ( (LA613_0==T_CHARACTER||LA613_0==T_CLASS||LA613_0==T_COMPLEX||(LA613_0 >= T_DOUBLE && LA613_0 <= T_DOUBLEPRECISION)||LA613_0==T_INTEGER||LA613_0==T_LOGICAL||LA613_0==T_REAL||LA613_0==T_TYPE) ) {
alt613=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 613, 0, input);
throw nvae;
}
switch (alt613) {
case 1 :
// FortranParser08.g:5386:4: T_IDENT
{
T_IDENT773=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_proc_interface26345); if (state.failed) return;
if ( state.backtracking==0 ) { action.proc_interface(T_IDENT773); }
}
break;
case 2 :
// FortranParser08.g:5387:4: declaration_type_spec
{
pushFollow(FOLLOW_declaration_type_spec_in_proc_interface26356);
declaration_type_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.proc_interface(null); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "proc_interface"
// $ANTLR start "proc_attr_spec"
// FortranParser08.g:5391:1: proc_attr_spec : ( access_spec | proc_language_binding_spec | T_INTENT T_LPAREN intent_spec T_RPAREN | T_OPTIONAL | T_POINTER | T_SAVE | T_PASS ( T_LPAREN T_IDENT T_RPAREN )? | T_NOPASS | T_DEFERRED | proc_attr_spec_extension );
public final void proc_attr_spec() throws RecognitionException {
Token T_INTENT774=null;
Token T_OPTIONAL775=null;
Token T_POINTER776=null;
Token T_SAVE777=null;
Token T_PASS778=null;
Token T_IDENT779=null;
Token T_NOPASS780=null;
Token T_DEFERRED781=null;
try {
// FortranParser08.g:5392:2: ( access_spec | proc_language_binding_spec | T_INTENT T_LPAREN intent_spec T_RPAREN | T_OPTIONAL | T_POINTER | T_SAVE | T_PASS ( T_LPAREN T_IDENT T_RPAREN )? | T_NOPASS | T_DEFERRED | proc_attr_spec_extension )
int alt615=10;
switch ( input.LA(1) ) {
case T_PRIVATE:
case T_PUBLIC:
{
alt615=1;
}
break;
case T_BIND:
{
alt615=2;
}
break;
case T_INTENT:
{
alt615=3;
}
break;
case T_OPTIONAL:
{
alt615=4;
}
break;
case T_POINTER:
{
alt615=5;
}
break;
case T_SAVE:
{
alt615=6;
}
break;
case T_PASS:
{
alt615=7;
}
break;
case T_NOPASS:
{
alt615=8;
}
break;
case T_DEFERRED:
{
alt615=9;
}
break;
case T_NO_LANGUAGE_EXTENSION:
{
alt615=10;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 615, 0, input);
throw nvae;
}
switch (alt615) {
case 1 :
// FortranParser08.g:5392:4: access_spec
{
pushFollow(FOLLOW_access_spec_in_proc_attr_spec26370);
access_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.proc_attr_spec(null, null, IActionEnums.AttrSpec_none); }
}
break;
case 2 :
// FortranParser08.g:5394:4: proc_language_binding_spec
{
pushFollow(FOLLOW_proc_language_binding_spec_in_proc_attr_spec26389);
proc_language_binding_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.proc_attr_spec(null, null, IActionEnums.AttrSpec_none); }
}
break;
case 3 :
// FortranParser08.g:5396:4: T_INTENT T_LPAREN intent_spec T_RPAREN
{
T_INTENT774=(Token)match(input,T_INTENT,FOLLOW_T_INTENT_in_proc_attr_spec26408); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_proc_attr_spec26410); if (state.failed) return;
pushFollow(FOLLOW_intent_spec_in_proc_attr_spec26412);
intent_spec();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_proc_attr_spec26414); if (state.failed) return;
if ( state.backtracking==0 ) { action.proc_attr_spec(T_INTENT774, null,
IActionEnums.AttrSpec_INTENT); }
}
break;
case 4 :
// FortranParser08.g:5399:4: T_OPTIONAL
{
T_OPTIONAL775=(Token)match(input,T_OPTIONAL,FOLLOW_T_OPTIONAL_in_proc_attr_spec26433); if (state.failed) return;
if ( state.backtracking==0 ) { action.proc_attr_spec(T_OPTIONAL775, null,
IActionEnums.AttrSpec_OPTIONAL); }
}
break;
case 5 :
// FortranParser08.g:5402:4: T_POINTER
{
T_POINTER776=(Token)match(input,T_POINTER,FOLLOW_T_POINTER_in_proc_attr_spec26453); if (state.failed) return;
if ( state.backtracking==0 ) { action.proc_attr_spec(T_POINTER776, null,
IActionEnums.AttrSpec_POINTER); }
}
break;
case 6 :
// FortranParser08.g:5405:4: T_SAVE
{
T_SAVE777=(Token)match(input,T_SAVE,FOLLOW_T_SAVE_in_proc_attr_spec26473); if (state.failed) return;
if ( state.backtracking==0 ) { action.proc_attr_spec(T_SAVE777, null,
IActionEnums.AttrSpec_SAVE); }
}
break;
case 7 :
// FortranParser08.g:5410:6: T_PASS ( T_LPAREN T_IDENT T_RPAREN )?
{
T_PASS778=(Token)match(input,T_PASS,FOLLOW_T_PASS_in_proc_attr_spec26498); if (state.failed) return;
// FortranParser08.g:5410:13: ( T_LPAREN T_IDENT T_RPAREN )?
int alt614=2;
int LA614_0 = input.LA(1);
if ( (LA614_0==T_LPAREN) ) {
alt614=1;
}
switch (alt614) {
case 1 :
// FortranParser08.g:5410:15: T_LPAREN T_IDENT T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_proc_attr_spec26502); if (state.failed) return;
T_IDENT779=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_proc_attr_spec26504); if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_proc_attr_spec26506); if (state.failed) return;
}
break;
}
if ( state.backtracking==0 ) { action.proc_attr_spec(T_PASS778, T_IDENT779,
IActionEnums.AttrSpec_PASS); }
}
break;
case 8 :
// FortranParser08.g:5413:9: T_NOPASS
{
T_NOPASS780=(Token)match(input,T_NOPASS,FOLLOW_T_NOPASS_in_proc_attr_spec26532); if (state.failed) return;
if ( state.backtracking==0 ) { action.proc_attr_spec(T_NOPASS780, null,
IActionEnums.AttrSpec_NOPASS); }
}
break;
case 9 :
// FortranParser08.g:5416:9: T_DEFERRED
{
T_DEFERRED781=(Token)match(input,T_DEFERRED,FOLLOW_T_DEFERRED_in_proc_attr_spec26556); if (state.failed) return;
if ( state.backtracking==0 ) { action.proc_attr_spec(T_DEFERRED781, null,
IActionEnums.AttrSpec_DEFERRED); }
}
break;
case 10 :
// FortranParser08.g:5419:9: proc_attr_spec_extension
{
pushFollow(FOLLOW_proc_attr_spec_extension_in_proc_attr_spec26580);
proc_attr_spec_extension();
state._fsp--;
if (state.failed) return;
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "proc_attr_spec"
// $ANTLR start "proc_attr_spec_extension"
// FortranParser08.g:5423:1: proc_attr_spec_extension : T_NO_LANGUAGE_EXTENSION ;
public final void proc_attr_spec_extension() throws RecognitionException {
try {
// FortranParser08.g:5423:26: ( T_NO_LANGUAGE_EXTENSION )
// FortranParser08.g:5423:28: T_NO_LANGUAGE_EXTENSION
{
match(input,T_NO_LANGUAGE_EXTENSION,FOLLOW_T_NO_LANGUAGE_EXTENSION_in_proc_attr_spec_extension26593); if (state.failed) return;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "proc_attr_spec_extension"
// $ANTLR start "proc_decl"
// FortranParser08.g:5427:1: proc_decl : T_IDENT ( T_EQ_GT null_init )? ;
public final void proc_decl() throws RecognitionException {
Token T_IDENT782=null;
boolean hasNullInit = false;
try {
// FortranParser08.g:5429:5: ( T_IDENT ( T_EQ_GT null_init )? )
// FortranParser08.g:5429:7: T_IDENT ( T_EQ_GT null_init )?
{
T_IDENT782=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_proc_decl26612); if (state.failed) return;
// FortranParser08.g:5429:15: ( T_EQ_GT null_init )?
int alt616=2;
int LA616_0 = input.LA(1);
if ( (LA616_0==T_EQ_GT) ) {
alt616=1;
}
switch (alt616) {
case 1 :
// FortranParser08.g:5429:17: T_EQ_GT null_init
{
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_proc_decl26616); if (state.failed) return;
pushFollow(FOLLOW_null_init_in_proc_decl26618);
null_init();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasNullInit=true;}
}
break;
}
if ( state.backtracking==0 ) { action.proc_decl(T_IDENT782, hasNullInit); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "proc_decl"
// $ANTLR start "proc_decl_list"
// FortranParser08.g:5433:1: proc_decl_list : proc_decl ( T_COMMA proc_decl )* ;
public final void proc_decl_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:5435:5: ( proc_decl ( T_COMMA proc_decl )* )
// FortranParser08.g:5435:10: proc_decl ( T_COMMA proc_decl )*
{
if ( state.backtracking==0 ) {action.proc_decl_list__begin();}
pushFollow(FOLLOW_proc_decl_in_proc_decl_list26659);
proc_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:5436:24: ( T_COMMA proc_decl )*
loop617:
while (true) {
int alt617=2;
int LA617_0 = input.LA(1);
if ( (LA617_0==T_COMMA) ) {
alt617=1;
}
switch (alt617) {
case 1 :
// FortranParser08.g:5436:26: T_COMMA proc_decl
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_proc_decl_list26665); if (state.failed) return;
pushFollow(FOLLOW_proc_decl_in_proc_decl_list26667);
proc_decl();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop617;
}
}
if ( state.backtracking==0 ) {action.proc_decl_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "proc_decl_list"
// $ANTLR start "intrinsic_stmt"
// FortranParser08.g:5444:1: intrinsic_stmt : ( label )? T_INTRINSIC ( T_COLON_COLON )? generic_name_list end_of_stmt ;
public final void intrinsic_stmt() throws RecognitionException {
Token T_INTRINSIC784=null;
Token label783 =null;
Token end_of_stmt785 =null;
Token lbl = null;
try {
// FortranParser08.g:5447:2: ( ( label )? T_INTRINSIC ( T_COLON_COLON )? generic_name_list end_of_stmt )
// FortranParser08.g:5447:4: ( label )? T_INTRINSIC ( T_COLON_COLON )? generic_name_list end_of_stmt
{
// FortranParser08.g:5447:4: ( label )?
int alt618=2;
int LA618_0 = input.LA(1);
if ( (LA618_0==T_DIGIT_STRING) ) {
alt618=1;
}
switch (alt618) {
case 1 :
// FortranParser08.g:5447:5: label
{
pushFollow(FOLLOW_label_in_intrinsic_stmt26710);
label783=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label783;}
}
break;
}
T_INTRINSIC784=(Token)match(input,T_INTRINSIC,FOLLOW_T_INTRINSIC_in_intrinsic_stmt26716); if (state.failed) return;
// FortranParser08.g:5448:3: ( T_COLON_COLON )?
int alt619=2;
int LA619_0 = input.LA(1);
if ( (LA619_0==T_COLON_COLON) ) {
alt619=1;
}
switch (alt619) {
case 1 :
// FortranParser08.g:5448:5: T_COLON_COLON
{
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_intrinsic_stmt26722); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_generic_name_list_in_intrinsic_stmt26729);
generic_name_list();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_intrinsic_stmt26731);
end_of_stmt785=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.intrinsic_stmt(lbl, T_INTRINSIC784, end_of_stmt785);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "intrinsic_stmt"
// $ANTLR start "call_stmt"
// FortranParser08.g:5458:1: call_stmt : ( label )? T_CALL procedure_designator ( T_LPAREN ( actual_arg_spec_list )? T_RPAREN )? end_of_stmt ;
public final void call_stmt() throws RecognitionException {
Token T_CALL787=null;
Token label786 =null;
Token end_of_stmt788 =null;
Token lbl = null; boolean hasActualArgSpecList = false;
try {
// FortranParser08.g:5461:5: ( ( label )? T_CALL procedure_designator ( T_LPAREN ( actual_arg_spec_list )? T_RPAREN )? end_of_stmt )
// FortranParser08.g:5461:10: ( label )? T_CALL procedure_designator ( T_LPAREN ( actual_arg_spec_list )? T_RPAREN )? end_of_stmt
{
// FortranParser08.g:5461:10: ( label )?
int alt620=2;
int LA620_0 = input.LA(1);
if ( (LA620_0==T_DIGIT_STRING) ) {
alt620=1;
}
switch (alt620) {
case 1 :
// FortranParser08.g:5461:11: label
{
pushFollow(FOLLOW_label_in_call_stmt26769);
label786=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label786;}
}
break;
}
T_CALL787=(Token)match(input,T_CALL,FOLLOW_T_CALL_in_call_stmt26775); if (state.failed) return;
pushFollow(FOLLOW_procedure_designator_in_call_stmt26777);
procedure_designator();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:5462:13: ( T_LPAREN ( actual_arg_spec_list )? T_RPAREN )?
int alt622=2;
int LA622_0 = input.LA(1);
if ( (LA622_0==T_LPAREN) ) {
alt622=1;
}
switch (alt622) {
case 1 :
// FortranParser08.g:5462:15: T_LPAREN ( actual_arg_spec_list )? T_RPAREN
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_call_stmt26793); if (state.failed) return;
// FortranParser08.g:5462:24: ( actual_arg_spec_list )?
int alt621=2;
int LA621_0 = input.LA(1);
if ( (LA621_0==BINARY_CONSTANT||LA621_0==HEX_CONSTANT||LA621_0==OCTAL_CONSTANT||LA621_0==T_ASTERISK||LA621_0==T_CHAR_CONSTANT||(LA621_0 >= T_DEFINED_OP && LA621_0 <= T_DIGIT_STRING)||LA621_0==T_FALSE||(LA621_0 >= T_HOLLERITH && LA621_0 <= T_IDENT)||LA621_0==T_LBRACKET||LA621_0==T_LPAREN||LA621_0==T_MINUS||LA621_0==T_NOT||LA621_0==T_PLUS||LA621_0==T_REAL_CONSTANT||LA621_0==T_TRUE) ) {
alt621=1;
}
switch (alt621) {
case 1 :
// FortranParser08.g:5462:25: actual_arg_spec_list
{
pushFollow(FOLLOW_actual_arg_spec_list_in_call_stmt26796);
actual_arg_spec_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasActualArgSpecList=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_call_stmt26815); if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_call_stmt26820);
end_of_stmt788=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.call_stmt(lbl, T_CALL787, end_of_stmt788,
hasActualArgSpecList); }
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "call_stmt"
// $ANTLR start "procedure_designator"
// FortranParser08.g:5478:1: procedure_designator : data_ref ;
public final void procedure_designator() throws RecognitionException {
try {
// FortranParser08.g:5479:2: ( data_ref )
// FortranParser08.g:5479:4: data_ref
{
pushFollow(FOLLOW_data_ref_in_procedure_designator26856);
data_ref();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.procedure_designator(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "procedure_designator"
// $ANTLR start "actual_arg_spec"
// FortranParser08.g:5484:1: actual_arg_spec : ( T_IDENT T_EQUALS )? actual_arg ;
public final void actual_arg_spec() throws RecognitionException {
Token T_IDENT789=null;
Token keyword = null;
try {
// FortranParser08.g:5486:5: ( ( T_IDENT T_EQUALS )? actual_arg )
// FortranParser08.g:5486:7: ( T_IDENT T_EQUALS )? actual_arg
{
// FortranParser08.g:5486:7: ( T_IDENT T_EQUALS )?
int alt623=2;
int LA623_0 = input.LA(1);
if ( (LA623_0==T_IDENT) ) {
int LA623_1 = input.LA(2);
if ( (LA623_1==T_EQUALS) ) {
alt623=1;
}
}
switch (alt623) {
case 1 :
// FortranParser08.g:5486:8: T_IDENT T_EQUALS
{
T_IDENT789=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_actual_arg_spec26890); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_actual_arg_spec26892); if (state.failed) return;
if ( state.backtracking==0 ) {keyword=T_IDENT789;}
}
break;
}
pushFollow(FOLLOW_actual_arg_in_actual_arg_spec26898);
actual_arg();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.actual_arg_spec(keyword); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "actual_arg_spec"
// $ANTLR start "actual_arg_spec_list"
// FortranParser08.g:5491:1: actual_arg_spec_list options {greedy=false; } : actual_arg_spec ( T_COMMA actual_arg_spec )* ;
public final void actual_arg_spec_list() throws RecognitionException {
int count = 0;
try {
// FortranParser08.g:5494:5: ( actual_arg_spec ( T_COMMA actual_arg_spec )* )
// FortranParser08.g:5494:8: actual_arg_spec ( T_COMMA actual_arg_spec )*
{
if ( state.backtracking==0 ) { action.actual_arg_spec_list__begin(); }
pushFollow(FOLLOW_actual_arg_spec_in_actual_arg_spec_list26943);
actual_arg_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:5495:33: ( T_COMMA actual_arg_spec )*
loop624:
while (true) {
int alt624=2;
int LA624_0 = input.LA(1);
if ( (LA624_0==T_COMMA) ) {
alt624=1;
}
switch (alt624) {
case 1 :
// FortranParser08.g:5495:35: T_COMMA actual_arg_spec
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_actual_arg_spec_list26949); if (state.failed) return;
pushFollow(FOLLOW_actual_arg_spec_in_actual_arg_spec_list26951);
actual_arg_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop624;
}
}
if ( state.backtracking==0 ) { action.actual_arg_spec_list(count); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "actual_arg_spec_list"
// $ANTLR start "actual_arg"
// FortranParser08.g:5506:1: actual_arg : ( expr | T_ASTERISK label );
public final void actual_arg() throws RecognitionException {
Token label790 =null;
boolean hasExpr = false;
try {
// FortranParser08.g:5508:2: ( expr | T_ASTERISK label )
int alt625=2;
int LA625_0 = input.LA(1);
if ( (LA625_0==BINARY_CONSTANT||LA625_0==HEX_CONSTANT||LA625_0==OCTAL_CONSTANT||LA625_0==T_CHAR_CONSTANT||(LA625_0 >= T_DEFINED_OP && LA625_0 <= T_DIGIT_STRING)||LA625_0==T_FALSE||(LA625_0 >= T_HOLLERITH && LA625_0 <= T_IDENT)||LA625_0==T_LBRACKET||LA625_0==T_LPAREN||LA625_0==T_MINUS||LA625_0==T_NOT||LA625_0==T_PLUS||LA625_0==T_REAL_CONSTANT||LA625_0==T_TRUE) ) {
alt625=1;
}
else if ( (LA625_0==T_ASTERISK) ) {
alt625=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 625, 0, input);
throw nvae;
}
switch (alt625) {
case 1 :
// FortranParser08.g:5508:4: expr
{
pushFollow(FOLLOW_expr_in_actual_arg26989);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { hasExpr=true; action.actual_arg(hasExpr, null); }
}
break;
case 2 :
// FortranParser08.g:5510:4: T_ASTERISK label
{
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_actual_arg27012); if (state.failed) return;
pushFollow(FOLLOW_label_in_actual_arg27014);
label790=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.actual_arg(hasExpr, label790); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "actual_arg"
// $ANTLR start "function_subprogram"
// FortranParser08.g:5520:1: function_subprogram : function_stmt specification_part ( execution_part )? ( internal_subprogram_part )? end_function_stmt ;
public final void function_subprogram() throws RecognitionException {
boolean hasExePart = false;
boolean hasIntSubProg = false;
try {
// FortranParser08.g:5525:2: ( function_stmt specification_part ( execution_part )? ( internal_subprogram_part )? end_function_stmt )
// FortranParser08.g:5525:4: function_stmt specification_part ( execution_part )? ( internal_subprogram_part )? end_function_stmt
{
pushFollow(FOLLOW_function_stmt_in_function_subprogram27051);
function_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_specification_part_in_function_subprogram27055);
gFortranParserExtras.specification_part();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:5527:3: ( execution_part )?
int alt626=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA626_1 = input.LA(2);
if ( ((LA626_1 >= T_ALLOCATE && LA626_1 <= T_ALLOCATE_STMT_1)||(LA626_1 >= T_ARITHMETIC_IF_STMT && LA626_1 <= T_ASSIGN)||(LA626_1 >= T_ASSIGNMENT_STMT && LA626_1 <= T_ASSOCIATE)||LA626_1==T_BACKSPACE||LA626_1==T_BLOCK||LA626_1==T_CALL||LA626_1==T_CLOSE||LA626_1==T_CONTINUE||(LA626_1 >= T_CRITICAL && LA626_1 <= T_CYCLE)||LA626_1==T_DEALLOCATE||LA626_1==T_DO||LA626_1==T_ENDFILE||LA626_1==T_ERROR||LA626_1==T_EXIT||LA626_1==T_FLUSH||(LA626_1 >= T_FORALL_CONSTRUCT_STMT && LA626_1 <= T_FORALL_STMT)||(LA626_1 >= T_GO && LA626_1 <= T_GOTO)||(LA626_1 >= T_IDENT && LA626_1 <= T_IF_STMT)||(LA626_1 >= T_INQUIRE && LA626_1 <= T_INQUIRE_STMT_2)||LA626_1==T_LOCK||LA626_1==T_NULLIFY||LA626_1==T_OPEN||LA626_1==T_PAUSE||LA626_1==T_PRINT||LA626_1==T_PTR_ASSIGNMENT_STMT||LA626_1==T_READ||(LA626_1 >= T_RETURN && LA626_1 <= T_REWIND)||(LA626_1 >= T_SELECT && LA626_1 <= T_SELECTTYPE)||LA626_1==T_STOP||LA626_1==T_SYNC||LA626_1==T_UNLOCK||LA626_1==T_WAIT||LA626_1==T_WHERE_STMT||LA626_1==T_WRITE) ) {
alt626=1;
}
else if ( (LA626_1==T_END) ) {
int LA626_3 = input.LA(3);
if ( (LA626_3==T_FILE) ) {
alt626=1;
}
}
}
break;
case T_ALLOCATE:
case T_ALLOCATE_STMT_1:
case T_ARITHMETIC_IF_STMT:
case T_ASSIGN:
case T_ASSIGNMENT_STMT:
case T_ASSOCIATE:
case T_BACKSPACE:
case T_BLOCK:
case T_CALL:
case T_CLOSE:
case T_CONTINUE:
case T_CRITICAL:
case T_CYCLE:
case T_DEALLOCATE:
case T_DO:
case T_ENDFILE:
case T_ERROR:
case T_EXIT:
case T_FLUSH:
case T_FORALL_CONSTRUCT_STMT:
case T_FORALL_STMT:
case T_GO:
case T_GOTO:
case T_IDENT:
case T_IF:
case T_IF_STMT:
case T_INQUIRE:
case T_INQUIRE_STMT_2:
case T_LOCK:
case T_NULLIFY:
case T_OPEN:
case T_PAUSE:
case T_PRINT:
case T_PTR_ASSIGNMENT_STMT:
case T_READ:
case T_RETURN:
case T_REWIND:
case T_SELECT:
case T_SELECTCASE:
case T_SELECTTYPE:
case T_STOP:
case T_SYNC:
case T_UNLOCK:
case T_WAIT:
case T_WHERE_CONSTRUCT_STMT:
case T_WHERE_STMT:
case T_WRITE:
{
alt626=1;
}
break;
case T_END:
{
int LA626_3 = input.LA(2);
if ( (LA626_3==T_FILE) ) {
alt626=1;
}
}
break;
}
switch (alt626) {
case 1 :
// FortranParser08.g:5527:5: execution_part
{
pushFollow(FOLLOW_execution_part_in_function_subprogram27061);
execution_part();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { hasExePart=true; }
}
break;
}
// FortranParser08.g:5528:3: ( internal_subprogram_part )?
int alt627=2;
int LA627_0 = input.LA(1);
if ( (LA627_0==T_DIGIT_STRING) ) {
int LA627_1 = input.LA(2);
if ( (LA627_1==T_CONTAINS) ) {
alt627=1;
}
}
else if ( (LA627_0==T_CONTAINS) ) {
alt627=1;
}
switch (alt627) {
case 1 :
// FortranParser08.g:5528:5: internal_subprogram_part
{
pushFollow(FOLLOW_internal_subprogram_part_in_function_subprogram27071);
internal_subprogram_part();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { hasIntSubProg=true; }
}
break;
}
pushFollow(FOLLOW_end_function_stmt_in_function_subprogram27079);
end_function_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.function_subprogram(hasExePart, hasIntSubProg); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "function_subprogram"
// $ANTLR start "function_stmt"
// FortranParser08.g:5536:1: function_stmt : ( label )? T_FUNCTION T_IDENT T_LPAREN ( generic_name_list )? T_RPAREN ( suffix )? end_of_stmt ;
public final void function_stmt() throws RecognitionException {
Token T_FUNCTION792=null;
Token T_IDENT793=null;
Token label791 =null;
Token end_of_stmt794 =null;
Token lbl = null;
boolean hasGenericNameList=false;
boolean hasSuffix=false;
try {
// FortranParser08.g:5543:5: ( ( label )? T_FUNCTION T_IDENT T_LPAREN ( generic_name_list )? T_RPAREN ( suffix )? end_of_stmt )
// FortranParser08.g:5543:10: ( label )? T_FUNCTION T_IDENT T_LPAREN ( generic_name_list )? T_RPAREN ( suffix )? end_of_stmt
{
if ( state.backtracking==0 ) {action.function_stmt__begin();}
// FortranParser08.g:5544:3: ( label )?
int alt628=2;
int LA628_0 = input.LA(1);
if ( (LA628_0==T_DIGIT_STRING) ) {
alt628=1;
}
switch (alt628) {
case 1 :
// FortranParser08.g:5544:4: label
{
pushFollow(FOLLOW_label_in_function_stmt27128);
label791=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label791;}
}
break;
}
T_FUNCTION792=(Token)match(input,T_FUNCTION,FOLLOW_T_FUNCTION_in_function_stmt27134); if (state.failed) return;
T_IDENT793=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_function_stmt27136); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_function_stmt27144); if (state.failed) return;
// FortranParser08.g:5545:16: ( generic_name_list )?
int alt629=2;
int LA629_0 = input.LA(1);
if ( (LA629_0==T_IDENT) ) {
alt629=1;
}
switch (alt629) {
case 1 :
// FortranParser08.g:5545:18: generic_name_list
{
pushFollow(FOLLOW_generic_name_list_in_function_stmt27148);
generic_name_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasGenericNameList=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_function_stmt27154); if (state.failed) return;
// FortranParser08.g:5546:13: ( suffix )?
int alt630=2;
int LA630_0 = input.LA(1);
if ( (LA630_0==T_BIND||LA630_0==T_RESULT) ) {
alt630=1;
}
switch (alt630) {
case 1 :
// FortranParser08.g:5546:15: suffix
{
pushFollow(FOLLOW_suffix_in_function_stmt27171);
suffix();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasSuffix=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_function_stmt27177);
end_of_stmt794=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.function_stmt(lbl, T_FUNCTION792, T_IDENT793, end_of_stmt794,
hasGenericNameList,hasSuffix);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "function_stmt"
// $ANTLR start "proc_language_binding_spec"
// FortranParser08.g:5552:1: proc_language_binding_spec : language_binding_spec ;
public final void proc_language_binding_spec() throws RecognitionException {
try {
// FortranParser08.g:5553:2: ( language_binding_spec )
// FortranParser08.g:5553:4: language_binding_spec
{
pushFollow(FOLLOW_language_binding_spec_in_proc_language_binding_spec27194);
language_binding_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.proc_language_binding_spec(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "proc_language_binding_spec"
// $ANTLR start "prefix"
// FortranParser08.g:5562:1: prefix : prefix_spec ( prefix_spec ( prefix_spec )? )? ;
public final void prefix() throws RecognitionException {
int specCount=1;
try {
// FortranParser08.g:5564:2: ( prefix_spec ( prefix_spec ( prefix_spec )? )? )
// FortranParser08.g:5564:4: prefix_spec ( prefix_spec ( prefix_spec )? )?
{
pushFollow(FOLLOW_prefix_spec_in_prefix27228);
prefix_spec();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:5564:16: ( prefix_spec ( prefix_spec )? )?
int alt632=2;
int LA632_0 = input.LA(1);
if ( (LA632_0==T_CHARACTER||LA632_0==T_CLASS||LA632_0==T_COMPLEX||(LA632_0 >= T_DOUBLE && LA632_0 <= T_DOUBLEPRECISION)||LA632_0==T_ELEMENTAL||LA632_0==T_INTEGER||LA632_0==T_LOGICAL||LA632_0==T_PURE||LA632_0==T_REAL||LA632_0==T_RECURSIVE||LA632_0==T_TYPE) ) {
alt632=1;
}
switch (alt632) {
case 1 :
// FortranParser08.g:5564:18: prefix_spec ( prefix_spec )?
{
pushFollow(FOLLOW_prefix_spec_in_prefix27232);
prefix_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {specCount++;}
// FortranParser08.g:5565:13: ( prefix_spec )?
int alt631=2;
int LA631_0 = input.LA(1);
if ( (LA631_0==T_CHARACTER||LA631_0==T_CLASS||LA631_0==T_COMPLEX||(LA631_0 >= T_DOUBLE && LA631_0 <= T_DOUBLEPRECISION)||LA631_0==T_ELEMENTAL||LA631_0==T_INTEGER||LA631_0==T_LOGICAL||LA631_0==T_PURE||LA631_0==T_REAL||LA631_0==T_RECURSIVE||LA631_0==T_TYPE) ) {
alt631=1;
}
switch (alt631) {
case 1 :
// FortranParser08.g:5565:14: prefix_spec
{
pushFollow(FOLLOW_prefix_spec_in_prefix27249);
prefix_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {specCount++;}
}
break;
}
}
break;
}
if ( state.backtracking==0 ) {action.prefix(specCount);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "prefix"
// $ANTLR start "t_prefix"
// FortranParser08.g:5569:1: t_prefix : t_prefix_spec ( t_prefix_spec )? ;
public final void t_prefix() throws RecognitionException {
int specCount=1;
try {
// FortranParser08.g:5571:2: ( t_prefix_spec ( t_prefix_spec )? )
// FortranParser08.g:5571:4: t_prefix_spec ( t_prefix_spec )?
{
pushFollow(FOLLOW_t_prefix_spec_in_t_prefix27276);
t_prefix_spec();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:5571:18: ( t_prefix_spec )?
int alt633=2;
int LA633_0 = input.LA(1);
if ( (LA633_0==T_ELEMENTAL||LA633_0==T_PURE||LA633_0==T_RECURSIVE) ) {
alt633=1;
}
switch (alt633) {
case 1 :
// FortranParser08.g:5571:20: t_prefix_spec
{
pushFollow(FOLLOW_t_prefix_spec_in_t_prefix27280);
t_prefix_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {specCount++;}
}
break;
}
if ( state.backtracking==0 ) {action.t_prefix(specCount);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "t_prefix"
// $ANTLR start "prefix_spec"
// FortranParser08.g:5576:1: prefix_spec : ( declaration_type_spec | t_prefix_spec );
public final void prefix_spec() throws RecognitionException {
try {
// FortranParser08.g:5577:2: ( declaration_type_spec | t_prefix_spec )
int alt634=2;
int LA634_0 = input.LA(1);
if ( (LA634_0==T_CHARACTER||LA634_0==T_CLASS||LA634_0==T_COMPLEX||(LA634_0 >= T_DOUBLE && LA634_0 <= T_DOUBLEPRECISION)||LA634_0==T_INTEGER||LA634_0==T_LOGICAL||LA634_0==T_REAL||LA634_0==T_TYPE) ) {
alt634=1;
}
else if ( (LA634_0==T_ELEMENTAL||LA634_0==T_PURE||LA634_0==T_RECURSIVE) ) {
alt634=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 634, 0, input);
throw nvae;
}
switch (alt634) {
case 1 :
// FortranParser08.g:5577:4: declaration_type_spec
{
pushFollow(FOLLOW_declaration_type_spec_in_prefix_spec27301);
declaration_type_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.prefix_spec(true);}
}
break;
case 2 :
// FortranParser08.g:5579:4: t_prefix_spec
{
pushFollow(FOLLOW_t_prefix_spec_in_prefix_spec27311);
t_prefix_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.prefix_spec(false);}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "prefix_spec"
// $ANTLR start "t_prefix_spec"
// FortranParser08.g:5583:1: t_prefix_spec : ( T_RECURSIVE | T_PURE | T_ELEMENTAL );
public final void t_prefix_spec() throws RecognitionException {
Token T_RECURSIVE795=null;
Token T_PURE796=null;
Token T_ELEMENTAL797=null;
try {
// FortranParser08.g:5584:2: ( T_RECURSIVE | T_PURE | T_ELEMENTAL )
int alt635=3;
switch ( input.LA(1) ) {
case T_RECURSIVE:
{
alt635=1;
}
break;
case T_PURE:
{
alt635=2;
}
break;
case T_ELEMENTAL:
{
alt635=3;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 635, 0, input);
throw nvae;
}
switch (alt635) {
case 1 :
// FortranParser08.g:5584:4: T_RECURSIVE
{
T_RECURSIVE795=(Token)match(input,T_RECURSIVE,FOLLOW_T_RECURSIVE_in_t_prefix_spec27327); if (state.failed) return;
if ( state.backtracking==0 ) {action.t_prefix_spec(T_RECURSIVE795);}
}
break;
case 2 :
// FortranParser08.g:5585:4: T_PURE
{
T_PURE796=(Token)match(input,T_PURE,FOLLOW_T_PURE_in_t_prefix_spec27334); if (state.failed) return;
if ( state.backtracking==0 ) {action.t_prefix_spec(T_PURE796);}
}
break;
case 3 :
// FortranParser08.g:5586:4: T_ELEMENTAL
{
T_ELEMENTAL797=(Token)match(input,T_ELEMENTAL,FOLLOW_T_ELEMENTAL_in_t_prefix_spec27342); if (state.failed) return;
if ( state.backtracking==0 ) {action.t_prefix_spec(T_ELEMENTAL797);}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "t_prefix_spec"
// $ANTLR start "suffix"
// FortranParser08.g:5590:1: suffix : ( proc_language_binding_spec ( T_RESULT T_LPAREN result_name T_RPAREN )? | T_RESULT T_LPAREN result_name T_RPAREN ( proc_language_binding_spec )? );
public final void suffix() throws RecognitionException {
Token T_RESULT798=null;
Token T_RESULT799=null;
Token result = null;
boolean hasProcLangBindSpec = false;
try {
// FortranParser08.g:5595:2: ( proc_language_binding_spec ( T_RESULT T_LPAREN result_name T_RPAREN )? | T_RESULT T_LPAREN result_name T_RPAREN ( proc_language_binding_spec )? )
int alt638=2;
int LA638_0 = input.LA(1);
if ( (LA638_0==T_BIND) ) {
alt638=1;
}
else if ( (LA638_0==T_RESULT) ) {
alt638=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 638, 0, input);
throw nvae;
}
switch (alt638) {
case 1 :
// FortranParser08.g:5595:4: proc_language_binding_spec ( T_RESULT T_LPAREN result_name T_RPAREN )?
{
pushFollow(FOLLOW_proc_language_binding_spec_in_suffix27361);
proc_language_binding_spec();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:5595:31: ( T_RESULT T_LPAREN result_name T_RPAREN )?
int alt636=2;
int LA636_0 = input.LA(1);
if ( (LA636_0==T_RESULT) ) {
alt636=1;
}
switch (alt636) {
case 1 :
// FortranParser08.g:5595:33: T_RESULT T_LPAREN result_name T_RPAREN
{
T_RESULT798=(Token)match(input,T_RESULT,FOLLOW_T_RESULT_in_suffix27365); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_suffix27367); if (state.failed) return;
pushFollow(FOLLOW_result_name_in_suffix27369);
result_name();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_suffix27384); if (state.failed) return;
if ( state.backtracking==0 ) { result=T_RESULT798; }
}
break;
}
if ( state.backtracking==0 ) { action.suffix(result, true); }
}
break;
case 2 :
// FortranParser08.g:5598:4: T_RESULT T_LPAREN result_name T_RPAREN ( proc_language_binding_spec )?
{
T_RESULT799=(Token)match(input,T_RESULT,FOLLOW_T_RESULT_in_suffix27407); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_suffix27409); if (state.failed) return;
pushFollow(FOLLOW_result_name_in_suffix27411);
result_name();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_suffix27413); if (state.failed) return;
// FortranParser08.g:5599:13: ( proc_language_binding_spec )?
int alt637=2;
int LA637_0 = input.LA(1);
if ( (LA637_0==T_BIND) ) {
alt637=1;
}
switch (alt637) {
case 1 :
// FortranParser08.g:5599:15: proc_language_binding_spec
{
pushFollow(FOLLOW_proc_language_binding_spec_in_suffix27430);
proc_language_binding_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { hasProcLangBindSpec = true; }
}
break;
}
if ( state.backtracking==0 ) { action.suffix(T_RESULT799, hasProcLangBindSpec); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "suffix"
// $ANTLR start "result_name"
// FortranParser08.g:5603:1: result_name : name ;
public final void result_name() throws RecognitionException {
try {
// FortranParser08.g:5604:5: ( name )
// FortranParser08.g:5604:10: name
{
pushFollow(FOLLOW_name_in_result_name27468);
name();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) { action.result_name(); }
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "result_name"
// $ANTLR start "end_function_stmt"
// FortranParser08.g:5609:1: end_function_stmt : ( ( label )? T_END T_FUNCTION ( T_IDENT )? end_of_stmt | ( label )? T_ENDFUNCTION ( T_IDENT )? end_of_stmt | ( label )? T_END end_of_stmt );
public final void end_function_stmt() throws RecognitionException {
Token T_IDENT801=null;
Token T_END802=null;
Token T_FUNCTION803=null;
Token T_IDENT806=null;
Token T_ENDFUNCTION807=null;
Token T_END810=null;
Token label800 =null;
Token end_of_stmt804 =null;
Token label805 =null;
Token end_of_stmt808 =null;
Token label809 =null;
Token end_of_stmt811 =null;
Token lbl = null; Token id = null;
try {
// FortranParser08.g:5612:2: ( ( label )? T_END T_FUNCTION ( T_IDENT )? end_of_stmt | ( label )? T_ENDFUNCTION ( T_IDENT )? end_of_stmt | ( label )? T_END end_of_stmt )
int alt644=3;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA644_1 = input.LA(2);
if ( (LA644_1==T_END) ) {
int LA644_2 = input.LA(3);
if ( (LA644_2==T_FUNCTION) ) {
alt644=1;
}
else if ( (LA644_2==EOF||LA644_2==T_EOS) ) {
alt644=3;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 644, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA644_1==T_ENDFUNCTION) ) {
alt644=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 644, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
int LA644_2 = input.LA(2);
if ( (LA644_2==T_FUNCTION) ) {
alt644=1;
}
else if ( (LA644_2==EOF||LA644_2==T_EOS) ) {
alt644=3;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 644, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ENDFUNCTION:
{
alt644=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 644, 0, input);
throw nvae;
}
switch (alt644) {
case 1 :
// FortranParser08.g:5612:4: ( label )? T_END T_FUNCTION ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:5612:4: ( label )?
int alt639=2;
int LA639_0 = input.LA(1);
if ( (LA639_0==T_DIGIT_STRING) ) {
alt639=1;
}
switch (alt639) {
case 1 :
// FortranParser08.g:5612:5: label
{
pushFollow(FOLLOW_label_in_end_function_stmt27507);
label800=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label800;}
}
break;
}
T_END802=(Token)match(input,T_END,FOLLOW_T_END_in_end_function_stmt27513); if (state.failed) return;
T_FUNCTION803=(Token)match(input,T_FUNCTION,FOLLOW_T_FUNCTION_in_end_function_stmt27515); if (state.failed) return;
// FortranParser08.g:5612:47: ( T_IDENT )?
int alt640=2;
int LA640_0 = input.LA(1);
if ( (LA640_0==T_IDENT) ) {
alt640=1;
}
switch (alt640) {
case 1 :
// FortranParser08.g:5612:49: T_IDENT
{
T_IDENT801=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_function_stmt27519); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT801;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_function_stmt27534);
end_of_stmt804=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_function_stmt(lbl, T_END802, T_FUNCTION803, id,
end_of_stmt804);}
}
break;
case 2 :
// FortranParser08.g:5616:4: ( label )? T_ENDFUNCTION ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:5616:4: ( label )?
int alt641=2;
int LA641_0 = input.LA(1);
if ( (LA641_0==T_DIGIT_STRING) ) {
alt641=1;
}
switch (alt641) {
case 1 :
// FortranParser08.g:5616:5: label
{
pushFollow(FOLLOW_label_in_end_function_stmt27544);
label805=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label805;}
}
break;
}
T_ENDFUNCTION807=(Token)match(input,T_ENDFUNCTION,FOLLOW_T_ENDFUNCTION_in_end_function_stmt27550); if (state.failed) return;
// FortranParser08.g:5616:47: ( T_IDENT )?
int alt642=2;
int LA642_0 = input.LA(1);
if ( (LA642_0==T_IDENT) ) {
alt642=1;
}
switch (alt642) {
case 1 :
// FortranParser08.g:5616:49: T_IDENT
{
T_IDENT806=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_function_stmt27557); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT806;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_function_stmt27572);
end_of_stmt808=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_function_stmt(lbl, T_ENDFUNCTION807, null, id,
end_of_stmt808);}
}
break;
case 3 :
// FortranParser08.g:5620:4: ( label )? T_END end_of_stmt
{
// FortranParser08.g:5620:4: ( label )?
int alt643=2;
int LA643_0 = input.LA(1);
if ( (LA643_0==T_DIGIT_STRING) ) {
alt643=1;
}
switch (alt643) {
case 1 :
// FortranParser08.g:5620:5: label
{
pushFollow(FOLLOW_label_in_end_function_stmt27582);
label809=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label809;}
}
break;
}
T_END810=(Token)match(input,T_END,FOLLOW_T_END_in_end_function_stmt27588); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_end_function_stmt27590);
end_of_stmt811=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_function_stmt(lbl, T_END810, null, id, end_of_stmt811);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_function_stmt"
// $ANTLR start "subroutine_subprogram"
// FortranParser08.g:5627:1: subroutine_subprogram : subroutine_stmt specification_part ( execution_part )? ( internal_subprogram_part )? end_subroutine_stmt ;
public final void subroutine_subprogram() throws RecognitionException {
try {
// FortranParser08.g:5628:2: ( subroutine_stmt specification_part ( execution_part )? ( internal_subprogram_part )? end_subroutine_stmt )
// FortranParser08.g:5628:4: subroutine_stmt specification_part ( execution_part )? ( internal_subprogram_part )? end_subroutine_stmt
{
pushFollow(FOLLOW_subroutine_stmt_in_subroutine_subprogram27608);
subroutine_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_specification_part_in_subroutine_subprogram27612);
gFortranParserExtras.specification_part();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:5630:3: ( execution_part )?
int alt645=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA645_1 = input.LA(2);
if ( ((LA645_1 >= T_ALLOCATE && LA645_1 <= T_ALLOCATE_STMT_1)||(LA645_1 >= T_ARITHMETIC_IF_STMT && LA645_1 <= T_ASSIGN)||(LA645_1 >= T_ASSIGNMENT_STMT && LA645_1 <= T_ASSOCIATE)||LA645_1==T_BACKSPACE||LA645_1==T_BLOCK||LA645_1==T_CALL||LA645_1==T_CLOSE||LA645_1==T_CONTINUE||(LA645_1 >= T_CRITICAL && LA645_1 <= T_CYCLE)||LA645_1==T_DEALLOCATE||LA645_1==T_DO||LA645_1==T_ENDFILE||LA645_1==T_ERROR||LA645_1==T_EXIT||LA645_1==T_FLUSH||(LA645_1 >= T_FORALL_CONSTRUCT_STMT && LA645_1 <= T_FORALL_STMT)||(LA645_1 >= T_GO && LA645_1 <= T_GOTO)||(LA645_1 >= T_IDENT && LA645_1 <= T_IF_STMT)||(LA645_1 >= T_INQUIRE && LA645_1 <= T_INQUIRE_STMT_2)||LA645_1==T_LOCK||LA645_1==T_NULLIFY||LA645_1==T_OPEN||LA645_1==T_PAUSE||LA645_1==T_PRINT||LA645_1==T_PTR_ASSIGNMENT_STMT||LA645_1==T_READ||(LA645_1 >= T_RETURN && LA645_1 <= T_REWIND)||(LA645_1 >= T_SELECT && LA645_1 <= T_SELECTTYPE)||LA645_1==T_STOP||LA645_1==T_SYNC||LA645_1==T_UNLOCK||LA645_1==T_WAIT||LA645_1==T_WHERE_STMT||LA645_1==T_WRITE) ) {
alt645=1;
}
else if ( (LA645_1==T_END) ) {
int LA645_3 = input.LA(3);
if ( (LA645_3==T_FILE) ) {
alt645=1;
}
}
}
break;
case T_ALLOCATE:
case T_ALLOCATE_STMT_1:
case T_ARITHMETIC_IF_STMT:
case T_ASSIGN:
case T_ASSIGNMENT_STMT:
case T_ASSOCIATE:
case T_BACKSPACE:
case T_BLOCK:
case T_CALL:
case T_CLOSE:
case T_CONTINUE:
case T_CRITICAL:
case T_CYCLE:
case T_DEALLOCATE:
case T_DO:
case T_ENDFILE:
case T_ERROR:
case T_EXIT:
case T_FLUSH:
case T_FORALL_CONSTRUCT_STMT:
case T_FORALL_STMT:
case T_GO:
case T_GOTO:
case T_IDENT:
case T_IF:
case T_IF_STMT:
case T_INQUIRE:
case T_INQUIRE_STMT_2:
case T_LOCK:
case T_NULLIFY:
case T_OPEN:
case T_PAUSE:
case T_PRINT:
case T_PTR_ASSIGNMENT_STMT:
case T_READ:
case T_RETURN:
case T_REWIND:
case T_SELECT:
case T_SELECTCASE:
case T_SELECTTYPE:
case T_STOP:
case T_SYNC:
case T_UNLOCK:
case T_WAIT:
case T_WHERE_CONSTRUCT_STMT:
case T_WHERE_STMT:
case T_WRITE:
{
alt645=1;
}
break;
case T_END:
{
int LA645_3 = input.LA(2);
if ( (LA645_3==T_FILE) ) {
alt645=1;
}
}
break;
}
switch (alt645) {
case 1 :
// FortranParser08.g:5630:5: execution_part
{
pushFollow(FOLLOW_execution_part_in_subroutine_subprogram27618);
execution_part();
state._fsp--;
if (state.failed) return;
}
break;
}
// FortranParser08.g:5631:3: ( internal_subprogram_part )?
int alt646=2;
int LA646_0 = input.LA(1);
if ( (LA646_0==T_DIGIT_STRING) ) {
int LA646_1 = input.LA(2);
if ( (LA646_1==T_CONTAINS) ) {
alt646=1;
}
}
else if ( (LA646_0==T_CONTAINS) ) {
alt646=1;
}
switch (alt646) {
case 1 :
// FortranParser08.g:5631:5: internal_subprogram_part
{
pushFollow(FOLLOW_internal_subprogram_part_in_subroutine_subprogram27627);
internal_subprogram_part();
state._fsp--;
if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_end_subroutine_stmt_in_subroutine_subprogram27634);
end_subroutine_stmt();
state._fsp--;
if (state.failed) return;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "subroutine_subprogram"
// $ANTLR start "subroutine_stmt"
// FortranParser08.g:5636:1: subroutine_stmt : ( label )? ( t_prefix )? T_SUBROUTINE T_IDENT ( T_LPAREN ( dummy_arg_list )? T_RPAREN ( proc_language_binding_spec )? )? end_of_stmt ;
public final void subroutine_stmt() throws RecognitionException {
Token T_SUBROUTINE813=null;
Token T_IDENT814=null;
Token label812 =null;
Token end_of_stmt815 =null;
Token lbl = null; boolean hasPrefix=false;
boolean hasDummyArgList=false;
boolean hasBindingSpec=false;
boolean hasArgSpecifier=false;
try {
// FortranParser08.g:5642:5: ( ( label )? ( t_prefix )? T_SUBROUTINE T_IDENT ( T_LPAREN ( dummy_arg_list )? T_RPAREN ( proc_language_binding_spec )? )? end_of_stmt )
// FortranParser08.g:5642:8: ( label )? ( t_prefix )? T_SUBROUTINE T_IDENT ( T_LPAREN ( dummy_arg_list )? T_RPAREN ( proc_language_binding_spec )? )? end_of_stmt
{
if ( state.backtracking==0 ) {action.subroutine_stmt__begin();}
// FortranParser08.g:5643:3: ( label )?
int alt647=2;
int LA647_0 = input.LA(1);
if ( (LA647_0==T_DIGIT_STRING) ) {
alt647=1;
}
switch (alt647) {
case 1 :
// FortranParser08.g:5643:4: label
{
pushFollow(FOLLOW_label_in_subroutine_stmt27664);
label812=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label812;}
}
break;
}
// FortranParser08.g:5643:29: ( t_prefix )?
int alt648=2;
int LA648_0 = input.LA(1);
if ( (LA648_0==T_ELEMENTAL||LA648_0==T_PURE||LA648_0==T_RECURSIVE) ) {
alt648=1;
}
switch (alt648) {
case 1 :
// FortranParser08.g:5643:30: t_prefix
{
pushFollow(FOLLOW_t_prefix_in_subroutine_stmt27671);
t_prefix();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasPrefix=true;}
}
break;
}
T_SUBROUTINE813=(Token)match(input,T_SUBROUTINE,FOLLOW_T_SUBROUTINE_in_subroutine_stmt27677); if (state.failed) return;
T_IDENT814=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_subroutine_stmt27692); if (state.failed) return;
// FortranParser08.g:5644:21: ( T_LPAREN ( dummy_arg_list )? T_RPAREN ( proc_language_binding_spec )? )?
int alt651=2;
int LA651_0 = input.LA(1);
if ( (LA651_0==T_LPAREN) ) {
alt651=1;
}
switch (alt651) {
case 1 :
// FortranParser08.g:5644:23: T_LPAREN ( dummy_arg_list )? T_RPAREN ( proc_language_binding_spec )?
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_subroutine_stmt27696); if (state.failed) return;
// FortranParser08.g:5644:32: ( dummy_arg_list )?
int alt649=2;
int LA649_0 = input.LA(1);
if ( (LA649_0==T_ASTERISK||LA649_0==T_IDENT) ) {
alt649=1;
}
switch (alt649) {
case 1 :
// FortranParser08.g:5644:34: dummy_arg_list
{
pushFollow(FOLLOW_dummy_arg_list_in_subroutine_stmt27700);
dummy_arg_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasDummyArgList=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_subroutine_stmt27719); if (state.failed) return;
// FortranParser08.g:5645:22: ( proc_language_binding_spec )?
int alt650=2;
int LA650_0 = input.LA(1);
if ( (LA650_0==T_BIND) ) {
alt650=1;
}
switch (alt650) {
case 1 :
// FortranParser08.g:5645:24: proc_language_binding_spec
{
pushFollow(FOLLOW_proc_language_binding_spec_in_subroutine_stmt27723);
proc_language_binding_spec();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasBindingSpec=true;}
}
break;
}
if ( state.backtracking==0 ) {hasArgSpecifier=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_subroutine_stmt27746);
end_of_stmt815=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.subroutine_stmt(lbl, T_SUBROUTINE813, T_IDENT814,
end_of_stmt815,
hasPrefix, hasDummyArgList,
hasBindingSpec, hasArgSpecifier);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "subroutine_stmt"
// $ANTLR start "dummy_arg"
// FortranParser08.g:5655:1: dummy_arg options {greedy=false; memoize=false; } : ( T_IDENT | T_ASTERISK );
public final void dummy_arg() throws RecognitionException {
Token T_IDENT816=null;
Token T_ASTERISK817=null;
try {
// FortranParser08.g:5657:2: ( T_IDENT | T_ASTERISK )
int alt652=2;
int LA652_0 = input.LA(1);
if ( (LA652_0==T_IDENT) ) {
alt652=1;
}
else if ( (LA652_0==T_ASTERISK) ) {
alt652=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 652, 0, input);
throw nvae;
}
switch (alt652) {
case 1 :
// FortranParser08.g:5657:4: T_IDENT
{
T_IDENT816=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_dummy_arg27784); if (state.failed) return;
if ( state.backtracking==0 ) { action.dummy_arg(T_IDENT816); }
}
break;
case 2 :
// FortranParser08.g:5658:4: T_ASTERISK
{
T_ASTERISK817=(Token)match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_dummy_arg27792); if (state.failed) return;
if ( state.backtracking==0 ) { action.dummy_arg(T_ASTERISK817); }
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "dummy_arg"
// $ANTLR start "dummy_arg_list"
// FortranParser08.g:5661:1: dummy_arg_list : dummy_arg ( T_COMMA dummy_arg )* ;
public final void dummy_arg_list() throws RecognitionException {
int count=0;
try {
// FortranParser08.g:5663:5: ( dummy_arg ( T_COMMA dummy_arg )* )
// FortranParser08.g:5663:10: dummy_arg ( T_COMMA dummy_arg )*
{
if ( state.backtracking==0 ) {action.dummy_arg_list__begin();}
pushFollow(FOLLOW_dummy_arg_in_dummy_arg_list27819);
dummy_arg();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
// FortranParser08.g:5664:24: ( T_COMMA dummy_arg )*
loop653:
while (true) {
int alt653=2;
int LA653_0 = input.LA(1);
if ( (LA653_0==T_COMMA) ) {
alt653=1;
}
switch (alt653) {
case 1 :
// FortranParser08.g:5664:26: T_COMMA dummy_arg
{
match(input,T_COMMA,FOLLOW_T_COMMA_in_dummy_arg_list27825); if (state.failed) return;
pushFollow(FOLLOW_dummy_arg_in_dummy_arg_list27827);
dummy_arg();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {count++;}
}
break;
default :
break loop653;
}
}
if ( state.backtracking==0 ) {action.dummy_arg_list(count);}
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "dummy_arg_list"
// $ANTLR start "end_subroutine_stmt"
// FortranParser08.g:5669:1: end_subroutine_stmt : ( ( label )? T_END T_SUBROUTINE ( T_IDENT )? end_of_stmt | ( label )? T_ENDSUBROUTINE ( T_IDENT )? end_of_stmt | ( label )? T_END end_of_stmt );
public final void end_subroutine_stmt() throws RecognitionException {
Token T_IDENT819=null;
Token T_END820=null;
Token T_SUBROUTINE821=null;
Token T_IDENT824=null;
Token T_ENDSUBROUTINE825=null;
Token T_END828=null;
Token label818 =null;
Token end_of_stmt822 =null;
Token label823 =null;
Token end_of_stmt826 =null;
Token label827 =null;
Token end_of_stmt829 =null;
Token lbl = null; Token id=null;
try {
// FortranParser08.g:5672:5: ( ( label )? T_END T_SUBROUTINE ( T_IDENT )? end_of_stmt | ( label )? T_ENDSUBROUTINE ( T_IDENT )? end_of_stmt | ( label )? T_END end_of_stmt )
int alt659=3;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA659_1 = input.LA(2);
if ( (LA659_1==T_END) ) {
int LA659_2 = input.LA(3);
if ( (LA659_2==T_SUBROUTINE) ) {
alt659=1;
}
else if ( (LA659_2==EOF||LA659_2==T_EOS) ) {
alt659=3;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
for (int nvaeConsume = 0; nvaeConsume < 3 - 1; nvaeConsume++) {
input.consume();
}
NoViableAltException nvae =
new NoViableAltException("", 659, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
else if ( (LA659_1==T_ENDSUBROUTINE) ) {
alt659=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 659, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
int LA659_2 = input.LA(2);
if ( (LA659_2==T_SUBROUTINE) ) {
alt659=1;
}
else if ( (LA659_2==EOF||LA659_2==T_EOS) ) {
alt659=3;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 659, 2, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_ENDSUBROUTINE:
{
alt659=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 659, 0, input);
throw nvae;
}
switch (alt659) {
case 1 :
// FortranParser08.g:5672:7: ( label )? T_END T_SUBROUTINE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:5672:7: ( label )?
int alt654=2;
int LA654_0 = input.LA(1);
if ( (LA654_0==T_DIGIT_STRING) ) {
alt654=1;
}
switch (alt654) {
case 1 :
// FortranParser08.g:5672:8: label
{
pushFollow(FOLLOW_label_in_end_subroutine_stmt27870);
label818=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label818;}
}
break;
}
T_END820=(Token)match(input,T_END,FOLLOW_T_END_in_end_subroutine_stmt27876); if (state.failed) return;
T_SUBROUTINE821=(Token)match(input,T_SUBROUTINE,FOLLOW_T_SUBROUTINE_in_end_subroutine_stmt27878); if (state.failed) return;
// FortranParser08.g:5672:52: ( T_IDENT )?
int alt655=2;
int LA655_0 = input.LA(1);
if ( (LA655_0==T_IDENT) ) {
alt655=1;
}
switch (alt655) {
case 1 :
// FortranParser08.g:5672:54: T_IDENT
{
T_IDENT819=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_subroutine_stmt27882); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT819;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_subroutine_stmt27897);
end_of_stmt822=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_subroutine_stmt(lbl, T_END820, T_SUBROUTINE821, id,
end_of_stmt822);}
}
break;
case 2 :
// FortranParser08.g:5676:7: ( label )? T_ENDSUBROUTINE ( T_IDENT )? end_of_stmt
{
// FortranParser08.g:5676:7: ( label )?
int alt656=2;
int LA656_0 = input.LA(1);
if ( (LA656_0==T_DIGIT_STRING) ) {
alt656=1;
}
switch (alt656) {
case 1 :
// FortranParser08.g:5676:8: label
{
pushFollow(FOLLOW_label_in_end_subroutine_stmt27910);
label823=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label823;}
}
break;
}
T_ENDSUBROUTINE825=(Token)match(input,T_ENDSUBROUTINE,FOLLOW_T_ENDSUBROUTINE_in_end_subroutine_stmt27916); if (state.failed) return;
// FortranParser08.g:5676:52: ( T_IDENT )?
int alt657=2;
int LA657_0 = input.LA(1);
if ( (LA657_0==T_IDENT) ) {
alt657=1;
}
switch (alt657) {
case 1 :
// FortranParser08.g:5676:54: T_IDENT
{
T_IDENT824=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_end_subroutine_stmt27923); if (state.failed) return;
if ( state.backtracking==0 ) {id=T_IDENT824;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_subroutine_stmt27938);
end_of_stmt826=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_subroutine_stmt(lbl, T_ENDSUBROUTINE825, null, id,
end_of_stmt826);}
}
break;
case 3 :
// FortranParser08.g:5680:7: ( label )? T_END end_of_stmt
{
// FortranParser08.g:5680:7: ( label )?
int alt658=2;
int LA658_0 = input.LA(1);
if ( (LA658_0==T_DIGIT_STRING) ) {
alt658=1;
}
switch (alt658) {
case 1 :
// FortranParser08.g:5680:8: label
{
pushFollow(FOLLOW_label_in_end_subroutine_stmt27951);
label827=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label827;}
}
break;
}
T_END828=(Token)match(input,T_END,FOLLOW_T_END_in_end_subroutine_stmt27957); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_end_subroutine_stmt27959);
end_of_stmt829=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_subroutine_stmt(lbl, T_END828, null, id, end_of_stmt829);}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_subroutine_stmt"
// $ANTLR start "entry_stmt"
// FortranParser08.g:5686:1: entry_stmt : ( label )? T_ENTRY T_IDENT ( T_LPAREN ( dummy_arg_list )? T_RPAREN ( suffix )? )? end_of_stmt ;
public final void entry_stmt() throws RecognitionException {
Token T_ENTRY831=null;
Token T_IDENT832=null;
Token label830 =null;
Token end_of_stmt833 =null;
Token lbl = null;
boolean hasDummyArgList=false;
boolean hasSuffix=false;
try {
// FortranParser08.g:5693:5: ( ( label )? T_ENTRY T_IDENT ( T_LPAREN ( dummy_arg_list )? T_RPAREN ( suffix )? )? end_of_stmt )
// FortranParser08.g:5693:9: ( label )? T_ENTRY T_IDENT ( T_LPAREN ( dummy_arg_list )? T_RPAREN ( suffix )? )? end_of_stmt
{
// FortranParser08.g:5693:9: ( label )?
int alt660=2;
int LA660_0 = input.LA(1);
if ( (LA660_0==T_DIGIT_STRING) ) {
alt660=1;
}
switch (alt660) {
case 1 :
// FortranParser08.g:5693:10: label
{
pushFollow(FOLLOW_label_in_entry_stmt27994);
label830=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label830;}
}
break;
}
T_ENTRY831=(Token)match(input,T_ENTRY,FOLLOW_T_ENTRY_in_entry_stmt28000); if (state.failed) return;
T_IDENT832=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_entry_stmt28002); if (state.failed) return;
// FortranParser08.g:5694:13: ( T_LPAREN ( dummy_arg_list )? T_RPAREN ( suffix )? )?
int alt663=2;
int LA663_0 = input.LA(1);
if ( (LA663_0==T_LPAREN) ) {
alt663=1;
}
switch (alt663) {
case 1 :
// FortranParser08.g:5694:15: T_LPAREN ( dummy_arg_list )? T_RPAREN ( suffix )?
{
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_entry_stmt28018); if (state.failed) return;
// FortranParser08.g:5694:24: ( dummy_arg_list )?
int alt661=2;
int LA661_0 = input.LA(1);
if ( (LA661_0==T_ASTERISK||LA661_0==T_IDENT) ) {
alt661=1;
}
switch (alt661) {
case 1 :
// FortranParser08.g:5694:26: dummy_arg_list
{
pushFollow(FOLLOW_dummy_arg_list_in_entry_stmt28022);
dummy_arg_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasDummyArgList=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_entry_stmt28029); if (state.failed) return;
// FortranParser08.g:5695:13: ( suffix )?
int alt662=2;
int LA662_0 = input.LA(1);
if ( (LA662_0==T_BIND||LA662_0==T_RESULT) ) {
alt662=1;
}
switch (alt662) {
case 1 :
// FortranParser08.g:5695:15: suffix
{
pushFollow(FOLLOW_suffix_in_entry_stmt28046);
suffix();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasSuffix=true;}
}
break;
}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_entry_stmt28055);
end_of_stmt833=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.entry_stmt(lbl, T_ENTRY831, T_IDENT832, end_of_stmt833,
hasDummyArgList, hasSuffix);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "entry_stmt"
// $ANTLR start "return_stmt"
// FortranParser08.g:5702:1: return_stmt : ( label )? T_RETURN ( expr )? end_of_stmt ;
public final void return_stmt() throws RecognitionException {
Token T_RETURN835=null;
Token label834 =null;
Token end_of_stmt836 =null;
Token lbl = null; boolean hasScalarIntExpr=false;
try {
// FortranParser08.g:5705:2: ( ( label )? T_RETURN ( expr )? end_of_stmt )
// FortranParser08.g:5705:4: ( label )? T_RETURN ( expr )? end_of_stmt
{
// FortranParser08.g:5705:4: ( label )?
int alt664=2;
int LA664_0 = input.LA(1);
if ( (LA664_0==T_DIGIT_STRING) ) {
alt664=1;
}
switch (alt664) {
case 1 :
// FortranParser08.g:5705:5: label
{
pushFollow(FOLLOW_label_in_return_stmt28096);
label834=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label834;}
}
break;
}
T_RETURN835=(Token)match(input,T_RETURN,FOLLOW_T_RETURN_in_return_stmt28102); if (state.failed) return;
// FortranParser08.g:5705:39: ( expr )?
int alt665=2;
int LA665_0 = input.LA(1);
if ( (LA665_0==BINARY_CONSTANT||LA665_0==HEX_CONSTANT||LA665_0==OCTAL_CONSTANT||LA665_0==T_CHAR_CONSTANT||(LA665_0 >= T_DEFINED_OP && LA665_0 <= T_DIGIT_STRING)||LA665_0==T_FALSE||(LA665_0 >= T_HOLLERITH && LA665_0 <= T_IDENT)||LA665_0==T_LBRACKET||LA665_0==T_LPAREN||LA665_0==T_MINUS||LA665_0==T_NOT||LA665_0==T_PLUS||LA665_0==T_REAL_CONSTANT||LA665_0==T_TRUE) ) {
alt665=1;
}
switch (alt665) {
case 1 :
// FortranParser08.g:5705:41: expr
{
pushFollow(FOLLOW_expr_in_return_stmt28106);
expr();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasScalarIntExpr=true;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_return_stmt28125);
end_of_stmt836=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.return_stmt(lbl, T_RETURN835, end_of_stmt836,
hasScalarIntExpr);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "return_stmt"
// $ANTLR start "separate_module_subprogram"
// FortranParser08.g:5724:1: separate_module_subprogram : mp_subprogram_stmt specification_part ( execution_part )? ( internal_subprogram_part )? end_mp_subprogram_stmt ;
public final void separate_module_subprogram() throws RecognitionException {
boolean hasExecutionPart = false; boolean hasInternalSubprogramPart = false;
action.separate_module_subprogram__begin();
try {
// FortranParser08.g:5730:4: ( mp_subprogram_stmt specification_part ( execution_part )? ( internal_subprogram_part )? end_mp_subprogram_stmt )
// FortranParser08.g:5730:8: mp_subprogram_stmt specification_part ( execution_part )? ( internal_subprogram_part )? end_mp_subprogram_stmt
{
pushFollow(FOLLOW_mp_subprogram_stmt_in_separate_module_subprogram28161);
mp_subprogram_stmt();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_specification_part_in_separate_module_subprogram28173);
gFortranParserExtras.specification_part();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:5732:11: ( execution_part )?
int alt666=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA666_1 = input.LA(2);
if ( ((LA666_1 >= T_ALLOCATE && LA666_1 <= T_ALLOCATE_STMT_1)||(LA666_1 >= T_ARITHMETIC_IF_STMT && LA666_1 <= T_ASSIGN)||(LA666_1 >= T_ASSIGNMENT_STMT && LA666_1 <= T_ASSOCIATE)||LA666_1==T_BACKSPACE||LA666_1==T_BLOCK||LA666_1==T_CALL||LA666_1==T_CLOSE||LA666_1==T_CONTINUE||(LA666_1 >= T_CRITICAL && LA666_1 <= T_CYCLE)||LA666_1==T_DEALLOCATE||LA666_1==T_DO||LA666_1==T_ENDFILE||LA666_1==T_ERROR||LA666_1==T_EXIT||LA666_1==T_FLUSH||(LA666_1 >= T_FORALL_CONSTRUCT_STMT && LA666_1 <= T_FORALL_STMT)||(LA666_1 >= T_GO && LA666_1 <= T_GOTO)||(LA666_1 >= T_IDENT && LA666_1 <= T_IF_STMT)||(LA666_1 >= T_INQUIRE && LA666_1 <= T_INQUIRE_STMT_2)||LA666_1==T_LOCK||LA666_1==T_NULLIFY||LA666_1==T_OPEN||LA666_1==T_PAUSE||LA666_1==T_PRINT||LA666_1==T_PTR_ASSIGNMENT_STMT||LA666_1==T_READ||(LA666_1 >= T_RETURN && LA666_1 <= T_REWIND)||(LA666_1 >= T_SELECT && LA666_1 <= T_SELECTTYPE)||LA666_1==T_STOP||LA666_1==T_SYNC||LA666_1==T_UNLOCK||LA666_1==T_WAIT||LA666_1==T_WHERE_STMT||LA666_1==T_WRITE) ) {
alt666=1;
}
else if ( (LA666_1==T_END) ) {
int LA666_3 = input.LA(3);
if ( (LA666_3==T_FILE) ) {
alt666=1;
}
}
}
break;
case T_ALLOCATE:
case T_ALLOCATE_STMT_1:
case T_ARITHMETIC_IF_STMT:
case T_ASSIGN:
case T_ASSIGNMENT_STMT:
case T_ASSOCIATE:
case T_BACKSPACE:
case T_BLOCK:
case T_CALL:
case T_CLOSE:
case T_CONTINUE:
case T_CRITICAL:
case T_CYCLE:
case T_DEALLOCATE:
case T_DO:
case T_ENDFILE:
case T_ERROR:
case T_EXIT:
case T_FLUSH:
case T_FORALL_CONSTRUCT_STMT:
case T_FORALL_STMT:
case T_GO:
case T_GOTO:
case T_IDENT:
case T_IF:
case T_IF_STMT:
case T_INQUIRE:
case T_INQUIRE_STMT_2:
case T_LOCK:
case T_NULLIFY:
case T_OPEN:
case T_PAUSE:
case T_PRINT:
case T_PTR_ASSIGNMENT_STMT:
case T_READ:
case T_RETURN:
case T_REWIND:
case T_SELECT:
case T_SELECTCASE:
case T_SELECTTYPE:
case T_STOP:
case T_SYNC:
case T_UNLOCK:
case T_WAIT:
case T_WHERE_CONSTRUCT_STMT:
case T_WHERE_STMT:
case T_WRITE:
{
alt666=1;
}
break;
case T_END:
{
int LA666_3 = input.LA(2);
if ( (LA666_3==T_FILE) ) {
alt666=1;
}
}
break;
}
switch (alt666) {
case 1 :
// FortranParser08.g:5732:13: execution_part
{
pushFollow(FOLLOW_execution_part_in_separate_module_subprogram28189);
execution_part();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasExecutionPart=true;}
}
break;
}
// FortranParser08.g:5733:11: ( internal_subprogram_part )?
int alt667=2;
int LA667_0 = input.LA(1);
if ( (LA667_0==T_DIGIT_STRING) ) {
int LA667_1 = input.LA(2);
if ( (LA667_1==T_CONTAINS) ) {
alt667=1;
}
}
else if ( (LA667_0==T_CONTAINS) ) {
alt667=1;
}
switch (alt667) {
case 1 :
// FortranParser08.g:5733:13: internal_subprogram_part
{
pushFollow(FOLLOW_internal_subprogram_part_in_separate_module_subprogram28208);
internal_subprogram_part();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasInternalSubprogramPart=true;}
}
break;
}
pushFollow(FOLLOW_end_mp_subprogram_stmt_in_separate_module_subprogram28222);
end_mp_subprogram_stmt();
state._fsp--;
if (state.failed) return;
}
if ( state.backtracking==0 ) {action.separate_module_subprogram(hasExecutionPart, hasInternalSubprogramPart);}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "separate_module_subprogram"
// $ANTLR start "mp_subprogram_stmt"
// FortranParser08.g:5746:1: mp_subprogram_stmt : ( label )? T_MODULE T_PROCEDURE name end_of_stmt ;
public final void mp_subprogram_stmt() throws RecognitionException {
Token T_MODULE838=null;
Token T_PROCEDURE839=null;
Token label837 =null;
Token name840 =null;
Token end_of_stmt841 =null;
Token lbl = null;
try {
// FortranParser08.g:5749:4: ( ( label )? T_MODULE T_PROCEDURE name end_of_stmt )
// FortranParser08.g:5749:8: ( label )? T_MODULE T_PROCEDURE name end_of_stmt
{
// FortranParser08.g:5749:8: ( label )?
int alt668=2;
int LA668_0 = input.LA(1);
if ( (LA668_0==T_DIGIT_STRING) ) {
alt668=1;
}
switch (alt668) {
case 1 :
// FortranParser08.g:5749:9: label
{
pushFollow(FOLLOW_label_in_mp_subprogram_stmt28256);
label837=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label837;}
}
break;
}
T_MODULE838=(Token)match(input,T_MODULE,FOLLOW_T_MODULE_in_mp_subprogram_stmt28262); if (state.failed) return;
T_PROCEDURE839=(Token)match(input,T_PROCEDURE,FOLLOW_T_PROCEDURE_in_mp_subprogram_stmt28264); if (state.failed) return;
pushFollow(FOLLOW_name_in_mp_subprogram_stmt28266);
name840=name();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_mp_subprogram_stmt28268);
end_of_stmt841=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {
action.mp_subprogram_stmt(lbl, T_MODULE838,
T_PROCEDURE839, name840, end_of_stmt841);
}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "mp_subprogram_stmt"
// $ANTLR start "end_mp_subprogram_stmt"
// FortranParser08.g:5765:1: end_mp_subprogram_stmt : ( ( label )? T_END ( T_PROCEDURE ( name )? )? end_of_stmt | ( label )? T_ENDPROCEDURE ( name )? end_of_stmt );
public final void end_mp_subprogram_stmt() throws RecognitionException {
Token T_PROCEDURE844=null;
Token T_END845=null;
Token T_ENDPROCEDURE849=null;
Token label842 =null;
Token name843 =null;
Token end_of_stmt846 =null;
Token label847 =null;
Token name848 =null;
Token end_of_stmt850 =null;
Token lbl = null; Token t_proc = null; Token t_name = null;
try {
// FortranParser08.g:5768:4: ( ( label )? T_END ( T_PROCEDURE ( name )? )? end_of_stmt | ( label )? T_ENDPROCEDURE ( name )? end_of_stmt )
int alt674=2;
switch ( input.LA(1) ) {
case T_DIGIT_STRING:
{
int LA674_1 = input.LA(2);
if ( (LA674_1==T_END) ) {
alt674=1;
}
else if ( (LA674_1==T_ENDPROCEDURE) ) {
alt674=2;
}
else {
if (state.backtracking>0) {state.failed=true; return;}
int nvaeMark = input.mark();
try {
input.consume();
NoViableAltException nvae =
new NoViableAltException("", 674, 1, input);
throw nvae;
} finally {
input.rewind(nvaeMark);
}
}
}
break;
case T_END:
{
alt674=1;
}
break;
case T_ENDPROCEDURE:
{
alt674=2;
}
break;
default:
if (state.backtracking>0) {state.failed=true; return;}
NoViableAltException nvae =
new NoViableAltException("", 674, 0, input);
throw nvae;
}
switch (alt674) {
case 1 :
// FortranParser08.g:5768:8: ( label )? T_END ( T_PROCEDURE ( name )? )? end_of_stmt
{
// FortranParser08.g:5768:8: ( label )?
int alt669=2;
int LA669_0 = input.LA(1);
if ( (LA669_0==T_DIGIT_STRING) ) {
alt669=1;
}
switch (alt669) {
case 1 :
// FortranParser08.g:5768:9: label
{
pushFollow(FOLLOW_label_in_end_mp_subprogram_stmt28314);
label842=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label842;}
}
break;
}
T_END845=(Token)match(input,T_END,FOLLOW_T_END_in_end_mp_subprogram_stmt28327); if (state.failed) return;
// FortranParser08.g:5769:14: ( T_PROCEDURE ( name )? )?
int alt671=2;
int LA671_0 = input.LA(1);
if ( (LA671_0==T_PROCEDURE) ) {
alt671=1;
}
switch (alt671) {
case 1 :
// FortranParser08.g:5769:15: T_PROCEDURE ( name )?
{
T_PROCEDURE844=(Token)match(input,T_PROCEDURE,FOLLOW_T_PROCEDURE_in_end_mp_subprogram_stmt28330); if (state.failed) return;
// FortranParser08.g:5769:27: ( name )?
int alt670=2;
int LA670_0 = input.LA(1);
if ( (LA670_0==T_IDENT) ) {
alt670=1;
}
switch (alt670) {
case 1 :
// FortranParser08.g:5769:28: name
{
pushFollow(FOLLOW_name_in_end_mp_subprogram_stmt28333);
name843=name();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {t_name=name843;}
}
break;
}
if ( state.backtracking==0 ) {t_proc=T_PROCEDURE844;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_mp_subprogram_stmt28350);
end_of_stmt846=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.end_mp_subprogram_stmt(lbl, T_END845, t_proc, t_name, end_of_stmt846);}
}
break;
case 2 :
// FortranParser08.g:5772:8: ( label )? T_ENDPROCEDURE ( name )? end_of_stmt
{
// FortranParser08.g:5772:8: ( label )?
int alt672=2;
int LA672_0 = input.LA(1);
if ( (LA672_0==T_DIGIT_STRING) ) {
alt672=1;
}
switch (alt672) {
case 1 :
// FortranParser08.g:5772:9: label
{
pushFollow(FOLLOW_label_in_end_mp_subprogram_stmt28373);
label847=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label847;}
}
break;
}
T_ENDPROCEDURE849=(Token)match(input,T_ENDPROCEDURE,FOLLOW_T_ENDPROCEDURE_in_end_mp_subprogram_stmt28386); if (state.failed) return;
// FortranParser08.g:5773:23: ( name )?
int alt673=2;
int LA673_0 = input.LA(1);
if ( (LA673_0==T_IDENT) ) {
alt673=1;
}
switch (alt673) {
case 1 :
// FortranParser08.g:5773:24: name
{
pushFollow(FOLLOW_name_in_end_mp_subprogram_stmt28389);
name848=name();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {t_name=name848;}
}
break;
}
pushFollow(FOLLOW_end_of_stmt_in_end_mp_subprogram_stmt28402);
end_of_stmt850=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {
action.end_mp_subprogram_stmt(lbl, T_ENDPROCEDURE849, null,
t_name, end_of_stmt850);
}
}
break;
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "end_mp_subprogram_stmt"
// $ANTLR start "contains_stmt"
// FortranParser08.g:5783:1: contains_stmt : ( label )? T_CONTAINS end_of_stmt ;
public final void contains_stmt() throws RecognitionException {
Token T_CONTAINS852=null;
Token label851 =null;
Token end_of_stmt853 =null;
Token lbl = null;
try {
// FortranParser08.g:5786:2: ( ( label )? T_CONTAINS end_of_stmt )
// FortranParser08.g:5786:4: ( label )? T_CONTAINS end_of_stmt
{
// FortranParser08.g:5786:4: ( label )?
int alt675=2;
int LA675_0 = input.LA(1);
if ( (LA675_0==T_DIGIT_STRING) ) {
alt675=1;
}
switch (alt675) {
case 1 :
// FortranParser08.g:5786:5: label
{
pushFollow(FOLLOW_label_in_contains_stmt28440);
label851=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label851;}
}
break;
}
T_CONTAINS852=(Token)match(input,T_CONTAINS,FOLLOW_T_CONTAINS_in_contains_stmt28446); if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_contains_stmt28448);
end_of_stmt853=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.contains_stmt(lbl, T_CONTAINS852, end_of_stmt853);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "contains_stmt"
// $ANTLR start "stmt_function_stmt"
// FortranParser08.g:5800:1: stmt_function_stmt : ( label )? T_STMT_FUNCTION T_IDENT T_LPAREN ( generic_name_list )? T_RPAREN T_EQUALS expr end_of_stmt ;
public final void stmt_function_stmt() throws RecognitionException {
Token T_IDENT855=null;
Token label854 =null;
Token end_of_stmt856 =null;
Token lbl = null; boolean hasGenericNameList=false;
try {
// FortranParser08.g:5803:2: ( ( label )? T_STMT_FUNCTION T_IDENT T_LPAREN ( generic_name_list )? T_RPAREN T_EQUALS expr end_of_stmt )
// FortranParser08.g:5803:4: ( label )? T_STMT_FUNCTION T_IDENT T_LPAREN ( generic_name_list )? T_RPAREN T_EQUALS expr end_of_stmt
{
// FortranParser08.g:5803:4: ( label )?
int alt676=2;
int LA676_0 = input.LA(1);
if ( (LA676_0==T_DIGIT_STRING) ) {
alt676=1;
}
switch (alt676) {
case 1 :
// FortranParser08.g:5803:5: label
{
pushFollow(FOLLOW_label_in_stmt_function_stmt28485);
label854=label();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {lbl=label854;}
}
break;
}
match(input,T_STMT_FUNCTION,FOLLOW_T_STMT_FUNCTION_in_stmt_function_stmt28491); if (state.failed) return;
T_IDENT855=(Token)match(input,T_IDENT,FOLLOW_T_IDENT_in_stmt_function_stmt28493); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_stmt_function_stmt28495); if (state.failed) return;
// FortranParser08.g:5804:13: ( generic_name_list )?
int alt677=2;
int LA677_0 = input.LA(1);
if ( (LA677_0==T_IDENT) ) {
alt677=1;
}
switch (alt677) {
case 1 :
// FortranParser08.g:5804:15: generic_name_list
{
pushFollow(FOLLOW_generic_name_list_in_stmt_function_stmt28512);
generic_name_list();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {hasGenericNameList=true;}
}
break;
}
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_stmt_function_stmt28518); if (state.failed) return;
match(input,T_EQUALS,FOLLOW_T_EQUALS_in_stmt_function_stmt28533); if (state.failed) return;
pushFollow(FOLLOW_expr_in_stmt_function_stmt28535);
expr();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_stmt_function_stmt28537);
end_of_stmt856=end_of_stmt();
state._fsp--;
if (state.failed) return;
if ( state.backtracking==0 ) {action.stmt_function_stmt(lbl, T_IDENT855, end_of_stmt856,
hasGenericNameList);}
}
if ( state.backtracking==0 ) {checkForInclude();}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
}
// $ANTLR end "stmt_function_stmt"
// $ANTLR start "end_of_stmt"
// FortranParser08.g:5811:1: end_of_stmt returns [Token tk] : ( T_EOS | ( EOF )=> EOF );
public final Token end_of_stmt() throws RecognitionException {
Token tk = null;
Token T_EOS857=null;
Token EOF858=null;
try {
// FortranParser08.g:5812:5: ( T_EOS | ( EOF )=> EOF )
int alt678=2;
int LA678_0 = input.LA(1);
if ( (LA678_0==T_EOS) ) {
alt678=1;
}
else if ( (LA678_0==EOF) && (synpred61_FortranParser08())) {
alt678=2;
}
switch (alt678) {
case 1 :
// FortranParser08.g:5812:7: T_EOS
{
T_EOS857=(Token)match(input,T_EOS,FOLLOW_T_EOS_in_end_of_stmt28561); if (state.failed) return tk;
if ( state.backtracking==0 ) {
FortranToken eos = (FortranToken)T_EOS857;
tk = T_EOS857;
action.end_of_stmt(T_EOS857);
}
}
break;
case 2 :
// FortranParser08.g:5821:7: ( EOF )=> EOF
{
EOF858=(Token)match(input,EOF,FOLLOW_EOF_in_end_of_stmt28615); if (state.failed) return tk;
if ( state.backtracking==0 ) {
tk = EOF858; action.end_of_stmt(EOF858);
// don't call action.end_of_file() here or the action will be
// called before end_of_program action called
// action.end_of_file(eofToken.getText());
}
}
break;
}
}
catch (RecognitionException re) {
reportError(re);
recover(input,re);
}
finally {
// do for sure before leaving
}
return tk;
}
// $ANTLR end "end_of_stmt"
// $ANTLR start synpred1_FortranParser08
public final void synpred1_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:1447:7: ( type_spec T_COLON_COLON ( ac_value_list )? )
// FortranParser08.g:1447:7: type_spec T_COLON_COLON ( ac_value_list )?
{
pushFollow(FOLLOW_type_spec_in_synpred1_FortranParser085989);
type_spec();
state._fsp--;
if (state.failed) return;
match(input,T_COLON_COLON,FOLLOW_T_COLON_COLON_in_synpred1_FortranParser085991); if (state.failed) return;
// FortranParser08.g:1447:31: ( ac_value_list )?
int alt679=2;
int LA679_0 = input.LA(1);
if ( (LA679_0==BINARY_CONSTANT||LA679_0==HEX_CONSTANT||LA679_0==OCTAL_CONSTANT||LA679_0==T_CHAR_CONSTANT||(LA679_0 >= T_DEFINED_OP && LA679_0 <= T_DIGIT_STRING)||LA679_0==T_FALSE||(LA679_0 >= T_HOLLERITH && LA679_0 <= T_IDENT)||LA679_0==T_LBRACKET||LA679_0==T_LPAREN||LA679_0==T_MINUS||LA679_0==T_NOT||LA679_0==T_PLUS||LA679_0==T_REAL_CONSTANT||LA679_0==T_TRUE) ) {
alt679=1;
}
switch (alt679) {
case 1 :
// FortranParser08.g:1447:32: ac_value_list
{
pushFollow(FOLLOW_ac_value_list_in_synpred1_FortranParser085994);
ac_value_list();
state._fsp--;
if (state.failed) return;
}
break;
}
}
}
// $ANTLR end synpred1_FortranParser08
// $ANTLR start synpred2_FortranParser08
public final void synpred2_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:1461:4: ( expr )
// FortranParser08.g:1461:4: expr
{
pushFollow(FOLLOW_expr_in_synpred2_FortranParser086035);
expr();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred2_FortranParser08
// $ANTLR start synpred3_FortranParser08
public final void synpred3_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:1949:8: ( designator ( T_ASTERISK data_stmt_constant )? )
// FortranParser08.g:1949:8: designator ( T_ASTERISK data_stmt_constant )?
{
pushFollow(FOLLOW_designator_in_synpred3_FortranParser088543);
designator();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1949:19: ( T_ASTERISK data_stmt_constant )?
int alt680=2;
int LA680_0 = input.LA(1);
if ( (LA680_0==T_ASTERISK) ) {
alt680=1;
}
switch (alt680) {
case 1 :
// FortranParser08.g:1949:20: T_ASTERISK data_stmt_constant
{
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_synpred3_FortranParser088546); if (state.failed) return;
pushFollow(FOLLOW_data_stmt_constant_in_synpred3_FortranParser088548);
data_stmt_constant();
state._fsp--;
if (state.failed) return;
}
break;
}
}
}
// $ANTLR end synpred3_FortranParser08
// $ANTLR start synpred4_FortranParser08
public final void synpred4_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:1950:8: ( int_literal_constant ( T_ASTERISK data_stmt_constant )? )
// FortranParser08.g:1950:8: int_literal_constant ( T_ASTERISK data_stmt_constant )?
{
pushFollow(FOLLOW_int_literal_constant_in_synpred4_FortranParser088561);
int_literal_constant();
state._fsp--;
if (state.failed) return;
// FortranParser08.g:1950:29: ( T_ASTERISK data_stmt_constant )?
int alt681=2;
int LA681_0 = input.LA(1);
if ( (LA681_0==T_ASTERISK) ) {
alt681=1;
}
switch (alt681) {
case 1 :
// FortranParser08.g:1950:30: T_ASTERISK data_stmt_constant
{
match(input,T_ASTERISK,FOLLOW_T_ASTERISK_in_synpred4_FortranParser088564); if (state.failed) return;
pushFollow(FOLLOW_data_stmt_constant_in_synpred4_FortranParser088566);
data_stmt_constant();
state._fsp--;
if (state.failed) return;
}
break;
}
}
}
// $ANTLR end synpred4_FortranParser08
// $ANTLR start synpred6_FortranParser08
public final void synpred6_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:1952:8: ( signed_int_literal_constant )
// FortranParser08.g:1952:8: signed_int_literal_constant
{
pushFollow(FOLLOW_signed_int_literal_constant_in_synpred6_FortranParser088588);
signed_int_literal_constant();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred6_FortranParser08
// $ANTLR start synpred9_FortranParser08
public final void synpred9_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:1955:8: ( char_literal_constant )
// FortranParser08.g:1955:8: char_literal_constant
{
pushFollow(FOLLOW_char_literal_constant_in_synpred9_FortranParser088615);
char_literal_constant();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred9_FortranParser08
// $ANTLR start synpred11_FortranParser08
public final void synpred11_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:1957:8: ( structure_constructor )
// FortranParser08.g:1957:8: structure_constructor
{
pushFollow(FOLLOW_structure_constructor_in_synpred11_FortranParser088633);
structure_constructor();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred11_FortranParser08
// $ANTLR start synpred12_FortranParser08
public final void synpred12_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:1994:4: ( designator )
// FortranParser08.g:1994:4: designator
{
pushFollow(FOLLOW_designator_in_synpred12_FortranParser088781);
designator();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred12_FortranParser08
// $ANTLR start synpred17_FortranParser08
public final void synpred17_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:1999:4: ( char_literal_constant )
// FortranParser08.g:1999:4: char_literal_constant
{
pushFollow(FOLLOW_char_literal_constant_in_synpred17_FortranParser088811);
char_literal_constant();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred17_FortranParser08
// $ANTLR start synpred19_FortranParser08
public final void synpred19_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:2911:4: ( designator_or_func_ref )
// FortranParser08.g:2911:4: designator_or_func_ref
{
pushFollow(FOLLOW_designator_or_func_ref_in_synpred19_FortranParser0812909);
designator_or_func_ref();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred19_FortranParser08
// $ANTLR start synpred20_FortranParser08
public final void synpred20_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:2912:4: ( literal_constant )
// FortranParser08.g:2912:4: literal_constant
{
pushFollow(FOLLOW_literal_constant_in_synpred20_FortranParser0812914);
literal_constant();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred20_FortranParser08
// $ANTLR start synpred21_FortranParser08
public final void synpred21_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:2913:4: ( array_constructor )
// FortranParser08.g:2913:4: array_constructor
{
pushFollow(FOLLOW_array_constructor_in_synpred21_FortranParser0812919);
array_constructor();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred21_FortranParser08
// $ANTLR start synpred22_FortranParser08
public final void synpred22_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:2914:4: ( structure_constructor )
// FortranParser08.g:2914:4: structure_constructor
{
pushFollow(FOLLOW_structure_constructor_in_synpred22_FortranParser0812924);
structure_constructor();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred22_FortranParser08
// $ANTLR start synpred23_FortranParser08
public final void synpred23_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3182:7: ( ( label )? T_PTR_ASSIGNMENT_STMT data_ref T_EQ_GT expr end_of_stmt )
// FortranParser08.g:3182:7: ( label )? T_PTR_ASSIGNMENT_STMT data_ref T_EQ_GT expr end_of_stmt
{
// FortranParser08.g:3182:7: ( label )?
int alt682=2;
int LA682_0 = input.LA(1);
if ( (LA682_0==T_DIGIT_STRING) ) {
alt682=1;
}
switch (alt682) {
case 1 :
// FortranParser08.g:3182:8: label
{
pushFollow(FOLLOW_label_in_synpred23_FortranParser0813998);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_PTR_ASSIGNMENT_STMT,FOLLOW_T_PTR_ASSIGNMENT_STMT_in_synpred23_FortranParser0814004); if (state.failed) return;
pushFollow(FOLLOW_data_ref_in_synpred23_FortranParser0814006);
data_ref();
state._fsp--;
if (state.failed) return;
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_synpred23_FortranParser0814008); if (state.failed) return;
pushFollow(FOLLOW_expr_in_synpred23_FortranParser0814023);
expr();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_synpred23_FortranParser0814025);
end_of_stmt();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred23_FortranParser08
// $ANTLR start synpred24_FortranParser08
public final void synpred24_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3185:7: ( ( label )? T_PTR_ASSIGNMENT_STMT data_ref T_LPAREN bounds_spec_list T_RPAREN T_EQ_GT expr end_of_stmt )
// FortranParser08.g:3185:7: ( label )? T_PTR_ASSIGNMENT_STMT data_ref T_LPAREN bounds_spec_list T_RPAREN T_EQ_GT expr end_of_stmt
{
// FortranParser08.g:3185:7: ( label )?
int alt683=2;
int LA683_0 = input.LA(1);
if ( (LA683_0==T_DIGIT_STRING) ) {
alt683=1;
}
switch (alt683) {
case 1 :
// FortranParser08.g:3185:8: label
{
pushFollow(FOLLOW_label_in_synpred24_FortranParser0814039);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_PTR_ASSIGNMENT_STMT,FOLLOW_T_PTR_ASSIGNMENT_STMT_in_synpred24_FortranParser0814045); if (state.failed) return;
pushFollow(FOLLOW_data_ref_in_synpred24_FortranParser0814047);
data_ref();
state._fsp--;
if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_synpred24_FortranParser0814049); if (state.failed) return;
pushFollow(FOLLOW_bounds_spec_list_in_synpred24_FortranParser0814064);
bounds_spec_list();
state._fsp--;
if (state.failed) return;
match(input,T_RPAREN,FOLLOW_T_RPAREN_in_synpred24_FortranParser0814066); if (state.failed) return;
match(input,T_EQ_GT,FOLLOW_T_EQ_GT_in_synpred24_FortranParser0814068); if (state.failed) return;
pushFollow(FOLLOW_expr_in_synpred24_FortranParser0814070);
expr();
state._fsp--;
if (state.failed) return;
pushFollow(FOLLOW_end_of_stmt_in_synpred24_FortranParser0814072);
end_of_stmt();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred24_FortranParser08
// $ANTLR start synpred25_FortranParser08
public final void synpred25_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3578:8: ( ( label )? T_ENTRY )
// FortranParser08.g:3578:9: ( label )? T_ENTRY
{
// FortranParser08.g:3578:9: ( label )?
int alt684=2;
int LA684_0 = input.LA(1);
if ( (LA684_0==T_DIGIT_STRING) ) {
alt684=1;
}
switch (alt684) {
case 1 :
// FortranParser08.g:3578:10: label
{
pushFollow(FOLLOW_label_in_synpred25_FortranParser0816094);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_ENTRY,FOLLOW_T_ENTRY_in_synpred25_FortranParser0816098); if (state.failed) return;
}
}
// $ANTLR end synpred25_FortranParser08
// $ANTLR start synpred26_FortranParser08
public final void synpred26_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3579:8: ( ( label )? T_ENUM )
// FortranParser08.g:3579:9: ( label )? T_ENUM
{
// FortranParser08.g:3579:9: ( label )?
int alt685=2;
int LA685_0 = input.LA(1);
if ( (LA685_0==T_DIGIT_STRING) ) {
alt685=1;
}
switch (alt685) {
case 1 :
// FortranParser08.g:3579:10: label
{
pushFollow(FOLLOW_label_in_synpred26_FortranParser0816127);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_ENUM,FOLLOW_T_ENUM_in_synpred26_FortranParser0816131); if (state.failed) return;
}
}
// $ANTLR end synpred26_FortranParser08
// $ANTLR start synpred27_FortranParser08
public final void synpred27_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3580:8: ( ( label )? T_FORMAT )
// FortranParser08.g:3580:9: ( label )? T_FORMAT
{
// FortranParser08.g:3580:9: ( label )?
int alt686=2;
int LA686_0 = input.LA(1);
if ( (LA686_0==T_DIGIT_STRING) ) {
alt686=1;
}
switch (alt686) {
case 1 :
// FortranParser08.g:3580:10: label
{
pushFollow(FOLLOW_label_in_synpred27_FortranParser0816163);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_FORMAT,FOLLOW_T_FORMAT_in_synpred27_FortranParser0816167); if (state.failed) return;
}
}
// $ANTLR end synpred27_FortranParser08
// $ANTLR start synpred28_FortranParser08
public final void synpred28_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3581:8: ( ( label )? T_INTERFACE )
// FortranParser08.g:3581:9: ( label )? T_INTERFACE
{
// FortranParser08.g:3581:9: ( label )?
int alt687=2;
int LA687_0 = input.LA(1);
if ( (LA687_0==T_DIGIT_STRING) ) {
alt687=1;
}
switch (alt687) {
case 1 :
// FortranParser08.g:3581:10: label
{
pushFollow(FOLLOW_label_in_synpred28_FortranParser0816194);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_INTERFACE,FOLLOW_T_INTERFACE_in_synpred28_FortranParser0816198); if (state.failed) return;
}
}
// $ANTLR end synpred28_FortranParser08
// $ANTLR start synpred29_FortranParser08
public final void synpred29_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3582:8: ( ( label )? T_PARAMETER )
// FortranParser08.g:3582:9: ( label )? T_PARAMETER
{
// FortranParser08.g:3582:9: ( label )?
int alt688=2;
int LA688_0 = input.LA(1);
if ( (LA688_0==T_DIGIT_STRING) ) {
alt688=1;
}
switch (alt688) {
case 1 :
// FortranParser08.g:3582:10: label
{
pushFollow(FOLLOW_label_in_synpred29_FortranParser0816218);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_PARAMETER,FOLLOW_T_PARAMETER_in_synpred29_FortranParser0816222); if (state.failed) return;
}
}
// $ANTLR end synpred29_FortranParser08
// $ANTLR start synpred30_FortranParser08
public final void synpred30_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3583:8: ( ( label )? T_PROCEDURE )
// FortranParser08.g:3583:9: ( label )? T_PROCEDURE
{
// FortranParser08.g:3583:9: ( label )?
int alt689=2;
int LA689_0 = input.LA(1);
if ( (LA689_0==T_DIGIT_STRING) ) {
alt689=1;
}
switch (alt689) {
case 1 :
// FortranParser08.g:3583:10: label
{
pushFollow(FOLLOW_label_in_synpred30_FortranParser0816243);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_PROCEDURE,FOLLOW_T_PROCEDURE_in_synpred30_FortranParser0816247); if (state.failed) return;
}
}
// $ANTLR end synpred30_FortranParser08
// $ANTLR start synpred31_FortranParser08
public final void synpred31_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3585:8: ( derived_type_stmt )
// FortranParser08.g:3585:9: derived_type_stmt
{
pushFollow(FOLLOW_derived_type_stmt_in_synpred31_FortranParser0816316);
derived_type_stmt();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred31_FortranParser08
// $ANTLR start synpred32_FortranParser08
public final void synpred32_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3586:8: ( type_declaration_stmt )
// FortranParser08.g:3586:9: type_declaration_stmt
{
pushFollow(FOLLOW_type_declaration_stmt_in_synpred32_FortranParser0816337);
gFortranParserExtras.type_declaration_stmt();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred32_FortranParser08
// $ANTLR start synpred33_FortranParser08
public final void synpred33_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3590:8: ( ( label )? access_spec )
// FortranParser08.g:3590:9: ( label )? access_spec
{
// FortranParser08.g:3590:9: ( label )?
int alt690=2;
int LA690_0 = input.LA(1);
if ( (LA690_0==T_DIGIT_STRING) ) {
alt690=1;
}
switch (alt690) {
case 1 :
// FortranParser08.g:3590:10: label
{
pushFollow(FOLLOW_label_in_synpred33_FortranParser0816361);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
pushFollow(FOLLOW_access_spec_in_synpred33_FortranParser0816365);
access_spec();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred33_FortranParser08
// $ANTLR start synpred34_FortranParser08
public final void synpred34_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3591:8: ( ( label )? T_ALLOCATABLE )
// FortranParser08.g:3591:9: ( label )? T_ALLOCATABLE
{
// FortranParser08.g:3591:9: ( label )?
int alt691=2;
int LA691_0 = input.LA(1);
if ( (LA691_0==T_DIGIT_STRING) ) {
alt691=1;
}
switch (alt691) {
case 1 :
// FortranParser08.g:3591:10: label
{
pushFollow(FOLLOW_label_in_synpred34_FortranParser0816392);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_ALLOCATABLE,FOLLOW_T_ALLOCATABLE_in_synpred34_FortranParser0816396); if (state.failed) return;
}
}
// $ANTLR end synpred34_FortranParser08
// $ANTLR start synpred35_FortranParser08
public final void synpred35_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3592:8: ( ( label )? T_ASYNCHRONOUS )
// FortranParser08.g:3592:9: ( label )? T_ASYNCHRONOUS
{
// FortranParser08.g:3592:9: ( label )?
int alt692=2;
int LA692_0 = input.LA(1);
if ( (LA692_0==T_DIGIT_STRING) ) {
alt692=1;
}
switch (alt692) {
case 1 :
// FortranParser08.g:3592:10: label
{
pushFollow(FOLLOW_label_in_synpred35_FortranParser0816416);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_ASYNCHRONOUS,FOLLOW_T_ASYNCHRONOUS_in_synpred35_FortranParser0816420); if (state.failed) return;
}
}
// $ANTLR end synpred35_FortranParser08
// $ANTLR start synpred36_FortranParser08
public final void synpred36_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3593:8: ( ( label )? T_BIND )
// FortranParser08.g:3593:9: ( label )? T_BIND
{
// FortranParser08.g:3593:9: ( label )?
int alt693=2;
int LA693_0 = input.LA(1);
if ( (LA693_0==T_DIGIT_STRING) ) {
alt693=1;
}
switch (alt693) {
case 1 :
// FortranParser08.g:3593:10: label
{
pushFollow(FOLLOW_label_in_synpred36_FortranParser0816438);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_BIND,FOLLOW_T_BIND_in_synpred36_FortranParser0816442); if (state.failed) return;
}
}
// $ANTLR end synpred36_FortranParser08
// $ANTLR start synpred37_FortranParser08
public final void synpred37_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3594:8: ( ( label )? T_CODIMENSION )
// FortranParser08.g:3594:9: ( label )? T_CODIMENSION
{
// FortranParser08.g:3594:9: ( label )?
int alt694=2;
int LA694_0 = input.LA(1);
if ( (LA694_0==T_DIGIT_STRING) ) {
alt694=1;
}
switch (alt694) {
case 1 :
// FortranParser08.g:3594:10: label
{
pushFollow(FOLLOW_label_in_synpred37_FortranParser0816476);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_CODIMENSION,FOLLOW_T_CODIMENSION_in_synpred37_FortranParser0816480); if (state.failed) return;
}
}
// $ANTLR end synpred37_FortranParser08
// $ANTLR start synpred38_FortranParser08
public final void synpred38_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3595:8: ( ( label )? T_DATA )
// FortranParser08.g:3595:9: ( label )? T_DATA
{
// FortranParser08.g:3595:9: ( label )?
int alt695=2;
int LA695_0 = input.LA(1);
if ( (LA695_0==T_DIGIT_STRING) ) {
alt695=1;
}
switch (alt695) {
case 1 :
// FortranParser08.g:3595:10: label
{
pushFollow(FOLLOW_label_in_synpred38_FortranParser0816500);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_DATA,FOLLOW_T_DATA_in_synpred38_FortranParser0816504); if (state.failed) return;
}
}
// $ANTLR end synpred38_FortranParser08
// $ANTLR start synpred39_FortranParser08
public final void synpred39_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3596:8: ( ( label )? T_DIMENSION )
// FortranParser08.g:3596:9: ( label )? T_DIMENSION
{
// FortranParser08.g:3596:9: ( label )?
int alt696=2;
int LA696_0 = input.LA(1);
if ( (LA696_0==T_DIGIT_STRING) ) {
alt696=1;
}
switch (alt696) {
case 1 :
// FortranParser08.g:3596:10: label
{
pushFollow(FOLLOW_label_in_synpred39_FortranParser0816538);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_DIMENSION,FOLLOW_T_DIMENSION_in_synpred39_FortranParser0816542); if (state.failed) return;
}
}
// $ANTLR end synpred39_FortranParser08
// $ANTLR start synpred40_FortranParser08
public final void synpred40_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3597:8: ( ( label )? T_EXTERNAL )
// FortranParser08.g:3597:9: ( label )? T_EXTERNAL
{
// FortranParser08.g:3597:9: ( label )?
int alt697=2;
int LA697_0 = input.LA(1);
if ( (LA697_0==T_DIGIT_STRING) ) {
alt697=1;
}
switch (alt697) {
case 1 :
// FortranParser08.g:3597:10: label
{
pushFollow(FOLLOW_label_in_synpred40_FortranParser0816566);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_EXTERNAL,FOLLOW_T_EXTERNAL_in_synpred40_FortranParser0816570); if (state.failed) return;
}
}
// $ANTLR end synpred40_FortranParser08
// $ANTLR start synpred41_FortranParser08
public final void synpred41_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3598:8: ( ( label )? T_INTRINSIC )
// FortranParser08.g:3598:9: ( label )? T_INTRINSIC
{
// FortranParser08.g:3598:9: ( label )?
int alt698=2;
int LA698_0 = input.LA(1);
if ( (LA698_0==T_DIGIT_STRING) ) {
alt698=1;
}
switch (alt698) {
case 1 :
// FortranParser08.g:3598:10: label
{
pushFollow(FOLLOW_label_in_synpred41_FortranParser0816596);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_INTRINSIC,FOLLOW_T_INTRINSIC_in_synpred41_FortranParser0816600); if (state.failed) return;
}
}
// $ANTLR end synpred41_FortranParser08
// $ANTLR start synpred42_FortranParser08
public final void synpred42_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3599:8: ( ( label )? T_POINTER )
// FortranParser08.g:3599:9: ( label )? T_POINTER
{
// FortranParser08.g:3599:9: ( label )?
int alt699=2;
int LA699_0 = input.LA(1);
if ( (LA699_0==T_DIGIT_STRING) ) {
alt699=1;
}
switch (alt699) {
case 1 :
// FortranParser08.g:3599:10: label
{
pushFollow(FOLLOW_label_in_synpred42_FortranParser0816624);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_POINTER,FOLLOW_T_POINTER_in_synpred42_FortranParser0816628); if (state.failed) return;
}
}
// $ANTLR end synpred42_FortranParser08
// $ANTLR start synpred43_FortranParser08
public final void synpred43_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3600:8: ( ( label )? T_PROTECTED )
// FortranParser08.g:3600:9: ( label )? T_PROTECTED
{
// FortranParser08.g:3600:9: ( label )?
int alt700=2;
int LA700_0 = input.LA(1);
if ( (LA700_0==T_DIGIT_STRING) ) {
alt700=1;
}
switch (alt700) {
case 1 :
// FortranParser08.g:3600:10: label
{
pushFollow(FOLLOW_label_in_synpred43_FortranParser0816656);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_PROTECTED,FOLLOW_T_PROTECTED_in_synpred43_FortranParser0816660); if (state.failed) return;
}
}
// $ANTLR end synpred43_FortranParser08
// $ANTLR start synpred44_FortranParser08
public final void synpred44_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3601:8: ( ( label )? T_SAVE )
// FortranParser08.g:3601:9: ( label )? T_SAVE
{
// FortranParser08.g:3601:9: ( label )?
int alt701=2;
int LA701_0 = input.LA(1);
if ( (LA701_0==T_DIGIT_STRING) ) {
alt701=1;
}
switch (alt701) {
case 1 :
// FortranParser08.g:3601:10: label
{
pushFollow(FOLLOW_label_in_synpred44_FortranParser0816684);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_SAVE,FOLLOW_T_SAVE_in_synpred44_FortranParser0816688); if (state.failed) return;
}
}
// $ANTLR end synpred44_FortranParser08
// $ANTLR start synpred45_FortranParser08
public final void synpred45_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3602:8: ( ( label )? T_TARGET )
// FortranParser08.g:3602:9: ( label )? T_TARGET
{
// FortranParser08.g:3602:9: ( label )?
int alt702=2;
int LA702_0 = input.LA(1);
if ( (LA702_0==T_DIGIT_STRING) ) {
alt702=1;
}
switch (alt702) {
case 1 :
// FortranParser08.g:3602:10: label
{
pushFollow(FOLLOW_label_in_synpred45_FortranParser0816722);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_TARGET,FOLLOW_T_TARGET_in_synpred45_FortranParser0816726); if (state.failed) return;
}
}
// $ANTLR end synpred45_FortranParser08
// $ANTLR start synpred46_FortranParser08
public final void synpred46_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:3603:8: ( ( label )? T_VOLATILE )
// FortranParser08.g:3603:9: ( label )? T_VOLATILE
{
// FortranParser08.g:3603:9: ( label )?
int alt703=2;
int LA703_0 = input.LA(1);
if ( (LA703_0==T_DIGIT_STRING) ) {
alt703=1;
}
switch (alt703) {
case 1 :
// FortranParser08.g:3603:10: label
{
pushFollow(FOLLOW_label_in_synpred46_FortranParser0816756);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_VOLATILE,FOLLOW_T_VOLATILE_in_synpred46_FortranParser0816760); if (state.failed) return;
}
}
// $ANTLR end synpred46_FortranParser08
// $ANTLR start synpred47_FortranParser08
public final void synpred47_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:4454:10: ( ( label )? T_READ T_LPAREN )
// FortranParser08.g:4454:11: ( label )? T_READ T_LPAREN
{
// FortranParser08.g:4454:11: ( label )?
int alt704=2;
int LA704_0 = input.LA(1);
if ( (LA704_0==T_DIGIT_STRING) ) {
alt704=1;
}
switch (alt704) {
case 1 :
// FortranParser08.g:4454:12: label
{
pushFollow(FOLLOW_label_in_synpred47_FortranParser0821295);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_READ,FOLLOW_T_READ_in_synpred47_FortranParser0821299); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_synpred47_FortranParser0821301); if (state.failed) return;
}
}
// $ANTLR end synpred47_FortranParser08
// $ANTLR start synpred48_FortranParser08
public final void synpred48_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:4459:10: ( ( label )? T_READ )
// FortranParser08.g:4459:11: ( label )? T_READ
{
// FortranParser08.g:4459:11: ( label )?
int alt705=2;
int LA705_0 = input.LA(1);
if ( (LA705_0==T_DIGIT_STRING) ) {
alt705=1;
}
switch (alt705) {
case 1 :
// FortranParser08.g:4459:12: label
{
pushFollow(FOLLOW_label_in_synpred48_FortranParser0821373);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_READ,FOLLOW_T_READ_in_synpred48_FortranParser0821377); if (state.failed) return;
}
}
// $ANTLR end synpred48_FortranParser08
// $ANTLR start synpred49_FortranParser08
public final void synpred49_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:4551:4: ( expr )
// FortranParser08.g:4551:4: expr
{
pushFollow(FOLLOW_expr_in_synpred49_FortranParser0821973);
expr();
state._fsp--;
if (state.failed) return;
}
}
// $ANTLR end synpred49_FortranParser08
// $ANTLR start synpred51_FortranParser08
public final void synpred51_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:4638:4: ( ( label )? T_BACKSPACE T_LPAREN )
// FortranParser08.g:4638:5: ( label )? T_BACKSPACE T_LPAREN
{
// FortranParser08.g:4638:5: ( label )?
int alt706=2;
int LA706_0 = input.LA(1);
if ( (LA706_0==T_DIGIT_STRING) ) {
alt706=1;
}
switch (alt706) {
case 1 :
// FortranParser08.g:4638:6: label
{
pushFollow(FOLLOW_label_in_synpred51_FortranParser0822445);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_BACKSPACE,FOLLOW_T_BACKSPACE_in_synpred51_FortranParser0822449); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_synpred51_FortranParser0822451); if (state.failed) return;
}
}
// $ANTLR end synpred51_FortranParser08
// $ANTLR start synpred52_FortranParser08
public final void synpred52_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:4642:4: ( ( label )? T_BACKSPACE )
// FortranParser08.g:4642:5: ( label )? T_BACKSPACE
{
// FortranParser08.g:4642:5: ( label )?
int alt707=2;
int LA707_0 = input.LA(1);
if ( (LA707_0==T_DIGIT_STRING) ) {
alt707=1;
}
switch (alt707) {
case 1 :
// FortranParser08.g:4642:6: label
{
pushFollow(FOLLOW_label_in_synpred52_FortranParser0822509);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_BACKSPACE,FOLLOW_T_BACKSPACE_in_synpred52_FortranParser0822513); if (state.failed) return;
}
}
// $ANTLR end synpred52_FortranParser08
// $ANTLR start synpred53_FortranParser08
public final void synpred53_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:4652:4: ( ( label )? T_END T_FILE T_LPAREN )
// FortranParser08.g:4652:5: ( label )? T_END T_FILE T_LPAREN
{
// FortranParser08.g:4652:5: ( label )?
int alt708=2;
int LA708_0 = input.LA(1);
if ( (LA708_0==T_DIGIT_STRING) ) {
alt708=1;
}
switch (alt708) {
case 1 :
// FortranParser08.g:4652:6: label
{
pushFollow(FOLLOW_label_in_synpred53_FortranParser0822577);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_END,FOLLOW_T_END_in_synpred53_FortranParser0822581); if (state.failed) return;
match(input,T_FILE,FOLLOW_T_FILE_in_synpred53_FortranParser0822583); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_synpred53_FortranParser0822585); if (state.failed) return;
}
}
// $ANTLR end synpred53_FortranParser08
// $ANTLR start synpred54_FortranParser08
public final void synpred54_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:4656:4: ( ( label )? T_ENDFILE T_LPAREN )
// FortranParser08.g:4656:5: ( label )? T_ENDFILE T_LPAREN
{
// FortranParser08.g:4656:5: ( label )?
int alt709=2;
int LA709_0 = input.LA(1);
if ( (LA709_0==T_DIGIT_STRING) ) {
alt709=1;
}
switch (alt709) {
case 1 :
// FortranParser08.g:4656:6: label
{
pushFollow(FOLLOW_label_in_synpred54_FortranParser0822645);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_ENDFILE,FOLLOW_T_ENDFILE_in_synpred54_FortranParser0822649); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_synpred54_FortranParser0822651); if (state.failed) return;
}
}
// $ANTLR end synpred54_FortranParser08
// $ANTLR start synpred55_FortranParser08
public final void synpred55_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:4661:4: ( ( label )? T_END T_FILE )
// FortranParser08.g:4661:5: ( label )? T_END T_FILE
{
// FortranParser08.g:4661:5: ( label )?
int alt710=2;
int LA710_0 = input.LA(1);
if ( (LA710_0==T_DIGIT_STRING) ) {
alt710=1;
}
switch (alt710) {
case 1 :
// FortranParser08.g:4661:6: label
{
pushFollow(FOLLOW_label_in_synpred55_FortranParser0822709);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_END,FOLLOW_T_END_in_synpred55_FortranParser0822713); if (state.failed) return;
match(input,T_FILE,FOLLOW_T_FILE_in_synpred55_FortranParser0822715); if (state.failed) return;
}
}
// $ANTLR end synpred55_FortranParser08
// $ANTLR start synpred56_FortranParser08
public final void synpred56_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:4665:4: ( ( label )? T_ENDFILE )
// FortranParser08.g:4665:5: ( label )? T_ENDFILE
{
// FortranParser08.g:4665:5: ( label )?
int alt711=2;
int LA711_0 = input.LA(1);
if ( (LA711_0==T_DIGIT_STRING) ) {
alt711=1;
}
switch (alt711) {
case 1 :
// FortranParser08.g:4665:6: label
{
pushFollow(FOLLOW_label_in_synpred56_FortranParser0822758);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_ENDFILE,FOLLOW_T_ENDFILE_in_synpred56_FortranParser0822762); if (state.failed) return;
}
}
// $ANTLR end synpred56_FortranParser08
// $ANTLR start synpred57_FortranParser08
public final void synpred57_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:4676:4: ( ( label )? T_REWIND T_LPAREN )
// FortranParser08.g:4676:5: ( label )? T_REWIND T_LPAREN
{
// FortranParser08.g:4676:5: ( label )?
int alt712=2;
int LA712_0 = input.LA(1);
if ( (LA712_0==T_DIGIT_STRING) ) {
alt712=1;
}
switch (alt712) {
case 1 :
// FortranParser08.g:4676:6: label
{
pushFollow(FOLLOW_label_in_synpred57_FortranParser0822826);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_REWIND,FOLLOW_T_REWIND_in_synpred57_FortranParser0822830); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_synpred57_FortranParser0822832); if (state.failed) return;
}
}
// $ANTLR end synpred57_FortranParser08
// $ANTLR start synpred58_FortranParser08
public final void synpred58_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:4680:4: ( ( label )? T_REWIND )
// FortranParser08.g:4680:5: ( label )? T_REWIND
{
// FortranParser08.g:4680:5: ( label )?
int alt713=2;
int LA713_0 = input.LA(1);
if ( (LA713_0==T_DIGIT_STRING) ) {
alt713=1;
}
switch (alt713) {
case 1 :
// FortranParser08.g:4680:6: label
{
pushFollow(FOLLOW_label_in_synpred58_FortranParser0822890);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_REWIND,FOLLOW_T_REWIND_in_synpred58_FortranParser0822894); if (state.failed) return;
}
}
// $ANTLR end synpred58_FortranParser08
// $ANTLR start synpred59_FortranParser08
public final void synpred59_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:4707:4: ( ( label )? T_FLUSH T_LPAREN )
// FortranParser08.g:4707:5: ( label )? T_FLUSH T_LPAREN
{
// FortranParser08.g:4707:5: ( label )?
int alt714=2;
int LA714_0 = input.LA(1);
if ( (LA714_0==T_DIGIT_STRING) ) {
alt714=1;
}
switch (alt714) {
case 1 :
// FortranParser08.g:4707:6: label
{
pushFollow(FOLLOW_label_in_synpred59_FortranParser0823066);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_FLUSH,FOLLOW_T_FLUSH_in_synpred59_FortranParser0823070); if (state.failed) return;
match(input,T_LPAREN,FOLLOW_T_LPAREN_in_synpred59_FortranParser0823072); if (state.failed) return;
}
}
// $ANTLR end synpred59_FortranParser08
// $ANTLR start synpred60_FortranParser08
public final void synpred60_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:4711:4: ( ( label )? T_FLUSH )
// FortranParser08.g:4711:5: ( label )? T_FLUSH
{
// FortranParser08.g:4711:5: ( label )?
int alt715=2;
int LA715_0 = input.LA(1);
if ( (LA715_0==T_DIGIT_STRING) ) {
alt715=1;
}
switch (alt715) {
case 1 :
// FortranParser08.g:4711:6: label
{
pushFollow(FOLLOW_label_in_synpred60_FortranParser0823130);
label();
state._fsp--;
if (state.failed) return;
}
break;
}
match(input,T_FLUSH,FOLLOW_T_FLUSH_in_synpred60_FortranParser0823134); if (state.failed) return;
}
}
// $ANTLR end synpred60_FortranParser08
// $ANTLR start synpred61_FortranParser08
public final void synpred61_FortranParser08_fragment() throws RecognitionException {
// FortranParser08.g:5821:7: ( EOF )
// FortranParser08.g:5821:8: EOF
{
match(input,EOF,FOLLOW_EOF_in_synpred61_FortranParser0828610); if (state.failed) return;
}
}
// $ANTLR end synpred61_FortranParser08
// Delegated rules
public final boolean synpred25_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred25_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred59_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred59_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred49_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred49_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred47_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred47_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred51_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred51_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred58_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred58_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred37_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred37_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred57_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred57_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred60_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred60_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred24_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred24_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred4_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred4_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred27_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred27_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred26_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred26_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred19_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred19_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred48_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred48_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred56_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred56_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred39_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred39_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred45_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred45_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred36_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred36_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred12_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred12_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred44_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred44_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred54_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred54_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred35_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred35_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred34_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred34_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred31_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred31_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred61_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred61_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred21_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred21_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred11_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred11_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred20_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred20_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred3_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred3_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred38_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred38_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred53_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred53_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred43_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred43_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred46_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred46_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred29_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred29_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred9_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred9_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred32_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred32_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred1_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred1_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred6_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred6_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred41_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred41_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred2_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred2_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred17_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred17_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred40_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred40_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred42_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred42_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred52_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred52_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred23_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred23_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred55_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred55_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred28_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred28_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred30_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred30_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred33_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred33_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
public final boolean synpred22_FortranParser08() {
state.backtracking++;
int start = input.mark();
try {
synpred22_FortranParser08_fragment(); // can never throw exception
} catch (RecognitionException re) {
System.err.println("impossible: "+re);
}
boolean success = !state.failed;
input.rewind(start);
state.backtracking--;
state.failed=false;
return success;
}
protected DFA183 dfa183 = new DFA183(this);
protected DFA185 dfa185 = new DFA185(this);
protected DFA357 dfa357 = new DFA357(this);
protected DFA508 dfa508 = new DFA508(this);
static final String DFA183_eotS =
"\74\uffff";
static final String DFA183_eofS =
"\74\uffff";
static final String DFA183_minS =
"\1\5\1\37\1\u00e5\1\61\2\103\10\uffff\1\5\1\61\5\uffff\1\52\14\uffff\21"+
"\0\1\uffff\1\0\5\uffff\1\0\1\uffff";
static final String DFA183_maxS =
"\1\u00e3\1\u00d5\1\u00e5\1\u00d5\2\u00ca\10\uffff\1\u00e3\1\u00d5\5\uffff"+
"\1\52\14\uffff\21\0\1\uffff\1\0\5\uffff\1\0\1\uffff";
static final String DFA183_acceptS =
"\6\uffff\1\3\1\5\1\6\1\uffff\1\10\2\uffff\1\12\2\uffff\1\1\10\uffff\1"+
"\2\1\4\1\uffff\1\7\36\uffff\1\11";
static final String DFA183_specialS =
"\2\uffff\1\0\37\uffff\1\1\1\2\1\3\1\4\1\5\1\6\1\7\1\10\1\11\1\12\1\13"+
"\1\14\1\15\1\16\1\17\1\20\1\21\1\uffff\1\22\5\uffff\1\23\1\uffff}>";
static final String[] DFA183_transitionS = {
"\1\12\4\uffff\1\12\3\uffff\1\12\33\uffff\1\3\30\uffff\1\2\57\uffff\1"+
"\10\21\uffff\1\15\1\1\31\uffff\1\7\2\uffff\1\5\27\uffff\1\4\16\uffff"+
"\1\6\30\uffff\1\10",
"\1\20\12\uffff\1\17\6\uffff\1\20\146\uffff\1\20\7\uffff\1\16\27\uffff"+
"\1\20\34\uffff\1\20",
"\1\25",
"\1\34\156\uffff\1\20\64\uffff\1\34",
"\1\32\u0086\uffff\1\6",
"\1\32\u0086\uffff\1\6",
"",
"",
"",
"",
"",
"",
"",
"",
"\1\55\4\uffff\1\57\3\uffff\1\56\20\uffff\1\64\12\uffff\1\50\4\uffff"+
"\1\62\2\20\20\uffff\1\45\1\47\57\uffff\1\54\21\uffff\1\60\1\46\21\uffff"+
"\1\61\7\uffff\1\52\2\uffff\1\44\10\uffff\1\42\16\uffff\1\43\16\uffff"+
"\1\51\4\uffff\1\20\23\uffff\1\53",
"\1\34\156\uffff\1\20\64\uffff\1\34",
"",
"",
"",
"",
"",
"\1\72",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"",
"\1\uffff",
"",
"",
"",
"",
"",
"\1\uffff",
""
};
static final short[] DFA183_eot = DFA.unpackEncodedString(DFA183_eotS);
static final short[] DFA183_eof = DFA.unpackEncodedString(DFA183_eofS);
static final char[] DFA183_min = DFA.unpackEncodedStringToUnsignedChars(DFA183_minS);
static final char[] DFA183_max = DFA.unpackEncodedStringToUnsignedChars(DFA183_maxS);
static final short[] DFA183_accept = DFA.unpackEncodedString(DFA183_acceptS);
static final short[] DFA183_special = DFA.unpackEncodedString(DFA183_specialS);
static final short[][] DFA183_transition;
static {
int numStates = DFA183_transitionS.length;
DFA183_transition = new short[numStates][];
for (int i=0; i<numStates; i++) {
DFA183_transition[i] = DFA.unpackEncodedString(DFA183_transitionS[i]);
}
}
protected class DFA183 extends DFA {
public DFA183(BaseRecognizer recognizer) {
this.recognizer = recognizer;
this.decisionNumber = 183;
this.eot = DFA183_eot;
this.eof = DFA183_eof;
this.min = DFA183_min;
this.max = DFA183_max;
this.accept = DFA183_accept;
this.special = DFA183_special;
this.transition = DFA183_transition;
}
@Override
public String getDescription() {
return "1945:1: data_stmt_value options {backtrack=true; k=3; } : ( designator ( T_ASTERISK data_stmt_constant )? | int_literal_constant ( T_ASTERISK data_stmt_constant )? | signed_real_literal_constant | signed_int_literal_constant | complex_literal_constant | logical_literal_constant | char_literal_constant | boz_literal_constant | structure_constructor | hollerith_literal_constant );";
}
@Override
public int specialStateTransition(int s, IntStream _input) throws NoViableAltException {
TokenStream input = (TokenStream)_input;
int _s = s;
switch ( s ) {
case 0 :
int LA183_2 = input.LA(1);
int index183_2 = input.index();
input.rewind();
s = -1;
if ( (LA183_2==T_UNDERSCORE) ) {s = 21;}
else if ( (synpred4_FortranParser08()) ) {s = 25;}
else if ( (synpred6_FortranParser08()) ) {s = 26;}
input.seek(index183_2);
if ( s>=0 ) return s;
break;
case 1 :
int LA183_34 = input.LA(1);
int index183_34 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_34);
if ( s>=0 ) return s;
break;
case 2 :
int LA183_35 = input.LA(1);
int index183_35 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_35);
if ( s>=0 ) return s;
break;
case 3 :
int LA183_36 = input.LA(1);
int index183_36 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_36);
if ( s>=0 ) return s;
break;
case 4 :
int LA183_37 = input.LA(1);
int index183_37 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_37);
if ( s>=0 ) return s;
break;
case 5 :
int LA183_38 = input.LA(1);
int index183_38 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_38);
if ( s>=0 ) return s;
break;
case 6 :
int LA183_39 = input.LA(1);
int index183_39 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_39);
if ( s>=0 ) return s;
break;
case 7 :
int LA183_40 = input.LA(1);
int index183_40 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_40);
if ( s>=0 ) return s;
break;
case 8 :
int LA183_41 = input.LA(1);
int index183_41 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_41);
if ( s>=0 ) return s;
break;
case 9 :
int LA183_42 = input.LA(1);
int index183_42 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_42);
if ( s>=0 ) return s;
break;
case 10 :
int LA183_43 = input.LA(1);
int index183_43 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_43);
if ( s>=0 ) return s;
break;
case 11 :
int LA183_44 = input.LA(1);
int index183_44 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_44);
if ( s>=0 ) return s;
break;
case 12 :
int LA183_45 = input.LA(1);
int index183_45 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_45);
if ( s>=0 ) return s;
break;
case 13 :
int LA183_46 = input.LA(1);
int index183_46 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_46);
if ( s>=0 ) return s;
break;
case 14 :
int LA183_47 = input.LA(1);
int index183_47 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_47);
if ( s>=0 ) return s;
break;
case 15 :
int LA183_48 = input.LA(1);
int index183_48 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_48);
if ( s>=0 ) return s;
break;
case 16 :
int LA183_49 = input.LA(1);
int index183_49 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_49);
if ( s>=0 ) return s;
break;
case 17 :
int LA183_50 = input.LA(1);
int index183_50 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_50);
if ( s>=0 ) return s;
break;
case 18 :
int LA183_52 = input.LA(1);
int index183_52 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred11_FortranParser08()) ) {s = 59;}
input.seek(index183_52);
if ( s>=0 ) return s;
break;
case 19 :
int LA183_58 = input.LA(1);
int index183_58 = input.index();
input.rewind();
s = -1;
if ( (synpred3_FortranParser08()) ) {s = 16;}
else if ( (synpred9_FortranParser08()) ) {s = 28;}
input.seek(index183_58);
if ( s>=0 ) return s;
break;
}
if (state.backtracking>0) {state.failed=true; return -1;}
NoViableAltException nvae =
new NoViableAltException(getDescription(), 183, _s, input);
error(nvae);
throw nvae;
}
}
static final String DFA185_eotS =
"\75\uffff";
static final String DFA185_eofS =
"\1\uffff\1\17\1\25\1\31\12\uffff\1\31\56\uffff";
static final String DFA185_minS =
"\1\5\1\52\2\61\2\103\7\uffff\1\5\1\61\5\uffff\1\52\13\uffff\21\0\1\uffff"+
"\1\0\6\uffff\1\0\3\uffff";
static final String DFA185_maxS =
"\1\u00e3\1\u00d5\1\u00e5\1\u00d5\2\u00ca\7\uffff\1\u00e3\1\u00d5\5\uffff"+
"\1\u0086\13\uffff\21\0\1\uffff\1\0\6\uffff\1\0\3\uffff";
static final String DFA185_acceptS =
"\6\uffff\1\3\1\4\1\5\1\uffff\1\7\4\uffff\1\1\5\uffff\1\2\3\uffff\1\6\42"+
"\uffff\1\10";
static final String DFA185_specialS =
"\40\uffff\1\0\1\1\1\2\1\3\1\4\1\5\1\6\1\7\1\10\1\11\1\12\1\13\1\14\1\15"+
"\1\16\1\17\1\20\1\uffff\1\21\6\uffff\1\22\3\uffff}>";
static final String[] DFA185_transitionS = {
"\1\12\4\uffff\1\12\3\uffff\1\12\33\uffff\1\3\30\uffff\1\2\57\uffff\1"+
"\10\22\uffff\1\1\31\uffff\1\7\2\uffff\1\5\27\uffff\1\4\16\uffff\1\6\30"+
"\uffff\1\10",
"\1\16\6\uffff\1\17\146\uffff\1\17\7\uffff\1\15\27\uffff\1\17\34\uffff"+
"\1\17",
"\1\25\u00a3\uffff\1\25\17\uffff\1\24",
"\1\31\156\uffff\1\17\64\uffff\1\31",
"\1\25\u0086\uffff\1\6",
"\1\25\u0086\uffff\1\6",
"",
"",
"",
"",
"",
"",
"",
"\1\53\4\uffff\1\55\3\uffff\1\54\20\uffff\1\62\12\uffff\1\46\4\uffff"+
"\1\60\2\17\20\uffff\1\43\1\45\57\uffff\1\52\21\uffff\1\56\1\44\21\uffff"+
"\1\57\7\uffff\1\50\2\uffff\1\42\10\uffff\1\40\16\uffff\1\41\16\uffff"+
"\1\47\4\uffff\1\17\23\uffff\1\51",
"\1\31\156\uffff\1\17\64\uffff\1\31",
"",
"",
"",
"",
"",
"\1\71\30\uffff\1\25\102\uffff\1\25",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"",
"\1\uffff",
"",
"",
"",
"",
"",
"",
"\1\uffff",
"",
"",
""
};
static final short[] DFA185_eot = DFA.unpackEncodedString(DFA185_eotS);
static final short[] DFA185_eof = DFA.unpackEncodedString(DFA185_eofS);
static final char[] DFA185_min = DFA.unpackEncodedStringToUnsignedChars(DFA185_minS);
static final char[] DFA185_max = DFA.unpackEncodedStringToUnsignedChars(DFA185_maxS);
static final short[] DFA185_accept = DFA.unpackEncodedString(DFA185_acceptS);
static final short[] DFA185_special = DFA.unpackEncodedString(DFA185_specialS);
static final short[][] DFA185_transition;
static {
int numStates = DFA185_transitionS.length;
DFA185_transition = new short[numStates][];
for (int i=0; i<numStates; i++) {
DFA185_transition[i] = DFA.unpackEncodedString(DFA185_transitionS[i]);
}
}
protected class DFA185 extends DFA {
public DFA185(BaseRecognizer recognizer) {
this.recognizer = recognizer;
this.decisionNumber = 185;
this.eot = DFA185_eot;
this.eof = DFA185_eof;
this.min = DFA185_min;
this.max = DFA185_max;
this.accept = DFA185_accept;
this.special = DFA185_special;
this.transition = DFA185_transition;
}
@Override
public String getDescription() {
return "1989:1: data_stmt_constant options {backtrack=true; k=3; } : ( designator | signed_int_literal_constant | signed_real_literal_constant | complex_literal_constant | logical_literal_constant | char_literal_constant | boz_literal_constant | structure_constructor );";
}
@Override
public int specialStateTransition(int s, IntStream _input) throws NoViableAltException {
TokenStream input = (TokenStream)_input;
int _s = s;
switch ( s ) {
case 0 :
int LA185_32 = input.LA(1);
int index185_32 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_32);
if ( s>=0 ) return s;
break;
case 1 :
int LA185_33 = input.LA(1);
int index185_33 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_33);
if ( s>=0 ) return s;
break;
case 2 :
int LA185_34 = input.LA(1);
int index185_34 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_34);
if ( s>=0 ) return s;
break;
case 3 :
int LA185_35 = input.LA(1);
int index185_35 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_35);
if ( s>=0 ) return s;
break;
case 4 :
int LA185_36 = input.LA(1);
int index185_36 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_36);
if ( s>=0 ) return s;
break;
case 5 :
int LA185_37 = input.LA(1);
int index185_37 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_37);
if ( s>=0 ) return s;
break;
case 6 :
int LA185_38 = input.LA(1);
int index185_38 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_38);
if ( s>=0 ) return s;
break;
case 7 :
int LA185_39 = input.LA(1);
int index185_39 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_39);
if ( s>=0 ) return s;
break;
case 8 :
int LA185_40 = input.LA(1);
int index185_40 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_40);
if ( s>=0 ) return s;
break;
case 9 :
int LA185_41 = input.LA(1);
int index185_41 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_41);
if ( s>=0 ) return s;
break;
case 10 :
int LA185_42 = input.LA(1);
int index185_42 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_42);
if ( s>=0 ) return s;
break;
case 11 :
int LA185_43 = input.LA(1);
int index185_43 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_43);
if ( s>=0 ) return s;
break;
case 12 :
int LA185_44 = input.LA(1);
int index185_44 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_44);
if ( s>=0 ) return s;
break;
case 13 :
int LA185_45 = input.LA(1);
int index185_45 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_45);
if ( s>=0 ) return s;
break;
case 14 :
int LA185_46 = input.LA(1);
int index185_46 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_46);
if ( s>=0 ) return s;
break;
case 15 :
int LA185_47 = input.LA(1);
int index185_47 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_47);
if ( s>=0 ) return s;
break;
case 16 :
int LA185_48 = input.LA(1);
int index185_48 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_48);
if ( s>=0 ) return s;
break;
case 17 :
int LA185_50 = input.LA(1);
int index185_50 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (true) ) {s = 60;}
input.seek(index185_50);
if ( s>=0 ) return s;
break;
case 18 :
int LA185_57 = input.LA(1);
int index185_57 = input.index();
input.rewind();
s = -1;
if ( (synpred12_FortranParser08()) ) {s = 15;}
else if ( (synpred17_FortranParser08()) ) {s = 25;}
input.seek(index185_57);
if ( s>=0 ) return s;
break;
}
if (state.backtracking>0) {state.failed=true; return -1;}
NoViableAltException nvae =
new NoViableAltException(getDescription(), 185, _s, input);
error(nvae);
throw nvae;
}
}
static final String DFA357_eotS =
"\127\uffff";
static final String DFA357_eofS =
"\127\uffff";
static final String DFA357_minS =
"\1\23\2\0\1\uffff\1\0\4\uffff\1\0\17\uffff\1\0\75\uffff";
static final String DFA357_maxS =
"\1\u00f2\2\0\1\uffff\1\0\4\uffff\1\0\17\uffff\1\0\75\uffff";
static final String DFA357_acceptS =
"\3\uffff\1\2\1\uffff\2\4\1\5\1\6\1\uffff\11\10\2\11\1\12\1\13\1\14\1\15"+
"\1\uffff\1\17\1\20\1\21\1\22\1\23\1\24\1\25\1\26\1\27\60\uffff\1\1\1\3"+
"\1\7\1\16";
static final String DFA357_specialS =
"\1\0\1\1\1\2\1\uffff\1\3\4\uffff\1\4\17\uffff\1\5\75\uffff}>";
static final String[] DFA357_transitionS = {
"\1\6\2\uffff\1\25\2\42\1\uffff\2\42\1\uffff\2\42\1\uffff\1\26\1\uffff"+
"\1\42\1\uffff\1\27\1\42\1\uffff\1\42\1\uffff\1\20\2\uffff\1\22\1\42\1"+
"\30\4\uffff\1\16\3\uffff\1\42\3\uffff\2\42\1\31\1\uffff\1\42\3\uffff"+
"\1\1\1\32\1\42\1\14\1\17\1\15\5\uffff\1\42\1\uffff\1\42\4\uffff\1\42"+
"\15\uffff\1\2\1\3\11\uffff\1\42\1\uffff\1\42\1\uffff\1\33\4\uffff\1\42"+
"\1\uffff\2\42\1\4\4\uffff\2\42\4\uffff\3\42\7\uffff\2\42\1\12\1\uffff"+
"\1\5\1\34\7\uffff\1\42\1\uffff\1\21\16\uffff\1\42\1\uffff\1\42\4\uffff"+
"\1\7\1\uffff\1\42\4\uffff\1\35\2\uffff\1\42\1\24\1\10\1\uffff\1\36\1"+
"\42\1\23\2\uffff\1\42\1\13\3\uffff\2\42\1\uffff\1\37\3\42\6\uffff\1\42"+
"\2\uffff\1\42\1\40\5\uffff\1\11\2\uffff\1\42\2\uffff\1\41\1\42\1\uffff"+
"\2\42\3\uffff\1\42",
"\1\uffff",
"\1\uffff",
"",
"\1\uffff",
"",
"",
"",
"",
"\1\uffff",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"\1\uffff",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
""
};
static final short[] DFA357_eot = DFA.unpackEncodedString(DFA357_eotS);
static final short[] DFA357_eof = DFA.unpackEncodedString(DFA357_eofS);
static final char[] DFA357_min = DFA.unpackEncodedStringToUnsignedChars(DFA357_minS);
static final char[] DFA357_max = DFA.unpackEncodedStringToUnsignedChars(DFA357_maxS);
static final short[] DFA357_accept = DFA.unpackEncodedString(DFA357_acceptS);
static final short[] DFA357_special = DFA.unpackEncodedString(DFA357_specialS);
static final short[][] DFA357_transition;
static {
int numStates = DFA357_transitionS.length;
DFA357_transition = new short[numStates][];
for (int i=0; i<numStates; i++) {
DFA357_transition[i] = DFA.unpackEncodedString(DFA357_transitionS[i]);
}
}
protected class DFA357 extends DFA {
public DFA357(BaseRecognizer recognizer) {
this.recognizer = recognizer;
this.decisionNumber = 357;
this.eot = DFA357_eot;
this.eof = DFA357_eof;
this.min = DFA357_min;
this.max = DFA357_max;
this.accept = DFA357_accept;
this.special = DFA357_special;
this.transition = DFA357_transition;
}
@Override
public String getDescription() {
return "3576:1: declaration_construct_and_block : ( ( ( label )? T_ENTRY )=> entry_stmt declaration_construct_and_block | ( ( label )? T_ENUM )=> enum_def declaration_construct_and_block | ( ( label )? T_FORMAT )=> format_stmt declaration_construct_and_block | ( ( label )? T_INTERFACE )=> interface_block declaration_construct_and_block | ( ( label )? T_PARAMETER )=> parameter_stmt declaration_construct_and_block | ( ( label )? T_PROCEDURE )=> procedure_declaration_stmt declaration_construct_and_block | ( derived_type_stmt )=> derived_type_def declaration_construct_and_block | ( type_declaration_stmt )=> type_declaration_stmt declaration_construct_and_block | ( ( label )? access_spec )=> access_stmt declaration_construct_and_block | ( ( label )? T_ALLOCATABLE )=> allocatable_stmt declaration_construct_and_block | ( ( label )? T_ASYNCHRONOUS )=> asynchronous_stmt declaration_construct_and_block | ( ( label )? T_BIND )=> bind_stmt declaration_construct_and_block | ( ( label )? T_CODIMENSION )=> codimension_stmt declaration_construct_and_block | ( ( label )? T_DATA )=> data_stmt declaration_construct_and_block | ( ( label )? T_DIMENSION )=> dimension_stmt declaration_construct_and_block | ( ( label )? T_EXTERNAL )=> external_stmt declaration_construct_and_block | ( ( label )? T_INTRINSIC )=> intrinsic_stmt declaration_construct_and_block | ( ( label )? T_POINTER )=> pointer_stmt declaration_construct_and_block | ( ( label )? T_PROTECTED )=> protected_stmt declaration_construct_and_block | ( ( label )? T_SAVE )=> save_stmt declaration_construct_and_block | ( ( label )? T_TARGET )=> target_stmt declaration_construct_and_block | ( ( label )? T_VOLATILE )=> volatile_stmt declaration_construct_and_block | block );";
}
@Override
public int specialStateTransition(int s, IntStream _input) throws NoViableAltException {
TokenStream input = (TokenStream)_input;
int _s = s;
switch ( s ) {
case 0 :
int LA357_0 = input.LA(1);
int index357_0 = input.index();
input.rewind();
s = -1;
if ( (LA357_0==T_DIGIT_STRING) ) {s = 1;}
else if ( (LA357_0==T_ENTRY) ) {s = 2;}
else if ( (LA357_0==T_ENUM) && (synpred26_FortranParser08())) {s = 3;}
else if ( (LA357_0==T_FORMAT) ) {s = 4;}
else if ( (LA357_0==T_INTERFACE) && (synpred28_FortranParser08())) {s = 5;}
else if ( (LA357_0==T_ABSTRACT) && (synpred28_FortranParser08())) {s = 6;}
else if ( (LA357_0==T_PARAMETER) && (synpred29_FortranParser08())) {s = 7;}
else if ( (LA357_0==T_PROCEDURE) && (synpred30_FortranParser08())) {s = 8;}
else if ( (LA357_0==T_TYPE) ) {s = 9;}
else if ( (LA357_0==T_INTEGER) && (synpred32_FortranParser08())) {s = 10;}
else if ( (LA357_0==T_REAL) && (synpred32_FortranParser08())) {s = 11;}
else if ( (LA357_0==T_DOUBLE) && (synpred32_FortranParser08())) {s = 12;}
else if ( (LA357_0==T_DOUBLEPRECISION) && (synpred32_FortranParser08())) {s = 13;}
else if ( (LA357_0==T_COMPLEX) && (synpred32_FortranParser08())) {s = 14;}
else if ( (LA357_0==T_DOUBLECOMPLEX) && (synpred32_FortranParser08())) {s = 15;}
else if ( (LA357_0==T_CHARACTER) && (synpred32_FortranParser08())) {s = 16;}
else if ( (LA357_0==T_LOGICAL) && (synpred32_FortranParser08())) {s = 17;}
else if ( (LA357_0==T_CLASS) && (synpred32_FortranParser08())) {s = 18;}
else if ( (LA357_0==T_PUBLIC) && (synpred33_FortranParser08())) {s = 19;}
else if ( (LA357_0==T_PRIVATE) && (synpred33_FortranParser08())) {s = 20;}
else if ( (LA357_0==T_ALLOCATABLE) && (synpred34_FortranParser08())) {s = 21;}
else if ( (LA357_0==T_ASYNCHRONOUS) && (synpred35_FortranParser08())) {s = 22;}
else if ( (LA357_0==T_BIND) && (synpred36_FortranParser08())) {s = 23;}
else if ( (LA357_0==T_CODIMENSION) && (synpred37_FortranParser08())) {s = 24;}
else if ( (LA357_0==T_DATA) ) {s = 25;}
else if ( (LA357_0==T_DIMENSION) && (synpred39_FortranParser08())) {s = 26;}
else if ( (LA357_0==T_EXTERNAL) && (synpred40_FortranParser08())) {s = 27;}
else if ( (LA357_0==T_INTRINSIC) && (synpred41_FortranParser08())) {s = 28;}
else if ( (LA357_0==T_POINTER) && (synpred42_FortranParser08())) {s = 29;}
else if ( (LA357_0==T_PROTECTED) && (synpred43_FortranParser08())) {s = 30;}
else if ( (LA357_0==T_SAVE) && (synpred44_FortranParser08())) {s = 31;}
else if ( (LA357_0==T_TARGET) && (synpred45_FortranParser08())) {s = 32;}
else if ( (LA357_0==T_VOLATILE) && (synpred46_FortranParser08())) {s = 33;}
else if ( ((LA357_0 >= T_ALLOCATE && LA357_0 <= T_ALLOCATE_STMT_1)||(LA357_0 >= T_ARITHMETIC_IF_STMT && LA357_0 <= T_ASSIGN)||(LA357_0 >= T_ASSIGNMENT_STMT && LA357_0 <= T_ASSOCIATE)||LA357_0==T_BACKSPACE||LA357_0==T_BLOCK||LA357_0==T_CALL||LA357_0==T_CLOSE||LA357_0==T_CONTINUE||(LA357_0 >= T_CRITICAL && LA357_0 <= T_CYCLE)||LA357_0==T_DEALLOCATE||LA357_0==T_DO||LA357_0==T_END||LA357_0==T_ENDBLOCK||LA357_0==T_ENDFILE||LA357_0==T_ERROR||LA357_0==T_EXIT||LA357_0==T_FLUSH||(LA357_0 >= T_FORALL_CONSTRUCT_STMT && LA357_0 <= T_FORALL_STMT)||(LA357_0 >= T_GO && LA357_0 <= T_GOTO)||(LA357_0 >= T_IDENT && LA357_0 <= T_IF_STMT)||(LA357_0 >= T_INQUIRE && LA357_0 <= T_INQUIRE_STMT_2)||LA357_0==T_LOCK||LA357_0==T_NULLIFY||LA357_0==T_OPEN||LA357_0==T_PAUSE||LA357_0==T_PRINT||LA357_0==T_PTR_ASSIGNMENT_STMT||LA357_0==T_READ||(LA357_0 >= T_RETURN && LA357_0 <= T_REWIND)||(LA357_0 >= T_SELECT && LA357_0 <= T_SELECTTYPE)||LA357_0==T_STOP||LA357_0==T_SYNC||LA357_0==T_UNLOCK||LA357_0==T_WAIT||(LA357_0 >= T_WHERE_CONSTRUCT_STMT && LA357_0 <= T_WHERE_STMT)||LA357_0==T_WRITE) ) {s = 34;}
input.seek(index357_0);
if ( s>=0 ) return s;
break;
case 1 :
int LA357_1 = input.LA(1);
int index357_1 = input.index();
input.rewind();
s = -1;
if ( (synpred25_FortranParser08()) ) {s = 83;}
else if ( (synpred26_FortranParser08()) ) {s = 3;}
else if ( (synpred27_FortranParser08()) ) {s = 84;}
else if ( (synpred28_FortranParser08()) ) {s = 6;}
else if ( (synpred29_FortranParser08()) ) {s = 7;}
else if ( (synpred30_FortranParser08()) ) {s = 8;}
else if ( (synpred31_FortranParser08()) ) {s = 85;}
else if ( (synpred32_FortranParser08()) ) {s = 18;}
else if ( (synpred33_FortranParser08()) ) {s = 20;}
else if ( (synpred34_FortranParser08()) ) {s = 21;}
else if ( (synpred35_FortranParser08()) ) {s = 22;}
else if ( (synpred36_FortranParser08()) ) {s = 23;}
else if ( (synpred37_FortranParser08()) ) {s = 24;}
else if ( (synpred38_FortranParser08()) ) {s = 86;}
else if ( (synpred39_FortranParser08()) ) {s = 26;}
else if ( (synpred40_FortranParser08()) ) {s = 27;}
else if ( (synpred41_FortranParser08()) ) {s = 28;}
else if ( (synpred42_FortranParser08()) ) {s = 29;}
else if ( (synpred43_FortranParser08()) ) {s = 30;}
else if ( (synpred44_FortranParser08()) ) {s = 31;}
else if ( (synpred45_FortranParser08()) ) {s = 32;}
else if ( (synpred46_FortranParser08()) ) {s = 33;}
else if ( (true) ) {s = 34;}
input.seek(index357_1);
if ( s>=0 ) return s;
break;
case 2 :
int LA357_2 = input.LA(1);
int index357_2 = input.index();
input.rewind();
s = -1;
if ( (synpred25_FortranParser08()) ) {s = 83;}
else if ( (true) ) {s = 34;}
input.seek(index357_2);
if ( s>=0 ) return s;
break;
case 3 :
int LA357_4 = input.LA(1);
int index357_4 = input.index();
input.rewind();
s = -1;
if ( (synpred27_FortranParser08()) ) {s = 84;}
else if ( (true) ) {s = 34;}
input.seek(index357_4);
if ( s>=0 ) return s;
break;
case 4 :
int LA357_9 = input.LA(1);
int index357_9 = input.index();
input.rewind();
s = -1;
if ( (synpred31_FortranParser08()) ) {s = 85;}
else if ( (synpred32_FortranParser08()) ) {s = 18;}
input.seek(index357_9);
if ( s>=0 ) return s;
break;
case 5 :
int LA357_25 = input.LA(1);
int index357_25 = input.index();
input.rewind();
s = -1;
if ( (synpred38_FortranParser08()) ) {s = 86;}
else if ( (true) ) {s = 34;}
input.seek(index357_25);
if ( s>=0 ) return s;
break;
}
if (state.backtracking>0) {state.failed=true; return -1;}
NoViableAltException nvae =
new NoViableAltException(getDescription(), 357, _s, input);
error(nvae);
throw nvae;
}
}
static final String DFA508_eotS =
"\113\uffff";
static final String DFA508_eofS =
"\113\uffff";
static final String DFA508_minS =
"\1\103\1\116\1\164\1\5\1\164\3\5\17\uffff\2\0\17\uffff\1\0\20\uffff\20"+
"\0\2\uffff";
static final String DFA508_maxS =
"\2\125\1\164\1\u00e3\1\164\3\u00e3\17\uffff\2\0\17\uffff\1\0\20\uffff"+
"\20\0\2\uffff";
static final String DFA508_acceptS =
"\10\uffff\17\4\2\uffff\17\4\1\uffff\17\3\1\4\20\uffff\1\1\1\2";
static final String DFA508_specialS =
"\3\uffff\1\0\1\uffff\1\1\1\2\1\3\17\uffff\1\4\1\5\17\uffff\1\6\20\uffff"+
"\1\7\1\10\1\11\1\12\1\13\1\14\1\15\1\16\1\17\1\20\1\21\1\22\1\23\1\24"+
"\1\25\1\26\2\uffff}>";
static final String[] DFA508_transitionS = {
"\1\1\12\uffff\1\2\6\uffff\1\3",
"\1\4\6\uffff\1\5",
"\1\6",
"\1\22\4\uffff\1\24\3\uffff\1\23\33\uffff\1\16\27\uffff\1\13\1\15\57"+
"\uffff\1\21\21\uffff\1\25\1\14\21\uffff\1\26\7\uffff\1\7\2\uffff\1\12"+
"\10\uffff\1\10\16\uffff\1\11\16\uffff\1\17\30\uffff\1\20",
"\1\27",
"\1\43\4\uffff\1\45\3\uffff\1\44\33\uffff\1\37\27\uffff\1\34\1\36\57"+
"\uffff\1\42\21\uffff\1\46\1\35\21\uffff\1\47\7\uffff\1\30\2\uffff\1\33"+
"\10\uffff\1\31\16\uffff\1\32\16\uffff\1\40\30\uffff\1\41",
"\1\63\4\uffff\1\65\3\uffff\1\64\33\uffff\1\57\27\uffff\1\54\1\56\57"+
"\uffff\1\62\21\uffff\1\66\1\55\21\uffff\1\67\7\uffff\1\50\2\uffff\1\53"+
"\10\uffff\1\51\16\uffff\1\52\16\uffff\1\60\30\uffff\1\61",
"\1\104\4\uffff\1\106\3\uffff\1\105\33\uffff\1\77\27\uffff\1\74\1\76"+
"\57\uffff\1\103\21\uffff\1\107\1\75\21\uffff\1\110\7\uffff\1\101\2\uffff"+
"\1\73\10\uffff\1\71\16\uffff\1\72\16\uffff\1\100\12\uffff\1\70\15\uffff"+
"\1\102",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"\1\uffff",
"\1\uffff",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"\1\uffff",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"\1\uffff",
"",
""
};
static final short[] DFA508_eot = DFA.unpackEncodedString(DFA508_eotS);
static final short[] DFA508_eof = DFA.unpackEncodedString(DFA508_eofS);
static final char[] DFA508_min = DFA.unpackEncodedStringToUnsignedChars(DFA508_minS);
static final char[] DFA508_max = DFA.unpackEncodedStringToUnsignedChars(DFA508_maxS);
static final short[] DFA508_accept = DFA.unpackEncodedString(DFA508_acceptS);
static final short[] DFA508_special = DFA.unpackEncodedString(DFA508_specialS);
static final short[][] DFA508_transition;
static {
int numStates = DFA508_transitionS.length;
DFA508_transition = new short[numStates][];
for (int i=0; i<numStates; i++) {
DFA508_transition[i] = DFA.unpackEncodedString(DFA508_transitionS[i]);
}
}
protected class DFA508 extends DFA {
public DFA508(BaseRecognizer recognizer) {
this.recognizer = recognizer;
this.decisionNumber = 508;
this.eot = DFA508_eot;
this.eof = DFA508_eof;
this.min = DFA508_min;
this.max = DFA508_max;
this.accept = DFA508_accept;
this.special = DFA508_special;
this.transition = DFA508_transition;
}
@Override
public String getDescription() {
return "4648:1: endfile_stmt options {k=3; } : ( ( ( label )? T_END T_FILE T_LPAREN )=> ( label )? T_END T_FILE T_LPAREN position_spec_list T_RPAREN end_of_stmt | ( ( label )? T_ENDFILE T_LPAREN )=> ( label )? T_ENDFILE T_LPAREN position_spec_list T_RPAREN end_of_stmt | ( ( label )? T_END T_FILE )=> ( label )? T_END T_FILE file_unit_number end_of_stmt | ( ( label )? T_ENDFILE )=> ( label )? T_ENDFILE file_unit_number end_of_stmt );";
}
@Override
public int specialStateTransition(int s, IntStream _input) throws NoViableAltException {
TokenStream input = (TokenStream)_input;
int _s = s;
switch ( s ) {
case 0 :
int LA508_3 = input.LA(1);
int index508_3 = input.index();
input.rewind();
s = -1;
if ( (LA508_3==T_LPAREN) ) {s = 7;}
else if ( (LA508_3==T_NOT) && (synpred56_FortranParser08())) {s = 8;}
else if ( (LA508_3==T_PLUS) && (synpred56_FortranParser08())) {s = 9;}
else if ( (LA508_3==T_MINUS) && (synpred56_FortranParser08())) {s = 10;}
else if ( (LA508_3==T_DEFINED_OP) && (synpred56_FortranParser08())) {s = 11;}
else if ( (LA508_3==T_IDENT) && (synpred56_FortranParser08())) {s = 12;}
else if ( (LA508_3==T_DIGIT_STRING) && (synpred56_FortranParser08())) {s = 13;}
else if ( (LA508_3==T_CHAR_CONSTANT) && (synpred56_FortranParser08())) {s = 14;}
else if ( (LA508_3==T_REAL_CONSTANT) && (synpred56_FortranParser08())) {s = 15;}
else if ( (LA508_3==T_TRUE) && (synpred56_FortranParser08())) {s = 16;}
else if ( (LA508_3==T_FALSE) && (synpred56_FortranParser08())) {s = 17;}
else if ( (LA508_3==BINARY_CONSTANT) && (synpred56_FortranParser08())) {s = 18;}
else if ( (LA508_3==OCTAL_CONSTANT) && (synpred56_FortranParser08())) {s = 19;}
else if ( (LA508_3==HEX_CONSTANT) && (synpred56_FortranParser08())) {s = 20;}
else if ( (LA508_3==T_HOLLERITH) && (synpred56_FortranParser08())) {s = 21;}
else if ( (LA508_3==T_LBRACKET) && (synpred56_FortranParser08())) {s = 22;}
input.seek(index508_3);
if ( s>=0 ) return s;
break;
case 1 :
int LA508_5 = input.LA(1);
int index508_5 = input.index();
input.rewind();
s = -1;
if ( (LA508_5==T_LPAREN) ) {s = 24;}
else if ( (LA508_5==T_NOT) && (synpred56_FortranParser08())) {s = 25;}
else if ( (LA508_5==T_PLUS) && (synpred56_FortranParser08())) {s = 26;}
else if ( (LA508_5==T_MINUS) && (synpred56_FortranParser08())) {s = 27;}
else if ( (LA508_5==T_DEFINED_OP) && (synpred56_FortranParser08())) {s = 28;}
else if ( (LA508_5==T_IDENT) && (synpred56_FortranParser08())) {s = 29;}
else if ( (LA508_5==T_DIGIT_STRING) && (synpred56_FortranParser08())) {s = 30;}
else if ( (LA508_5==T_CHAR_CONSTANT) && (synpred56_FortranParser08())) {s = 31;}
else if ( (LA508_5==T_REAL_CONSTANT) && (synpred56_FortranParser08())) {s = 32;}
else if ( (LA508_5==T_TRUE) && (synpred56_FortranParser08())) {s = 33;}
else if ( (LA508_5==T_FALSE) && (synpred56_FortranParser08())) {s = 34;}
else if ( (LA508_5==BINARY_CONSTANT) && (synpred56_FortranParser08())) {s = 35;}
else if ( (LA508_5==OCTAL_CONSTANT) && (synpred56_FortranParser08())) {s = 36;}
else if ( (LA508_5==HEX_CONSTANT) && (synpred56_FortranParser08())) {s = 37;}
else if ( (LA508_5==T_HOLLERITH) && (synpred56_FortranParser08())) {s = 38;}
else if ( (LA508_5==T_LBRACKET) && (synpred56_FortranParser08())) {s = 39;}
input.seek(index508_5);
if ( s>=0 ) return s;
break;
case 2 :
int LA508_6 = input.LA(1);
int index508_6 = input.index();
input.rewind();
s = -1;
if ( (LA508_6==T_LPAREN) ) {s = 40;}
else if ( (LA508_6==T_NOT) && (synpred55_FortranParser08())) {s = 41;}
else if ( (LA508_6==T_PLUS) && (synpred55_FortranParser08())) {s = 42;}
else if ( (LA508_6==T_MINUS) && (synpred55_FortranParser08())) {s = 43;}
else if ( (LA508_6==T_DEFINED_OP) && (synpred55_FortranParser08())) {s = 44;}
else if ( (LA508_6==T_IDENT) && (synpred55_FortranParser08())) {s = 45;}
else if ( (LA508_6==T_DIGIT_STRING) && (synpred55_FortranParser08())) {s = 46;}
else if ( (LA508_6==T_CHAR_CONSTANT) && (synpred55_FortranParser08())) {s = 47;}
else if ( (LA508_6==T_REAL_CONSTANT) && (synpred55_FortranParser08())) {s = 48;}
else if ( (LA508_6==T_TRUE) && (synpred55_FortranParser08())) {s = 49;}
else if ( (LA508_6==T_FALSE) && (synpred55_FortranParser08())) {s = 50;}
else if ( (LA508_6==BINARY_CONSTANT) && (synpred55_FortranParser08())) {s = 51;}
else if ( (LA508_6==OCTAL_CONSTANT) && (synpred55_FortranParser08())) {s = 52;}
else if ( (LA508_6==HEX_CONSTANT) && (synpred55_FortranParser08())) {s = 53;}
else if ( (LA508_6==T_HOLLERITH) && (synpred55_FortranParser08())) {s = 54;}
else if ( (LA508_6==T_LBRACKET) && (synpred55_FortranParser08())) {s = 55;}
input.seek(index508_6);
if ( s>=0 ) return s;
break;
case 3 :
int LA508_7 = input.LA(1);
int index508_7 = input.index();
input.rewind();
s = -1;
if ( (LA508_7==T_SLASH) && (synpred56_FortranParser08())) {s = 56;}
else if ( (LA508_7==T_NOT) ) {s = 57;}
else if ( (LA508_7==T_PLUS) ) {s = 58;}
else if ( (LA508_7==T_MINUS) ) {s = 59;}
else if ( (LA508_7==T_DEFINED_OP) ) {s = 60;}
else if ( (LA508_7==T_IDENT) ) {s = 61;}
else if ( (LA508_7==T_DIGIT_STRING) ) {s = 62;}
else if ( (LA508_7==T_CHAR_CONSTANT) ) {s = 63;}
else if ( (LA508_7==T_REAL_CONSTANT) ) {s = 64;}
else if ( (LA508_7==T_LPAREN) ) {s = 65;}
else if ( (LA508_7==T_TRUE) ) {s = 66;}
else if ( (LA508_7==T_FALSE) ) {s = 67;}
else if ( (LA508_7==BINARY_CONSTANT) ) {s = 68;}
else if ( (LA508_7==OCTAL_CONSTANT) ) {s = 69;}
else if ( (LA508_7==HEX_CONSTANT) ) {s = 70;}
else if ( (LA508_7==T_HOLLERITH) ) {s = 71;}
else if ( (LA508_7==T_LBRACKET) ) {s = 72;}
input.seek(index508_7);
if ( s>=0 ) return s;
break;
case 4 :
int LA508_23 = input.LA(1);
int index508_23 = input.index();
input.rewind();
s = -1;
if ( (synpred53_FortranParser08()) ) {s = 73;}
else if ( (synpred55_FortranParser08()) ) {s = 55;}
input.seek(index508_23);
if ( s>=0 ) return s;
break;
case 5 :
int LA508_24 = input.LA(1);
int index508_24 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_24);
if ( s>=0 ) return s;
break;
case 6 :
int LA508_40 = input.LA(1);
int index508_40 = input.index();
input.rewind();
s = -1;
if ( (synpred53_FortranParser08()) ) {s = 73;}
else if ( (synpred55_FortranParser08()) ) {s = 55;}
input.seek(index508_40);
if ( s>=0 ) return s;
break;
case 7 :
int LA508_57 = input.LA(1);
int index508_57 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_57);
if ( s>=0 ) return s;
break;
case 8 :
int LA508_58 = input.LA(1);
int index508_58 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_58);
if ( s>=0 ) return s;
break;
case 9 :
int LA508_59 = input.LA(1);
int index508_59 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_59);
if ( s>=0 ) return s;
break;
case 10 :
int LA508_60 = input.LA(1);
int index508_60 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_60);
if ( s>=0 ) return s;
break;
case 11 :
int LA508_61 = input.LA(1);
int index508_61 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_61);
if ( s>=0 ) return s;
break;
case 12 :
int LA508_62 = input.LA(1);
int index508_62 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_62);
if ( s>=0 ) return s;
break;
case 13 :
int LA508_63 = input.LA(1);
int index508_63 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_63);
if ( s>=0 ) return s;
break;
case 14 :
int LA508_64 = input.LA(1);
int index508_64 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_64);
if ( s>=0 ) return s;
break;
case 15 :
int LA508_65 = input.LA(1);
int index508_65 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_65);
if ( s>=0 ) return s;
break;
case 16 :
int LA508_66 = input.LA(1);
int index508_66 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_66);
if ( s>=0 ) return s;
break;
case 17 :
int LA508_67 = input.LA(1);
int index508_67 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_67);
if ( s>=0 ) return s;
break;
case 18 :
int LA508_68 = input.LA(1);
int index508_68 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_68);
if ( s>=0 ) return s;
break;
case 19 :
int LA508_69 = input.LA(1);
int index508_69 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_69);
if ( s>=0 ) return s;
break;
case 20 :
int LA508_70 = input.LA(1);
int index508_70 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_70);
if ( s>=0 ) return s;
break;
case 21 :
int LA508_71 = input.LA(1);
int index508_71 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_71);
if ( s>=0 ) return s;
break;
case 22 :
int LA508_72 = input.LA(1);
int index508_72 = input.index();
input.rewind();
s = -1;
if ( (synpred54_FortranParser08()) ) {s = 74;}
else if ( (synpred56_FortranParser08()) ) {s = 56;}
input.seek(index508_72);
if ( s>=0 ) return s;
break;
}
if (state.backtracking>0) {state.failed=true; return -1;}
NoViableAltException nvae =
new NoViableAltException(getDescription(), 508, _s, input);
error(nvae);
throw nvae;
}
}
public static final BitSet FOLLOW_program_stmt_in_main_program136 = new BitSet(new long[]{0x200C521100480000L,0x08040418000001D8L,0x10240020803C0C00L,0x000007104201022BL});
public static final BitSet FOLLOW_specification_part_in_main_program150 = new BitSet(new long[]{0x98A020A46D800000L,0x0681400010204028L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_execution_part_in_main_program161 = new BitSet(new long[]{0x0020000000000000L,0x0000000010004008L});
public static final BitSet FOLLOW_internal_subprogram_part_in_main_program177 = new BitSet(new long[]{0x0000000000000000L,0x0000000010004008L});
public static final BitSet FOLLOW_end_program_stmt_in_main_program191 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_prefix_in_ext_function_subprogram228 = new BitSet(new long[]{0x0000000000000000L,0x2000000000000008L});
public static final BitSet FOLLOW_function_subprogram_in_ext_function_subprogram234 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_derived_type_def_in_declaration_construct320 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_entry_stmt_in_declaration_construct329 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_enum_def_in_declaration_construct338 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_format_stmt_in_declaration_construct347 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_interface_block_in_declaration_construct356 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_parameter_stmt_in_declaration_construct365 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_procedure_declaration_stmt_in_declaration_construct374 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_other_specification_stmt_in_declaration_construct383 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_type_declaration_stmt_in_declaration_construct392 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_stmt_function_stmt_in_declaration_construct401 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_executable_construct_in_execution_part420 = new BitSet(new long[]{0xB88020A46D800002L,0x0E81400800204028L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_execution_part_construct_in_execution_part426 = new BitSet(new long[]{0xB88020A46D800002L,0x0E81400800204028L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_executable_construct_in_execution_part_construct446 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_format_stmt_in_execution_part_construct453 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_entry_stmt_in_execution_part_construct458 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_stmt_in_execution_part_construct463 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_contains_stmt_in_internal_subprogram_part488 = new BitSet(new long[]{0x0008120000000002L,0x20000000000005C8L,0x0000000080040000L,0x0000001010000A40L});
public static final BitSet FOLLOW_internal_subprogram_in_internal_subprogram_part499 = new BitSet(new long[]{0x0008120000000002L,0x20000000000005C8L,0x0000000080040000L,0x0000001010000A40L});
public static final BitSet FOLLOW_prefix_in_internal_subprogram539 = new BitSet(new long[]{0x0000000000000000L,0x2000000000000008L});
public static final BitSet FOLLOW_function_subprogram_in_internal_subprogram544 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_subroutine_subprogram_in_internal_subprogram549 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_access_stmt_in_other_specification_stmt575 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_allocatable_stmt_in_other_specification_stmt584 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_asynchronous_stmt_in_other_specification_stmt593 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_bind_stmt_in_other_specification_stmt602 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_codimension_stmt_in_other_specification_stmt611 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_common_stmt_in_other_specification_stmt636 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_stmt_in_other_specification_stmt645 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_dimension_stmt_in_other_specification_stmt654 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_equivalence_stmt_in_other_specification_stmt663 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_external_stmt_in_other_specification_stmt672 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_intent_stmt_in_other_specification_stmt681 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_intrinsic_stmt_in_other_specification_stmt690 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_namelist_stmt_in_other_specification_stmt699 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_optional_stmt_in_other_specification_stmt708 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_pointer_stmt_in_other_specification_stmt717 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_protected_stmt_in_other_specification_stmt726 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_save_stmt_in_other_specification_stmt735 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_target_stmt_in_other_specification_stmt744 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_volatile_stmt_in_other_specification_stmt753 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_value_stmt_in_other_specification_stmt762 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_name_in_keyword1084 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_name1111 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_literal_constant_in_constant1127 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_constant1134 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_constant_in_scalar_constant1161 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_int_literal_constant_in_literal_constant1185 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_real_literal_constant_in_literal_constant1194 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_complex_literal_constant_in_literal_constant1203 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_logical_literal_constant_in_literal_constant1212 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_char_literal_constant_in_literal_constant1221 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_boz_literal_constant_in_literal_constant1230 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_hollerith_literal_constant_in_literal_constant1239 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_int_literal_constant_in_int_constant1259 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_int_constant1266 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_char_literal_constant_in_char_constant1286 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_char_constant1293 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_power_op_in_intrinsic_operator1320 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_mult_op_in_intrinsic_operator1327 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_add_op_in_intrinsic_operator1335 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_concat_op_in_intrinsic_operator1343 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_rel_op_in_intrinsic_operator1350 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_not_op_in_intrinsic_operator1358 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_and_op_in_intrinsic_operator1366 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_or_op_in_intrinsic_operator1374 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_equiv_op_in_intrinsic_operator1382 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DEFINED_OP_in_defined_operator1397 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_extended_intrinsic_op_in_defined_operator1419 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_intrinsic_operator_in_extended_intrinsic_op1455 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DIGIT_STRING_in_label1477 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_label_list1510 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_label_list1529 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_label_in_label_list1533 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_intrinsic_type_spec_in_type_spec1573 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_derived_type_spec_in_type_spec1578 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_type_param_value1591 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_type_param_value1599 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_COLON_in_type_param_value1606 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_INTEGER_in_intrinsic_type_spec1632 = new BitSet(new long[]{0x0000000080000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_kind_selector_in_intrinsic_type_spec1635 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_REAL_in_intrinsic_type_spec1649 = new BitSet(new long[]{0x0000000080000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_kind_selector_in_intrinsic_type_spec1652 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DOUBLE_in_intrinsic_type_spec1666 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x4000000000000000L});
public static final BitSet FOLLOW_T_PRECISION_in_intrinsic_type_spec1668 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DOUBLEPRECISION_in_intrinsic_type_spec1678 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_COMPLEX_in_intrinsic_type_spec1688 = new BitSet(new long[]{0x0000000080000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_kind_selector_in_intrinsic_type_spec1691 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DOUBLE_in_intrinsic_type_spec1705 = new BitSet(new long[]{0x0008000000000000L});
public static final BitSet FOLLOW_T_COMPLEX_in_intrinsic_type_spec1707 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DOUBLECOMPLEX_in_intrinsic_type_spec1717 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_CHARACTER_in_intrinsic_type_spec1727 = new BitSet(new long[]{0x0000000080000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_char_selector_in_intrinsic_type_spec1730 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LOGICAL_in_intrinsic_type_spec1744 = new BitSet(new long[]{0x0000000080000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_kind_selector_in_intrinsic_type_spec1747 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_kind_selector1779 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901400060L,0x0000000800000400L});
public static final BitSet FOLLOW_T_KIND_in_kind_selector1782 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_kind_selector1784 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_kind_selector1790 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_kind_selector1792 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_kind_selector1808 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_T_DIGIT_STRING_in_kind_selector1810 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_PLUS_in_signed_int_literal_constant1839 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_T_MINUS_in_signed_int_literal_constant1845 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_int_literal_constant_in_signed_int_literal_constant1853 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DIGIT_STRING_in_int_literal_constant1875 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000000000000L,0x0000002000000000L});
public static final BitSet FOLLOW_T_UNDERSCORE_in_int_literal_constant1878 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_kind_param_in_int_literal_constant1880 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DIGIT_STRING_in_kind_param1906 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_kind_param1926 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_BINARY_CONSTANT_in_boz_literal_constant1959 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_OCTAL_CONSTANT_in_boz_literal_constant1966 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_HEX_CONSTANT_in_boz_literal_constant1973 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_PLUS_in_signed_real_literal_constant2001 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000400L});
public static final BitSet FOLLOW_T_MINUS_in_signed_real_literal_constant2007 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000400L});
public static final BitSet FOLLOW_real_literal_constant_in_signed_real_literal_constant2015 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_REAL_CONSTANT_in_real_literal_constant2045 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000000000000L,0x0000002000000000L});
public static final BitSet FOLLOW_T_UNDERSCORE_in_real_literal_constant2048 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_kind_param_in_real_literal_constant2050 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_complex_literal_constant2104 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L,0x0800000800000040L,0x0000000000000400L});
public static final BitSet FOLLOW_real_part_in_complex_literal_constant2106 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_complex_literal_constant2108 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L,0x0800000800000040L,0x0000000000000400L});
public static final BitSet FOLLOW_imag_part_in_complex_literal_constant2110 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_complex_literal_constant2112 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_signed_int_literal_constant_in_real_part2125 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_signed_real_literal_constant_in_real_part2146 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_real_part2166 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_signed_int_literal_constant_in_imag_part2203 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_signed_real_literal_constant_in_imag_part2224 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_imag_part2244 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_char_selector2294 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L,0x0000000100000000L});
public static final BitSet FOLLOW_char_length_in_char_selector2296 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_char_selector2299 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_char_selector2326 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_type_param_value_in_char_selector2328 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_COMMA_in_char_selector2343 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901400060L,0x0000000800000400L});
public static final BitSet FOLLOW_T_KIND_in_char_selector2346 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_char_selector2348 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_char_selector2354 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_char_selector2391 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_char_selector2416 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000004000000L});
public static final BitSet FOLLOW_T_LEN_in_char_selector2418 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_char_selector2420 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_type_param_value_in_char_selector2422 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_COMMA_in_char_selector2437 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000400000L});
public static final BitSet FOLLOW_T_KIND_in_char_selector2439 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_char_selector2441 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_char_selector2443 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_char_selector2480 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_char_selector2505 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000400000L});
public static final BitSet FOLLOW_T_KIND_in_char_selector2507 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_char_selector2509 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_char_selector2511 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_COMMA_in_char_selector2526 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100905000060L,0x0000000800000400L});
public static final BitSet FOLLOW_T_LEN_in_char_selector2529 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_char_selector2531 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_type_param_value_in_char_selector2537 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_char_selector2574 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_length_selector2609 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100905000060L,0x0000000800000400L});
public static final BitSet FOLLOW_T_LEN_in_length_selector2613 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_length_selector2617 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_type_param_value_in_length_selector2622 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_length_selector2624 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_length_selector2645 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L,0x0000000100000000L});
public static final BitSet FOLLOW_char_length_in_length_selector2647 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_length_selector2650 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_char_length2683 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_type_param_value_in_char_length2685 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_char_length2687 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_scalar_int_literal_constant_in_char_length2700 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_int_literal_constant_in_scalar_int_literal_constant2733 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DIGIT_STRING_in_char_literal_constant2760 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000002000000000L});
public static final BitSet FOLLOW_T_UNDERSCORE_in_char_literal_constant2762 = new BitSet(new long[]{0x0000040000000000L});
public static final BitSet FOLLOW_T_CHAR_CONSTANT_in_char_literal_constant2764 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_char_literal_constant2809 = new BitSet(new long[]{0x0000040000000000L});
public static final BitSet FOLLOW_T_CHAR_CONSTANT_in_char_literal_constant2811 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_CHAR_CONSTANT_in_char_literal_constant2832 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_HOLLERITH_in_hollerith_literal_constant2866 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_TRUE_in_logical_literal_constant2900 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000000000000L,0x0000002000000000L});
public static final BitSet FOLLOW_T_UNDERSCORE_in_logical_literal_constant2904 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_kind_param_in_logical_literal_constant2906 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_FALSE_in_logical_literal_constant2920 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000000000000L,0x0000002000000000L});
public static final BitSet FOLLOW_T_UNDERSCORE_in_logical_literal_constant2924 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_kind_param_in_logical_literal_constant2926 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_derived_type_stmt_in_derived_type_def2953 = new BitSet(new long[]{0x002A120080000000L,0x00000001000041C8L,0x0000000180040000L,0x0000001000100203L});
public static final BitSet FOLLOW_type_param_or_comp_def_stmt_list_in_derived_type_def2966 = new BitSet(new long[]{0x0028120000000000L,0x00000001000041C8L,0x0000000080040000L,0x0000001000100203L});
public static final BitSet FOLLOW_private_or_sequence_in_derived_type_def2974 = new BitSet(new long[]{0x0028120000000000L,0x00000001000041C8L,0x0000000080040000L,0x0000001000100203L});
public static final BitSet FOLLOW_component_def_stmt_in_derived_type_def2988 = new BitSet(new long[]{0x0028120000000000L,0x00000001000041C8L,0x0000000080040000L,0x0000001000000202L});
public static final BitSet FOLLOW_type_bound_procedure_part_in_derived_type_def2997 = new BitSet(new long[]{0x0000000000000000L,0x0000000100004008L});
public static final BitSet FOLLOW_end_type_stmt_in_derived_type_def3004 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_kind_selector_in_type_param_or_comp_def_stmt_list3029 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_type_param_or_comp_def_stmt_list3033 = new BitSet(new long[]{0x0040400000400000L,0x0000000000000010L,0x1000200000000040L,0x0000000000000021L});
public static final BitSet FOLLOW_type_param_or_comp_def_stmt_in_type_param_or_comp_def_stmt_list3035 = new BitSet(new long[]{0x0002000080000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_type_param_or_comp_def_stmt_list_in_type_param_or_comp_def_stmt_list3040 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_type_param_attr_spec_in_type_param_or_comp_def_stmt3058 = new BitSet(new long[]{0x0001000000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_type_param_or_comp_def_stmt3060 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_type_param_decl_list_in_type_param_or_comp_def_stmt3062 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_type_param_or_comp_def_stmt3064 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_component_attr_spec_list_in_type_param_or_comp_def_stmt3101 = new BitSet(new long[]{0x0001000000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_type_param_or_comp_def_stmt3103 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_component_decl_list_in_type_param_or_comp_def_stmt3105 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_type_param_or_comp_def_stmt3107 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_derived_type_stmt3149 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000001000000000L});
public static final BitSet FOLLOW_T_TYPE_in_derived_type_stmt3155 = new BitSet(new long[]{0x0003000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COMMA_in_derived_type_stmt3163 = new BitSet(new long[]{0x0000001000080000L,0x0002000000000000L,0x0000000000000000L,0x0000000000000021L});
public static final BitSet FOLLOW_type_attr_spec_list_in_derived_type_stmt3165 = new BitSet(new long[]{0x0001000000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_derived_type_stmt3185 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_derived_type_stmt3190 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_derived_type_stmt3200 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_generic_name_list_in_derived_type_stmt3202 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_derived_type_stmt3204 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_derived_type_stmt3223 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_type_attr_spec_in_type_attr_spec_list3248 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_type_attr_spec_list3254 = new BitSet(new long[]{0x0000001000080000L,0x0002000000000000L,0x0000000000000000L,0x0000000000000021L});
public static final BitSet FOLLOW_type_attr_spec_in_type_attr_spec_list3256 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_generic_name_list3288 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_generic_name_list3297 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_generic_name_list3301 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_access_spec_in_type_attr_spec3328 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_EXTENDS_in_type_attr_spec3338 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_type_attr_spec3340 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_type_attr_spec3342 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_type_attr_spec3344 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ABSTRACT_in_type_attr_spec3354 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_BIND_in_type_attr_spec3364 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_type_attr_spec3366 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_type_attr_spec3368 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_type_attr_spec3372 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_private_components_stmt_in_private_or_sequence3399 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_sequence_stmt_in_private_or_sequence3409 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_type_stmt3435 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_type_stmt3441 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000001000000000L});
public static final BitSet FOLLOW_T_TYPE_in_end_type_stmt3443 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_type_stmt3447 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_type_stmt3462 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_type_stmt3472 = new BitSet(new long[]{0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_ENDTYPE_in_end_type_stmt3478 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_type_stmt3482 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_type_stmt3497 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_sequence_stmt3524 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000100000L});
public static final BitSet FOLLOW_T_SEQUENCE_in_sequence_stmt3530 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_sequence_stmt3532 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_type_param_decl3563 = new BitSet(new long[]{0x0000000000000002L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_type_param_decl3567 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_type_param_decl3569 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_type_param_decl_in_type_param_decl_list3607 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_type_param_decl_list3613 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_type_param_decl_in_type_param_decl_list3615 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_access_spec_in_component_attr_spec3651 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ALLOCATABLE_in_component_attr_spec3672 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_CODIMENSION_in_component_attr_spec3693 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000001000000L});
public static final BitSet FOLLOW_T_LBRACKET_in_component_attr_spec3695 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_coarray_spec_in_component_attr_spec3697 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000080L});
public static final BitSet FOLLOW_T_RBRACKET_in_component_attr_spec3699 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_CONTIGUOUS_in_component_attr_spec3730 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DIMENSION_in_component_attr_spec3797 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_component_attr_spec3799 = new BitSet(new long[]{0x0000840000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_component_array_spec_in_component_attr_spec3801 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_component_attr_spec3803 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_POINTER_in_component_attr_spec3824 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_component_attr_spec_extension_in_component_attr_spec3845 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_NO_LANGUAGE_EXTENSION_in_component_attr_spec_extension3870 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_component_attr_spec_in_component_attr_spec_list3898 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_component_attr_spec_list3902 = new BitSet(new long[]{0x0040400000400000L,0x0000000000000010L,0x1000200000000000L,0x0000000000000021L});
public static final BitSet FOLLOW_component_attr_spec_in_component_attr_spec_list3904 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_type_param_attr_spec3934 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_component_def_stmt_in_component_def_stmt3969 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_proc_component_def_stmt_in_component_def_stmt3979 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_data_component_def_stmt4013 = new BitSet(new long[]{0x0008120000000000L,0x00000000000001C0L,0x0000000080040000L,0x0000001000000200L});
public static final BitSet FOLLOW_declaration_type_spec_in_data_component_def_stmt4019 = new BitSet(new long[]{0x0003000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COMMA_in_data_component_def_stmt4038 = new BitSet(new long[]{0x0040400000400000L,0x0000000000000010L,0x1000200000000000L,0x0000000000000021L});
public static final BitSet FOLLOW_component_attr_spec_list_in_data_component_def_stmt4040 = new BitSet(new long[]{0x0001000000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_data_component_def_stmt4059 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_component_decl_list_in_data_component_def_stmt4064 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_data_component_def_stmt4066 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_component_decl4102 = new BitSet(new long[]{0x0000000080000002L,0x0000220000000000L,0x0000000101000000L});
public static final BitSet FOLLOW_T_LPAREN_in_component_decl4105 = new BitSet(new long[]{0x0000840000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_component_array_spec_in_component_decl4107 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_component_decl4109 = new BitSet(new long[]{0x0000000080000002L,0x0000220000000000L,0x0000000001000000L});
public static final BitSet FOLLOW_T_LBRACKET_in_component_decl4131 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_coarray_spec_in_component_decl4133 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000080L});
public static final BitSet FOLLOW_T_RBRACKET_in_component_decl4135 = new BitSet(new long[]{0x0000000080000002L,0x0000220000000000L});
public static final BitSet FOLLOW_T_ASTERISK_in_component_decl4157 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L,0x0000000100000000L});
public static final BitSet FOLLOW_char_length_in_component_decl4159 = new BitSet(new long[]{0x0000000000000002L,0x0000220000000000L});
public static final BitSet FOLLOW_component_initialization_in_component_decl4182 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_component_decl_in_component_decl_list4233 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_component_decl_list4239 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_component_decl_in_component_decl_list4241 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_explicit_shape_spec_list_in_component_array_spec4273 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_deferred_shape_spec_list_in_component_array_spec4283 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_COLON_in_deferred_shape_spec_list4321 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_deferred_shape_spec_list4327 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_deferred_shape_spec_list4329 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_EQUALS_in_component_initialization4367 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_component_initialization4369 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_EQ_GT_in_component_initialization4374 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_null_init_in_component_initialization4376 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_proc_component_def_stmt4398 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000002L});
public static final BitSet FOLLOW_T_PROCEDURE_in_proc_component_def_stmt4404 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_proc_component_def_stmt4406 = new BitSet(new long[]{0x0008120000000000L,0x00000000000001C0L,0x0000000080040040L,0x0000001000008200L});
public static final BitSet FOLLOW_proc_interface_in_proc_component_def_stmt4423 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_proc_component_def_stmt4429 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_proc_component_def_stmt4431 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x1040080000000000L,0x0000000000000021L});
public static final BitSet FOLLOW_proc_component_attr_spec_list_in_proc_component_def_stmt4439 = new BitSet(new long[]{0x0001000000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_proc_component_def_stmt4441 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_proc_decl_list_in_proc_component_def_stmt4443 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_proc_component_def_stmt4458 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_POINTER_in_proc_component_attr_spec4487 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_PASS_in_proc_component_attr_spec4503 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_proc_component_attr_spec4507 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_proc_component_attr_spec4509 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_proc_component_attr_spec4511 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_NOPASS_in_proc_component_attr_spec4532 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_access_spec_in_proc_component_attr_spec4548 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_proc_component_attr_spec_in_proc_component_attr_spec_list4588 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_proc_component_attr_spec_list4607 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x1040080000000000L,0x0000000000000021L});
public static final BitSet FOLLOW_proc_component_attr_spec_in_proc_component_attr_spec_list4609 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_private_components_stmt4649 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000001L});
public static final BitSet FOLLOW_T_PRIVATE_in_private_components_stmt4655 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_private_components_stmt4657 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_contains_stmt_in_type_bound_procedure_part4678 = new BitSet(new long[]{0x0000000000000000L,0x8020000000000008L,0x0000000000000000L,0x0000000000000003L});
public static final BitSet FOLLOW_binding_private_stmt_in_type_bound_procedure_part4690 = new BitSet(new long[]{0x0000000000000000L,0x8020000000000008L,0x0000000000000000L,0x0000000000000002L});
public static final BitSet FOLLOW_proc_binding_stmt_in_type_bound_procedure_part4705 = new BitSet(new long[]{0x0000000000000002L,0x8020000000000008L,0x0000000000000000L,0x0000000000000002L});
public static final BitSet FOLLOW_proc_binding_stmt_in_type_bound_procedure_part4709 = new BitSet(new long[]{0x0000000000000002L,0x8020000000000008L,0x0000000000000000L,0x0000000000000002L});
public static final BitSet FOLLOW_label_in_binding_private_stmt4740 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000001L});
public static final BitSet FOLLOW_T_PRIVATE_in_binding_private_stmt4746 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_binding_private_stmt4748 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_proc_binding_stmt4775 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000002L});
public static final BitSet FOLLOW_specific_binding_in_proc_binding_stmt4781 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_proc_binding_stmt4783 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_proc_binding_stmt4794 = new BitSet(new long[]{0x0000000000000000L,0x8000000000000000L});
public static final BitSet FOLLOW_generic_binding_in_proc_binding_stmt4800 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_proc_binding_stmt4802 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_proc_binding_stmt4813 = new BitSet(new long[]{0x0000000000000000L,0x0020000000000000L});
public static final BitSet FOLLOW_final_binding_in_proc_binding_stmt4819 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_proc_binding_stmt4821 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_PROCEDURE_in_specific_binding4850 = new BitSet(new long[]{0x0003000000000000L,0x0000000000000000L,0x0000000100000040L});
public static final BitSet FOLLOW_T_LPAREN_in_specific_binding4853 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_specific_binding4857 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_specific_binding4859 = new BitSet(new long[]{0x0003000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COMMA_in_specific_binding4881 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000002L,0x00400C0000000000L,0x0000000000000021L});
public static final BitSet FOLLOW_binding_attr_list_in_specific_binding4883 = new BitSet(new long[]{0x0001000000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_specific_binding4906 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_specific_binding4925 = new BitSet(new long[]{0x0000000000000002L,0x0000200000000000L});
public static final BitSet FOLLOW_T_EQ_GT_in_specific_binding4944 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_specific_binding4948 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_GENERIC_in_generic_binding4983 = new BitSet(new long[]{0x0003000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_generic_binding4987 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000021L});
public static final BitSet FOLLOW_access_spec_in_generic_binding4989 = new BitSet(new long[]{0x0001000000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_generic_binding4995 = new BitSet(new long[]{0x0000000010000000L,0x0000000000000000L,0x0002000000000040L,0x0004000000000100L});
public static final BitSet FOLLOW_generic_spec_in_generic_binding5010 = new BitSet(new long[]{0x0000000000000000L,0x0000200000000000L});
public static final BitSet FOLLOW_T_EQ_GT_in_generic_binding5012 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_generic_name_list_in_generic_binding5014 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_PASS_in_binding_attr5042 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_binding_attr5046 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_binding_attr5048 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_binding_attr5050 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_NOPASS_in_binding_attr5072 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_NON_OVERRIDABLE_in_binding_attr5093 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DEFERRED_in_binding_attr5112 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_access_spec_in_binding_attr5132 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_binding_attr_in_binding_attr_list5176 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_binding_attr_list5182 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000002L,0x00400C0000000000L,0x0000000000000021L});
public static final BitSet FOLLOW_binding_attr_in_binding_attr_list5184 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_FINAL_in_final_binding5213 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_final_binding5217 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_generic_name_list_in_final_binding5222 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_derived_type_spec5256 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_derived_type_spec5260 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_type_param_spec_list_in_derived_type_spec5262 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_derived_type_spec5266 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_keyword_in_type_param_spec5300 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_type_param_spec5302 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_type_param_value_in_type_param_spec5308 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_type_param_spec_in_type_param_spec_list5349 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_type_param_spec_list5354 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_type_param_spec_in_type_param_spec_list5356 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_structure_constructor5407 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_structure_constructor5409 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_type_param_spec_list_in_structure_constructor5411 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_structure_constructor5413 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_structure_constructor5418 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800008400L});
public static final BitSet FOLLOW_component_spec_list_in_structure_constructor5424 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_structure_constructor5431 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_keyword_in_component_spec5467 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_component_spec5469 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_component_data_source_in_component_spec5475 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_component_spec_in_component_spec_list5525 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_component_spec_list5530 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_component_spec_in_component_spec_list5532 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_expr_in_component_data_source5566 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_enum_def_stmt_in_enum_def5597 = new BitSet(new long[]{0x0000000000000000L,0x0000002000000008L});
public static final BitSet FOLLOW_enumerator_def_stmt_in_enum_def5601 = new BitSet(new long[]{0x0000000000000000L,0x0000002000104008L});
public static final BitSet FOLLOW_enumerator_def_stmt_in_enum_def5607 = new BitSet(new long[]{0x0000000000000000L,0x0000002000104008L});
public static final BitSet FOLLOW_end_enum_stmt_in_enum_def5615 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_enum_def_stmt5642 = new BitSet(new long[]{0x0000000000000000L,0x0000001000000000L});
public static final BitSet FOLLOW_T_ENUM_in_enum_def_stmt5648 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_enum_def_stmt5650 = new BitSet(new long[]{0x0000001000000000L});
public static final BitSet FOLLOW_T_BIND_in_enum_def_stmt5652 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_enum_def_stmt5654 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_enum_def_stmt5669 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_enum_def_stmt5673 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_enum_def_stmt5675 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_enumerator_def_stmt5702 = new BitSet(new long[]{0x0000000000000000L,0x0000002000000000L});
public static final BitSet FOLLOW_T_ENUMERATOR_in_enumerator_def_stmt5708 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_enumerator_def_stmt5712 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_enumerator_list_in_enumerator_def_stmt5730 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_enumerator_def_stmt5732 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_enumerator5760 = new BitSet(new long[]{0x0000000000000002L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_enumerator5764 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_enumerator5766 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_enumerator_in_enumerator_list5820 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_enumerator_list5825 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_enumerator_in_enumerator_list5827 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_end_enum_stmt5868 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_enum_stmt5874 = new BitSet(new long[]{0x0000000000000000L,0x0000001000000000L});
public static final BitSet FOLLOW_T_ENUM_in_end_enum_stmt5876 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_enum_stmt5878 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_enum_stmt5899 = new BitSet(new long[]{0x0000000000000000L,0x0000000000100000L});
public static final BitSet FOLLOW_T_ENDENUM_in_end_enum_stmt5905 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_enum_stmt5907 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_array_constructor5934 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_SLASH_in_array_constructor5936 = new BitSet(new long[]{0x0008060000004420L,0x00080000000001CCL,0x0800100981040060L,0x0000000800000600L});
public static final BitSet FOLLOW_ac_spec_in_array_constructor5938 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_SLASH_in_array_constructor5940 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_array_constructor5942 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LBRACKET_in_array_constructor5952 = new BitSet(new long[]{0x0008060000004420L,0x00080000000001CCL,0x0800100981040060L,0x0000000800000600L});
public static final BitSet FOLLOW_ac_spec_in_array_constructor5954 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000080L});
public static final BitSet FOLLOW_T_RBRACKET_in_array_constructor5956 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_type_spec_in_ac_spec5989 = new BitSet(new long[]{0x0001000000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_ac_spec5991 = new BitSet(new long[]{0x0000040000004422L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_ac_value_list_in_ac_spec5994 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_ac_value_list_in_ac_spec6004 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_ac_value6035 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_ac_implied_do_in_ac_value6040 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_ac_value_in_ac_value_list6073 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_ac_value_list6078 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_ac_value_in_ac_value_list6080 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_ac_implied_do6111 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_ac_value_list_in_ac_implied_do6113 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_ac_implied_do6115 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_ac_implied_do_control_in_ac_implied_do6117 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_ac_implied_do6119 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_do_variable_in_ac_implied_do_control6148 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_ac_implied_do_control6150 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_ac_implied_do_control6152 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_ac_implied_do_control6154 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_ac_implied_do_control6156 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_ac_implied_do_control6160 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_ac_implied_do_control6162 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_variable_in_scalar_int_variable6193 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_intrinsic_type_spec_in_declaration_type_spec6308 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_TYPE_in_declaration_type_spec6318 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_declaration_type_spec6320 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_derived_type_spec_in_declaration_type_spec6322 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_declaration_type_spec6324 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_CLASS_in_declaration_type_spec6334 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_declaration_type_spec6336 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_derived_type_spec_in_declaration_type_spec6338 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_declaration_type_spec6340 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_CLASS_in_declaration_type_spec6350 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_declaration_type_spec6352 = new BitSet(new long[]{0x0000000080000000L});
public static final BitSet FOLLOW_T_ASTERISK_in_declaration_type_spec6354 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_declaration_type_spec6356 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_access_spec_in_attr_spec6383 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ALLOCATABLE_in_attr_spec6405 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASYNCHRONOUS_in_attr_spec6427 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_CODIMENSION_in_attr_spec6449 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000001000000L});
public static final BitSet FOLLOW_T_LBRACKET_in_attr_spec6451 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_coarray_spec_in_attr_spec6453 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000080L});
public static final BitSet FOLLOW_T_RBRACKET_in_attr_spec6455 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_CONTIGUOUS_in_attr_spec6479 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DIMENSION_in_attr_spec6539 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_attr_spec6541 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_array_spec_in_attr_spec6543 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_attr_spec6545 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_EXTERNAL_in_attr_spec6567 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_INTENT_in_attr_spec6589 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_attr_spec6591 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0010000000009000L});
public static final BitSet FOLLOW_intent_spec_in_attr_spec6593 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_attr_spec6595 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_INTRINSIC_in_attr_spec6617 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_language_binding_spec_in_attr_spec6639 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_OPTIONAL_in_attr_spec6663 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_PARAMETER_in_attr_spec6685 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_POINTER_in_attr_spec6707 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_PROTECTED_in_attr_spec6729 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_SAVE_in_attr_spec6751 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_TARGET_in_attr_spec6773 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_VALUE_in_attr_spec6795 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_VOLATILE_in_attr_spec6817 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_KIND_in_attr_spec6841 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LEN_in_attr_spec6864 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_attr_spec_extension_in_attr_spec6887 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_NO_LANGUAGE_EXTENSION_in_attr_spec_extension6899 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_entity_decl6927 = new BitSet(new long[]{0x0000000080000002L,0x0000220000000000L,0x0000000101000000L});
public static final BitSet FOLLOW_T_LPAREN_in_entity_decl6931 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_array_spec_in_entity_decl6933 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_entity_decl6935 = new BitSet(new long[]{0x0000000080000002L,0x0000220000000000L,0x0000000001000000L});
public static final BitSet FOLLOW_T_LBRACKET_in_entity_decl6959 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_coarray_spec_in_entity_decl6961 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000080L});
public static final BitSet FOLLOW_T_RBRACKET_in_entity_decl6963 = new BitSet(new long[]{0x0000000080000002L,0x0000220000000000L});
public static final BitSet FOLLOW_T_ASTERISK_in_entity_decl6987 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L,0x0000000100000000L});
public static final BitSet FOLLOW_char_length_in_entity_decl6989 = new BitSet(new long[]{0x0000000000000002L,0x0000220000000000L});
public static final BitSet FOLLOW_initialization_in_entity_decl7013 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_entity_decl_in_entity_decl_list7058 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_entity_decl_list7064 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_entity_decl_in_entity_decl_list7066 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_object_name7107 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_EQUALS_in_initialization7126 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_initialization7128 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_EQ_GT_in_initialization7136 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_null_init_in_initialization7138 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_null_init7154 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_null_init7158 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_null_init7160 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_array_spec_element_in_coarray_spec7196 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_coarray_spec7201 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_array_spec_element_in_coarray_spec7203 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_PUBLIC_in_access_spec7234 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_PRIVATE_in_access_spec7244 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_BIND_in_language_binding_spec7269 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_language_binding_spec7271 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_language_binding_spec7273 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_COMMA_in_language_binding_spec7291 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_name_in_language_binding_spec7293 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_language_binding_spec7295 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_language_binding_spec7297 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_language_binding_spec7303 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_array_spec_element_in_array_spec7330 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_array_spec7337 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_array_spec_element_in_array_spec7339 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_expr_in_array_spec_element7373 = new BitSet(new long[]{0x0000800000000002L});
public static final BitSet FOLLOW_T_COLON_in_array_spec_element7377 = new BitSet(new long[]{0x0000040080004422L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_array_spec_element7393 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_array_spec_element7409 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_array_spec_element7456 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_COLON_in_array_spec_element7466 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_explicit_shape_spec7493 = new BitSet(new long[]{0x0000800000000002L});
public static final BitSet FOLLOW_T_COLON_in_explicit_shape_spec7496 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_explicit_shape_spec7498 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_explicit_shape_spec_in_explicit_shape_spec_list7531 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_explicit_shape_spec_list7550 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_explicit_shape_spec_in_explicit_shape_spec_list7552 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_IN_in_intent_spec7587 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_OUT_in_intent_spec7595 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IN_in_intent_spec7603 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0010000000000000L});
public static final BitSet FOLLOW_T_OUT_in_intent_spec7605 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_INOUT_in_intent_spec7612 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_access_stmt7643 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000021L});
public static final BitSet FOLLOW_access_spec_in_access_stmt7649 = new BitSet(new long[]{0x0001000010000000L,0x0000008000000000L,0x0002000000000040L,0x0004000000000100L});
public static final BitSet FOLLOW_T_COLON_COLON_in_access_stmt7655 = new BitSet(new long[]{0x0000000010000000L,0x0000000000000000L,0x0002000000000040L,0x0004000000000100L});
public static final BitSet FOLLOW_access_id_list_in_access_stmt7673 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_access_stmt7679 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_generic_spec_in_access_id7702 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_access_id_in_access_id_list7741 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_access_id_list7747 = new BitSet(new long[]{0x0000000010000000L,0x0000000000000000L,0x0002000000000040L,0x0004000000000100L});
public static final BitSet FOLLOW_access_id_in_access_id_list7749 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_allocatable_stmt7796 = new BitSet(new long[]{0x0000000000400000L});
public static final BitSet FOLLOW_T_ALLOCATABLE_in_allocatable_stmt7809 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_allocatable_stmt7813 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_allocatable_decl_list_in_allocatable_stmt7818 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_allocatable_stmt7820 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_object_name_in_allocatable_decl7860 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000101000000L});
public static final BitSet FOLLOW_T_LPAREN_in_allocatable_decl7876 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_array_spec_in_allocatable_decl7878 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_allocatable_decl7880 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000001000000L});
public static final BitSet FOLLOW_T_LBRACKET_in_allocatable_decl7899 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_coarray_spec_in_allocatable_decl7901 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000080L});
public static final BitSet FOLLOW_T_RBRACKET_in_allocatable_decl7903 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_allocatable_decl_in_allocatable_decl_list7958 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_allocatable_decl_list7964 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_allocatable_decl_in_allocatable_decl_list7966 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_asynchronous_stmt8009 = new BitSet(new long[]{0x0000000100000000L});
public static final BitSet FOLLOW_T_ASYNCHRONOUS_in_asynchronous_stmt8015 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_asynchronous_stmt8019 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_generic_name_list_in_asynchronous_stmt8026 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_asynchronous_stmt8028 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_bind_stmt8055 = new BitSet(new long[]{0x0000001000000000L});
public static final BitSet FOLLOW_language_binding_spec_in_bind_stmt8061 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L,0x0000000000200000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_bind_stmt8067 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L,0x0000000000200000L});
public static final BitSet FOLLOW_bind_entity_list_in_bind_stmt8072 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_bind_stmt8074 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_bind_entity8092 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_SLASH_in_bind_entity8108 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_bind_entity8110 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_SLASH_in_bind_entity8112 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_bind_entity_in_bind_entity_list8148 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_bind_entity_list8154 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L,0x0000000000200000L});
public static final BitSet FOLLOW_bind_entity_in_bind_entity_list8156 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_data_stmt8196 = new BitSet(new long[]{0x2000000000000000L});
public static final BitSet FOLLOW_T_DATA_in_data_stmt8202 = new BitSet(new long[]{0x0000040000000000L,0x0000000000000008L,0x0000000100000040L});
public static final BitSet FOLLOW_data_stmt_set_in_data_stmt8204 = new BitSet(new long[]{0x0002040000000000L,0x0000008000000008L,0x0000000100000040L});
public static final BitSet FOLLOW_T_COMMA_in_data_stmt8210 = new BitSet(new long[]{0x0000040000000000L,0x0000000000000008L,0x0000000100000040L});
public static final BitSet FOLLOW_data_stmt_set_in_data_stmt8228 = new BitSet(new long[]{0x0002040000000000L,0x0000008000000008L,0x0000000100000040L});
public static final BitSet FOLLOW_end_of_stmt_in_data_stmt8234 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_stmt_object_list_in_data_stmt_set8254 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_SLASH_in_data_stmt_set8258 = new BitSet(new long[]{0x0000040000004420L,0x0008000000000008L,0x0800000900000060L,0x0000000800000400L});
public static final BitSet FOLLOW_data_stmt_value_list_in_data_stmt_set8262 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_SLASH_in_data_stmt_set8266 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_variable_in_data_stmt_object8297 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_implied_do_in_data_stmt_object8302 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_stmt_object_in_data_stmt_object_list8327 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_data_stmt_object_list8333 = new BitSet(new long[]{0x0000040000000000L,0x0000000000000008L,0x0000000100000040L});
public static final BitSet FOLLOW_data_stmt_object_in_data_stmt_object_list8335 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_data_implied_do8376 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000040L});
public static final BitSet FOLLOW_data_i_do_object_list_in_data_implied_do8378 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_data_implied_do8380 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_data_implied_do8382 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_data_implied_do8384 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_data_implied_do8394 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_data_implied_do8396 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_data_implied_do8398 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_COMMA_in_data_implied_do8402 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_data_implied_do8404 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_data_implied_do8410 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_ref_in_data_i_do_object8441 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_implied_do_in_data_i_do_object8446 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_i_do_object_in_data_i_do_object_list8471 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_data_i_do_object_list8477 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000040L});
public static final BitSet FOLLOW_data_i_do_object_in_data_i_do_object_list8479 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_designator_in_data_stmt_value8543 = new BitSet(new long[]{0x0000000080000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_data_stmt_value8546 = new BitSet(new long[]{0x0000040000004420L,0x0008000000000008L,0x0800000900000040L,0x0000000800000400L});
public static final BitSet FOLLOW_data_stmt_constant_in_data_stmt_value8548 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_int_literal_constant_in_data_stmt_value8561 = new BitSet(new long[]{0x0000000080000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_data_stmt_value8564 = new BitSet(new long[]{0x0000040000004420L,0x0008000000000008L,0x0800000900000040L,0x0000000800000400L});
public static final BitSet FOLLOW_data_stmt_constant_in_data_stmt_value8566 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_signed_real_literal_constant_in_data_stmt_value8579 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_signed_int_literal_constant_in_data_stmt_value8588 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_complex_literal_constant_in_data_stmt_value8597 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_logical_literal_constant_in_data_stmt_value8606 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_char_literal_constant_in_data_stmt_value8615 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_boz_literal_constant_in_data_stmt_value8624 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_structure_constructor_in_data_stmt_value8633 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_hollerith_literal_constant_in_data_stmt_value8649 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_stmt_value_in_data_stmt_value_list8678 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_data_stmt_value_list8684 = new BitSet(new long[]{0x0000040000004420L,0x0008000000000008L,0x0800000900000060L,0x0000000800000400L});
public static final BitSet FOLLOW_data_stmt_value_in_data_stmt_value_list8686 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_int_constant_in_scalar_int_constant8726 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_designator_in_data_stmt_constant8781 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_signed_int_literal_constant_in_data_stmt_constant8786 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_signed_real_literal_constant_in_data_stmt_constant8796 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_complex_literal_constant_in_data_stmt_constant8801 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_logical_literal_constant_in_data_stmt_constant8806 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_char_literal_constant_in_data_stmt_constant8811 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_boz_literal_constant_in_data_stmt_constant8816 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_structure_constructor_in_data_stmt_constant8821 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_codimension_stmt8854 = new BitSet(new long[]{0x0000400000000000L});
public static final BitSet FOLLOW_T_CODIMENSION_in_codimension_stmt8867 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_codimension_stmt8871 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_codimension_decl_list_in_codimension_stmt8876 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_codimension_stmt8878 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_codimension_decl8916 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000001000000L});
public static final BitSet FOLLOW_T_LBRACKET_in_codimension_decl8918 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_coarray_spec_in_codimension_decl8920 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000080L});
public static final BitSet FOLLOW_T_RBRACKET_in_codimension_decl8922 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_codimension_decl_in_codimension_decl_list8969 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_codimension_decl_list8975 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_codimension_decl_in_codimension_decl_list8977 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_dimension_stmt9026 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000010L});
public static final BitSet FOLLOW_T_DIMENSION_in_dimension_stmt9032 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_dimension_stmt9036 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_dimension_decl_in_dimension_stmt9050 = new BitSet(new long[]{0x0002000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_T_COMMA_in_dimension_stmt9054 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_dimension_decl_in_dimension_stmt9056 = new BitSet(new long[]{0x0002000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_dimension_stmt9062 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_dimension_decl9086 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_dimension_decl9088 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_array_spec_in_dimension_decl9090 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_dimension_decl9092 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_intent_stmt9130 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000080000L});
public static final BitSet FOLLOW_T_INTENT_in_intent_stmt9136 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_intent_stmt9138 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0010000000009000L});
public static final BitSet FOLLOW_intent_spec_in_intent_stmt9140 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_intent_stmt9142 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_intent_stmt9159 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_generic_name_list_in_intent_stmt9164 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_intent_stmt9166 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_optional_stmt9196 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0004000000000000L});
public static final BitSet FOLLOW_T_OPTIONAL_in_optional_stmt9202 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_optional_stmt9206 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_generic_name_list_in_optional_stmt9224 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_optional_stmt9226 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_parameter_stmt9256 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0020000000000000L});
public static final BitSet FOLLOW_T_PARAMETER_in_parameter_stmt9262 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_parameter_stmt9264 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_named_constant_def_list_in_parameter_stmt9279 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_parameter_stmt9281 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_parameter_stmt9283 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_named_constant_def_in_named_constant_def_list9313 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_named_constant_def_list9332 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_named_constant_def_in_named_constant_def_list9334 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_named_constant_def9366 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_named_constant_def9368 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_named_constant_def9370 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_pointer_stmt9408 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x1000000000000000L});
public static final BitSet FOLLOW_T_POINTER_in_pointer_stmt9414 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000100000040L});
public static final BitSet FOLLOW_cray_pointer_assoc_list_in_pointer_stmt9439 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_pointer_stmt9474 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_pointer_decl_list_in_pointer_stmt9479 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_pointer_stmt9492 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_pointer_decl_in_pointer_decl_list9541 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_pointer_decl_list9547 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_pointer_decl_in_pointer_decl_list9549 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_pointer_decl9596 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_pointer_decl9600 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_deferred_shape_spec_list_in_pointer_decl9602 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_pointer_decl9604 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_cray_pointer_assoc_in_cray_pointer_assoc_list9660 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_cray_pointer_assoc_list9666 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_cray_pointer_assoc_in_cray_pointer_assoc_list9668 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_cray_pointer_assoc9702 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_cray_pointer_assoc9706 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_cray_pointer_assoc9708 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_cray_pointer_assoc9712 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_cray_pointer_assoc9714 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_protected_stmt9751 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_T_PROTECTED_in_protected_stmt9757 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_protected_stmt9761 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_generic_name_list_in_protected_stmt9779 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_protected_stmt9781 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_save_stmt9811 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000010000L});
public static final BitSet FOLLOW_T_SAVE_in_save_stmt9817 = new BitSet(new long[]{0x0001000000000000L,0x0000008000000000L,0x0000000000000040L,0x0000000000200000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_save_stmt9823 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L,0x0000000000200000L});
public static final BitSet FOLLOW_saved_entity_list_in_save_stmt9841 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_save_stmt9847 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_saved_entity9874 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_SLASH_in_saved_entity9884 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_saved_entity9888 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_SLASH_in_saved_entity9890 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_saved_entity_in_saved_entity_list9921 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_saved_entity_list9927 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L,0x0000000000200000L});
public static final BitSet FOLLOW_saved_entity_in_saved_entity_list9929 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_target_stmt9977 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000040000000L});
public static final BitSet FOLLOW_T_TARGET_in_target_stmt9990 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_target_stmt9994 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_target_decl_list_in_target_stmt9999 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_target_stmt10001 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_target_decl10033 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000101000000L});
public static final BitSet FOLLOW_T_LPAREN_in_target_decl10036 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_array_spec_in_target_decl10038 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_target_decl10040 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000001000000L});
public static final BitSet FOLLOW_T_LBRACKET_in_target_decl10063 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_coarray_spec_in_target_decl10065 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000080L});
public static final BitSet FOLLOW_T_RBRACKET_in_target_decl10067 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_target_decl_in_target_decl_list10119 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_target_decl_list10125 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_target_decl_in_target_decl_list10127 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_value_stmt10170 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_VALUE_in_value_stmt10176 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_value_stmt10180 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_generic_name_list_in_value_stmt10198 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_value_stmt10200 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_volatile_stmt10231 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000040000000000L});
public static final BitSet FOLLOW_T_VOLATILE_in_volatile_stmt10237 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_volatile_stmt10241 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_generic_name_list_in_volatile_stmt10259 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_volatile_stmt10261 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_implicit_stmt10291 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000400L});
public static final BitSet FOLLOW_T_IMPLICIT_in_implicit_stmt10297 = new BitSet(new long[]{0x0008120000000000L,0x00000000000001C0L,0x0000000080040000L,0x0000001000000200L});
public static final BitSet FOLLOW_implicit_spec_list_in_implicit_stmt10299 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_implicit_stmt10301 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_implicit_stmt10313 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000400L});
public static final BitSet FOLLOW_T_IMPLICIT_in_implicit_stmt10319 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000010000000000L});
public static final BitSet FOLLOW_T_NONE_in_implicit_stmt10321 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_implicit_stmt10323 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_declaration_type_spec_in_implicit_spec10341 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_implicit_spec10343 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_letter_spec_list_in_implicit_spec10345 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_implicit_spec10347 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_implicit_spec_in_implicit_spec_list10382 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_implicit_spec_list10388 = new BitSet(new long[]{0x0008120000000000L,0x00000000000001C0L,0x0000000080040000L,0x0000001000000200L});
public static final BitSet FOLLOW_implicit_spec_in_implicit_spec_list10390 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_letter_spec10429 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000800000000L});
public static final BitSet FOLLOW_T_MINUS_in_letter_spec10433 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_letter_spec10437 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_letter_spec_in_letter_spec_list10479 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_letter_spec_list10485 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_letter_spec_in_letter_spec_list10487 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_namelist_stmt10531 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000002000000000L});
public static final BitSet FOLLOW_T_NAMELIST_in_namelist_stmt10537 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_SLASH_in_namelist_stmt10539 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_namelist_stmt10543 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_SLASH_in_namelist_stmt10545 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_namelist_group_object_list_in_namelist_stmt10557 = new BitSet(new long[]{0x0002000000000000L,0x0000008000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_COMMA_in_namelist_stmt10565 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_SLASH_in_namelist_stmt10571 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_namelist_stmt10575 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_SLASH_in_namelist_stmt10577 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_namelist_group_object_list_in_namelist_stmt10586 = new BitSet(new long[]{0x0002000000000000L,0x0000008000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_end_of_stmt_in_namelist_stmt10592 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_namelist_group_object_list10630 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_namelist_group_object_list10642 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_namelist_group_object_list10646 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_equivalence_stmt10699 = new BitSet(new long[]{0x0000000000000000L,0x0000040000000000L});
public static final BitSet FOLLOW_T_EQUIVALENCE_in_equivalence_stmt10705 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_equivalence_set_list_in_equivalence_stmt10707 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_equivalence_stmt10722 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_equivalence_set10739 = new BitSet(new long[]{0x0000040000000000L,0x0000000000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_equivalence_object_in_equivalence_set10741 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_equivalence_set10743 = new BitSet(new long[]{0x0000040000000000L,0x0000000000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_equivalence_object_list_in_equivalence_set10745 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_equivalence_set10747 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_equivalence_set_in_equivalence_set_list10783 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_equivalence_set_list10789 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_equivalence_set_in_equivalence_set_list10791 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_substring_in_equivalence_object10825 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_equivalence_object_in_equivalence_object_list10852 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_equivalence_object_list10871 = new BitSet(new long[]{0x0000040000000000L,0x0000000000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_equivalence_object_in_equivalence_object_list10873 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_common_stmt10919 = new BitSet(new long[]{0x0004000000000000L});
public static final BitSet FOLLOW_T_COMMON_in_common_stmt10928 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L,0x0000000000A00000L});
public static final BitSet FOLLOW_common_block_name_in_common_stmt10934 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_common_block_object_list_in_common_stmt10946 = new BitSet(new long[]{0x0002000000000000L,0x0000008000000000L,0x0000000000000000L,0x0000000000A00000L});
public static final BitSet FOLLOW_T_COMMA_in_common_stmt10954 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000A00000L});
public static final BitSet FOLLOW_common_block_name_in_common_stmt10961 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_common_block_object_list_in_common_stmt10970 = new BitSet(new long[]{0x0002000000000000L,0x0000008000000000L,0x0000000000000000L,0x0000000000A00000L});
public static final BitSet FOLLOW_end_of_stmt_in_common_stmt10977 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_SLASH_SLASH_in_common_block_name11001 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_SLASH_in_common_block_name11008 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L,0x0000000000200000L});
public static final BitSet FOLLOW_T_IDENT_in_common_block_name11011 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_SLASH_in_common_block_name11015 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_common_block_object11038 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_common_block_object11042 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_explicit_shape_spec_list_in_common_block_object11044 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_common_block_object11046 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_common_block_object_in_common_block_object_list11096 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_common_block_object_list11115 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_common_block_object_in_common_block_object_list11117 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_designator_in_variable11171 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_ref_in_designator11200 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_designator11203 = new BitSet(new long[]{0x0000840000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_substring_range_in_designator11205 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_designator11209 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_char_literal_constant_in_designator11221 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_designator11223 = new BitSet(new long[]{0x0000840000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_substring_range_in_designator11225 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_designator11227 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_ref_in_designator_or_func_ref11262 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_designator_or_func_ref11265 = new BitSet(new long[]{0x0000840080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_substring_range_or_arg_list_in_designator_or_func_ref11267 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_designator_or_func_ref11282 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_char_literal_constant_in_designator_or_func_ref11294 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_designator_or_func_ref11296 = new BitSet(new long[]{0x0000840000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_substring_range_in_designator_or_func_ref11298 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_designator_or_func_ref11300 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_COLON_in_substring_range_or_arg_list11330 = new BitSet(new long[]{0x0000040000004422L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_substring_range_or_arg_list11333 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_substring_range_or_arg_list11353 = new BitSet(new long[]{0x0002800000000000L});
public static final BitSet FOLLOW_substr_range_or_arg_list_suffix_in_substring_range_or_arg_list11355 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_substring_range_or_arg_list11370 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_substring_range_or_arg_list11372 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_substring_range_or_arg_list11374 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_substring_range_or_arg_list11385 = new BitSet(new long[]{0x0000040080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_actual_arg_spec_in_substring_range_or_arg_list11387 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_substring_range_or_arg_list11409 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_substring_range_or_arg_list11411 = new BitSet(new long[]{0x0000000080000000L});
public static final BitSet FOLLOW_T_ASTERISK_in_substring_range_or_arg_list11418 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_label_in_substring_range_or_arg_list11420 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_substring_range_or_arg_list11431 = new BitSet(new long[]{0x0000040080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_actual_arg_spec_in_substring_range_or_arg_list11433 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COLON_in_substr_range_or_arg_list_suffix11472 = new BitSet(new long[]{0x0000040000004422L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_substr_range_or_arg_list_suffix11475 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_substr_range_or_arg_list_suffix11499 = new BitSet(new long[]{0x0000040080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_actual_arg_spec_in_substr_range_or_arg_list_suffix11501 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_variable_in_logical_variable11524 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_variable_in_default_logical_variable11550 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_variable_in_scalar_default_logical_variable11575 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_variable_in_char_variable11601 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_variable_in_default_char_variable11627 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_variable_in_scalar_default_char_variable11652 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_variable_in_int_variable11678 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_ref_in_substring11712 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_substring11715 = new BitSet(new long[]{0x0000840000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_substring_range_in_substring11717 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_substring11721 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_char_literal_constant_in_substring11733 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_substring11735 = new BitSet(new long[]{0x0000840000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_substring_range_in_substring11737 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_substring11739 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_substring_range11769 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_substring_range11775 = new BitSet(new long[]{0x0000040000004422L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_substring_range11778 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_part_ref_in_data_ref11803 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0100000000000000L});
public static final BitSet FOLLOW_T_PERCENT_in_data_ref11809 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_part_ref_in_data_ref11811 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0100000000000000L});
public static final BitSet FOLLOW_expr_in_vector_subscript11900 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_allocate_stmt11944 = new BitSet(new long[]{0x0000000001000000L});
public static final BitSet FOLLOW_T_ALLOCATE_STMT_1_in_allocate_stmt11950 = new BitSet(new long[]{0x0000000000800000L});
public static final BitSet FOLLOW_T_ALLOCATE_in_allocate_stmt11952 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_allocate_stmt11954 = new BitSet(new long[]{0x0008020000000000L,0x00000000000001C0L,0x0000000080040040L,0x0000000000000200L});
public static final BitSet FOLLOW_type_spec_in_allocate_stmt11958 = new BitSet(new long[]{0x0001000000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_allocate_stmt11960 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_allocation_list_in_allocate_stmt11964 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_COMMA_in_allocate_stmt11971 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_alloc_opt_list_in_allocate_stmt11973 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_allocate_stmt11980 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_allocate_stmt11995 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_allocate_stmt12012 = new BitSet(new long[]{0x0000000000800000L});
public static final BitSet FOLLOW_T_ALLOCATE_in_allocate_stmt12018 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_allocate_stmt12020 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_allocation_list_in_allocate_stmt12027 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_COMMA_in_allocate_stmt12036 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_alloc_opt_list_in_allocate_stmt12038 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_allocate_stmt12045 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_allocate_stmt12060 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_alloc_opt12085 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_alloc_opt12087 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_alloc_opt12089 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_alloc_opt_in_alloc_opt_list12133 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_alloc_opt_list12139 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_alloc_opt_in_alloc_opt_list12141 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_allocation_in_allocation_list12231 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_allocation_list12237 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_allocation_in_allocation_list12239 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_allocate_object_in_allocate_object_list12322 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_allocate_object_list12328 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_allocate_object_in_allocate_object_list12330 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_expr_in_allocate_shape_spec12366 = new BitSet(new long[]{0x0000800000000002L});
public static final BitSet FOLLOW_T_COLON_in_allocate_shape_spec12369 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_allocate_shape_spec12371 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_allocate_shape_spec_in_allocate_shape_spec_list12409 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_allocate_shape_spec_list12428 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_allocate_shape_spec_in_allocate_shape_spec_list12430 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_expr_in_allocate_coshape_spec12488 = new BitSet(new long[]{0x0000800000000002L});
public static final BitSet FOLLOW_T_COLON_in_allocate_coshape_spec12492 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_allocate_coshape_spec12494 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_allocate_coshape_spec_in_allocate_coshape_spec_list12545 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_allocate_coshape_spec_list12551 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_allocate_coshape_spec_in_allocate_coshape_spec_list12553 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_nullify_stmt12597 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000400000000000L});
public static final BitSet FOLLOW_T_NULLIFY_in_nullify_stmt12605 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_nullify_stmt12607 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_pointer_object_list_in_nullify_stmt12609 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_nullify_stmt12611 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_nullify_stmt12613 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_ref_in_pointer_object12633 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_pointer_object_in_pointer_object_list12672 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_pointer_object_list12678 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_pointer_object_in_pointer_object_list12680 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_deallocate_stmt12726 = new BitSet(new long[]{0x8000000000000000L});
public static final BitSet FOLLOW_T_DEALLOCATE_in_deallocate_stmt12732 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_deallocate_stmt12734 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_allocate_object_list_in_deallocate_stmt12736 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_COMMA_in_deallocate_stmt12753 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_dealloc_opt_list_in_deallocate_stmt12755 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_deallocate_stmt12774 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_deallocate_stmt12776 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_dealloc_opt12797 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_dealloc_opt12801 = new BitSet(new long[]{0x0000040000000000L,0x0000000000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_designator_in_dealloc_opt12803 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_dealloc_opt_in_dealloc_opt_list12842 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_dealloc_opt_list12848 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_dealloc_opt_in_dealloc_opt_list12850 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_designator_or_func_ref_in_primary12909 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_literal_constant_in_primary12914 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_array_constructor_in_primary12919 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_structure_constructor_in_primary12924 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_primary12929 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_primary12931 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_primary12933 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_defined_unary_op_in_level_1_expr12954 = new BitSet(new long[]{0x0000040000004420L,0x0008000000000008L,0x0000000101000060L,0x0000000800000400L});
public static final BitSet FOLLOW_primary_in_level_1_expr12960 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DEFINED_OP_in_defined_unary_op12987 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_level_1_expr_in_power_operand13019 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x2000000000000000L});
public static final BitSet FOLLOW_power_op_in_power_operand13022 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0000000101000060L,0x0000000800000400L});
public static final BitSet FOLLOW_power_operand_in_power_operand13024 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_power_operand_in_mult_operand13056 = new BitSet(new long[]{0x0000000080000002L,0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_mult_op_in_mult_operand13059 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0000000101000060L,0x0000000800000400L});
public static final BitSet FOLLOW_power_operand_in_mult_operand13061 = new BitSet(new long[]{0x0000000080000002L,0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_add_op_in_signed_operand13113 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0000000101000060L,0x0000000800000400L});
public static final BitSet FOLLOW_mult_operand_in_signed_operand13117 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_signed_operand_in_add_operand13159 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0800000800000000L});
public static final BitSet FOLLOW_add_op_in_add_operand13172 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0000000101000060L,0x0000000800000400L});
public static final BitSet FOLLOW_mult_operand_in_add_operand13174 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0800000800000000L});
public static final BitSet FOLLOW_add_operand_in_level_2_expr13225 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000000000000L,0x0000000000800000L});
public static final BitSet FOLLOW_concat_op_in_level_2_expr13229 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800000901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_add_operand_in_level_2_expr13231 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000000000000L,0x0000000000800000L});
public static final BitSet FOLLOW_T_POWER_in_power_op13262 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_mult_op13294 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_SLASH_in_mult_op13301 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_PLUS_in_add_op13320 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_MINUS_in_add_op13328 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_level_2_expr_in_level_3_expr13353 = new BitSet(new long[]{0x0000000000000002L,0x4000110000000000L,0x000000421A00001CL,0x0000000000400000L});
public static final BitSet FOLLOW_rel_op_in_level_3_expr13356 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800000901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_level_2_expr_in_level_3_expr13358 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_SLASH_SLASH_in_concat_op13389 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_EQ_in_rel_op13420 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_NE_in_rel_op13430 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LT_in_rel_op13440 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LE_in_rel_op13450 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_GT_in_rel_op13460 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_GE_in_rel_op13470 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_EQ_EQ_in_rel_op13480 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_SLASH_EQ_in_rel_op13490 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LESSTHAN_in_rel_op13499 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LESSTHAN_EQ_in_rel_op13508 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_GREATERTHAN_in_rel_op13516 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_GREATERTHAN_EQ_in_rel_op13524 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_not_op_in_and_operand13546 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800000901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_level_3_expr_in_and_operand13557 = new BitSet(new long[]{0x0000000002000002L});
public static final BitSet FOLLOW_and_op_in_and_operand13562 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_not_op_in_and_operand13567 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800000901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_level_3_expr_in_and_operand13573 = new BitSet(new long[]{0x0000000002000002L});
public static final BitSet FOLLOW_and_operand_in_or_operand13615 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0008000000000000L});
public static final BitSet FOLLOW_or_op_in_or_operand13618 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_and_operand_in_or_operand13620 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0008000000000000L});
public static final BitSet FOLLOW_or_operand_in_equiv_operand13658 = new BitSet(new long[]{0x0000000000000002L,0x0000080000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_equiv_op_in_equiv_operand13670 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_or_operand_in_equiv_operand13672 = new BitSet(new long[]{0x0000000000000002L,0x0000080000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_equiv_operand_in_level_5_expr13727 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000004L});
public static final BitSet FOLLOW_defined_binary_op_in_level_5_expr13730 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_equiv_operand_in_level_5_expr13732 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000004L});
public static final BitSet FOLLOW_T_NOT_in_not_op13776 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_AND_in_and_op13795 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_OR_in_or_op13813 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_EQV_in_equiv_op13831 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_NEQV_in_equiv_op13838 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_level_5_expr_in_expr13858 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DEFINED_OP_in_defined_binary_op13884 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_assignment_stmt13936 = new BitSet(new long[]{0x0000000020000000L});
public static final BitSet FOLLOW_T_ASSIGNMENT_STMT_in_assignment_stmt13942 = new BitSet(new long[]{0x0000040000000000L,0x0000000000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_variable_in_assignment_stmt13944 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_assignment_stmt13948 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_assignment_stmt13950 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_assignment_stmt13952 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_pointer_assignment_stmt13998 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000010L});
public static final BitSet FOLLOW_T_PTR_ASSIGNMENT_STMT_in_pointer_assignment_stmt14004 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_data_ref_in_pointer_assignment_stmt14006 = new BitSet(new long[]{0x0000000000000000L,0x0000200000000000L});
public static final BitSet FOLLOW_T_EQ_GT_in_pointer_assignment_stmt14008 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_pointer_assignment_stmt14023 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_pointer_assignment_stmt14025 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_pointer_assignment_stmt14039 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000010L});
public static final BitSet FOLLOW_T_PTR_ASSIGNMENT_STMT_in_pointer_assignment_stmt14045 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_data_ref_in_pointer_assignment_stmt14047 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_pointer_assignment_stmt14049 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_bounds_spec_list_in_pointer_assignment_stmt14064 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_pointer_assignment_stmt14066 = new BitSet(new long[]{0x0000000000000000L,0x0000200000000000L});
public static final BitSet FOLLOW_T_EQ_GT_in_pointer_assignment_stmt14068 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_pointer_assignment_stmt14070 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_pointer_assignment_stmt14072 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_pointer_assignment_stmt14086 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000010L});
public static final BitSet FOLLOW_T_PTR_ASSIGNMENT_STMT_in_pointer_assignment_stmt14092 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_data_ref_in_pointer_assignment_stmt14094 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_pointer_assignment_stmt14096 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_bounds_remapping_list_in_pointer_assignment_stmt14111 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_pointer_assignment_stmt14113 = new BitSet(new long[]{0x0000000000000000L,0x0000200000000000L});
public static final BitSet FOLLOW_T_EQ_GT_in_pointer_assignment_stmt14115 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_pointer_assignment_stmt14117 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_pointer_assignment_stmt14119 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_designator_in_data_pointer_object14142 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_bounds_spec14169 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_bounds_spec14171 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_bounds_spec_in_bounds_spec_list14210 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_bounds_spec_list14216 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_bounds_spec_in_bounds_spec_list14218 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_expr_in_bounds_remapping14250 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_bounds_remapping14252 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_bounds_remapping14254 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_bounds_remapping_in_bounds_remapping_list14293 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_bounds_remapping_list14299 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_bounds_remapping_in_bounds_remapping_list14301 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_designator_in_proc_pointer_object14338 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_where_stmt14390 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000400000000000L});
public static final BitSet FOLLOW_T_WHERE_STMT_in_where_stmt14396 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000100000000000L});
public static final BitSet FOLLOW_T_WHERE_in_where_stmt14398 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_where_stmt14402 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_where_stmt14404 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_where_stmt14406 = new BitSet(new long[]{0x0000000020000000L,0x0000000000000008L});
public static final BitSet FOLLOW_assignment_stmt_in_where_stmt14408 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_where_construct_stmt_in_where_construct14436 = new BitSet(new long[]{0x0000000020000000L,0x0000000200006808L,0x0000000000000040L,0x0000600000000000L});
public static final BitSet FOLLOW_where_body_construct_in_where_construct14440 = new BitSet(new long[]{0x0000000020000000L,0x0000000200006808L,0x0000000000000040L,0x0000600000000000L});
public static final BitSet FOLLOW_masked_elsewhere_stmt_in_where_construct14459 = new BitSet(new long[]{0x0000000020000000L,0x0000000200006808L,0x0000000000000040L,0x0000600000000000L});
public static final BitSet FOLLOW_where_body_construct_in_where_construct14463 = new BitSet(new long[]{0x0000000020000000L,0x0000000200006808L,0x0000000000000040L,0x0000600000000000L});
public static final BitSet FOLLOW_elsewhere_stmt_in_where_construct14530 = new BitSet(new long[]{0x0000000020000000L,0x0000000200004008L,0x0000000000000040L,0x0000600000000000L});
public static final BitSet FOLLOW_where_body_construct_in_where_construct14534 = new BitSet(new long[]{0x0000000020000000L,0x0000000200004008L,0x0000000000000040L,0x0000600000000000L});
public static final BitSet FOLLOW_end_where_stmt_in_where_construct14598 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_where_construct_stmt14643 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_where_construct_stmt14645 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000200000000000L});
public static final BitSet FOLLOW_T_WHERE_CONSTRUCT_STMT_in_where_construct_stmt14651 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000100000000000L});
public static final BitSet FOLLOW_T_WHERE_in_where_construct_stmt14653 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_where_construct_stmt14668 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_where_construct_stmt14670 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_where_construct_stmt14672 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_where_construct_stmt14674 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_assignment_stmt_in_where_body_construct14701 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_where_stmt_in_where_body_construct14706 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_where_construct_in_where_body_construct14711 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_masked_elsewhere_stmt14742 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000800L});
public static final BitSet FOLLOW_T_ELSE_in_masked_elsewhere_stmt14748 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000100000000000L});
public static final BitSet FOLLOW_T_WHERE_in_masked_elsewhere_stmt14750 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_masked_elsewhere_stmt14752 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_masked_elsewhere_stmt14754 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_masked_elsewhere_stmt14756 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_masked_elsewhere_stmt14773 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_masked_elsewhere_stmt14779 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_masked_elsewhere_stmt14791 = new BitSet(new long[]{0x0000000000000000L,0x0000000000002000L});
public static final BitSet FOLLOW_T_ELSEWHERE_in_masked_elsewhere_stmt14797 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_masked_elsewhere_stmt14799 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_masked_elsewhere_stmt14801 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_masked_elsewhere_stmt14803 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_masked_elsewhere_stmt14820 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_masked_elsewhere_stmt14826 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_elsewhere_stmt14855 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000800L});
public static final BitSet FOLLOW_T_ELSE_in_elsewhere_stmt14861 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000100000000000L});
public static final BitSet FOLLOW_T_WHERE_in_elsewhere_stmt14863 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_elsewhere_stmt14879 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_elsewhere_stmt14885 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_elsewhere_stmt14896 = new BitSet(new long[]{0x0000000000000000L,0x0000000000002000L});
public static final BitSet FOLLOW_T_ELSEWHERE_in_elsewhere_stmt14902 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_elsewhere_stmt14905 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_elsewhere_stmt14924 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_where_stmt14953 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_where_stmt14959 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000100000000000L});
public static final BitSet FOLLOW_T_WHERE_in_end_where_stmt14961 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_where_stmt14965 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_where_stmt14981 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_where_stmt14991 = new BitSet(new long[]{0x0000000000000000L,0x0000000200000000L});
public static final BitSet FOLLOW_T_ENDWHERE_in_end_where_stmt14997 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_where_stmt15001 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_where_stmt15017 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_forall_construct_stmt_in_forall_construct15038 = new BitSet(new long[]{0x0000000020000000L,0x0600000000404008L,0x0000000000000040L,0x0000600000000010L});
public static final BitSet FOLLOW_forall_body_construct_in_forall_construct15044 = new BitSet(new long[]{0x0000000020000000L,0x0600000000404008L,0x0000000000000040L,0x0000600000000010L});
public static final BitSet FOLLOW_end_forall_stmt_in_forall_construct15051 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_forall_construct_stmt15080 = new BitSet(new long[]{0x0000000000000000L,0x0200000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_forall_construct_stmt15088 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_forall_construct_stmt15090 = new BitSet(new long[]{0x0000000000000000L,0x0200000000000000L});
public static final BitSet FOLLOW_T_FORALL_CONSTRUCT_STMT_in_forall_construct_stmt15109 = new BitSet(new long[]{0x0000000000000000L,0x0100000000000000L});
public static final BitSet FOLLOW_T_FORALL_in_forall_construct_stmt15111 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_forall_header_in_forall_construct_stmt15126 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_forall_construct_stmt15128 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_forall_header15158 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_forall_triplet_spec_list_in_forall_header15160 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_COMMA_in_forall_header15164 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_forall_header15166 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_forall_header15171 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_forall_triplet_spec15195 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_forall_triplet_spec15197 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_forall_triplet_spec15199 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_forall_triplet_spec15201 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_forall_triplet_spec15203 = new BitSet(new long[]{0x0000800000000002L});
public static final BitSet FOLLOW_T_COLON_in_forall_triplet_spec15207 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_forall_triplet_spec15209 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_forall_triplet_spec_in_forall_triplet_spec_list15247 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_forall_triplet_spec_list15266 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_forall_triplet_spec_in_forall_triplet_spec_list15268 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_forall_assignment_stmt_in_forall_body_construct15303 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_where_stmt_in_forall_body_construct15308 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_where_construct_in_forall_body_construct15313 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_forall_construct_in_forall_body_construct15318 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_forall_stmt_in_forall_body_construct15323 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_assignment_stmt_in_forall_assignment_stmt15339 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_pointer_assignment_stmt_in_forall_assignment_stmt15349 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_forall_stmt15376 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_forall_stmt15382 = new BitSet(new long[]{0x0000000000000000L,0x0100000000000000L});
public static final BitSet FOLLOW_T_FORALL_in_end_forall_stmt15384 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_forall_stmt15388 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_forall_stmt15403 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_forall_stmt15413 = new BitSet(new long[]{0x0000000000000000L,0x0000000000400000L});
public static final BitSet FOLLOW_T_ENDFORALL_in_end_forall_stmt15419 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_forall_stmt15423 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_forall_stmt15438 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_forall_stmt15465 = new BitSet(new long[]{0x0000000000000000L,0x0400000000000000L});
public static final BitSet FOLLOW_T_FORALL_STMT_in_forall_stmt15471 = new BitSet(new long[]{0x0000000000000000L,0x0100000000000000L});
public static final BitSet FOLLOW_T_FORALL_in_forall_stmt15473 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_forall_header_in_forall_stmt15477 = new BitSet(new long[]{0x0000000020000000L,0x0000000000000008L,0x0000000000000000L,0x0000000000000010L});
public static final BitSet FOLLOW_forall_assignment_stmt_in_forall_stmt15481 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_execution_part_construct_in_block15510 = new BitSet(new long[]{0xB88020A46D800002L,0x0E81400800204028L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_if_then_stmt_in_if_construct15535 = new BitSet(new long[]{0xB88020A46D800000L,0x0E81400801205828L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_block_in_if_construct15537 = new BitSet(new long[]{0x0000000000000000L,0x0000000001005808L});
public static final BitSet FOLLOW_else_if_stmt_in_if_construct15541 = new BitSet(new long[]{0xB88020A46D800000L,0x0E81400801205828L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_block_in_if_construct15543 = new BitSet(new long[]{0x0000000000000000L,0x0000000001005808L});
public static final BitSet FOLLOW_else_stmt_in_if_construct15550 = new BitSet(new long[]{0xB88020A46D800000L,0x0E81400801204028L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_block_in_if_construct15552 = new BitSet(new long[]{0x0000000000000000L,0x0000000001004008L});
public static final BitSet FOLLOW_end_if_stmt_in_if_construct15570 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_if_then_stmt15599 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x00000000000000C0L});
public static final BitSet FOLLOW_T_IDENT_in_if_then_stmt15607 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_if_then_stmt15609 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000080L});
public static final BitSet FOLLOW_T_IF_in_if_then_stmt15616 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_if_then_stmt15631 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_if_then_stmt15633 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_if_then_stmt15635 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_THEN_in_if_then_stmt15637 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_if_then_stmt15639 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_else_if_stmt15670 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000800L});
public static final BitSet FOLLOW_T_ELSE_in_else_if_stmt15676 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000080L});
public static final BitSet FOLLOW_T_IF_in_else_if_stmt15678 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_else_if_stmt15688 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_else_if_stmt15690 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_else_if_stmt15692 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_THEN_in_else_if_stmt15694 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_else_if_stmt15698 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_else_if_stmt15705 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_else_if_stmt15716 = new BitSet(new long[]{0x0000000000000000L,0x0000000000001000L});
public static final BitSet FOLLOW_T_ELSEIF_in_else_if_stmt15722 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_else_if_stmt15732 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_else_if_stmt15734 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_else_if_stmt15736 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_THEN_in_else_if_stmt15738 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_else_if_stmt15742 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_else_if_stmt15749 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_else_stmt15776 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000800L});
public static final BitSet FOLLOW_T_ELSE_in_else_stmt15782 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_else_stmt15786 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_else_stmt15806 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_if_stmt15833 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_if_stmt15839 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000080L});
public static final BitSet FOLLOW_T_IF_in_end_if_stmt15841 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_if_stmt15845 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_if_stmt15861 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_if_stmt15872 = new BitSet(new long[]{0x0000000000000000L,0x0000000001000000L});
public static final BitSet FOLLOW_T_ENDIF_in_end_if_stmt15878 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_if_stmt15885 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_if_stmt15905 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_if_stmt15934 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000100L});
public static final BitSet FOLLOW_T_IF_STMT_in_if_stmt15940 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000080L});
public static final BitSet FOLLOW_T_IF_in_if_stmt15942 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_if_stmt15944 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_if_stmt15946 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_if_stmt15948 = new BitSet(new long[]{0x908020842D800000L,0x0481400000204008L,0x8081400020030103L,0x0004488024006110L});
public static final BitSet FOLLOW_action_stmt_in_if_stmt15954 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_block_stmt_in_block_construct15985 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03709C3L,0x00046D90640F633BL});
public static final BitSet FOLLOW_specification_part_and_block_in_block_construct15996 = new BitSet(new long[]{0x0000000000000000L,0x0000000000014008L});
public static final BitSet FOLLOW_end_block_stmt_in_block_construct16005 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_use_stmt_in_specification_part_and_block16028 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03709C3L,0x00046D90640F633BL});
public static final BitSet FOLLOW_import_stmt_in_specification_part_and_block16044 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03709C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_specification_part_and_block16058 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_entry_stmt_in_declaration_construct_and_block16108 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16116 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_enum_def_in_declaration_construct_and_block16142 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16152 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_format_stmt_in_declaration_construct_and_block16176 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16183 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_interface_block_in_declaration_construct_and_block16204 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16207 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_parameter_stmt_in_declaration_construct_and_block16228 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16232 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_procedure_declaration_stmt_in_declaration_construct_and_block16253 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16306 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_derived_type_def_in_declaration_construct_and_block16325 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16327 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_type_declaration_stmt_in_declaration_construct_and_block16342 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16344 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_access_stmt_in_declaration_construct_and_block16373 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16381 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_allocatable_stmt_in_declaration_construct_and_block16402 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16405 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_asynchronous_stmt_in_declaration_construct_and_block16425 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16427 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_bind_stmt_in_declaration_construct_and_block16455 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16465 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_codimension_stmt_in_declaration_construct_and_block16486 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16489 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_stmt_in_declaration_construct_and_block16517 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16527 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_dimension_stmt_in_declaration_construct_and_block16550 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16555 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_external_stmt_in_declaration_construct_and_block16579 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16585 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_intrinsic_stmt_in_declaration_construct_and_block16608 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16613 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_pointer_stmt_in_declaration_construct_and_block16638 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16645 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_protected_stmt_in_declaration_construct_and_block16668 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16673 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_save_stmt_in_declaration_construct_and_block16701 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16711 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_target_stmt_in_declaration_construct_and_block16737 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16745 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_volatile_stmt_in_declaration_construct_and_block16769 = new BitSet(new long[]{0xB88872B56DC80000L,0x0E854018002041F8L,0x90A14000A03701C3L,0x00046C90640F633BL});
public static final BitSet FOLLOW_declaration_construct_and_block_in_declaration_construct_and_block16775 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_block_in_declaration_construct_and_block16784 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_block_stmt16819 = new BitSet(new long[]{0x0000002000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_block_stmt16833 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_block_stmt16835 = new BitSet(new long[]{0x0000002000000000L});
public static final BitSet FOLLOW_T_BLOCK_in_block_stmt16848 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_block_stmt16850 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_block_stmt16896 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_block_stmt16909 = new BitSet(new long[]{0x0000002000000000L});
public static final BitSet FOLLOW_T_BLOCK_in_end_block_stmt16911 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_block_stmt16914 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_block_stmt16920 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_block_stmt16943 = new BitSet(new long[]{0x0000000000000000L,0x0000000000010000L});
public static final BitSet FOLLOW_T_ENDBLOCK_in_end_block_stmt16956 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_block_stmt16959 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_block_stmt16965 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_critical_stmt_in_critical_construct17001 = new BitSet(new long[]{0xB88020A46D800000L,0x0E81400800204028L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_block_in_critical_construct17003 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004008L});
public static final BitSet FOLLOW_end_critical_stmt_in_critical_construct17005 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_critical_stmt17051 = new BitSet(new long[]{0x0800000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_critical_stmt17065 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_critical_stmt17067 = new BitSet(new long[]{0x0800000000000000L});
public static final BitSet FOLLOW_T_CRITICAL_in_critical_stmt17080 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_critical_stmt17082 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_critical_stmt17128 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_critical_stmt17141 = new BitSet(new long[]{0x0800000000000000L});
public static final BitSet FOLLOW_T_CRITICAL_in_end_critical_stmt17143 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_critical_stmt17146 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_critical_stmt17152 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_select_case_stmt_in_case_construct17190 = new BitSet(new long[]{0x0000010000000000L,0x0000000020004008L});
public static final BitSet FOLLOW_case_stmt_in_case_construct17194 = new BitSet(new long[]{0xB88021A46D800000L,0x0E81400820204028L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_block_in_case_construct17196 = new BitSet(new long[]{0x0000010000000000L,0x0000000020004008L});
public static final BitSet FOLLOW_end_select_stmt_in_case_construct17201 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_select_case_stmt17233 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L,0x0000000000060000L});
public static final BitSet FOLLOW_T_IDENT_in_select_case_stmt17241 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_select_case_stmt17243 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000060000L});
public static final BitSet FOLLOW_T_SELECT_in_select_case_stmt17258 = new BitSet(new long[]{0x0000010000000000L});
public static final BitSet FOLLOW_T_CASE_in_select_case_stmt17260 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_SELECTCASE_in_select_case_stmt17279 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_select_case_stmt17297 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_select_case_stmt17299 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_select_case_stmt17301 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_select_case_stmt17303 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_case_stmt17333 = new BitSet(new long[]{0x0000010000000000L});
public static final BitSet FOLLOW_T_CASE_in_case_stmt17339 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000001L,0x0000000100000000L});
public static final BitSet FOLLOW_case_selector_in_case_stmt17341 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_case_stmt17351 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_case_stmt17357 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_select_stmt17384 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_select_stmt17390 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000020000L});
public static final BitSet FOLLOW_T_SELECT_in_end_select_stmt17392 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_select_stmt17395 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_select_stmt17410 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_select_stmt17421 = new BitSet(new long[]{0x0000000000000000L,0x0000000020000000L});
public static final BitSet FOLLOW_T_ENDSELECT_in_end_select_stmt17427 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_select_stmt17433 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_select_stmt17448 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_case_selector17470 = new BitSet(new long[]{0x0000840000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_case_value_range_list_in_case_selector17474 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_case_selector17478 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DEFAULT_in_case_selector17497 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_COLON_in_case_value_range17528 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_case_value_in_case_value_range17530 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_case_value_in_case_value_range17535 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_case_value_range_suffix_in_case_value_range17537 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_COLON_in_case_value_range_suffix17553 = new BitSet(new long[]{0x0000040000004422L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_case_value_in_case_value_range_suffix17557 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_case_value_range_in_case_value_range_list17590 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_case_value_range_list17596 = new BitSet(new long[]{0x0000840000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_case_value_range_in_case_value_range_list17598 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_expr_in_case_value17630 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_associate_stmt_in_associate_construct17656 = new BitSet(new long[]{0xB88020A46D800000L,0x0E8140080020C028L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_block_in_associate_construct17660 = new BitSet(new long[]{0x0000000000000000L,0x000000000000C008L});
public static final BitSet FOLLOW_end_associate_stmt_in_associate_construct17664 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_associate_stmt17705 = new BitSet(new long[]{0x0000000040000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_associate_stmt17713 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_associate_stmt17715 = new BitSet(new long[]{0x0000000040000000L});
public static final BitSet FOLLOW_T_ASSOCIATE_in_associate_stmt17734 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_associate_stmt17736 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_association_list_in_associate_stmt17738 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_associate_stmt17740 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_associate_stmt17742 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_association_in_association_list17775 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_association_list17781 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_association_in_association_list17783 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_loop_control17831 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_do_variable_in_loop_control17836 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_loop_control17838 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_loop_control17840 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_loop_control17842 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_loop_control17844 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_loop_control17855 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_loop_control17857 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_loop_control17885 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000800000000000L});
public static final BitSet FOLLOW_T_WHILE_in_loop_control17890 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_loop_control17892 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_loop_control17894 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_loop_control17896 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_loop_control17921 = new BitSet(new long[]{0x0010000000000000L});
public static final BitSet FOLLOW_T_CONCURRENT_in_loop_control17926 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_forall_header_in_loop_control17928 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_association17956 = new BitSet(new long[]{0x0000000000000000L,0x0000200000000000L});
public static final BitSet FOLLOW_T_EQ_GT_in_association17958 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_selector_in_association17960 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_selector17987 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_associate_stmt18025 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_associate_stmt18031 = new BitSet(new long[]{0x0000000040000000L});
public static final BitSet FOLLOW_T_ASSOCIATE_in_end_associate_stmt18033 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_associate_stmt18049 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_associate_stmt18055 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_associate_stmt18068 = new BitSet(new long[]{0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_ENDASSOCIATE_in_end_associate_stmt18074 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_associate_stmt18091 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_associate_stmt18097 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_select_type_stmt_in_select_type_construct18119 = new BitSet(new long[]{0x0000100000000000L,0x0000000020004008L,0x0000000000000000L,0x0000001000000000L});
public static final BitSet FOLLOW_type_guard_stmt_in_select_type_construct18123 = new BitSet(new long[]{0xB88030A46D800000L,0x0E81400820204028L,0x80814000200301C3L,0x00046890240E6110L});
public static final BitSet FOLLOW_block_in_select_type_construct18125 = new BitSet(new long[]{0x0000100000000000L,0x0000000020004008L,0x0000000000000000L,0x0000001000000000L});
public static final BitSet FOLLOW_end_select_type_stmt_in_select_type_construct18130 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_select_type_stmt18173 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L,0x00000000000A0000L});
public static final BitSet FOLLOW_T_IDENT_in_select_type_stmt18185 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_select_type_stmt18187 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x00000000000A0000L});
public static final BitSet FOLLOW_select_type_in_select_type_stmt18193 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_select_type_stmt18203 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_T_IDENT_in_select_type_stmt18209 = new BitSet(new long[]{0x0000000000000000L,0x0000200000000000L});
public static final BitSet FOLLOW_T_EQ_GT_in_select_type_stmt18211 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_selector_in_select_type_stmt18220 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_select_type_stmt18222 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_select_type_stmt18224 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_SELECT_in_select_type18246 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000001000000000L});
public static final BitSet FOLLOW_T_TYPE_in_select_type18248 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_SELECTTYPE_in_select_type18258 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_type_guard_stmt18291 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000001000000000L});
public static final BitSet FOLLOW_T_TYPE_in_type_guard_stmt18297 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_type_guard_stmt18301 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_type_guard_stmt18316 = new BitSet(new long[]{0x0008020000000000L,0x00000000000001C0L,0x0000000080040040L,0x0000000000000200L});
public static final BitSet FOLLOW_type_spec_in_type_guard_stmt18318 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_type_guard_stmt18320 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_type_guard_stmt18332 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_type_guard_stmt18338 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_type_guard_stmt18349 = new BitSet(new long[]{0x0000100000000000L});
public static final BitSet FOLLOW_T_CLASS_in_type_guard_stmt18355 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_type_guard_stmt18359 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_type_guard_stmt18374 = new BitSet(new long[]{0x0008020000000000L,0x00000000000001C0L,0x0000000080040040L,0x0000000000000200L});
public static final BitSet FOLLOW_type_spec_in_type_guard_stmt18376 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_type_guard_stmt18378 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_type_guard_stmt18390 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_type_guard_stmt18396 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_type_guard_stmt18407 = new BitSet(new long[]{0x0000100000000000L});
public static final BitSet FOLLOW_T_CLASS_in_type_guard_stmt18413 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000001L});
public static final BitSet FOLLOW_T_DEFAULT_in_type_guard_stmt18415 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_type_guard_stmt18423 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_type_guard_stmt18429 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_select_type_stmt18457 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_select_type_stmt18463 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000020000L});
public static final BitSet FOLLOW_T_SELECT_in_end_select_type_stmt18465 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_select_type_stmt18482 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_select_type_stmt18488 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_select_type_stmt18499 = new BitSet(new long[]{0x0000000000000000L,0x0000000020000000L});
public static final BitSet FOLLOW_T_ENDSELECT_in_end_select_type_stmt18505 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_select_type_stmt18525 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_select_type_stmt18531 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_block_do_construct_in_do_construct18550 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_do_stmt_in_block_do_construct18577 = new BitSet(new long[]{0xB88020A46D800000L,0x0E81400800284028L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_block_in_block_do_construct18581 = new BitSet(new long[]{0x0000000000000000L,0x0000000000084008L});
public static final BitSet FOLLOW_end_do_in_block_do_construct18585 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_do_stmt18622 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000020L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_do_stmt18630 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_do_stmt18632 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000020L});
public static final BitSet FOLLOW_T_DO_in_do_stmt18638 = new BitSet(new long[]{0x0012000000000000L,0x0000008000000008L,0x0000000000000040L,0x0000800000000000L});
public static final BitSet FOLLOW_T_DIGIT_STRING_in_do_stmt18646 = new BitSet(new long[]{0x0012000000000000L,0x0000008000000000L,0x0000000000000040L,0x0000800000000000L});
public static final BitSet FOLLOW_loop_control_in_do_stmt18658 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_do_stmt18664 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_label_do_stmt18694 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000020L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_label_do_stmt18702 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_label_do_stmt18704 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000020L});
public static final BitSet FOLLOW_T_DO_in_label_do_stmt18715 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_T_DIGIT_STRING_in_label_do_stmt18717 = new BitSet(new long[]{0x0012000000000000L,0x0000008000000000L,0x0000000000000040L,0x0000800000000000L});
public static final BitSet FOLLOW_loop_control_in_label_do_stmt18721 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_label_do_stmt18740 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_do_variable18761 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_end_do_stmt_in_end_do18799 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_do_term_action_stmt_in_end_do18804 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_do_stmt18827 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_do_stmt18833 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000020L});
public static final BitSet FOLLOW_T_DO_in_end_do_stmt18835 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_do_stmt18839 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_do_stmt18858 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_do_stmt18869 = new BitSet(new long[]{0x0000000000000000L,0x0000000000080000L});
public static final BitSet FOLLOW_T_ENDDO_in_end_do_stmt18875 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_do_stmt18882 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_do_stmt18901 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_do_term_action_stmt18974 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000800000L});
public static final BitSet FOLLOW_T_LABEL_DO_TERMINAL_in_do_term_action_stmt18976 = new BitSet(new long[]{0x908020842D800000L,0x0481400000284008L,0x8081400020030103L,0x0004488024006110L});
public static final BitSet FOLLOW_action_stmt_in_do_term_action_stmt18988 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_END_in_do_term_action_stmt18995 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000020L});
public static final BitSet FOLLOW_T_DO_in_do_term_action_stmt18997 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_ENDDO_in_do_term_action_stmt19030 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_do_term_action_stmt19053 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_do_term_action_stmt19060 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_cycle_stmt19111 = new BitSet(new long[]{0x1000000000000000L});
public static final BitSet FOLLOW_T_CYCLE_in_cycle_stmt19117 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_cycle_stmt19120 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_cycle_stmt19126 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_exit_stmt19154 = new BitSet(new long[]{0x0000000000000000L,0x0001000000000000L});
public static final BitSet FOLLOW_T_EXIT_in_exit_stmt19160 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_exit_stmt19163 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_exit_stmt19169 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_goto_stmt19200 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000003L});
public static final BitSet FOLLOW_T_GO_in_goto_stmt19217 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000200000000L});
public static final BitSet FOLLOW_T_TO_in_goto_stmt19219 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_T_GOTO_in_goto_stmt19235 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_T_DIGIT_STRING_in_goto_stmt19258 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_goto_stmt19262 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_computed_goto_stmt19299 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000003L});
public static final BitSet FOLLOW_T_GO_in_computed_goto_stmt19308 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000200000000L});
public static final BitSet FOLLOW_T_TO_in_computed_goto_stmt19310 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_GOTO_in_computed_goto_stmt19326 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_computed_goto_stmt19344 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_label_list_in_computed_goto_stmt19346 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_computed_goto_stmt19348 = new BitSet(new long[]{0x0002040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_T_COMMA_in_computed_goto_stmt19352 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_computed_goto_stmt19357 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_computed_goto_stmt19359 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_assign_stmt19389 = new BitSet(new long[]{0x0000000008000000L});
public static final BitSet FOLLOW_T_ASSIGN_in_assign_stmt19393 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_label_in_assign_stmt19397 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000200000000L});
public static final BitSet FOLLOW_T_TO_in_assign_stmt19399 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_name_in_assign_stmt19401 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_assign_stmt19403 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_assigned_goto_stmt19448 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000003L});
public static final BitSet FOLLOW_T_GOTO_in_assigned_goto_stmt19454 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_GO_in_assigned_goto_stmt19479 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000200000000L});
public static final BitSet FOLLOW_T_TO_in_assigned_goto_stmt19481 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_name_in_assigned_goto_stmt19500 = new BitSet(new long[]{0x0002000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_T_COMMA_in_assigned_goto_stmt19503 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_stmt_label_list_in_assigned_goto_stmt19505 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_assigned_goto_stmt19509 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_stmt_label_list19543 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_label_in_stmt_label_list19545 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_COMMA_in_stmt_label_list19549 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_label_in_stmt_label_list19551 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_stmt_label_list19556 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_pause_stmt19603 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0080000000000000L});
public static final BitSet FOLLOW_T_PAUSE_in_pause_stmt19607 = new BitSet(new long[]{0x0000040000000000L,0x0000008000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_label_in_pause_stmt19612 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_char_literal_constant_in_pause_stmt19636 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_pause_stmt19642 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_arithmetic_if_stmt19680 = new BitSet(new long[]{0x0000000004000000L});
public static final BitSet FOLLOW_T_ARITHMETIC_IF_STMT_in_arithmetic_if_stmt19684 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000080L});
public static final BitSet FOLLOW_T_IF_in_arithmetic_if_stmt19686 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_arithmetic_if_stmt19690 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_arithmetic_if_stmt19692 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_arithmetic_if_stmt19694 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_label_in_arithmetic_if_stmt19698 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_arithmetic_if_stmt19702 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_label_in_arithmetic_if_stmt19706 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_arithmetic_if_stmt19710 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_label_in_arithmetic_if_stmt19714 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_arithmetic_if_stmt19716 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_continue_stmt19746 = new BitSet(new long[]{0x0080000000000000L});
public static final BitSet FOLLOW_T_CONTINUE_in_continue_stmt19752 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_continue_stmt19754 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_stop_stmt19785 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000004000000L});
public static final BitSet FOLLOW_T_STOP_in_stop_stmt19791 = new BitSet(new long[]{0x0000040000000000L,0x0000008000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_stop_code_in_stop_stmt19794 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_stop_stmt19813 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_scalar_char_constant_in_stop_code19834 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DIGIT_STRING_in_stop_code19853 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_errorstop_stmt19895 = new BitSet(new long[]{0x0000000000000000L,0x0000400000000000L});
public static final BitSet FOLLOW_T_ERROR_in_errorstop_stmt19901 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000004000000L});
public static final BitSet FOLLOW_T_STOP_in_errorstop_stmt19903 = new BitSet(new long[]{0x0000040000000000L,0x0000008000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_stop_code_in_errorstop_stmt19906 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_errorstop_stmt19920 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_sync_all_stmt19966 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000020000000L});
public static final BitSet FOLLOW_T_SYNC_in_sync_all_stmt19972 = new BitSet(new long[]{0x0000000000200000L});
public static final BitSet FOLLOW_T_ALL_in_sync_all_stmt19974 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_sync_all_stmt19984 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_sync_all_stmt19986 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_sync_all_stmt19990 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_sync_all_stmt20015 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000020000000L});
public static final BitSet FOLLOW_T_SYNC_in_sync_all_stmt20021 = new BitSet(new long[]{0x0000000000200000L});
public static final BitSet FOLLOW_T_ALL_in_sync_all_stmt20023 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_sync_all_stmt20032 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_sync_stat_list_in_sync_all_stmt20034 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_sync_all_stmt20036 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_sync_all_stmt20038 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_sync_stat20080 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_sync_stat20082 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_sync_stat20084 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_sync_stat_in_sync_stat_list20153 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_sync_stat_list20159 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_sync_stat_in_sync_stat_list20161 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_sync_images_stmt20214 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000020000000L});
public static final BitSet FOLLOW_T_SYNC_in_sync_images_stmt20220 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000200L});
public static final BitSet FOLLOW_T_IMAGES_in_sync_images_stmt20222 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_sync_images_stmt20231 = new BitSet(new long[]{0x0000040080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_image_set_in_sync_images_stmt20233 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_COMMA_in_sync_images_stmt20236 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_sync_stat_list_in_sync_images_stmt20238 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_sync_images_stmt20244 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_sync_images_stmt20253 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_image_set20298 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_image_set20323 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_sync_memory_stmt20373 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000020000000L});
public static final BitSet FOLLOW_T_SYNC_in_sync_memory_stmt20379 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000400000000L});
public static final BitSet FOLLOW_T_MEMORY_in_sync_memory_stmt20381 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_sync_memory_stmt20391 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_sync_memory_stmt20393 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_sync_memory_stmt20397 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_sync_memory_stmt20422 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000020000000L});
public static final BitSet FOLLOW_T_SYNC_in_sync_memory_stmt20428 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000400000000L});
public static final BitSet FOLLOW_T_MEMORY_in_sync_memory_stmt20430 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_sync_memory_stmt20439 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_sync_stat_list_in_sync_memory_stmt20441 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_sync_memory_stmt20443 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_sync_memory_stmt20445 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_lock_stmt20498 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000020000000L});
public static final BitSet FOLLOW_T_LOCK_in_lock_stmt20504 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_lock_stmt20506 = new BitSet(new long[]{0x0000040000000000L,0x0000000000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_variable_in_lock_stmt20508 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_COMMA_in_lock_stmt20524 = new BitSet(new long[]{0x0000000000100000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_lock_stat_list_in_lock_stmt20526 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_lock_stmt20532 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_lock_stmt20547 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ACQUIRED_LOCK_in_lock_stat20589 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_lock_stat20591 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_lock_stat20593 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_sync_stat_in_lock_stat20618 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_lock_stat_in_lock_stat_list20654 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_lock_stat_list20660 = new BitSet(new long[]{0x0000000000100000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_lock_stat_in_lock_stat_list20662 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_unlock_stmt20717 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_T_UNLOCK_in_unlock_stmt20730 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_unlock_stmt20732 = new BitSet(new long[]{0x0000040000000000L,0x0000000000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_variable_in_unlock_stmt20734 = new BitSet(new long[]{0x0002000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_COMMA_in_unlock_stmt20737 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_sync_stat_list_in_unlock_stmt20739 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_unlock_stmt20761 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_unlock_stmt20763 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_char_constant_in_scalar_char_constant20795 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_io_unit20838 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_io_unit20843 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_file_unit_number20861 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_open_stmt20886 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0001000000000000L});
public static final BitSet FOLLOW_T_OPEN_in_open_stmt20892 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_open_stmt20894 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_connect_spec_list_in_open_stmt20896 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_open_stmt20911 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_open_stmt20913 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_connect_spec20934 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_connect_spec20956 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_connect_spec21024 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_connect_spec21026 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_connect_spec_in_connect_spec_list21068 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_connect_spec_list21074 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_connect_spec_in_connect_spec_list21076 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_close_stmt21123 = new BitSet(new long[]{0x0000200000000000L});
public static final BitSet FOLLOW_T_CLOSE_in_close_stmt21129 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_close_stmt21131 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_close_spec_list_in_close_stmt21133 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_close_stmt21148 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_close_stmt21150 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_close_spec21169 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_close_spec21188 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_close_spec21192 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_close_spec21194 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_close_spec_in_close_spec_list21233 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_close_spec_list21239 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_close_spec_in_close_spec_list21241 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_read_stmt21320 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000100L});
public static final BitSet FOLLOW_T_READ_in_read_stmt21326 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_read_stmt21328 = new BitSet(new long[]{0x0000040080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_io_control_spec_list_in_read_stmt21330 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_read_stmt21345 = new BitSet(new long[]{0x0000040000000000L,0x0000008000000008L,0x0000000100000040L});
public static final BitSet FOLLOW_input_item_list_in_read_stmt21349 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_read_stmt21355 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_read_stmt21396 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000100L});
public static final BitSet FOLLOW_T_READ_in_read_stmt21402 = new BitSet(new long[]{0x0000040080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_format_in_read_stmt21404 = new BitSet(new long[]{0x0002000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_T_COMMA_in_read_stmt21421 = new BitSet(new long[]{0x0000040000000000L,0x0000000000000008L,0x0000000100000040L});
public static final BitSet FOLLOW_input_item_list_in_read_stmt21423 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_read_stmt21429 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_write_stmt21459 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0004000000000000L});
public static final BitSet FOLLOW_T_WRITE_in_write_stmt21465 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_write_stmt21467 = new BitSet(new long[]{0x0000040080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_io_control_spec_list_in_write_stmt21469 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_write_stmt21484 = new BitSet(new long[]{0x0000040000004420L,0x000800800000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_output_item_list_in_write_stmt21488 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_write_stmt21494 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_print_stmt21527 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x8000000000000000L});
public static final BitSet FOLLOW_T_PRINT_in_print_stmt21533 = new BitSet(new long[]{0x0000040080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_format_in_print_stmt21535 = new BitSet(new long[]{0x0002000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_T_COMMA_in_print_stmt21552 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_output_item_list_in_print_stmt21554 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_print_stmt21560 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_io_control_spec21589 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_io_control_spec21631 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_io_control_spec21673 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_io_control_spec21677 = new BitSet(new long[]{0x0000000080000000L});
public static final BitSet FOLLOW_T_ASTERISK_in_io_control_spec21679 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_io_control_spec21721 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_io_control_spec21765 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_io_control_spec21767 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_io_control_spec_in_io_control_spec_list21826 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_io_control_spec_list21832 = new BitSet(new long[]{0x0000040080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_io_control_spec_in_io_control_spec_list21834 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_expr_in_format21871 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_format21876 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_variable_in_input_item21893 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_io_implied_do_in_input_item21898 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_input_item_in_input_item_list21923 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_input_item_list21929 = new BitSet(new long[]{0x0000040000000000L,0x0000000000000008L,0x0000000100000040L});
public static final BitSet FOLLOW_input_item_in_input_item_list21931 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_expr_in_output_item21973 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_io_implied_do_in_output_item21978 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_output_item_in_output_item_list22004 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_output_item_list22010 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_output_item_in_output_item_list22012 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_io_implied_do22042 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_io_implied_do_object_in_io_implied_do22044 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_io_implied_do_suffix_in_io_implied_do22046 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_io_implied_do22048 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_output_item_in_io_implied_do_object22075 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_io_implied_do_suffix22107 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_io_implied_do_object_in_io_implied_do_suffix22109 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_io_implied_do_suffix_in_io_implied_do_suffix22111 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_io_implied_do_suffix22116 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_io_implied_do_control_in_io_implied_do_suffix22118 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_do_variable_in_io_implied_do_control22138 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_io_implied_do_control22140 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_io_implied_do_control22142 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_io_implied_do_control22144 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_io_implied_do_control22146 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_io_implied_do_control22150 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_io_implied_do_control22152 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_TYPE_in_dtv_type_spec22186 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_dtv_type_spec22190 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_derived_type_spec_in_dtv_type_spec22194 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_dtv_type_spec22198 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_CLASS_in_dtv_type_spec22217 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_dtv_type_spec22221 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_derived_type_spec_in_dtv_type_spec22225 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_dtv_type_spec22229 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_wait_stmt22265 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000080000000000L});
public static final BitSet FOLLOW_T_WAIT_in_wait_stmt22271 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_wait_stmt22273 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_wait_spec_list_in_wait_stmt22275 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_wait_stmt22277 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_wait_stmt22292 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_wait_spec22311 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_wait_spec22330 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_wait_spec22347 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_wait_spec22349 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_wait_spec_in_wait_spec_list22389 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_wait_spec_list22395 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_wait_spec_in_wait_spec_list22397 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_backspace_stmt22470 = new BitSet(new long[]{0x0000000400000000L});
public static final BitSet FOLLOW_T_BACKSPACE_in_backspace_stmt22476 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_backspace_stmt22478 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_position_spec_list_in_backspace_stmt22480 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_backspace_stmt22495 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_backspace_stmt22497 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_backspace_stmt22532 = new BitSet(new long[]{0x0000000400000000L});
public static final BitSet FOLLOW_T_BACKSPACE_in_backspace_stmt22538 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_file_unit_number_in_backspace_stmt22540 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_backspace_stmt22542 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_endfile_stmt22604 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_endfile_stmt22610 = new BitSet(new long[]{0x0000000000000000L,0x0010000000000000L});
public static final BitSet FOLLOW_T_FILE_in_endfile_stmt22612 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_endfile_stmt22614 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_position_spec_list_in_endfile_stmt22616 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_endfile_stmt22631 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_endfile_stmt22633 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_endfile_stmt22670 = new BitSet(new long[]{0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_ENDFILE_in_endfile_stmt22676 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_endfile_stmt22678 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_position_spec_list_in_endfile_stmt22680 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_endfile_stmt22695 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_endfile_stmt22697 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_endfile_stmt22734 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_endfile_stmt22740 = new BitSet(new long[]{0x0000000000000000L,0x0010000000000000L});
public static final BitSet FOLLOW_T_FILE_in_endfile_stmt22742 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_file_unit_number_in_endfile_stmt22744 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_endfile_stmt22746 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_endfile_stmt22781 = new BitSet(new long[]{0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_ENDFILE_in_endfile_stmt22787 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_file_unit_number_in_endfile_stmt22789 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_endfile_stmt22791 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_rewind_stmt22851 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_REWIND_in_rewind_stmt22857 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_rewind_stmt22859 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_position_spec_list_in_rewind_stmt22861 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_rewind_stmt22876 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_rewind_stmt22878 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_rewind_stmt22913 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_REWIND_in_rewind_stmt22919 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_file_unit_number_in_rewind_stmt22921 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_rewind_stmt22923 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_position_spec22942 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_position_spec22961 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_position_spec22965 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_position_spec22967 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_position_spec_in_position_spec_list23009 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_position_spec_list23015 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_position_spec_in_position_spec_list23017 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_flush_stmt23091 = new BitSet(new long[]{0x0000000000000000L,0x0080000000000000L});
public static final BitSet FOLLOW_T_FLUSH_in_flush_stmt23097 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_flush_stmt23099 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_flush_spec_list_in_flush_stmt23101 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_flush_stmt23116 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_flush_stmt23118 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_flush_stmt23153 = new BitSet(new long[]{0x0000000000000000L,0x0080000000000000L});
public static final BitSet FOLLOW_T_FLUSH_in_flush_stmt23159 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_file_unit_number_in_flush_stmt23161 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_flush_stmt23163 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_flush_spec23182 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_flush_spec23201 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_flush_spec23205 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_flush_spec23207 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_flush_spec_in_flush_spec_list23249 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_flush_spec_list23255 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_flush_spec_in_flush_spec_list23257 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_inquire_stmt23297 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000010000L});
public static final BitSet FOLLOW_T_INQUIRE_in_inquire_stmt23303 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_inquire_stmt23305 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_inquire_spec_list_in_inquire_stmt23307 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_inquire_stmt23322 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_inquire_stmt23324 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_inquire_stmt23344 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000020000L});
public static final BitSet FOLLOW_T_INQUIRE_STMT_2_in_inquire_stmt23350 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000010000L});
public static final BitSet FOLLOW_T_INQUIRE_in_inquire_stmt23365 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_inquire_stmt23367 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_inquire_stmt23369 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_inquire_stmt23373 = new BitSet(new long[]{0x0000040000000000L,0x0000000000000008L,0x0000000000000040L});
public static final BitSet FOLLOW_scalar_int_variable_in_inquire_stmt23388 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_inquire_stmt23390 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_output_item_list_in_inquire_stmt23392 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_inquire_stmt23394 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_inquire_spec23416 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_inquire_spec23435 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_inquire_spec23450 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_inquire_spec23452 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_inquire_spec_in_inquire_spec_list23492 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_inquire_spec_list23498 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_inquire_spec_in_inquire_spec_list23500 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_format_stmt23545 = new BitSet(new long[]{0x0000000000000000L,0x0800000000000000L});
public static final BitSet FOLLOW_T_FORMAT_in_format_stmt23551 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_format_specification_in_format_stmt23553 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_format_stmt23555 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_LPAREN_in_format_specification23576 = new BitSet(new long[]{0x4100080000000000L,0x0000000000000008L,0x0000000100000000L,0x0000000000008000L});
public static final BitSet FOLLOW_format_item_list_in_format_specification23580 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_format_specification23586 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DATA_EDIT_DESC_in_format_item23615 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_CONTROL_EDIT_DESC_in_format_item23634 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_CHAR_STRING_EDIT_DESC_in_format_item23652 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DIGIT_STRING_in_format_item23671 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_format_item23678 = new BitSet(new long[]{0x4100080000000000L,0x0000000000000008L,0x0000000100000000L});
public static final BitSet FOLLOW_format_item_list_in_format_item23693 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_format_item23695 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_format_item_in_format_item_list23734 = new BitSet(new long[]{0x4102080000000002L,0x0000000000000008L,0x0000000100000000L});
public static final BitSet FOLLOW_T_COMMA_in_format_item_list23739 = new BitSet(new long[]{0x4100080000000000L,0x0000000000000008L,0x0000000100000000L});
public static final BitSet FOLLOW_format_item_in_format_item_list23743 = new BitSet(new long[]{0x4102080000000002L,0x0000000000000008L,0x0000000100000000L});
public static final BitSet FOLLOW_T_PLUS_in_v_list23844 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_T_MINUS_in_v_list23846 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_T_DIGIT_STRING_in_v_list23852 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_v_list23863 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L,0x0800000800000000L});
public static final BitSet FOLLOW_T_PLUS_in_v_list23868 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_T_MINUS_in_v_list23870 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_T_DIGIT_STRING_in_v_list23876 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_program_stmt23957 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000004L});
public static final BitSet FOLLOW_T_PROGRAM_in_program_stmt23963 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_program_stmt23965 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_program_stmt23967 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_program_stmt23996 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_program_stmt24002 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000004L});
public static final BitSet FOLLOW_T_PROGRAM_in_end_program_stmt24004 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_program_stmt24007 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_program_stmt24026 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_program_stmt24037 = new BitSet(new long[]{0x0000000000000000L,0x0000000010000000L});
public static final BitSet FOLLOW_T_ENDPROGRAM_in_end_program_stmt24043 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_program_stmt24046 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_program_stmt24065 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_program_stmt24076 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_program_stmt24082 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_program_stmt24084 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_module_stmt_in_module24112 = new BitSet(new long[]{0x200C521100480000L,0x08040418000001D8L,0x10240020803C0C00L,0x000007104201022BL});
public static final BitSet FOLLOW_specification_part_in_module24116 = new BitSet(new long[]{0x0020000000000000L,0x0000000004004008L});
public static final BitSet FOLLOW_module_subprogram_part_in_module24122 = new BitSet(new long[]{0x0000000000000000L,0x0000000004004008L});
public static final BitSet FOLLOW_end_module_stmt_in_module24129 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_module_stmt24158 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000001000000000L});
public static final BitSet FOLLOW_T_MODULE_in_module_stmt24164 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_module_stmt24168 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_module_stmt24188 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_module_stmt24221 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_module_stmt24227 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000001000000000L});
public static final BitSet FOLLOW_T_MODULE_in_end_module_stmt24229 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_module_stmt24232 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_module_stmt24251 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_module_stmt24275 = new BitSet(new long[]{0x0000000000000000L,0x0000000004000000L});
public static final BitSet FOLLOW_T_ENDMODULE_in_end_module_stmt24281 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_module_stmt24284 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_module_stmt24303 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_module_stmt24323 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_module_stmt24329 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_module_stmt24331 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_contains_stmt_in_module_subprogram_part24375 = new BitSet(new long[]{0x0008120000000002L,0x20000000000005C8L,0x0000001080040000L,0x0000001010000A40L});
public static final BitSet FOLLOW_module_subprogram_in_module_subprogram_part24386 = new BitSet(new long[]{0x0008120000000002L,0x20000000000005C8L,0x0000001080040000L,0x0000001010000A40L});
public static final BitSet FOLLOW_prefix_in_module_subprogram24440 = new BitSet(new long[]{0x0000000000000000L,0x2000000000000008L});
public static final BitSet FOLLOW_function_subprogram_in_module_subprogram24446 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_subroutine_subprogram_in_module_subprogram24455 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_separate_module_subprogram_in_module_subprogram24464 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_use_stmt24495 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000010000000000L});
public static final BitSet FOLLOW_T_USE_in_use_stmt24501 = new BitSet(new long[]{0x0003000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COMMA_in_use_stmt24519 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000020000200000L});
public static final BitSet FOLLOW_module_nature_in_use_stmt24521 = new BitSet(new long[]{0x0001000000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_use_stmt24540 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_use_stmt24545 = new BitSet(new long[]{0x0002000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_T_COMMA_in_use_stmt24549 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0002000000000040L});
public static final BitSet FOLLOW_rename_list_in_use_stmt24564 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_use_stmt24570 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_use_stmt24587 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000010000000000L});
public static final BitSet FOLLOW_T_USE_in_use_stmt24593 = new BitSet(new long[]{0x0003000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COMMA_in_use_stmt24612 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000020000200000L});
public static final BitSet FOLLOW_module_nature_in_use_stmt24614 = new BitSet(new long[]{0x0001000000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_use_stmt24633 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_use_stmt24638 = new BitSet(new long[]{0x0002000000000000L});
public static final BitSet FOLLOW_T_COMMA_in_use_stmt24640 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000800000000000L});
public static final BitSet FOLLOW_T_ONLY_in_use_stmt24642 = new BitSet(new long[]{0x0000800000000000L});
public static final BitSet FOLLOW_T_COLON_in_use_stmt24644 = new BitSet(new long[]{0x0000000010000000L,0x0000008000000000L,0x0002000000000040L,0x0004000000000100L});
public static final BitSet FOLLOW_only_list_in_use_stmt24648 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_use_stmt24666 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_INTRINSIC_in_module_nature24686 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_NON_INTRINSIC_in_module_nature24705 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_rename24735 = new BitSet(new long[]{0x0000000000000000L,0x0000200000000000L});
public static final BitSet FOLLOW_T_EQ_GT_in_rename24737 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_rename24741 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_OPERATOR_in_rename24762 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_rename24764 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000004L});
public static final BitSet FOLLOW_T_DEFINED_OP_in_rename24768 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_rename24770 = new BitSet(new long[]{0x0000000000000000L,0x0000200000000000L});
public static final BitSet FOLLOW_T_EQ_GT_in_rename24772 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0002000000000000L});
public static final BitSet FOLLOW_T_OPERATOR_in_rename24778 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_rename24780 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000004L});
public static final BitSet FOLLOW_T_DEFINED_OP_in_rename24784 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_rename24786 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_rename_in_rename_list24826 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_rename_list24832 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0002000000000040L});
public static final BitSet FOLLOW_rename_in_rename_list24834 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_generic_spec_in_only24875 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_rename_in_only24882 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_only_in_only_list24915 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_only_list24921 = new BitSet(new long[]{0x0000000010000000L,0x0000000000000000L,0x0002000000000040L,0x0004000000000100L});
public static final BitSet FOLLOW_only_in_only_list24923 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_submodule_stmt_in_submodule24977 = new BitSet(new long[]{0x200C521100480000L,0x08040418000001D8L,0x10240020803C0C00L,0x000007104201022BL});
public static final BitSet FOLLOW_specification_part_in_submodule24986 = new BitSet(new long[]{0x0020000000000000L,0x0000000000004008L});
public static final BitSet FOLLOW_module_subprogram_part_in_submodule24999 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004008L});
public static final BitSet FOLLOW_end_submodule_stmt_in_submodule25013 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_submodule_stmt25059 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000008000000L});
public static final BitSet FOLLOW_T_SUBMODULE_in_submodule_stmt25072 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_submodule_stmt25074 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_parent_identifier_in_submodule_stmt25076 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_submodule_stmt25078 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_name_in_submodule_stmt25087 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_submodule_stmt25091 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_name_in_parent_identifier25133 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_parent_identifier25148 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_submodule_stmt25200 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_submodule_stmt25213 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000000L,0x0000000008000000L});
public static final BitSet FOLLOW_T_SUBMODULE_in_end_submodule_stmt25216 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_name_in_end_submodule_stmt25219 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_submodule_stmt25236 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_block_data_stmt_in_block_data25270 = new BitSet(new long[]{0x200C521100480000L,0x08040418000001D8L,0x10240020803C0C00L,0x000007104201022BL});
public static final BitSet FOLLOW_specification_part_in_block_data25274 = new BitSet(new long[]{0x0000000000000000L,0x0000000000034008L});
public static final BitSet FOLLOW_end_block_data_stmt_in_block_data25278 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_block_data_stmt25305 = new BitSet(new long[]{0x0000002000000000L});
public static final BitSet FOLLOW_T_BLOCK_in_block_data_stmt25318 = new BitSet(new long[]{0x2000000000000000L});
public static final BitSet FOLLOW_T_DATA_in_block_data_stmt25320 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_block_data_stmt25323 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_block_data_stmt25329 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_block_data_stmt25352 = new BitSet(new long[]{0x0000004000000000L});
public static final BitSet FOLLOW_T_BLOCKDATA_in_block_data_stmt25365 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_block_data_stmt25369 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_block_data_stmt25375 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_block_data_stmt25414 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_block_data_stmt25420 = new BitSet(new long[]{0x0000002000000000L});
public static final BitSet FOLLOW_T_BLOCK_in_end_block_data_stmt25422 = new BitSet(new long[]{0x2000000000000000L});
public static final BitSet FOLLOW_T_DATA_in_end_block_data_stmt25424 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_block_data_stmt25441 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_block_data_stmt25447 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_block_data_stmt25460 = new BitSet(new long[]{0x0000000000000000L,0x0000000000010000L});
public static final BitSet FOLLOW_T_ENDBLOCK_in_end_block_data_stmt25466 = new BitSet(new long[]{0x2000000000000000L});
public static final BitSet FOLLOW_T_DATA_in_end_block_data_stmt25468 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_block_data_stmt25488 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_block_data_stmt25494 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_block_data_stmt25507 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_block_data_stmt25513 = new BitSet(new long[]{0x0000004000000000L});
public static final BitSet FOLLOW_T_BLOCKDATA_in_end_block_data_stmt25515 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_block_data_stmt25535 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_block_data_stmt25541 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_block_data_stmt25554 = new BitSet(new long[]{0x0000000000000000L,0x0000000000020000L});
public static final BitSet FOLLOW_T_ENDBLOCKDATA_in_end_block_data_stmt25560 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_block_data_stmt25583 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_block_data_stmt25589 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_block_data_stmt25600 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_block_data_stmt25606 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_block_data_stmt25608 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_interface_stmt_in_interface_block25633 = new BitSet(new long[]{0x0008120000000000L,0x20000000020045C8L,0x0000001080040000L,0x0000001010000A42L});
public static final BitSet FOLLOW_interface_specification_in_interface_block25639 = new BitSet(new long[]{0x0008120000000000L,0x20000000020045C8L,0x0000001080040000L,0x0000001010000A42L});
public static final BitSet FOLLOW_end_interface_stmt_in_interface_block25646 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_interface_body_in_interface_specification25663 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_procedure_stmt_in_interface_specification25668 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_interface_stmt25696 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000100000L});
public static final BitSet FOLLOW_T_INTERFACE_in_interface_stmt25702 = new BitSet(new long[]{0x0000000010000000L,0x0000008000000000L,0x0002000000000040L,0x0004000000000100L});
public static final BitSet FOLLOW_generic_spec_in_interface_stmt25706 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_interface_stmt25725 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_interface_stmt25736 = new BitSet(new long[]{0x0000000000080000L});
public static final BitSet FOLLOW_T_ABSTRACT_in_interface_stmt25742 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000100000L});
public static final BitSet FOLLOW_T_INTERFACE_in_interface_stmt25744 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_interface_stmt25746 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_interface_stmt25773 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_interface_stmt25779 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000100000L});
public static final BitSet FOLLOW_T_INTERFACE_in_end_interface_stmt25781 = new BitSet(new long[]{0x0000000010000000L,0x0000008000000000L,0x0002000000000040L,0x0004000000000100L});
public static final BitSet FOLLOW_generic_spec_in_end_interface_stmt25785 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_interface_stmt25804 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_interface_stmt25818 = new BitSet(new long[]{0x0000000000000000L,0x0000000002000000L});
public static final BitSet FOLLOW_T_ENDINTERFACE_in_end_interface_stmt25824 = new BitSet(new long[]{0x0000000010000000L,0x0000008000000000L,0x0002000000000040L,0x0004000000000100L});
public static final BitSet FOLLOW_generic_spec_in_end_interface_stmt25831 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_interface_stmt25850 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_prefix_in_interface_body25873 = new BitSet(new long[]{0x0000000000000000L,0x2000000000000008L});
public static final BitSet FOLLOW_function_stmt_in_interface_body25877 = new BitSet(new long[]{0x200C521100480000L,0x08040418000001D8L,0x10240020803C0C00L,0x000007104201022BL});
public static final BitSet FOLLOW_specification_part_in_interface_body25879 = new BitSet(new long[]{0x0000000000000000L,0x0000000000804008L});
public static final BitSet FOLLOW_end_function_stmt_in_interface_body25881 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_subroutine_stmt_in_interface_body25900 = new BitSet(new long[]{0x200C521100480000L,0x08040418000001D8L,0x10240020803C0C00L,0x000007104201022BL});
public static final BitSet FOLLOW_specification_part_in_interface_body25902 = new BitSet(new long[]{0x0000000000000000L,0x0000000080004008L});
public static final BitSet FOLLOW_end_subroutine_stmt_in_interface_body25904 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_procedure_stmt25942 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000001000000000L,0x0000000000000002L});
public static final BitSet FOLLOW_T_MODULE_in_procedure_stmt25950 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000002L});
public static final BitSet FOLLOW_T_PROCEDURE_in_procedure_stmt25969 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_generic_name_list_in_procedure_stmt25971 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_procedure_stmt25973 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_generic_spec25991 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_OPERATOR_in_generic_spec26001 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_generic_spec26003 = new BitSet(new long[]{0x0000000082000000L,0x4000190000000004L,0x280810CA1A00001CL,0x0000000000E00000L});
public static final BitSet FOLLOW_defined_operator_in_generic_spec26005 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_generic_spec26007 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASSIGNMENT_in_generic_spec26017 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_generic_spec26019 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_generic_spec26021 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_generic_spec26023 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_defined_io_generic_spec_in_generic_spec26033 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_READ_in_defined_io_generic_spec26061 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_defined_io_generic_spec26063 = new BitSet(new long[]{0x0000000000000000L,0x1000000000000000L});
public static final BitSet FOLLOW_T_FORMATTED_in_defined_io_generic_spec26065 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_defined_io_generic_spec26067 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_READ_in_defined_io_generic_spec26076 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_defined_io_generic_spec26078 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000004000000000L});
public static final BitSet FOLLOW_T_UNFORMATTED_in_defined_io_generic_spec26080 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_defined_io_generic_spec26082 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_WRITE_in_defined_io_generic_spec26091 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_defined_io_generic_spec26093 = new BitSet(new long[]{0x0000000000000000L,0x1000000000000000L});
public static final BitSet FOLLOW_T_FORMATTED_in_defined_io_generic_spec26095 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_defined_io_generic_spec26097 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_WRITE_in_defined_io_generic_spec26106 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_defined_io_generic_spec26108 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000004000000000L});
public static final BitSet FOLLOW_T_UNFORMATTED_in_defined_io_generic_spec26110 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_defined_io_generic_spec26112 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_import_stmt26145 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000800L});
public static final BitSet FOLLOW_T_IMPORT_in_import_stmt26151 = new BitSet(new long[]{0x0001000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_import_stmt26157 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_generic_name_list_in_import_stmt26175 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_import_stmt26181 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_external_stmt26213 = new BitSet(new long[]{0x0000000000000000L,0x0004000000000000L});
public static final BitSet FOLLOW_T_EXTERNAL_in_external_stmt26219 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_external_stmt26223 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_generic_name_list_in_external_stmt26241 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_external_stmt26243 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_procedure_declaration_stmt26273 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000002L});
public static final BitSet FOLLOW_T_PROCEDURE_in_procedure_declaration_stmt26279 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_procedure_declaration_stmt26281 = new BitSet(new long[]{0x0008120000000000L,0x00000000000001C0L,0x0000000080040040L,0x0000001000008200L});
public static final BitSet FOLLOW_proc_interface_in_procedure_declaration_stmt26287 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_procedure_declaration_stmt26293 = new BitSet(new long[]{0x0003000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COMMA_in_procedure_declaration_stmt26307 = new BitSet(new long[]{0x0000001000000000L,0x0000000000000002L,0x1044280000080000L,0x0000000000010021L});
public static final BitSet FOLLOW_proc_attr_spec_in_procedure_declaration_stmt26309 = new BitSet(new long[]{0x0003000000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_procedure_declaration_stmt26315 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_proc_decl_list_in_procedure_declaration_stmt26322 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_procedure_declaration_stmt26324 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_proc_interface26345 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_declaration_type_spec_in_proc_interface26356 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_access_spec_in_proc_attr_spec26370 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_proc_language_binding_spec_in_proc_attr_spec26389 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_INTENT_in_proc_attr_spec26408 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_proc_attr_spec26410 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0010000000009000L});
public static final BitSet FOLLOW_intent_spec_in_proc_attr_spec26412 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_proc_attr_spec26414 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_OPTIONAL_in_proc_attr_spec26433 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_POINTER_in_proc_attr_spec26453 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_SAVE_in_proc_attr_spec26473 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_PASS_in_proc_attr_spec26498 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_proc_attr_spec26502 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_proc_attr_spec26504 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_proc_attr_spec26506 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_NOPASS_in_proc_attr_spec26532 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_DEFERRED_in_proc_attr_spec26556 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_proc_attr_spec_extension_in_proc_attr_spec26580 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_NO_LANGUAGE_EXTENSION_in_proc_attr_spec_extension26593 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_proc_decl26612 = new BitSet(new long[]{0x0000000000000002L,0x0000200000000000L});
public static final BitSet FOLLOW_T_EQ_GT_in_proc_decl26616 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_null_init_in_proc_decl26618 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_proc_decl_in_proc_decl_list26659 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_proc_decl_list26665 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_proc_decl_in_proc_decl_list26667 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_intrinsic_stmt26710 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_INTRINSIC_in_intrinsic_stmt26716 = new BitSet(new long[]{0x0001000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_COLON_COLON_in_intrinsic_stmt26722 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_generic_name_list_in_intrinsic_stmt26729 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_intrinsic_stmt26731 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_call_stmt26769 = new BitSet(new long[]{0x0000008000000000L});
public static final BitSet FOLLOW_T_CALL_in_call_stmt26775 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_procedure_designator_in_call_stmt26777 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_call_stmt26793 = new BitSet(new long[]{0x0000040080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800008400L});
public static final BitSet FOLLOW_actual_arg_spec_list_in_call_stmt26796 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_call_stmt26815 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_call_stmt26820 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_data_ref_in_procedure_designator26856 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_actual_arg_spec26890 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_actual_arg_spec26892 = new BitSet(new long[]{0x0000040080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_actual_arg_in_actual_arg_spec26898 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_actual_arg_spec_in_actual_arg_spec_list26943 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_actual_arg_spec_list26949 = new BitSet(new long[]{0x0000040080004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_actual_arg_spec_in_actual_arg_spec_list26951 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_expr_in_actual_arg26989 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_actual_arg27012 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_label_in_actual_arg27014 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_function_stmt_in_function_subprogram27051 = new BitSet(new long[]{0x200C521100480000L,0x08040418000001D8L,0x10240020803C0C00L,0x000007104201022BL});
public static final BitSet FOLLOW_specification_part_in_function_subprogram27055 = new BitSet(new long[]{0x98A020A46D800000L,0x0681400000A04028L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_execution_part_in_function_subprogram27061 = new BitSet(new long[]{0x0020000000000000L,0x0000000000804008L});
public static final BitSet FOLLOW_internal_subprogram_part_in_function_subprogram27071 = new BitSet(new long[]{0x0000000000000000L,0x0000000000804008L});
public static final BitSet FOLLOW_end_function_stmt_in_function_subprogram27079 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_function_stmt27128 = new BitSet(new long[]{0x0000000000000000L,0x2000000000000000L});
public static final BitSet FOLLOW_T_FUNCTION_in_function_stmt27134 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_function_stmt27136 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_function_stmt27144 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L,0x0000000000008000L});
public static final BitSet FOLLOW_generic_name_list_in_function_stmt27148 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_function_stmt27154 = new BitSet(new long[]{0x0000001000000000L,0x0000008000000000L,0x0000000000000000L,0x0000000000001000L});
public static final BitSet FOLLOW_suffix_in_function_stmt27171 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_function_stmt27177 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_language_binding_spec_in_proc_language_binding_spec27194 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_prefix_spec_in_prefix27228 = new BitSet(new long[]{0x0008120000000002L,0x00000000000005C0L,0x0000000080040000L,0x0000001000000A40L});
public static final BitSet FOLLOW_prefix_spec_in_prefix27232 = new BitSet(new long[]{0x0008120000000002L,0x00000000000005C0L,0x0000000080040000L,0x0000001000000A40L});
public static final BitSet FOLLOW_prefix_spec_in_prefix27249 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_t_prefix_spec_in_t_prefix27276 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000400L,0x0000000000000000L,0x0000000000000840L});
public static final BitSet FOLLOW_t_prefix_spec_in_t_prefix27280 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_declaration_type_spec_in_prefix_spec27301 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_t_prefix_spec_in_prefix_spec27311 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_RECURSIVE_in_t_prefix_spec27327 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_PURE_in_t_prefix_spec27334 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ELEMENTAL_in_t_prefix_spec27342 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_proc_language_binding_spec_in_suffix27361 = new BitSet(new long[]{0x0000000000000002L,0x0000000000000000L,0x0000000000000000L,0x0000000000001000L});
public static final BitSet FOLLOW_T_RESULT_in_suffix27365 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_suffix27367 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_result_name_in_suffix27369 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_suffix27384 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_RESULT_in_suffix27407 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_suffix27409 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_result_name_in_suffix27411 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_suffix27413 = new BitSet(new long[]{0x0000001000000002L});
public static final BitSet FOLLOW_proc_language_binding_spec_in_suffix27430 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_name_in_result_name27468 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_function_stmt27507 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_function_stmt27513 = new BitSet(new long[]{0x0000000000000000L,0x2000000000000000L});
public static final BitSet FOLLOW_T_FUNCTION_in_end_function_stmt27515 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_function_stmt27519 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_function_stmt27534 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_function_stmt27544 = new BitSet(new long[]{0x0000000000000000L,0x0000000000800000L});
public static final BitSet FOLLOW_T_ENDFUNCTION_in_end_function_stmt27550 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_function_stmt27557 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_function_stmt27572 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_function_stmt27582 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_function_stmt27588 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_function_stmt27590 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_subroutine_stmt_in_subroutine_subprogram27608 = new BitSet(new long[]{0x200C521100480000L,0x08040418000001D8L,0x10240020803C0C00L,0x000007104201022BL});
public static final BitSet FOLLOW_specification_part_in_subroutine_subprogram27612 = new BitSet(new long[]{0x98A020A46D800000L,0x0681400080204028L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_execution_part_in_subroutine_subprogram27618 = new BitSet(new long[]{0x0020000000000000L,0x0000000080004008L});
public static final BitSet FOLLOW_internal_subprogram_part_in_subroutine_subprogram27627 = new BitSet(new long[]{0x0000000000000000L,0x0000000080004008L});
public static final BitSet FOLLOW_end_subroutine_stmt_in_subroutine_subprogram27634 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_subroutine_stmt27664 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000400L,0x0000000000000000L,0x0000000010000840L});
public static final BitSet FOLLOW_t_prefix_in_subroutine_stmt27671 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000010000000L});
public static final BitSet FOLLOW_T_SUBROUTINE_in_subroutine_stmt27677 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_subroutine_stmt27692 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_subroutine_stmt27696 = new BitSet(new long[]{0x0000000080000000L,0x0000000000000000L,0x0000000000000040L,0x0000000000008000L});
public static final BitSet FOLLOW_dummy_arg_list_in_subroutine_stmt27700 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_subroutine_stmt27719 = new BitSet(new long[]{0x0000001000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_proc_language_binding_spec_in_subroutine_stmt27723 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_subroutine_stmt27746 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_IDENT_in_dummy_arg27784 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_dummy_arg27792 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_dummy_arg_in_dummy_arg_list27819 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_T_COMMA_in_dummy_arg_list27825 = new BitSet(new long[]{0x0000000080000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_dummy_arg_in_dummy_arg_list27827 = new BitSet(new long[]{0x0002000000000002L});
public static final BitSet FOLLOW_label_in_end_subroutine_stmt27870 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_subroutine_stmt27876 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000010000000L});
public static final BitSet FOLLOW_T_SUBROUTINE_in_end_subroutine_stmt27878 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_subroutine_stmt27882 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_subroutine_stmt27897 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_subroutine_stmt27910 = new BitSet(new long[]{0x0000000000000000L,0x0000000080000000L});
public static final BitSet FOLLOW_T_ENDSUBROUTINE_in_end_subroutine_stmt27916 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_end_subroutine_stmt27923 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_subroutine_stmt27938 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_subroutine_stmt27951 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_subroutine_stmt27957 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_subroutine_stmt27959 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_entry_stmt27994 = new BitSet(new long[]{0x0000000000000000L,0x0000000800000000L});
public static final BitSet FOLLOW_T_ENTRY_in_entry_stmt28000 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_entry_stmt28002 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_entry_stmt28018 = new BitSet(new long[]{0x0000000080000000L,0x0000000000000000L,0x0000000000000040L,0x0000000000008000L});
public static final BitSet FOLLOW_dummy_arg_list_in_entry_stmt28022 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_entry_stmt28029 = new BitSet(new long[]{0x0000001000000000L,0x0000008000000000L,0x0000000000000000L,0x0000000000001000L});
public static final BitSet FOLLOW_suffix_in_entry_stmt28046 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_entry_stmt28055 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_return_stmt28096 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000002000L});
public static final BitSet FOLLOW_T_RETURN_in_return_stmt28102 = new BitSet(new long[]{0x0000040000004420L,0x000800800000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_return_stmt28106 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_return_stmt28125 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_mp_subprogram_stmt_in_separate_module_subprogram28161 = new BitSet(new long[]{0x200C521100480000L,0x08040418000001D8L,0x10240020803C0C00L,0x000007104201022BL});
public static final BitSet FOLLOW_specification_part_in_separate_module_subprogram28173 = new BitSet(new long[]{0x98A020A46D800000L,0x0681400008204028L,0x80814000200301C3L,0x00046880240E6110L});
public static final BitSet FOLLOW_execution_part_in_separate_module_subprogram28189 = new BitSet(new long[]{0x0020000000000000L,0x0000000008004008L});
public static final BitSet FOLLOW_internal_subprogram_part_in_separate_module_subprogram28208 = new BitSet(new long[]{0x0000000000000000L,0x0000000008004008L});
public static final BitSet FOLLOW_end_mp_subprogram_stmt_in_separate_module_subprogram28222 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_mp_subprogram_stmt28256 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000001000000000L});
public static final BitSet FOLLOW_T_MODULE_in_mp_subprogram_stmt28262 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000002L});
public static final BitSet FOLLOW_T_PROCEDURE_in_mp_subprogram_stmt28264 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_name_in_mp_subprogram_stmt28266 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_mp_subprogram_stmt28268 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_mp_subprogram_stmt28314 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_end_mp_subprogram_stmt28327 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000000L,0x0000000000000002L});
public static final BitSet FOLLOW_T_PROCEDURE_in_end_mp_subprogram_stmt28330 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_name_in_end_mp_subprogram_stmt28333 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_mp_subprogram_stmt28350 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_end_mp_subprogram_stmt28373 = new BitSet(new long[]{0x0000000000000000L,0x0000000008000000L});
public static final BitSet FOLLOW_T_ENDPROCEDURE_in_end_mp_subprogram_stmt28386 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_name_in_end_mp_subprogram_stmt28389 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_end_mp_subprogram_stmt28402 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_contains_stmt28440 = new BitSet(new long[]{0x0020000000000000L});
public static final BitSet FOLLOW_T_CONTAINS_in_contains_stmt28446 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_contains_stmt28448 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_stmt_function_stmt28485 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000002000000L});
public static final BitSet FOLLOW_T_STMT_FUNCTION_in_stmt_function_stmt28491 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_T_IDENT_in_stmt_function_stmt28493 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_stmt_function_stmt28495 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L,0x0000000000008000L});
public static final BitSet FOLLOW_generic_name_list_in_stmt_function_stmt28512 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_stmt_function_stmt28518 = new BitSet(new long[]{0x0000000000000000L,0x0000020000000000L});
public static final BitSet FOLLOW_T_EQUALS_in_stmt_function_stmt28533 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_stmt_function_stmt28535 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_stmt_function_stmt28537 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_T_EOS_in_end_of_stmt28561 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_EOF_in_end_of_stmt28615 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_type_spec_in_synpred1_FortranParser085989 = new BitSet(new long[]{0x0001000000000000L});
public static final BitSet FOLLOW_T_COLON_COLON_in_synpred1_FortranParser085991 = new BitSet(new long[]{0x0000040000004422L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_ac_value_list_in_synpred1_FortranParser085994 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_synpred2_FortranParser086035 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_designator_in_synpred3_FortranParser088543 = new BitSet(new long[]{0x0000000080000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_synpred3_FortranParser088546 = new BitSet(new long[]{0x0000040000004420L,0x0008000000000008L,0x0800000900000040L,0x0000000800000400L});
public static final BitSet FOLLOW_data_stmt_constant_in_synpred3_FortranParser088548 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_int_literal_constant_in_synpred4_FortranParser088561 = new BitSet(new long[]{0x0000000080000002L});
public static final BitSet FOLLOW_T_ASTERISK_in_synpred4_FortranParser088564 = new BitSet(new long[]{0x0000040000004420L,0x0008000000000008L,0x0800000900000040L,0x0000000800000400L});
public static final BitSet FOLLOW_data_stmt_constant_in_synpred4_FortranParser088566 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_signed_int_literal_constant_in_synpred6_FortranParser088588 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_char_literal_constant_in_synpred9_FortranParser088615 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_structure_constructor_in_synpred11_FortranParser088633 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_designator_in_synpred12_FortranParser088781 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_char_literal_constant_in_synpred17_FortranParser088811 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_designator_or_func_ref_in_synpred19_FortranParser0812909 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_literal_constant_in_synpred20_FortranParser0812914 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_array_constructor_in_synpred21_FortranParser0812919 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_structure_constructor_in_synpred22_FortranParser0812924 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred23_FortranParser0813998 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000010L});
public static final BitSet FOLLOW_T_PTR_ASSIGNMENT_STMT_in_synpred23_FortranParser0814004 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_data_ref_in_synpred23_FortranParser0814006 = new BitSet(new long[]{0x0000000000000000L,0x0000200000000000L});
public static final BitSet FOLLOW_T_EQ_GT_in_synpred23_FortranParser0814008 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_synpred23_FortranParser0814023 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_synpred23_FortranParser0814025 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred24_FortranParser0814039 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000010L});
public static final BitSet FOLLOW_T_PTR_ASSIGNMENT_STMT_in_synpred24_FortranParser0814045 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000040L});
public static final BitSet FOLLOW_data_ref_in_synpred24_FortranParser0814047 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_synpred24_FortranParser0814049 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_bounds_spec_list_in_synpred24_FortranParser0814064 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000008000L});
public static final BitSet FOLLOW_T_RPAREN_in_synpred24_FortranParser0814066 = new BitSet(new long[]{0x0000000000000000L,0x0000200000000000L});
public static final BitSet FOLLOW_T_EQ_GT_in_synpred24_FortranParser0814068 = new BitSet(new long[]{0x0000040000004420L,0x000800000000000CL,0x0800100901000060L,0x0000000800000400L});
public static final BitSet FOLLOW_expr_in_synpred24_FortranParser0814070 = new BitSet(new long[]{0x0000000000000000L,0x0000008000000000L});
public static final BitSet FOLLOW_end_of_stmt_in_synpred24_FortranParser0814072 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred25_FortranParser0816094 = new BitSet(new long[]{0x0000000000000000L,0x0000000800000000L});
public static final BitSet FOLLOW_T_ENTRY_in_synpred25_FortranParser0816098 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred26_FortranParser0816127 = new BitSet(new long[]{0x0000000000000000L,0x0000001000000000L});
public static final BitSet FOLLOW_T_ENUM_in_synpred26_FortranParser0816131 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred27_FortranParser0816163 = new BitSet(new long[]{0x0000000000000000L,0x0800000000000000L});
public static final BitSet FOLLOW_T_FORMAT_in_synpred27_FortranParser0816167 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred28_FortranParser0816194 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000100000L});
public static final BitSet FOLLOW_T_INTERFACE_in_synpred28_FortranParser0816198 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred29_FortranParser0816218 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0020000000000000L});
public static final BitSet FOLLOW_T_PARAMETER_in_synpred29_FortranParser0816222 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred30_FortranParser0816243 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000002L});
public static final BitSet FOLLOW_T_PROCEDURE_in_synpred30_FortranParser0816247 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_derived_type_stmt_in_synpred31_FortranParser0816316 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_type_declaration_stmt_in_synpred32_FortranParser0816337 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred33_FortranParser0816361 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000021L});
public static final BitSet FOLLOW_access_spec_in_synpred33_FortranParser0816365 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred34_FortranParser0816392 = new BitSet(new long[]{0x0000000000400000L});
public static final BitSet FOLLOW_T_ALLOCATABLE_in_synpred34_FortranParser0816396 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred35_FortranParser0816416 = new BitSet(new long[]{0x0000000100000000L});
public static final BitSet FOLLOW_T_ASYNCHRONOUS_in_synpred35_FortranParser0816420 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred36_FortranParser0816438 = new BitSet(new long[]{0x0000001000000000L});
public static final BitSet FOLLOW_T_BIND_in_synpred36_FortranParser0816442 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred37_FortranParser0816476 = new BitSet(new long[]{0x0000400000000000L});
public static final BitSet FOLLOW_T_CODIMENSION_in_synpred37_FortranParser0816480 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred38_FortranParser0816500 = new BitSet(new long[]{0x2000000000000000L});
public static final BitSet FOLLOW_T_DATA_in_synpred38_FortranParser0816504 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred39_FortranParser0816538 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000010L});
public static final BitSet FOLLOW_T_DIMENSION_in_synpred39_FortranParser0816542 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred40_FortranParser0816566 = new BitSet(new long[]{0x0000000000000000L,0x0004000000000000L});
public static final BitSet FOLLOW_T_EXTERNAL_in_synpred40_FortranParser0816570 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred41_FortranParser0816596 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_INTRINSIC_in_synpred41_FortranParser0816600 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred42_FortranParser0816624 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x1000000000000000L});
public static final BitSet FOLLOW_T_POINTER_in_synpred42_FortranParser0816628 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred43_FortranParser0816656 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000008L});
public static final BitSet FOLLOW_T_PROTECTED_in_synpred43_FortranParser0816660 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred44_FortranParser0816684 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000010000L});
public static final BitSet FOLLOW_T_SAVE_in_synpred44_FortranParser0816688 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred45_FortranParser0816722 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000040000000L});
public static final BitSet FOLLOW_T_TARGET_in_synpred45_FortranParser0816726 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred46_FortranParser0816756 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000040000000000L});
public static final BitSet FOLLOW_T_VOLATILE_in_synpred46_FortranParser0816760 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred47_FortranParser0821295 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000100L});
public static final BitSet FOLLOW_T_READ_in_synpred47_FortranParser0821299 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_synpred47_FortranParser0821301 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred48_FortranParser0821373 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000000100L});
public static final BitSet FOLLOW_T_READ_in_synpred48_FortranParser0821377 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_expr_in_synpred49_FortranParser0821973 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred51_FortranParser0822445 = new BitSet(new long[]{0x0000000400000000L});
public static final BitSet FOLLOW_T_BACKSPACE_in_synpred51_FortranParser0822449 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_synpred51_FortranParser0822451 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred52_FortranParser0822509 = new BitSet(new long[]{0x0000000400000000L});
public static final BitSet FOLLOW_T_BACKSPACE_in_synpred52_FortranParser0822513 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred53_FortranParser0822577 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_synpred53_FortranParser0822581 = new BitSet(new long[]{0x0000000000000000L,0x0010000000000000L});
public static final BitSet FOLLOW_T_FILE_in_synpred53_FortranParser0822583 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_synpred53_FortranParser0822585 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred54_FortranParser0822645 = new BitSet(new long[]{0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_ENDFILE_in_synpred54_FortranParser0822649 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_synpred54_FortranParser0822651 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred55_FortranParser0822709 = new BitSet(new long[]{0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_END_in_synpred55_FortranParser0822713 = new BitSet(new long[]{0x0000000000000000L,0x0010000000000000L});
public static final BitSet FOLLOW_T_FILE_in_synpred55_FortranParser0822715 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred56_FortranParser0822758 = new BitSet(new long[]{0x0000000000000000L,0x0000000000200000L});
public static final BitSet FOLLOW_T_ENDFILE_in_synpred56_FortranParser0822762 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred57_FortranParser0822826 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_REWIND_in_synpred57_FortranParser0822830 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_synpred57_FortranParser0822832 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred58_FortranParser0822890 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000000000000L,0x0000000000004000L});
public static final BitSet FOLLOW_T_REWIND_in_synpred58_FortranParser0822894 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred59_FortranParser0823066 = new BitSet(new long[]{0x0000000000000000L,0x0080000000000000L});
public static final BitSet FOLLOW_T_FLUSH_in_synpred59_FortranParser0823070 = new BitSet(new long[]{0x0000000000000000L,0x0000000000000000L,0x0000000100000000L});
public static final BitSet FOLLOW_T_LPAREN_in_synpred59_FortranParser0823072 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_label_in_synpred60_FortranParser0823130 = new BitSet(new long[]{0x0000000000000000L,0x0080000000000000L});
public static final BitSet FOLLOW_T_FLUSH_in_synpred60_FortranParser0823134 = new BitSet(new long[]{0x0000000000000002L});
public static final BitSet FOLLOW_EOF_in_synpred61_FortranParser0828610 = new BitSet(new long[]{0x0000000000000002L});
}