Skip to content

Commit f497911

Browse files
author
rasmussn
committed
Added multiple inquire-specs (in particular OPENED) to fix issue-36.
1 parent 10e1a47 commit f497911

1 file changed

Lines changed: 17 additions & 1 deletion

File tree

fortran/pp/Fortran.pp

Lines changed: 17 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -786,6 +786,7 @@
786786
OpenStmt -- H hs=1 [_1 H hs=0["OPEN" "(" _2 ")"]],
787787
OpenStmt.2:iter-sep -- _1 ", ",
788788

789+
%% R905
789790
ACCESS -- "ACCESS=" _1,
790791
ACTION -- "ACTION=" _1,
791792
ASYNCHRONOUS -- "ASYNCHRONOUS=" _1,
@@ -874,7 +875,22 @@
874875
InquireLengthStmt.3:iter-sep -- _1 ", ",
875876

876877
%% R931
877-
EXIST -- "EXIST=" _1,
878+
EXIST -- "EXIST=" _1,
879+
FORMATTED -- "FORMATTED=" _1,
880+
NAME -- "NAME=" _1,
881+
NAMED -- "NAMED=" _1,
882+
NEXTREC -- "NEXTREC=" _1,
883+
NUMBER -- "NUMBER=" _1,
884+
OPENED -- "OPENED=" _1,
885+
PENDING -- "PENDING=" _1,
886+
POS -- "POS=" _1,
887+
READ -- "READ=" _1,
888+
READWRITE -- "READWRITE=" _1,
889+
SEQUENTIAL -- "SEQUENTIAL=" _1,
890+
STREAM -- "STREAM=" _1,
891+
TEAM -- "TEAM=" _1, %% F2015
892+
UNFORMATTED -- "UNFORMATTED=" _1,
893+
WRITE -- "WRITE=" _1,
878894

879895
%% R1001
880896
FormatStmt -- H hs=1[_1 H hs=0 ["FORMAT" "("_2")"]],

0 commit comments

Comments
 (0)