Skip to content

Commit 981d7ca

Browse files
committed
Test that wait and flush are file_position_statments
1 parent 8735d21 commit 981d7ca

File tree

1 file changed

+19
-1
lines changed

1 file changed

+19
-1
lines changed

test/corpus/statements.txt

Lines changed: 19 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2579,6 +2579,11 @@ program test
25792579
rewind(11)
25802580
rewind(lu_prof(N))
25812581

2582+
flush 10
2583+
flush (10, iostat=ios)
2584+
2585+
wait(10)
2586+
25822587
pause 'this is deleted'
25832588
end program
25842589

@@ -2619,6 +2624,19 @@ end program
26192624
(identifier)
26202625
(argument_list
26212626
(identifier))))))
2627+
(file_position_statement
2628+
(unit_identifier
2629+
(number_literal)))
2630+
(file_position_statement
2631+
(unit_identifier
2632+
(number_literal))
2633+
(keyword_argument
2634+
(identifier)
2635+
(identifier)))
2636+
(file_position_statement
2637+
(unit_identifier
2638+
(parenthesized_expression
2639+
(number_literal))))
26222640
(file_position_statement
26232641
(string_literal))
26242642
(end_program_statement)))
@@ -2794,7 +2812,7 @@ end
27942812
Statement Functions (Obsolescent)
27952813
================================================================================
27962814

2797-
SUBROUTINE CEBCHVXX( THRESH, PATH )
2815+
SUBROUTINE CEBCHVXX( THRESH, PATH )
27982816
COMPLEX ZDUM
27992817
! .. Statement Functions ..
28002818
REAL CABS1

0 commit comments

Comments
 (0)