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

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

5
Task/Literals-String/Fortran/literals-string-2.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-3.f Normal file
View file

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