]>
Commit | Line | Data |
---|---|---|
fd6590f8 TK |
1 | 2008-01-11 Thomas Koenig <tkoenig@gcc.gnu.org> |
2 | ||
3 | PR libfortran/34670 | |
4 | * m4/iparm.m4 (upcase): New macro (copied from the m4 manual). | |
5 | (u_name): New macro for the upper case name of the intrinsic. | |
6 | * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Add | |
7 | bounds checking and rank check, depending on | |
8 | compile_options.bounds_check. | |
9 | (`m'name`'rtype_qual`_'atype_code): Likewise. | |
10 | (`s'name`'rtype_qual`_'atype_code): Likewise. | |
11 | * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Add | |
12 | bounds checking and rank check, depending on | |
13 | compile_options.bounds_check. | |
14 | (`m'name`'rtype_qual`_'atype_code): Likewise. | |
15 | (`s'name`'rtype_qual`_'atype_code): Likewise. | |
16 | * generated/all_l16.c: Regenerated. | |
17 | * generated/all_l4.c: Regenerated. | |
18 | * generated/all_l8.c: Regenerated. | |
19 | * generated/any_l16.c: Regenerated. | |
20 | * generated/any_l4.c: Regenerated. | |
21 | * generated/any_l8.c: Regenerated. | |
22 | * generated/count_16_l16.c: Regenerated. | |
23 | * generated/count_16_l4.c: Regenerated. | |
24 | * generated/count_16_l8.c: Regenerated. | |
25 | * generated/count_4_l16.c: Regenerated. | |
26 | * generated/count_4_l4.c: Regenerated. | |
27 | * generated/count_4_l8.c: Regenerated. | |
28 | * generated/count_8_l16.c: Regenerated. | |
29 | * generated/count_8_l4.c: Regenerated. | |
30 | * generated/count_8_l8.c: Regenerated. | |
31 | * generated/maxloc0_16_i1.c: Regenerated. | |
32 | * generated/maxloc0_16_i16.c: Regenerated. | |
33 | * generated/maxloc0_16_i2.c: Regenerated. | |
34 | * generated/maxloc0_16_i4.c: Regenerated. | |
35 | * generated/maxloc0_16_i8.c: Regenerated. | |
36 | * generated/maxloc0_16_r10.c: Regenerated. | |
37 | * generated/maxloc0_16_r16.c: Regenerated. | |
38 | * generated/maxloc0_16_r4.c: Regenerated. | |
39 | * generated/maxloc0_16_r8.c: Regenerated. | |
40 | * generated/maxloc0_4_i1.c: Regenerated. | |
41 | * generated/maxloc0_4_i16.c: Regenerated. | |
42 | * generated/maxloc0_4_i2.c: Regenerated. | |
43 | * generated/maxloc0_4_i4.c: Regenerated. | |
44 | * generated/maxloc0_4_i8.c: Regenerated. | |
45 | * generated/maxloc0_4_r10.c: Regenerated. | |
46 | * generated/maxloc0_4_r16.c: Regenerated. | |
47 | * generated/maxloc0_4_r4.c: Regenerated. | |
48 | * generated/maxloc0_4_r8.c: Regenerated. | |
49 | * generated/maxloc0_8_i1.c: Regenerated. | |
50 | * generated/maxloc0_8_i16.c: Regenerated. | |
51 | * generated/maxloc0_8_i2.c: Regenerated. | |
52 | * generated/maxloc0_8_i4.c: Regenerated. | |
53 | * generated/maxloc0_8_i8.c: Regenerated. | |
54 | * generated/maxloc0_8_r10.c: Regenerated. | |
55 | * generated/maxloc0_8_r16.c: Regenerated. | |
56 | * generated/maxloc0_8_r4.c: Regenerated. | |
57 | * generated/maxloc0_8_r8.c: Regenerated. | |
58 | * generated/maxloc1_16_i1.c: Regenerated. | |
59 | * generated/maxloc1_16_i16.c: Regenerated. | |
60 | * generated/maxloc1_16_i2.c: Regenerated. | |
61 | * generated/maxloc1_16_i4.c: Regenerated. | |
62 | * generated/maxloc1_16_i8.c: Regenerated. | |
63 | * generated/maxloc1_16_r10.c: Regenerated. | |
64 | * generated/maxloc1_16_r16.c: Regenerated. | |
65 | * generated/maxloc1_16_r4.c: Regenerated. | |
66 | * generated/maxloc1_16_r8.c: Regenerated. | |
67 | * generated/maxloc1_4_i1.c: Regenerated. | |
68 | * generated/maxloc1_4_i16.c: Regenerated. | |
69 | * generated/maxloc1_4_i2.c: Regenerated. | |
70 | * generated/maxloc1_4_i4.c: Regenerated. | |
71 | * generated/maxloc1_4_i8.c: Regenerated. | |
72 | * generated/maxloc1_4_r10.c: Regenerated. | |
73 | * generated/maxloc1_4_r16.c: Regenerated. | |
74 | * generated/maxloc1_4_r4.c: Regenerated. | |
75 | * generated/maxloc1_4_r8.c: Regenerated. | |
76 | * generated/maxloc1_8_i1.c: Regenerated. | |
77 | * generated/maxloc1_8_i16.c: Regenerated. | |
78 | * generated/maxloc1_8_i2.c: Regenerated. | |
79 | * generated/maxloc1_8_i4.c: Regenerated. | |
80 | * generated/maxloc1_8_i8.c: Regenerated. | |
81 | * generated/maxloc1_8_r10.c: Regenerated. | |
82 | * generated/maxloc1_8_r16.c: Regenerated. | |
83 | * generated/maxloc1_8_r4.c: Regenerated. | |
84 | * generated/maxloc1_8_r8.c: Regenerated. | |
85 | * generated/maxval_i1.c: Regenerated. | |
86 | * generated/maxval_i16.c: Regenerated. | |
87 | * generated/maxval_i2.c: Regenerated. | |
88 | * generated/maxval_i4.c: Regenerated. | |
89 | * generated/maxval_i8.c: Regenerated. | |
90 | * generated/maxval_r10.c: Regenerated. | |
91 | * generated/maxval_r16.c: Regenerated. | |
92 | * generated/maxval_r4.c: Regenerated. | |
93 | * generated/maxval_r8.c: Regenerated. | |
94 | * generated/minloc0_16_i1.c: Regenerated. | |
95 | * generated/minloc0_16_i16.c: Regenerated. | |
96 | * generated/minloc0_16_i2.c: Regenerated. | |
97 | * generated/minloc0_16_i4.c: Regenerated. | |
98 | * generated/minloc0_16_i8.c: Regenerated. | |
99 | * generated/minloc0_16_r10.c: Regenerated. | |
100 | * generated/minloc0_16_r16.c: Regenerated. | |
101 | * generated/minloc0_16_r4.c: Regenerated. | |
102 | * generated/minloc0_16_r8.c: Regenerated. | |
103 | * generated/minloc0_4_i1.c: Regenerated. | |
104 | * generated/minloc0_4_i16.c: Regenerated. | |
105 | * generated/minloc0_4_i2.c: Regenerated. | |
106 | * generated/minloc0_4_i4.c: Regenerated. | |
107 | * generated/minloc0_4_i8.c: Regenerated. | |
108 | * generated/minloc0_4_r10.c: Regenerated. | |
109 | * generated/minloc0_4_r16.c: Regenerated. | |
110 | * generated/minloc0_4_r4.c: Regenerated. | |
111 | * generated/minloc0_4_r8.c: Regenerated. | |
112 | * generated/minloc0_8_i1.c: Regenerated. | |
113 | * generated/minloc0_8_i16.c: Regenerated. | |
114 | * generated/minloc0_8_i2.c: Regenerated. | |
115 | * generated/minloc0_8_i4.c: Regenerated. | |
116 | * generated/minloc0_8_i8.c: Regenerated. | |
117 | * generated/minloc0_8_r10.c: Regenerated. | |
118 | * generated/minloc0_8_r16.c: Regenerated. | |
119 | * generated/minloc0_8_r4.c: Regenerated. | |
120 | * generated/minloc0_8_r8.c: Regenerated. | |
121 | * generated/minloc1_16_i1.c: Regenerated. | |
122 | * generated/minloc1_16_i16.c: Regenerated. | |
123 | * generated/minloc1_16_i2.c: Regenerated. | |
124 | * generated/minloc1_16_i4.c: Regenerated. | |
125 | * generated/minloc1_16_i8.c: Regenerated. | |
126 | * generated/minloc1_16_r10.c: Regenerated. | |
127 | * generated/minloc1_16_r16.c: Regenerated. | |
128 | * generated/minloc1_16_r4.c: Regenerated. | |
129 | * generated/minloc1_16_r8.c: Regenerated. | |
130 | * generated/minloc1_4_i1.c: Regenerated. | |
131 | * generated/minloc1_4_i16.c: Regenerated. | |
132 | * generated/minloc1_4_i2.c: Regenerated. | |
133 | * generated/minloc1_4_i4.c: Regenerated. | |
134 | * generated/minloc1_4_i8.c: Regenerated. | |
135 | * generated/minloc1_4_r10.c: Regenerated. | |
136 | * generated/minloc1_4_r16.c: Regenerated. | |
137 | * generated/minloc1_4_r4.c: Regenerated. | |
138 | * generated/minloc1_4_r8.c: Regenerated. | |
139 | * generated/minloc1_8_i1.c: Regenerated. | |
140 | * generated/minloc1_8_i16.c: Regenerated. | |
141 | * generated/minloc1_8_i2.c: Regenerated. | |
142 | * generated/minloc1_8_i4.c: Regenerated. | |
143 | * generated/minloc1_8_i8.c: Regenerated. | |
144 | * generated/minloc1_8_r10.c: Regenerated. | |
145 | * generated/minloc1_8_r16.c: Regenerated. | |
146 | * generated/minloc1_8_r4.c: Regenerated. | |
147 | * generated/minloc1_8_r8.c: Regenerated. | |
148 | * generated/minval_i1.c: Regenerated. | |
149 | * generated/minval_i16.c: Regenerated. | |
150 | * generated/minval_i2.c: Regenerated. | |
151 | * generated/minval_i4.c: Regenerated. | |
152 | * generated/minval_i8.c: Regenerated. | |
153 | * generated/minval_r10.c: Regenerated. | |
154 | * generated/minval_r16.c: Regenerated. | |
155 | * generated/minval_r4.c: Regenerated. | |
156 | * generated/minval_r8.c: Regenerated. | |
157 | * generated/product_c10.c: Regenerated. | |
158 | * generated/product_c16.c: Regenerated. | |
159 | * generated/product_c4.c: Regenerated. | |
160 | * generated/product_c8.c: Regenerated. | |
161 | * generated/product_i1.c: Regenerated. | |
162 | * generated/product_i16.c: Regenerated. | |
163 | * generated/product_i2.c: Regenerated. | |
164 | * generated/product_i4.c: Regenerated. | |
165 | * generated/product_i8.c: Regenerated. | |
166 | * generated/product_r10.c: Regenerated. | |
167 | * generated/product_r16.c: Regenerated. | |
168 | * generated/product_r4.c: Regenerated. | |
169 | * generated/product_r8.c: Regenerated. | |
170 | * generated/sum_c10.c: Regenerated. | |
171 | * generated/sum_c16.c: Regenerated. | |
172 | * generated/sum_c4.c: Regenerated. | |
173 | * generated/sum_c8.c: Regenerated. | |
174 | * generated/sum_i1.c: Regenerated. | |
175 | * generated/sum_i16.c: Regenerated. | |
176 | * generated/sum_i2.c: Regenerated. | |
177 | * generated/sum_i4.c: Regenerated. | |
178 | * generated/sum_i8.c: Regenerated. | |
179 | * generated/sum_r10.c: Regenerated. | |
180 | * generated/sum_r16.c: Regenerated. | |
181 | * generated/sum_r4.c: Regenerated. | |
182 | * generated/sum_r8.c: Regenerated. | |
183 | ||
fa347f22 JD |
184 | 2008-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org> |
185 | ||
186 | PR libfortran/34676 | |
187 | * io/list_read.c (next_char): Only save the EOF condition for later if | |
188 | advance="no". | |
189 | ||
9370b3c0 TK |
190 | 2008-01-03 Thomas Koenig <tkoenig@gcc.gnu.org> |
191 | ||
192 | PR libfortran/34565 | |
193 | * io/io.h: Adjust protoypes for open_internal(), | |
194 | next_array_record() and init_loop_spec(). | |
195 | * io/list_read.c (next_char): Use argument "finished" | |
196 | of next_array_record to check for end on internal file. | |
197 | * io/unit.c: Calculate the offset for an array | |
198 | internal file and supply this informatin to open_internal(). | |
199 | * io/unix.c (open_internal): Set the offset for the internal | |
200 | file on open. | |
201 | * io/transfer.c (init_loop_spec): Calculate the starting | |
202 | record in case of negative strides. Return size of 0 for | |
203 | an empty array. | |
204 | (next_array_record): Use an extra flag to signal that the | |
205 | array is finished. | |
206 | (next_record_r): Use the new flag to next_array_record(). | |
207 | (next_record_w): Likewise. |