blob: fd1228450dc1acef1021103b16a29283bfa0989a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
! RUN: %flang -fsyntax-only < %s
P&
&R&
&O&
&G&
&R&
&A&
&M&
& TORTURE
! Torture the lexer and parser.
CHARACTER (LEN=256) :: A, B, C, D, E, F, G
A = '&
&'
B = '"&
&"'
C = 'Hello & ! world &
& ooh! here'&
&'s a &
! Yo! comment here!
&fugly contiua&
&tion'''
! An '&' is not allowed on a line by itself or with only a comment.
D = '''&
&"'
E = ''''
F = """"
G = ''&
&''
END PROGRAM TORTURE
|