aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Flow-control-structures/Fortran/flow-control-structures-1.f Normal file
View file

@ -0,0 +1,12 @@
...
ASSIGN 1101 to WHENCE !Remember my return point.
GO TO 1000 !Dive into a "subroutine"
1101 CONTINUE !Resume.
...
ASSIGN 1102 to WHENCE !Prepare for another invocation.
GO TO 1000 !Like GOSUB in BASIC.
1102 CONTINUE !Carry on.
...
Common code, far away.
1000 do something !This has all the context available.
GO TO WHENCE !Return whence I came.

4
Task/Flow-control-structures/Fortran/flow-control-structures-2.f Normal file
View file

@ -0,0 +1,4 @@
ASSIGN 2000 TO WHENCE !Deviant "return" from 1000 to invoke 2000.
ASSIGN 1103 TO THENCE !Desired return from 2000.
GO TO 1000
1103 CONTINUE

6
Task/Flow-control-structures/Fortran/flow-control-structures-3.f Normal file
View file

@ -0,0 +1,6 @@
SUBROUTINE FRED(X,*,*) !With placeholders for unusual parameters.
...
RETURN !Normal return from FRED.
...
RETURN 2 !Return to the second label.
END

9
Task/Flow-control-structures/Fortran/flow-control-structures-4.f Normal file
View file

@ -0,0 +1,9 @@
XX:DO WHILE(condition)
statements...
NN:DO I = 1,N
statements...
IF (...) EXIT XX
IF (...) CYCLE NN
statements...
END DO NN
END DO XX