Skip to content

Commit 9c0a60a

Browse files
raehikraehik
committed
factor out start statement of block constructs
In hopes to provide better reprinting of block constructs, e.g. "only reprint first/last lines".
1 parent 606048d commit 9c0a60a

File tree

7 files changed

+79
-53
lines changed

7 files changed

+79
-53
lines changed

‎src/Language/Fortran/AST.hs‎

Lines changed: 31 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -86,6 +86,7 @@ module Language.Fortran.AST
8686
, DoSpecification(..)
8787
, ProgramUnitName(..)
8888
, Kind
89+
, BlockConstructStart(..)
8990

9091
-- * Node annotations & related typeclasses
9192
, A0
@@ -301,6 +302,17 @@ programUnitSubprograms PUComment{} = Nothing
301302
newtype Comment a = Comment String
302303
deriving (Eq, Show, Data, Typeable, Generic, Functor)
303304

305+
-- | Common data related to the start of block constructs.
306+
data BlockConstructStart a =
307+
BlockConstructStart a
308+
SrcSpan
309+
-- ^ original block start statement 'SrcSpan'
310+
(Maybe (Expression a))
311+
-- ^ label
312+
(Maybe String)
313+
-- ^ name
314+
deriving (Eq, Show, Data, Typeable, Generic, Functor)
315+
304316
data Block a =
305317
BlStatement a SrcSpan
306318
(Maybe (Expression a)) -- ^ Label
@@ -329,16 +341,14 @@ data Block a =
329341
(Maybe (Expression a)) -- ^ Label to END SELECT
330342

331343
| BlDo a SrcSpan
332-
(Maybe (Expression a)) -- ^ Label
333-
(Maybe String) -- ^ Construct name
344+
(BlockConstructStart a)
334345
(Maybe (Expression a)) -- ^ Target label
335346
(Maybe (DoSpecification a)) -- ^ Do Specification
336347
[ Block a ] -- ^ Body
337348
(Maybe (Expression a)) -- ^ Label to END DO
338349

339350
| BlDoWhile a SrcSpan
340-
(Maybe (Expression a)) -- ^ Label
341-
(Maybe String) -- ^ Construct name
351+
(BlockConstructStart a)
342352
(Maybe (Expression a)) -- ^ Target label
343353
(Expression a) -- ^ Condition
344354
[ Block a ] -- ^ Body
@@ -754,6 +764,7 @@ instance FirstParameter (Declarator a) a
754764
instance FirstParameter (DimensionDeclarator a) a
755765
instance FirstParameter (ControlPair a) a
756766
instance FirstParameter (AllocOpt a) a
767+
instance FirstParameter (BlockConstructStart a) a
757768

758769
instance SecondParameter (ProgramUnit a) SrcSpan
759770
instance SecondParameter (Prefix a) SrcSpan
@@ -783,6 +794,7 @@ instance SecondParameter (Declarator a) SrcSpan
783794
instance SecondParameter (DimensionDeclarator a) SrcSpan
784795
instance SecondParameter (ControlPair a) SrcSpan
785796
instance SecondParameter (AllocOpt a) SrcSpan
797+
instance SecondParameter (BlockConstructStart a) SrcSpan
786798

787799
instance Annotated (AList t)
788800
instance Annotated ProgramUnit
@@ -811,6 +823,7 @@ instance Annotated Declarator
811823
instance Annotated DimensionDeclarator
812824
instance Annotated ControlPair
813825
instance Annotated AllocOpt
826+
instance Annotated BlockConstructStart
814827

815828
instance Spanned (ProgramUnit a)
816829
instance Spanned (Prefix a)
@@ -840,6 +853,7 @@ instance Spanned (Declarator a)
840853
instance Spanned (DimensionDeclarator a)
841854
instance Spanned (ControlPair a)
842855
instance Spanned (AllocOpt a)
856+
instance Spanned (BlockConstructStart a)
843857

844858
instance Spanned (ProgramFile a) where
845859
getSpan (ProgramFile _ pus) =
@@ -854,25 +868,30 @@ class Labeled f where
854868
getLastLabel :: f a -> Maybe (Expression a)
855869
setLabel :: f a -> Expression a -> f a
856870

