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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Literals-String/Fortran/literals-string-1.f Normal file
View file

@ -0,0 +1,7 @@
DIMENSION ATWT(12)
PRINT 1
1 FORMAT (12HElement Name,F9.4)
DO 10 I = 1,12
READ 1,ATWT(I)
10 PRINT 1,ATWT(I)
END

2
Task/Literals-String/Fortran/literals-string-2.f Normal file
View file

@ -0,0 +1,2 @@
BLAH = "
1Stuff"

5
Task/Literals-String/Fortran/literals-string-3.f Normal file
View file

@ -0,0 +1,5 @@
TEXT = 'That''s right!' !Only apostrophes as delimiters. Doubling required.
TEXT = "That's right!" !Chose quotes, so that apostrophes may be used freely.
TEXT = "He said ""That's right!""" !Give in, and use quotes for a "quoted string" source style.
TEXT = 'He said "That''s right!"' !Though one may dabble in inconsistency.
TEXT = 23HHe said "That's right!" !Some later compilers allowed Hollerith to escape from FORMAT.

1
Task/Literals-String/Fortran/literals-string-4.f Normal file
View file

@ -0,0 +1 @@
TEXT = "That's"//CHAR(10)//"right!" !For an ASCII linefeed (or newline) character.