Skip to content

Commit 93810e0

Browse files
committed
Add if statement test that would fail without manually scanning number literals
1 parent f929078 commit 93810e0

File tree

1 file changed

+7
-0
lines changed

1 file changed

+7
-0
lines changed

test/corpus/statements.txt

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -252,6 +252,7 @@ If Statements
252252

253253
PROGRAM TEST
254254
IF (x<7) y = 9
255+
if(ix.ge.1.and.2.le.nx)x=1.4
255256

256257
IF (arg(1:1) == ADJUSTL(' r')) THEN
257258
r = 0
@@ -283,6 +284,12 @@ END PROGRAM
283284
(if_statement
284285
(parenthesized_expression (relational_expression (identifier) (number_literal)))
285286
(assignment_statement (identifier) (number_literal)))
287+
(if_statement
288+
(parenthesized_expression
289+
(logical_expression
290+
(relational_expression (identifier) (number_literal))
291+
(relational_expression (number_literal) (identifier))))
292+
(assignment_statement (identifier) (number_literal)))
286293
(if_statement
287294
(parenthesized_expression
288295
(relational_expression

0 commit comments

Comments
 (0)