871+
instance Labeled BlockConstructStart where
872+
getLabel (BlockConstructStart _ _ l _) = l
873+
getLastLabel = const Nothing
874+
setLabel (BlockConstructStart a ss _ s) l = BlockConstructStart a ss (Just l) s
875+
857876
instance Labeled Block where
858877
getLabel (BlStatement _ _ l _) = l
859878
getLabel (BlIf _ _ l _ _ _ _) = l
860879
getLabel (BlCase _ _ l _ _ _ _ _) = l
861-
getLabel (BlDo _ _ l _ _ _ _ _) = l
862-
getLabel (BlDoWhile _ _ l _ _ _ _ _) = l
880+
getLabel (BlDo _ _ x _ _ _ _) = getLabel x
881+
getLabel (BlDoWhile _ _ x _ _ _ _) = getLabel x
863882
getLabel _ = Nothing
864883

865884
getLastLabel b@BlStatement{} = getLabel b
866885
getLastLabel (BlIf _ _ _ _ _ _ l) = l
867886
getLastLabel (BlCase _ _ _ _ _ _ _ l) = l
868-
getLastLabel (BlDo _ _ _ _ _ _ _ l) = l
869-
getLastLabel (BlDoWhile _ _ _ _ _ _ _ l) = l
887+
getLastLabel (BlDo _ _ _ _ _ _ l) = l
888+
getLastLabel (BlDoWhile _ _ _ _ _ _ l) = l
870889
getLastLabel _ = Nothing
871890

872891
setLabel (BlStatement a s _ st) l = BlStatement a s (Just l) st
873892
setLabel (BlIf a s _ mn conds bs el) l = BlIf a s (Just l) mn conds bs el
874-
setLabel (BlDo a s _ mn tl spec bs el) l = BlDo a s (Just l) mn tl spec bs el
875-
setLabel (BlDoWhile a s _ n tl spec bs el) l = BlDoWhile a s (Just l) n tl spec bs el
893+
setLabel (BlDo a s st tl spec bs el) l = BlDo a s (setLabel st l) tl spec bs el
894+
setLabel (BlDoWhile a s st tl spec bs el) l = BlDoWhile a s (setLabel st l) tl spec bs el
876895
setLabel b _ = b
877896

878897
data ProgramUnitName =
@@ -949,6 +968,7 @@ instance Out a => Out (AllocOpt a)
949968
instance Out UnaryOp
950969
instance Out BinaryOp
951970
instance Out a => Out (ForallHeader a)
971+
instance Out a => Out (BlockConstructStart a)
952972

953973
-- Classifiers on statement and blocks ASTs
954974

@@ -1042,3 +1062,4 @@ instance NFData BinaryOp
10421062
instance NFData Only
10431063
instance NFData ModuleNature
10441064
instance NFData Intent
1065+
instance NFData a => NFData (BlockConstructStart a)

‎src/Language/Fortran/Analysis.hs‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -335,10 +335,10 @@ computeAllLhsVars = concatMap lhsOfStmt . universeBi
335335
-- | Set of expressions used -- not defined -- by an AST-block.
336336
blockRhsExprs :: Data a => Block a -> [Expression a]
337337
blockRhsExprs (BlStatement _ _ _ s) = statementRhsExprs s
338-
blockRhsExprs (BlDo _ _ _ _ _ (Just (DoSpecification _ _ (StExpressionAssign _ _ lhs rhs) e1 e2)) _ _)
338+
blockRhsExprs (BlDo _ _ _ _ (Just (DoSpecification _ _ (StExpressionAssign _ _ lhs rhs) e1 e2)) _ _)
339339
| ExpSubscript _ _ _ subs <- lhs = universeBi (rhs, e1, e2) ++ universeBi subs
340340
| otherwise = universeBi (rhs, e1, e2)
341-
blockRhsExprs (BlDoWhile _ _ e1 _ _ e2 _ _) = universeBi (e1, e2)
341+
blockRhsExprs (BlDoWhile _ _ e1 _ e2 _ _) = universeBi (e1, e2)
342342
blockRhsExprs (BlIf _ _ e1 _ e2 _ _) = universeBi (e1, e2)
343343
blockRhsExprs b = universeBi b
344344

