File errorstop.patch of Package ftnchek

Overview Repositories Revisions Requests Users Attributes Meta

File errorstop.patch of Package ftnchek

--- ftnchek/fortran.y.orig	2013-09-02 21:31:12.000000000 +0200
+++ ftnchek/fortran.y	2020-09-08 15:39:08.120938936 +0200
@@ -384,6 +384,7 @@ PRIVATE void clone_defn_ahead(Gsymtab *p
 %token tok_ENDWHERE
 %token tok_ENTRY
 %token tok_EQUIVALENCE
+%token tok_ERRORSTOP
 %token tok_EXTENDS
 %token tok_EXTERNAL
 %token tok_EXIT
@@ -982,6 +983,7 @@ transfer_stmt	:	unconditional_goto
 			  check_construct_name_match(&($1),
 				     curr_stmt_name);
 			}
+		|	errorstop_stmt
 		|	stop_stmt
 		|	return_stmt
 		;
@@ -4301,6 +4303,10 @@ exit_stmt	:	tok_EXIT EOS
 stop_stmt	:	tok_STOP stop_info EOS
 		;
 
+/* Fortran 2003 statement */
+errorstop_stmt	:	tok_ERRORSTOP stop_info EOS
+		;
+
 /* 43 */
 pause_stmt	:	tok_PAUSE stop_info EOS
 			{
--- ftnchek/keywords.c.orig	2013-07-16 23:01:53.000000000 +0200
+++ ftnchek/keywords.c	2020-09-08 15:46:13.909235342 +0200
@@ -173,6 +173,7 @@ PRIVATE struct {
 {"ENDWHERE",	tok_ENDWHERE,	IK | NP | NI | EK,		3},
 {"ENTRY",	tok_ENTRY,	IK | NP | NI | EK,		0},
 {"EQUIVALENCE",	tok_EQUIVALENCE,IK | NI | EK | MP | NA,		0},
+{"ERRORSTOP",	tok_ERRORSTOP,	IK | NP | EK,			5},
 {"EXIT",	tok_EXIT,	IK | NP | EK,			0},
 {"EXTENDS",	tok_EXTENDS,	IK | NI | MP | EK,  		0},
 {"EXTERNAL",	tok_EXTERNAL,	IK | NP | NI | EK,		0},

Places

File errorstop.patch of Package ftnchek

Places