File tree Expand file tree Collapse file tree 1 file changed +19
-1
lines changed Expand file tree Collapse file tree 1 file changed +19
-1
lines changed Original file line number Diff line number Diff 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'
25832588end 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
27942812Statement Functions (Obsolescent)
27952813================================================================================
27962814
2797- SUBROUTINE CEBCHVXX( THRESH, PATH )
2815+ SUBROUTINE CEBCHVXX( THRESH, PATH )
27982816 COMPLEX ZDUM
27992817! .. Statement Functions ..
28002818 REAL CABS1
You can’t perform that action at this time.
0 commit comments