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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [continuation_3.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

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
5 
print *, &
6 
       "1" // & !  1
7 
       "2" // & !  2
8 
       "3" // & !  3
9 
       "4" // & !  4
10 
       "5" // & !  5
11 
       "6" // & !  6
12 
       "7" // & !  7
13 
       "8" // & !  8
14 
       "9" // & !  9
15 
       "0" // & ! 10
16 
       "1" // & ! 11
17 
       "2" // & ! 12
18 
       "3" // & ! 13
19 
       "4" // & ! 14
20 
       "5" // & ! 15
21 
       "6" // & ! 16
22 
       "7" // & ! 17
23 
       "8" // & ! 18
24 
       "9" // & ! 19
25 
       "0" // & ! 20
26 
       "1" // & ! 21
27 
       "2" // & ! 22
28 
       "3" // & ! 23
29 
       "4" // & ! 24
30 
       "5" // & ! 25
31 
       "6" // & ! 26
32 
       "7" // & ! 27
33 
       "8" // & ! 28
34 
       "9" // & ! 29
35 
       "0" // & ! 30
36 
       "1" // & ! 31
37 
       "2" // & ! 32
38 
       "3" // & ! 33
39 
       "4" // & ! 34
40 
       "5" // & ! 35
41 
       "6" // & ! 36
42 
       "7" // & ! 37
43 
       "8" // & ! 38
44 
       "9"
45 
print *, &
46 
       "1" // & !  1
47 
       "2" // & !  2
48 
       "3" // & !  3
49 
       "4" // & !  4
50 
       "5" // & !  5
51 
       "6" // & !  6
52 
       "7" // & !  7
53 
       "8" // & !  8
54 
       "9" // & !  9
55 
       "0" // & ! 10
56 
       "1" // & ! 11
57 
       "2" // & ! 12
58 
       "3" // & ! 13
59 
       "4" // & ! 14
60 
       "5" // & ! 15
61 
       "6" // & ! 16
62 
       "7" // & ! 17
63 
       "8" // & ! 18
64 
       "9" // & ! 19
65 
       "0" // & ! 20
66 
       "1" // & ! 21
67 
       "2" // & ! 22
68 
       "3" // & ! 23
69 
       "4" // & ! 24
70 
       "5" // & ! 25
71 
       "6" // & ! 26
72 
       "7" // & ! 27
73 
       "8" // & ! 28
74 
       "9" // & ! 29
75 
!
76 
   !
77 
       "0" // & ! 30
78 
       "1" // & ! 31
79 
!
80 
!
81 
       "2" // & ! 32
82 
       "3" // & ! 33
83 
       "4" // & ! 34
84 
       "5" // & ! 35
85 
       "6" // & ! 36
86 
       "7" // & ! 37
87 
       "8" // & ! 38
88 
       "9" // & ! 39
89 
       "0"      ! { dg-warning "Limit of 39 continuations exceeded" }
90 
 
91 
end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.