@@ -360,7 +360,7 @@ blockVarUses :: forall a. Data a => Block (Analysis a) -> [Name]
360360
blockVarUses (BlStatement _ _ _ (StExpressionAssign _ _ lhs rhs))
361361
| ExpSubscript _ _ _ subs <- lhs = allVars rhs ++ concatMap allVars (aStrip subs)
362362
| otherwise = allVars rhs
363-
blockVarUses (BlDo _ _ _ _ _ (Just (DoSpecification _ _ (StExpressionAssign _ _ lhs rhs) e1 e2)) _ _)
363+
blockVarUses (BlDo _ _ _ _ (Just (DoSpecification _ _ (StExpressionAssign _ _ lhs rhs) e1 e2)) _ _)
364364
| ExpSubscript _ _ _ subs <- lhs = allVars rhs ++ allVars e1 ++ maybe [] allVars e2 ++ concatMap allVars (aStrip subs)
365365
| otherwise = allVars rhs ++ allVars e1 ++ maybe [] allVars e2
366366
blockVarUses (BlStatement _ _ _ st@StDeclaration{}) = concat [ rhsOfDecls d | d <- universeBi st ]
@@ -372,14 +372,14 @@ blockVarUses (BlStatement _ _ _ st@StDeclaration{}) = concat [ rhsOfDecls d | d
372372
blockVarUses (BlStatement _ _ _ (StCall _ _ f@(ExpValue _ _ (ValIntrinsic _)) _))
373373
| Just uses <- intrinsicUses f = uses
374374
blockVarUses (BlStatement _ _ _ (StCall _ _ _ (Just aexps))) = allVars aexps
375-
blockVarUses (BlDoWhile _ _ e1 _ _ e2 _ _) = maybe [] allVars e1 ++ allVars e2
375+
blockVarUses (BlDoWhile _ _ e1 _ e2 _ _) = maybe [] allVars (Just e1) ++ allVars e2
376376
blockVarUses (BlIf _ _ e1 _ e2 _ _) = maybe [] allVars e1 ++ concatMap (maybe [] allVars) e2
377377
blockVarUses b = allVars b
378378

379379
-- | Set of names defined by an AST-block.
380380
blockVarDefs :: Data a => Block (Analysis a) -> [Name]
381381
blockVarDefs b@BlStatement{} = allLhsVars b
382-
blockVarDefs (BlDo _ _ _ _ _ (Just doSpec) _ _) = allLhsVarsDoSpec doSpec
382+
blockVarDefs (BlDo _ _ _ _ (Just doSpec) _ _) = allLhsVarsDoSpec doSpec
383383
blockVarDefs _ = []
384384

385385
-- form name: n[i]

‎src/Language/Fortran/Analysis/BBlocks.hs‎

Lines changed: 11 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -91,11 +91,12 @@ labelWithinBlocks = perBlock'
9191
perBlock' :: Block (Analysis a) -> Block (Analysis a)
9292
perBlock' b =
9393
case b of
94+
-- TODO
9495
BlStatement a s e st -> BlStatement a s (mfill i e) (fill i st)
9596
BlIf a s e1 mn e2 bss el -> BlIf a s (mfill i e1) mn (mmfill i e2) bss el
9697
BlCase a s e1 mn e2 is bss el -> BlCase a s (mfill i e1) mn (fill i e2) (mmfill i is) bss el
97-
BlDo a s e1 mn tl e2 bs el -> BlDo a s (mfill i e1) mn tl (mfill i e2) bs el
98-
BlDoWhile a s e1 n tl e2 bs el -> BlDoWhile a s (mfill i e1) n tl (fill i e2) bs el
98+
BlDo a s e1 tl e2 bs el -> BlDo a s (fill i e1) tl (mfill i e2) bs el
99+
BlDoWhile a s e1 tl e2 bs el -> BlDoWhile a s (fill i e1) tl (fill i e2) bs el
99100
_ -> b
100101
where i = insLabel $ getAnnotation b
101102

@@ -407,14 +408,14 @@ perBlock b@(BlStatement a ss _ (StIfLogical _ _ exp stm)) = do
407408
perBlock b@(BlStatement _ _ _ StIfArithmetic{}) =
408409
-- Treat an arithmetic if similarly to a goto
409410
processLabel b >> addToBBlock b >> closeBBlock_
410-
perBlock b@(BlDo _ _ _ _ _ (Just spec) bs _) = do
411+
perBlock b@(BlDo _ _ _ _ (Just spec) bs _) = do
411412
let DoSpecification _ _ (StExpressionAssign _ _ _ e1) e2 me3 = spec
412413
_ <- processFunctionCalls e1
413414
_ <- processFunctionCalls e2
414415
_ <- case me3 of Just e3 -> Just `fmap` processFunctionCalls e3; Nothing -> return Nothing
415416
perDoBlock Nothing b bs
416-
perBlock b@(BlDo _ _ _ _ _ Nothing bs _) = perDoBlock Nothing b bs
417-
perBlock b@(BlDoWhile _ _ _ _ _ exp bs _) = perDoBlock (Just exp) b bs
417+
perBlock b@(BlDo _ _ _ _ Nothing bs _) = perDoBlock Nothing b bs
418+
perBlock b@(BlDoWhile _ _ _ _ exp bs _) = perDoBlock (Just exp) b bs
418419
perBlock b@(BlStatement _ _ _ StReturn{}) =
419420
processLabel b >> addToBBlock b >> closeBBlock_
420421
perBlock b@(BlStatement _ _ _ StGotoUnconditional{}) =
@@ -555,8 +556,8 @@ genTemp str = do
555556
-- Strip nested code not necessary since it is duplicated in another
556557
-- basic block.
557558
stripNestedBlocks :: Block a -> Block a
558-
stripNestedBlocks (BlDo a s l mn tl ds _ el) = BlDo a s l mn tl ds [] el
559-
stripNestedBlocks (BlDoWhile a s l tl n e _ el) = BlDoWhile a s l tl n e [] el
559+
stripNestedBlocks (BlDo a s x tl ds _ el) = BlDo a s x tl ds [] el
560+
stripNestedBlocks (BlDoWhile a s x n e _ el) = BlDoWhile a s x n e [] el
560561
stripNestedBlocks (BlIf a s l mn exps _ el) = BlIf a s l mn exps [] el
561562
stripNestedBlocks (BlCase a s l mn sc inds _ el) = BlCase a s l mn sc inds [] el
562563
stripNestedBlocks b = b
@@ -784,13 +785,13 @@ showBlock (BlStatement _ _ mlab st)
784785
StExit{} -> "exit"
785786
_ -> "<unhandled statement: " ++ show (toConstr (fmap (const ()) st)) ++ ">"
786787
showBlock (BlIf _ _ mlab _ (Just e1:_) _ _) = showLab mlab ++ "if " ++ showExpr e1 ++ "\\l"
787-
showBlock (BlDo _ _ mlab _ _ (Just spec) _ _) =
788-
showLab mlab ++ "do " ++ showExpr e1 ++ " <- " ++
788+
showBlock (BlDo _ _ x _ (Just spec) _ _) =
789+
showLab (getLabel x) ++ "do " ++ showExpr e1 ++ " <- " ++
789790
showExpr e2 ++ ", " ++
790791
showExpr e3 ++ ", " ++
791792
maybe "1" showExpr me4 ++ "\\l"
792793
where DoSpecification _ _ (StExpressionAssign _ _ e1 e2) e3 me4 = spec
793-
showBlock (BlDo _ _ _ _ _ Nothing _ _) = "do"
794+
showBlock (BlDo _ _ _ _ Nothing _ _) = "do"
794795
showBlock (BlComment{}) = ""
795796
showBlock b = "<unhandled block: " ++ show (toConstr (fmap (const ()) b)) ++ ">"
796797

‎src/Language/Fortran/PrettyPrint.hs‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -286,7 +286,7 @@ instance IndentablePretty (Block a) where
286286
abstract | v >= Fortran2003 && abstractp = "abstract "
287287
| otherwise = empty
288288

289-
pprint v (BlDo _ _ mLabel mn tl doSpec body el) i
289+
pprint v (BlDo _ _ (BlockConstructStart _ _ mLabel mn) tl doSpec body el) i
290290
| v >= Fortran77Extended =
291291
labeledIndent mLabel
292292
(pprint' v mn <?> colon <+>
@@ -310,7 +310,7 @@ instance IndentablePretty (Block a) where
310310
then indent i (pprint' v label <+> stDoc)
311311
else pprint' v mLabel `overlay` indent i stDoc
312312

313-
pprint v (BlDoWhile _ _ mLabel mName mTarget cond body el) i
313+
pprint v (BlDoWhile _ _ (BlockConstructStart _ _ mLabel mName) mTarget cond body el) i
314314
| v >= Fortran77Extended =
315315
labeledIndent mLabel
316316
(pprint' v mName <?> colon <+>

‎src/Language/Fortran/Transformation/Grouping.hs‎

Lines changed: 18 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -85,17 +85,19 @@ groupDo' (b:bs) = b' : bs'
8585
(b', bs') = case b of
8686
BlStatement a s label st
8787
-- Do While statement
88-
| StDoWhile _ _ mTarget Nothing condition <- st ->
88+
| StDoWhile a' s' mName Nothing condition <- st ->
8989
let ( blocks, leftOverBlocks, endLabel, stEnd ) =
90-
collectNonDoBlocks groupedBlocks mTarget
91-
in ( BlDoWhile a (getTransSpan s stEnd) label mTarget Nothing condition blocks endLabel
90+
collectNonDoBlocks groupedBlocks mName
91+
blStartStmt = BlockConstructStart a' s' label mName
92+
in ( BlDoWhile a (getTransSpan s stEnd) blStartStmt Nothing condition blocks endLabel
9293
, leftOverBlocks)
9394
-- Vanilla do statement
94-
| StDo _ _ mName Nothing doSpec <- st ->
95+
| StDo a' s' mName Nothing doSpec <- st ->
9596
let ( blocks, leftOverBlocks, endLabel, stEnd ) =
9697
collectNonDoBlocks groupedBlocks mName
97-
in ( BlDo a (getTransSpan s stEnd) label mName Nothing doSpec blocks endLabel
98-
, leftOverBlocks)
98+
blStartStmt = BlockConstructStart a' s' label mName
99+
in ( BlDo a (getTransSpan s stEnd) blStartStmt Nothing doSpec blocks endLabel
100+
, leftOverBlocks)
99101
b'' | containsGroups b'' ->
100102
( applyGroupingToSubblocks groupDo' b'', groupedBlocks )
101103
_ -> ( b, groupedBlocks )
@@ -137,16 +139,18 @@ groupLabeledDo' (b:bs) = b' : bs'
137139
where
138140
(b', bs') = case b of
139141
BlStatement a s label
140-
(StDo _ _ mn tl@Just{} doSpec) ->
142+
(StDo a' ss' mn tl@Just{} doSpec) ->
141143
let ( blocks, leftOverBlocks, lastLabel ) =
142144
collectNonLabeledDoBlocks tl groupedBlocks
143-
in ( BlDo a (getTransSpan s blocks) label mn tl doSpec blocks lastLabel
145+
blStartStmt = BlockConstructStart a' ss' label mn
146+
in ( BlDo a (getTransSpan s blocks) blStartStmt tl doSpec blocks lastLabel
144147
, leftOverBlocks )
145148
BlStatement a s label
146-
(StDoWhile _ _ mn tl@Just{} cond) ->
149+
(StDoWhile a' ss' mn tl@Just{} cond) ->
147150
let ( blocks, leftOverBlocks, lastLabel ) =
148151
collectNonLabeledDoBlocks tl groupedBlocks
149-
in ( BlDoWhile a (getTransSpan s blocks) label mn tl cond blocks lastLabel
152+
blStartStmt = BlockConstructStart a' ss' label mn
153+
in ( BlDoWhile a (getTransSpan s blocks) blStartStmt tl cond blocks lastLabel
150154
, leftOverBlocks )
151155
b'' | containsGroups b'' ->
152156
( applyGroupingToSubblocks groupLabeledDo' b'', groupedBlocks )
@@ -210,10 +214,10 @@ applyGroupingToSubblocks f b
210214
BlIf a s l mn conds (map f blocks) el
211215
| BlCase a s l mn scrutinee conds blocks el <- b =
212216
BlCase a s l mn scrutinee conds (map f blocks) el
213-
| BlDo a s l n tl doSpec blocks el <- b =
214-
BlDo a s l n tl doSpec (f blocks) el
215-
| BlDoWhile a s l n tl doSpec blocks el <- b =
216-
BlDoWhile a s l n tl doSpec (f blocks) el
217+
| BlDo a s x tl doSpec blocks el <- b =
218+
BlDo a s x tl doSpec (f blocks) el
219+
| BlDoWhile a s x tl doSpec blocks el <- b =
220+
BlDoWhile a s x tl doSpec (f blocks) el
217221
| BlInterface{} <- b =
218222
error "Interface blocks do not have groupable subblocks. Must not occur."
219223
| BlComment{} <- b =

‎test/Language/Fortran/PrettyPrintSpec.hs‎

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -303,7 +303,7 @@ spec =
303303
describe "Do While" $ do
304304
it "prints simple do while loop" $ do
305305
let cond = ExpBinary () u LFA.GT (varGen "i") (intGen 42)
306-
let bl = BlDoWhile () u Nothing (Just "my_block") Nothing cond body Nothing
306+
let bl = BlDoWhile () u (BlockConstructStart () u Nothing (Just "my_block")) Nothing cond body Nothing
307307
let expect = unlines [ "my_block: do while ((i > 42))"
308308
, "print *, i"
309309
, "i = (i - 1)"
@@ -312,7 +312,7 @@ spec =
312312

313313
it "prints a labelled do while loop" $ do
314314
let cond = ExpBinary () u LFA.GT (varGen "i") (intGen 42)
315-
let bl = BlDoWhile () u Nothing Nothing (Just (intGen 10)) cond body Nothing
315+
let bl = BlDoWhile () u (BlockConstructStart () u Nothing Nothing) (Just (intGen 10)) cond body Nothing
316316
let expect = unlines [ "do 10 while ((i > 42))"
317317
, "print *, i"
318318
, "i = (i - 1)" ]
@@ -323,23 +323,23 @@ spec =
323323
let doSpec = DoSpecification () u iAssign (intGen 9) (Just (intGen 2))
324324

325325
it "prints 90 style do loop" $ do
326-
let bl = BlDo () u Nothing Nothing Nothing (Just doSpec) body Nothing
326+
let bl = BlDo () u (BlockConstructStart () u Nothing Nothing) Nothing (Just doSpec) body Nothing
327327
let expect = unlines [ "do i = 1, 9, 2"
328328
, "print *, i"
329329
, "i = (i - 1)"
330330
, "end do" ]
331331
pprint Fortran90 bl Nothing `shouldBe` text expect
332332

333333
it "prints named infinite do loop" $ do
334-
let bl = BlDo () u Nothing (Just "joker") Nothing Nothing body Nothing
334+
let bl = BlDo () u (BlockConstructStart () u Nothing (Just "joker")) Nothing Nothing body Nothing
335335
let expect = unlines [ "joker: do"
336336
, "print *, i"
337337
, "i = (i - 1)"
338338
, "end do joker" ]
339339
pprint Fortran90 bl Nothing `shouldBe` text expect
340340

341341
it "prints named labeled do loop" $ do
342-
let bl = BlDo () u Nothing (Just "joker") (Just $ intGen 42) (Just doSpec) body (Just $ intGen 42)
342+
let bl = BlDo () u (BlockConstructStart () u Nothing (Just "joker")) (Just $ intGen 42) (Just doSpec) body (Just $ intGen 42)
343343
let expect = unlines [ "joker: do 42 i = 1, 9, 2"
344344
, "print *, i"
345345
, "i = (i - 1)"
@@ -348,7 +348,7 @@ spec =
348348

349349
it "prints vanilla labeled do loop" $ do
350350
let body2 = body ++ [ BlStatement () u (Just $ intGen 42) (StContinue () u) ]
351-
let bl = BlDo () u Nothing Nothing (Just $ intGen 42) (Just doSpec) body2 (Just $ intGen 42)
351+
let bl = BlDo () u (BlockConstructStart () u Nothing Nothing) (Just $ intGen 42) (Just doSpec) body2 (Just $ intGen 42)
352352
let expect = unlines [ " do 42 i = 1, 9, 2"
353353
, " print *, i"
354354
, " i = (i - 1)"

0 commit comments

Comments
 (0)