URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [continuation_5.f] - Blame information for rev 774

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options -std=f95 }`
3			`! PR 19262 Test limit on line continuations. Test case derived form case in PR`
4			`! by Steve Kargl. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>`
5			`print *,`
6			`c "1" // ! 1`
7			`c "2" // ! 2`
8			`c "3" // ! 3`
9			`c "4" // ! 4`
10			`c "5" // ! 5`
11			`c "6" // ! 6`
12			`c "7" // ! 7`
13			`c "8" // ! 8`
14			`c "9" // ! 9`
15			`c "0" // ! 10`
16			`c "1" // ! 11`
17			`c "2" // ! 12`
18			`c "3" // ! 13`
19			`c "4" // ! 14`
20			`c "5" // ! 15`
21			`c "6" // ! 16`
22			`c "7" // ! 17`
23			`c "8" // ! 18`
24			`c "9" ! 19`
25			`print *,`
26			`c "1" // ! 1`
27			`c "2" // ! 2`
28			`c "3" // ! 3`
29			`c "4" // ! 4`
30			`c "5" // ! 5`
31			`c "6" // ! 6`
32			`c "7" // ! 7`
33			`c "8" // ! 8`
34			`c "9" // ! 9`
35			`!`
36			`c`
37			`*`
38			`C`
39			`c "0" // ! 10`
40			`c "1" // ! 11`
41			`c "2" // ! 12`
42			`c "3" // ! 13`
43			`c "4" // ! 14`
44			`c`
45
46			`!`
47			`!`
48			`c "5" // ! 15`
49			`c "6" // ! 16`
50			`c "7" // ! 17`
51			`c "8" // ! 18`
52			`c "9" // ! 19`
53			`c "0" ! { dg-warning "Limit of 19 continuations exceeded" }`
54			`end`