Skip to content

Fix mixing of input and output io_implied_do rules #52

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
dryabov wants to merge 1 commit into
base: main
Choose a base branch
from
Open

Fix mixing of input and output io_implied_do rules #52

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
12 changes: 7 additions & 5 deletions src/main/kotlin/org/jetbrains/fortran/lang/parser/FortranParser.bnf
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1037,13 +1037,15 @@ print_stmt ::= label_decl? print_ parameter_value ','? <<list output_item>>? { p
private parameter_value ::= '*' | label_or_expression
// we can match label when it's really an expression, but expression matches a label too
// R916
input_item ::= variable | io_implied_do
input_item ::= variable | io_implied_do_input
// R917
output_item ::= io_implied_do | expr
output_item ::= io_implied_do_output | expr
// R918 + R920
io_implied_do ::= '(' <<list io_implied_do_object>> ',' id_loop_stmt ')' { pin = 4 }
io_implied_do_input ::= '(' <<list io_implied_do_object_input>> ',' id_loop_stmt ')' { pin = 4 }
io_implied_do_output ::= '(' <<list io_implied_do_object_output>> ',' id_loop_stmt ')' { pin = 4 }
// R919
io_implied_do_object ::= (input_item | output_item) !'=' { pin = 2 }
io_implied_do_object_input ::= input_item !'=' { pin = 2 }
io_implied_do_object_output ::= output_item !'=' { pin = 2 }
// R921 (unused maybe)
//dtv_type_spec ::= (type | classkwd) '(' derived_type_spec ')' { pin =1 }
// R922
Expand Down Expand Up @@ -1290,4 +1292,4 @@ include_stmt ::= label_decl? include_ string_literal {
accept_stmt ::= label_decl? accept_ parameter_value (',' <<list input_item>>)? {pin = 2; extends=action_stmt}
encode_stmt ::= label_decl? encode_ '(' expr ',' parameter_value ',' designator (',' <<list parameters_spec>>)?')' <<list output_item>> { pin = 2; extends=action_stmt}
decode_stmt ::= label_decl? decode_ '(' expr ',' parameter_value ',' designator (',' <<list parameters_spec>>)?')' <<list input_item>> { pin = 2; extends=action_stmt }
type_stmt ::= label_decl? type_ parameter_value (','? <<list output_item>>?) { pin = 4; extends=action_stmt }
type_stmt ::= label_decl? type_ parameter_value (','? <<list output_item>>?) { pin = 4; extends=action_stmt }