First commit of partial RosettaCode contents.

Pushing this for testing purposes. Lots of work still needed.
This commit is contained in:
Ingy döt Net 2013-04-08 13:02:41 -07:00
commit 1e05ecd7ee
781 changed files with 9080 additions and 0 deletions

View file

@ -0,0 +1,2 @@
C If compiled in debugging mode, print the current value of I
D PRINT *, I

View file

@ -0,0 +1 @@
real :: a = 0.0 ! initialize A to be zero

View file

@ -0,0 +1,7 @@
?? if (.false.) then
do while (oh_no)
a = bad_news()
b = big_mistake()
c = gigo()
end do
?? end if

View 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.