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.