First commit of partial RosettaCode contents.
Pushing this for testing purposes. Lots of work still needed.
This commit is contained in:
commit
1e05ecd7ee
781 changed files with 9080 additions and 0 deletions
2
Task/Comments/Fortran/comments-2.f
Normal file
2
Task/Comments/Fortran/comments-2.f
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
C If compiled in debugging mode, print the current value of I
|
||||
D PRINT *, I
|
||||
1
Task/Comments/Fortran/comments-3.f
Normal file
1
Task/Comments/Fortran/comments-3.f
Normal file
|
|
@ -0,0 +1 @@
|
|||
real :: a = 0.0 ! initialize A to be zero
|
||||
7
Task/Comments/Fortran/comments-4.f
Normal file
7
Task/Comments/Fortran/comments-4.f
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
?? if (.false.) then
|
||||
do while (oh_no)
|
||||
a = bad_news()
|
||||
b = big_mistake()
|
||||
c = gigo()
|
||||
end do
|
||||
?? end if
|
||||
2
Task/Comments/Fortran/comments.f
Normal file
2
Task/Comments/Fortran/comments.f
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
C This would be some kind of comment
|
||||
C Usually one would avoid columns 2-6 even in a comment.
|
||||
Loading…
Add table
Add a link
Reference in a new issue