1 |
733 |
jeremybenn |
2005-12-31 Jerry DeLisle
|
2 |
|
|
|
3 |
|
|
PR libfortran/25594
|
4 |
|
|
PR libfortran/25419
|
5 |
|
|
* io/list_read.c (list_formatted_read_scalar): Test for comma to return
|
6 |
|
|
a null value (default). Revert patch of 25419 on 2005-12-28.
|
7 |
|
|
|
8 |
|
|
2005-12-28 Jerry DeLisle
|
9 |
|
|
|
10 |
|
|
PR libfortran/25139
|
11 |
|
|
* io/unix.c (fd_truncate): Set s->active to zero.
|
12 |
|
|
PR libfortran/25510
|
13 |
|
|
* libgfortran.h: Add ERROR_INTERNAL and ERROR_INTERNAL_UNIT.
|
14 |
|
|
* runtime/error.c (translate_error): Add messages for new errors.
|
15 |
|
|
* io/list_read.c (next_char): Use new errors.
|
16 |
|
|
* io/transfer.c (next_record_r) (next_record_w): Use new errors.
|
17 |
|
|
|
18 |
|
|
2005-12-28 Jerry DeLisle
|
19 |
|
|
|
20 |
|
|
PR libfortran/25550
|
21 |
|
|
* io/file_pos.c (st_rewind): Reset bytes left so no error occurs in
|
22 |
|
|
next_record_r.
|
23 |
|
|
|
24 |
|
|
2005-12-28 Jerry DeLisle
|
25 |
|
|
|
26 |
|
|
PR libfortran/25419
|
27 |
|
|
* io/list_read.c (list_formatted_read_scalar): Allow comma to return a
|
28 |
|
|
null value (default).
|
29 |
|
|
|
30 |
|
|
2005-12-21 Jerry DeLisle
|
31 |
|
|
|
32 |
|
|
PR libfortran/25307
|
33 |
|
|
* io/list_read.c (next_char): Handle end-of-file conditions for
|
34 |
|
|
internal units and add support for internal character array units.
|
35 |
|
|
|
36 |
|
|
2005-12-18 Jerry DeLisle
|
37 |
|
|
|
38 |
|
|
PR libfortran/25463
|
39 |
|
|
* io/transfer.c (finalize_transfer): Fix execution order so that
|
40 |
|
|
next_record is set to zero in all cases.
|
41 |
|
|
|
42 |
|
|
2005-12-16 Jerry DeLisle
|
43 |
|
|
|
44 |
|
|
PR libfortran/25264
|
45 |
|
|
PR libfortran/25349
|
46 |
|
|
* io/unit.c (get_unit): Delete code that cleared the string when the
|
47 |
|
|
unit was opened, which is too soon.
|
48 |
|
|
* io/transfer.c (next_record_w): Pass done flag in. Change logic for
|
49 |
|
|
setting max_pos. Add code to position unit and pad record as needed.
|
50 |
|
|
|
51 |
|
|
2005-12-13 Richard Sandiford
|
52 |
|
|
Victor Leikehman
|
53 |
|
|
|
54 |
|
|
* m4/matmul.m4: Use a different order in the special case of a
|
55 |
|
|
transposed first argument.
|
56 |
|
|
* generated/matmul_c4.c, generated/matmul_c8.c, generated/matmul_c10.c,
|
57 |
|
|
* generated/matmul_c16.c, generated/matmul_i4.c, generated/matmul_i8.c,
|
58 |
|
|
* generated/matmul_i10.c, generated/matmul_r4.c, generated/matmul_r8.c
|
59 |
|
|
* generated/matmul_r10.c, generated/matmul_r16.c: Regenerated.
|
60 |
|
|
|
61 |
|
|
2005-12-10 Janne Blomqvist
|
62 |
|
|
|
63 |
|
|
* Makefile.am: Enable loop unrolling for matmul.
|
64 |
|
|
* configure: Regenerated.
|
65 |
|
|
* Makefile.in: Regenerated.
|
66 |
|
|
* aclocal.m4: Regenerated.
|
67 |
|
|
|
68 |
|
|
2005-12-10 Thomas Koenig
|
69 |
|
|
|
70 |
|
|
PR fortran/23815
|
71 |
|
|
* io/file_pos.c (unformatted_backspace): If flags.convert
|
72 |
|
|
does not equal CONVERT_NATIVE, reverse the record marker.
|
73 |
|
|
* io/open.c: Add convert_opt[].
|
74 |
|
|
(st_open): If no convert option is given, set CONVERT_NATIVE.
|
75 |
|
|
If CONVERT_BIG or CONVERT_LITTLE are given, set flags.convert to
|
76 |
|
|
CONVERT_NATIVE or CONVERT_SWAP (depending on wether we have
|
77 |
|
|
a big- or little-endian system).
|
78 |
|
|
* io/transfer.c (unformatted_read): Remove unused attribute
|
79 |
|
|
from arguments.
|
80 |
|
|
If we need to reverse
|
81 |
|
|
bytes, break up large transfers into a loop. Split complex
|
82 |
|
|
numbers into its two parts.
|
83 |
|
|
(unformatted_write): Likewise.
|
84 |
|
|
(us_read): If flags.convert does not equal CONVERT_NATIVE,
|
85 |
|
|
reverse the record marker.
|
86 |
|
|
(next_record_w): Likewise.
|
87 |
|
|
(reverse_memcpy): New function.
|
88 |
|
|
* io/inquire.c (inquire_via_unit): Implement convert.
|
89 |
|
|
* io/io.h (top level): Add enum unit_convert.
|
90 |
|
|
Add convert to st_parameter_open and st_parameter_inquire.
|
91 |
|
|
Define IOPARM_OPEN_HAS_CONVERT and IOPARM_INQUIRE_HAS_CONVERT.
|
92 |
|
|
Increase padding for st_parameter_dt.
|
93 |
|
|
Declare reverse_memcpy().
|
94 |
|
|
|
95 |
|
|
2005-12-09 Jakub Jelinek
|
96 |
|
|
|
97 |
|
|
PR libfortran/24991
|
98 |
|
|
* acinclude.m4: Include acx.m4 and no-executables.m4.
|
99 |
|
|
* configure.ac: Add GCC_TOPLEVEL_SUBDIRS.
|
100 |
|
|
* configure: Rebuilt.
|
101 |
|
|
* Makefile.am (AM_CPPFLAGS): Use $(host_subdir) in build dir
|
102 |
|
|
path.
|
103 |
|
|
* Makefile.in: Rebuilt.
|
104 |
|
|
|
105 |
|
|
2005-12-08 Jerry DeLisle
|
106 |
|
|
|
107 |
|
|
PR libfortran/25039
|
108 |
|
|
* io/io.h: Create a new flag sf_read_comma to control comma
|
109 |
|
|
separators in numeric reads.
|
110 |
|
|
* io/transfer.c (formatted_transfer_scalar): Initialize the flag.
|
111 |
|
|
(read_sf): Check for commas coming in and if the flag is set,
|
112 |
|
|
shortcut the read.
|
113 |
|
|
* io/read.c (read_a) (read_x): Clear the flag for character reads and
|
114 |
|
|
reset it after the reads.
|
115 |
|
|
|
116 |
|
|
2005-12-04 Francois-Xavier Coudert
|
117 |
|
|
|
118 |
|
|
* io/format.c: Removing unused code.
|
119 |
|
|
* intrinsics/random.c: Likewise.
|
120 |
|
|
|
121 |
|
|
2005-12-02 Francois-Xavier Coudert
|
122 |
|
|
|
123 |
|
|
PR libfortran/25116
|
124 |
|
|
* io/transfer.c (data_transfer_init): Don't set the default for
|
125 |
|
|
namelist I/O on preconnected files to UNFORMATTED.
|
126 |
|
|
|
127 |
|
|
2005-11-30 Eric Botcazou
|
128 |
|
|
|
129 |
|
|
* libgfortran.h (ILP32 typedefs): Define _UINT8_T, _UINT32_T and
|
130 |
|
|
_UINT64_T on Solaris.
|
131 |
|
|
|
132 |
|
|
2005-11-28 Steven G. Kargl
|
133 |
|
|
|
134 |
|
|
PR libfortran/25149
|
135 |
|
|
* intrinsics/abort.c: Add external abort_ to allow linking when
|
136 |
|
|
invoking -std=f95 in testsuite.
|
137 |
|
|
|
138 |
|
|
2005-11-28 Jakub Jelinek
|
139 |
|
|
|
140 |
|
|
PR libfortran/24991
|
141 |
|
|
* acinclude.m4 (LIBGFOR_CHECK_PRAGMA_WEAK): Rename to...
|
142 |
|
|
(LIBGFOR_GTHREAD_WEAK): ... this. Define SUPPORTS_WEAK rather
|
143 |
|
|
than HAVE_PRAGMA_WEAK. Define GTHREAD_USE_WEAK to 0 on hosts
|
144 |
|
|
that shouldn't use weak in gthr.h.
|
145 |
|
|
* configure.ac: Use LIBGFOR_GTHREAD_WEAK instead of
|
146 |
|
|
LIBGFOR_CHECK_PRAGMA_WEAK.
|
147 |
|
|
* config.h.in: Regenerated.
|
148 |
|
|
* configure: Regenerated.
|
149 |
|
|
* io/io.h (SUPPORTS_WEAK): Don't define here.
|
150 |
|
|
|
151 |
|
|
* intrinsics/ftell.c (ftell, FTELL_SUB): Add unlock_unit call.
|
152 |
|
|
* intrinsics/fget.c (fgetc, fputs): Likewise.
|
153 |
|
|
* intrinsics/tty.c (ttynam): Likewise.
|
154 |
|
|
|
155 |
|
|
2005-11-27 Jerry DeLisle
|
156 |
|
|
|
157 |
|
|
PR libfortran/25109
|
158 |
|
|
* io/unit.c (init_units): Set default flag to BLANK_NULL per
|
159 |
|
|
requirement of F95 standard. Set PAD_YES for stdin.
|
160 |
|
|
|
161 |
|
|
2005-11-27 David Edelsohn
|
162 |
|
|
|
163 |
|
|
* intrinsics/random.c: Include config.h
|
164 |
|
|
* io/size_from_kind.c: Include config.h and libgfortran.h
|
165 |
|
|
* io/io.h: Revert 2005-11-21 change.
|
166 |
|
|
|
167 |
|
|
2005-11-27 Francois-Xavier Coudert
|
168 |
|
|
|
169 |
|
|
* io/write.c (namelist_write): Correct type in previous
|
170 |
|
|
commit.
|
171 |
|
|
|
172 |
|
|
2005-11-27 Francois-Xavier Coudert
|
173 |
|
|
|
174 |
|
|
PR libfortran/24919
|
175 |
|
|
* io/list_read.c (eat_separator, finish_separator,
|
176 |
|
|
read_character): Handle CRLF separators correctly during reads.
|
177 |
|
|
(nml_query): Use the HAVE_CRLF macro to print adequate newlines.
|
178 |
|
|
* io/io.h (st_parameter_dt): Add comment about the possible
|
179 |
|
|
values for sf_seen_eor.
|
180 |
|
|
* io/unix.c (tempfile, regular_file): HAVE_CRLF doesn't imply
|
181 |
|
|
that O_BINARY is defined, so we add that condition.
|
182 |
|
|
(stream_at_bof): Fix typo in comment.
|
183 |
|
|
* io/transfer.c (read_sf): Handle correctly CRLF, setting
|
184 |
|
|
sf_seen_eor value to 2 instead of 1.
|
185 |
|
|
(formatted_transfer_scalar): Use the sf_seen_eor value to
|
186 |
|
|
handle CRLF the right way.
|
187 |
|
|
* io/write.c (nml_write_obj, namelist_write): Use CRLF as newline
|
188 |
|
|
when HAVE_CRLF is defined.
|
189 |
|
|
|
190 |
|
|
2005-11-27 Janne Blomqvist
|
191 |
|
|
|
192 |
|
|
* m4/ifunction.m4: Add const restrict to function arguments.
|
193 |
|
|
* m4/iforeach.m4: Likewise.
|
194 |
|
|
* m4/eoshift1.m4: Likewise.
|
195 |
|
|
* m4/eoshift3.m4: Likewise.
|
196 |
|
|
* m4/dotprod.m4: Likewise.
|
197 |
|
|
* m4/dotprodc.m4: Likewise.
|
198 |
|
|
* m4/dotprodl.m4: Likewise.
|
199 |
|
|
* m4/shape.m4: Likewise.
|
200 |
|
|
* m4/cshift1.m4: Likewise.
|
201 |
|
|
* m4/reshape.m4: Likewise.
|
202 |
|
|
* m4/transpose.m4: Likewise.
|
203 |
|
|
* generated/eoshift*: Regenerated
|
204 |
|
|
* generated/dotprod*: Likewise.
|
205 |
|
|
* generated/shape*: Likewise.
|
206 |
|
|
* generated/cshift1*: Likewise.
|
207 |
|
|
* generated/reshape*: Likewise.
|
208 |
|
|
* generated/transpose*: Likewise.
|
209 |
|
|
|
210 |
|
|
2005-11-26 Richard Henderson
|
211 |
|
|
|
212 |
|
|
* io/list_read.c (nml_parse_qualifier): Use ssize_t instead of int
|
213 |
|
|
in dtp->u.p.value.
|
214 |
|
|
|
215 |
|
|
2005-11-26 Janne Blomqvist
|
216 |
|
|
|
217 |
|
|
PR libfortran/24945
|
218 |
|
|
* io/open.c (edit_modes): Check for STATUS_UNKNOWN flag.
|
219 |
|
|
|
220 |
|
|
2005-11-25 Richard Henderson
|
221 |
|
|
|
222 |
|
|
* io/list_read.c (nml_parse_qualifier): Use memcpy to extract
|
223 |
|
|
values from dtp->u.p.value.
|
224 |
|
|
* io/io.h (struct st_parameter_dt): Change reversion_flag, first_item,
|
225 |
|
|
seen_dollar, sf_seen_eor, eor_condition, no_leading_blank, char_flag,
|
226 |
|
|
input_complete, at_eol, comma_flag, namelist_mode, nml_read_error to
|
227 |
|
|
single-bit fields. Move value to where it'll be at least pointer
|
228 |
|
|
aligned.
|
229 |
|
|
|
230 |
|
|
2005-11-23 Alan Modra
|
231 |
|
|
|
232 |
|
|
* io/open.c (new_unit): Use the right unit number when checking
|
233 |
|
|
for stdin, stdout, stderr.
|
234 |
|
|
|
235 |
|
|
2005-11-22 Jerry DeLisle
|
236 |
|
|
|
237 |
|
|
PR libfortran/24794
|
238 |
|
|
* io/list_read.c (read_character): Add auto completion on short
|
239 |
|
|
namelist reads.
|
240 |
|
|
|
241 |
|
|
2005-11-21 David Edelsohn
|
242 |
|
|
|
243 |
|
|
* io/io.h (_LARGE_FILES): Undefine for AIX.
|
244 |
|
|
(_LARGE_FILE_API): Define for AIX.
|
245 |
|
|
|
246 |
|
|
2005-11-21 Jakub Jelinek
|
247 |
|
|
|
248 |
|
|
PR fortran/24774
|
249 |
|
|
PR fortran/14943
|
250 |
|
|
PR fortran/21647
|
251 |
|
|
* Makefile.am (AM_CPPFLAGS): Add gcc directories as -I paths,
|
252 |
|
|
add -D_GNU_SOURCE.
|
253 |
|
|
* Makefile.in: Regenerated.
|
254 |
|
|
* acinclude.m4 (LIBGFOR_CHECK_SYNC_FETCH_AND_ADD,
|
255 |
|
|
LIBGFOR_CHECK_GTHR_DEFAULT, LIBGFOR_CHECK_PRAGMA_WEAK): New macros.
|
256 |
|
|
* configure.ac: Add them.
|
257 |
|
|
* configure: Rebuilt.
|
258 |
|
|
* config.h.in: Rebuilt.
|
259 |
|
|
* libtool-version: Bump libgfortran.so SONAME to libgfortran.so.1.
|
260 |
|
|
* libgfortran.h (library_start, show_locus, internal_error,
|
261 |
|
|
generate_error, find_option): Add st_parameter_common * argument.
|
262 |
|
|
(library_end): Change into a dummy macro.
|
263 |
|
|
* io/io.h: Include gthr.h.
|
264 |
|
|
(SUPPORTS_WEAK): Define if HAVE_PRAGMA_WEAK.
|
265 |
|
|
(CHARACTER): Remove define.
|
266 |
|
|
(st_parameter, global_t): Remove typedef.
|
267 |
|
|
(ioparm, g, ionml, current_unit): Remove variables.
|
268 |
|
|
(init_error_stream): Remove prototype.
|
269 |
|
|
(CHARACTER1, CHARACTER2): Define.
|
270 |
|
|
(st_parameter_common, st_parameter_open, st_parameter_close,
|
271 |
|
|
st_parameter_filepos, st_parameter_inquire, st_parameter_dt): New
|
272 |
|
|
typedefs.
|
273 |
|
|
(IOPARM_LIBRETURN_MASK, IOPARM_LIBRETURN_OK, IOPARM_LIBRETURN_ERROR,
|
274 |
|
|
IOPARM_LIBRETURN_END, IOPARM_LIBRETURN_EOR, IOPARM_ERR, IOPARM_END,
|
275 |
|
|
IOPARM_EOR, IOPARM_HAS_IOSTAT, IOPARM_HAS_IOMSG, IOPARM_COMMON_MASK,
|
276 |
|
|
IOPARM_OPEN_HAS_RECL_IN, IOPARM_OPEN_HAS_FILE, IOPARM_OPEN_HAS_STATUS,
|
277 |
|
|
IOPARM_OPEN_HAS_ACCESS, IOPARM_OPEN_HAS_FORM, IOPARM_OPEN_HAS_BLANK,
|
278 |
|
|
IOPARM_OPEN_HAS_POSITION, IOPARM_OPEN_HAS_ACTION,
|
279 |
|
|
IOPARM_OPEN_HAS_DELIM, IOPARM_OPEN_HAS_PAD, IOPARM_CLOSE_HAS_STATUS,
|
280 |
|
|
IOPARM_INQUIRE_HAS_EXIST, IOPARM_INQUIRE_HAS_OPENED,
|
281 |
|
|
IOPARM_INQUIRE_HAS_NUMBER, IOPARM_INQUIRE_HAS_NAMED,
|
282 |
|
|
IOPARM_INQUIRE_HAS_NEXTREC, IOPARM_INQUIRE_HAS_RECL_OUT,
|
283 |
|
|
IOPARM_INQUIRE_HAS_FILE, IOPARM_INQUIRE_HAS_ACCESS,
|
284 |
|
|
IOPARM_INQUIRE_HAS_FORM, IOPARM_INQUIRE_HAS_BLANK,
|
285 |
|
|
IOPARM_INQUIRE_HAS_POSITION, IOPARM_INQUIRE_HAS_ACTION,
|
286 |
|
|
IOPARM_INQUIRE_HAS_DELIM, IOPARM_INQUIRE_HAS_PAD,
|
287 |
|
|
IOPARM_INQUIRE_HAS_NAME, IOPARM_INQUIRE_HAS_SEQUENTIAL,
|
288 |
|
|
IOPARM_INQUIRE_HAS_DIRECT, IOPARM_INQUIRE_HAS_FORMATTED,
|
289 |
|
|
IOPARM_INQUIRE_HAS_UNFORMATTED, IOPARM_INQUIRE_HAS_READ,
|
290 |
|
|
IOPARM_INQUIRE_HAS_WRITE, IOPARM_INQUIRE_HAS_READWRITE,
|
291 |
|
|
IOPARM_DT_LIST_FORMAT, IOPARM_DT_NAMELIST_READ_MODE,
|
292 |
|
|
IOPARM_DT_HAS_REC, IOPARM_DT_HAS_SIZE, IOPARM_DT_HAS_IOLENGTH,
|
293 |
|
|
IOPARM_DT_HAS_FORMAT, IOPARM_DT_HAS_ADVANCE,
|
294 |
|
|
IOPARM_DT_HAS_INTERNAL_UNIT, IOPARM_DT_HAS_NAMELIST_NAME,
|
295 |
|
|
IOPARM_DT_IONML_SET): Define.
|
296 |
|
|
(gfc_unit): Add lock, waiting and close fields. Change file
|
297 |
|
|
from flexible array member into pointer to char.
|
298 |
|
|
(open_external): Add st_parameter_open * argument.
|
299 |
|
|
(find_file, file_exists): Add file and file_len arguments.
|
300 |
|
|
(flush_all_units): New prototype.
|
301 |
|
|
(max_offset, unit_root, unit_lock): New variable.
|
302 |
|
|
(is_internal_unit, is_array_io, next_array_record,
|
303 |
|
|
parse_format, next_format, unget_format, format_error,
|
304 |
|
|
read_block, write_block, next_record, convert_real,
|
305 |
|
|
read_a, read_f, read_l, read_x, read_radix, read_decimal,
|
306 |
|
|
list_formatted_read, finish_list_read, namelist_read,
|
307 |
|
|
namelist_write, write_a, write_b, write_d, write_e, write_en,
|
308 |
|
|
write_es, write_f, write_i, write_l, write_o, write_x, write_z,
|
309 |
|
|
list_formatted_write, get_unit): Add st_parameter_dt * argument.
|
310 |
|
|
(insert_unit): Remove prototype.
|
311 |
|
|
(find_or_create_unit, unlock_unit): New prototype.
|
312 |
|
|
(new_unit): Return gfc_unit *. Add st_parameter_open *
|
313 |
|
|
and gfc_unit * arguments.
|
314 |
|
|
(free_fnodes): Remove prototype.
|
315 |
|
|
(free_format_data): New prototype.
|
316 |
|
|
(scratch): Remove.
|
317 |
|
|
(init_at_eol): Remove prototype.
|
318 |
|
|
(free_ionml): New prototype.
|
319 |
|
|
(inc_waiting_locked, predec_waiting_locked, dec_waiting_unlocked):
|
320 |
|
|
New inline functions.
|
321 |
|
|
* io/unit.c (max_offset, unit_root, unit_lock): New variables.
|
322 |
|
|
(insert): Adjust os_error caller.
|
323 |
|
|
(insert_unit): Made static. Allocate memory here, initialize
|
324 |
|
|
lock and after inserting it return it, locked.
|
325 |
|
|
(delete_unit): Adjust for deletion of g.
|
326 |
|
|
(find_unit_1): New function.
|
327 |
|
|
(find_unit): Use it.
|
328 |
|
|
(find_or_create_unit): New function.
|
329 |
|
|
(get_unit): Add dtp argument, change meaning of the int argument
|
330 |
|
|
as creation request flag. Adjust for different st_* calling
|
331 |
|
|
conventions, lock internal unit's lock before returning it
|
332 |
|
|
and removal of g. Call find_unit_1 instead of find_unit.
|
333 |
|
|
(is_internal_unit, is_array_io): Add dtp argument, adjust for
|
334 |
|
|
removal of most of global variables.
|
335 |
|
|
(init_units): Initialize unit_lock. Adjust insert_unit callers
|
336 |
|
|
and adjust for g removal.
|
337 |
|
|
(close_unit_1): New function.
|
338 |
|
|
(close_unit): Use it.
|
339 |
|
|
(unlock_unit): New function.
|
340 |
|
|
(close_units): Lock unit_lock, use close_unit_1 rather than
|
341 |
|
|
close_unit.
|
342 |
|
|
* io/close.c (st_close): Add clp argument. Adjust for new
|
343 |
|
|
st_* calling conventions and internal function API changes.
|
344 |
|
|
* io/file_pos.c (st_backspace, st_endfile, st_rewind, st_flush):
|
345 |
|
|
Add fpp argument. Adjust for new st_* calling conventions and
|
346 |
|
|
internal function API changes.
|
347 |
|
|
(formatted_backspace, unformatted_backspace): Likewise. Add
|
348 |
|
|
u argument.
|
349 |
|
|
* io/open.c (edit_modes, st_open): Add opp argument. Adjust for
|
350 |
|
|
new st_* calling conventions and internal function API changes.
|
351 |
|
|
(already_open): Likewise. If not HAVE_UNLINK_OPEN_FILE, unlink
|
352 |
|
|
scratch file. Instead of calling close_unit just call sclose,
|
353 |
|
|
free u->file if any and clear a few u fields before calling
|
354 |
|
|
new_unit.
|
355 |
|
|
(new_unit): Return gfc_unit *. Add opp and u arguments.
|
356 |
|
|
Adjust for new st_* calling conventions and internal function
|
357 |
|
|
API changes. Don't allocate unit here, rather than work with
|
358 |
|
|
already created unit u already locked on entry. In case
|
359 |
|
|
of failure, close_unit it.
|
360 |
|
|
* io/unix.c: Include unix.h.
|
361 |
|
|
(BUFFER_SIZE, unix_stream): Moved to unix.h.
|
362 |
|
|
(unit_to_fd): Add unlock_unit call.
|
363 |
|
|
(tempfile): Add opp argument, use its fields rather than ioparm.
|
364 |
|
|
(regular_file): Likewise.
|
365 |
|
|
(open_external): Likewise. Only unlink file if fd >= 0.
|
366 |
|
|
(init_error_stream): Add error argument, set structure it points
|
367 |
|
|
to rather than filling static variable and returning its address.
|
368 |
|
|
(FIND_FILE0_DECL, FIND_FILE0_ARGS): Define.
|
369 |
|
|
(find_file0): Use them. Don't crash if u->s == NULL.
|
370 |
|
|
(find_file): Add file and file_len arguments, use them instead
|
371 |
|
|
of ioparm. Add locking. Pass either an array of 2 struct stat
|
372 |
|
|
or file and file_len pair to find_file0.
|
373 |
|
|
(flush_all_units_1, flush_all_units): New functions.
|
374 |
|
|
(file_exists): Add file and file_len arguments, use them instead
|
375 |
|
|
of ioparm.
|
376 |
|
|
* io/unix.h: New file.
|
377 |
|
|
* io/lock.c (ioparm, g, ionml): Remove variables.
|
378 |
|
|
(library_start): Add cmp argument, adjust for new st_* calling
|
379 |
|
|
conventions.
|
380 |
|
|
(library_end): Remove.
|
381 |
|
|
(free_ionml): New function.
|
382 |
|
|
* io/inquire.c (inquire_via_unit, inquire_via_filename,
|
383 |
|
|
st_inquire): Add iqp argument, adjust for new st_* calling
|
384 |
|
|
conventions and internal function API changes.
|
385 |
|
|
* io/format.c (FARRAY_SIZE): Decrease to 64.
|
386 |
|
|
(fnode_array, format_data): New typedefs.
|
387 |
|
|
(avail, array, format_string, string, error, saved_token, value,
|
388 |
|
|
format_string_len, reversion_ok, saved_format): Remove variables.
|
389 |
|
|
(colon_node): Add const.
|
390 |
|
|
(free_fnode, free_fnodes): Remove.
|
391 |
|
|
(free_format_data): New function.
|
392 |
|
|
(next_char, unget_char, get_fnode, format_lex, parse_format_list,
|
393 |
|
|
format_error, parse_format, revert, unget_format, next_test): Add
|
394 |
|
|
fmt or dtp arguments, pass it all around, adjust for internal
|
395 |
|
|
function API changes and adjust for removal of global variables.
|
396 |
|
|
(next_format): Likewise. Constify return type.
|
397 |
|
|
(next_format0): Constify return type.
|
398 |
|
|
* io/transfer.c (current_unit, sf_seen_eor, eor_condition, max_pos,
|
399 |
|
|
skips, pending_spaces, scratch, line_buffer, advance_status,
|
400 |
|
|
transfer): Remove variables.
|
401 |
|
|
(transfer_integer, transfer_real, transfer_logical,
|
402 |
|
|
transfer_character, transfer_complex, transfer_array, current_mode,
|
403 |
|
|
read_sf, read_block, read_block_direct, write_block,
|
404 |
|
|
write_block_direct, unformatted_read, unformatted_write,
|
405 |
|
|
type_name, write_constant_string, require_type,
|
406 |
|
|
formatted_transfer_scalar, us_read, us_write, pre_position,
|
407 |
|
|
data_transfer_init, next_record_r, next_record_w, next_record,
|
408 |
|
|
finalize_transfer, iolength_transfer, iolength_transfer_init,
|
409 |
|
|
st_iolength, st_iolength_done, st_read, st_read_done, st_write,
|
410 |
|
|
st_write_done, st_set_nml_var, st_set_nml_var_dim,
|
411 |
|
|
next_array_record): Add dtp argument, pass it all around, adjust for
|
412 |
|
|
internal function API changes and removal of global variables.
|
413 |
|
|
* io/list_read.c (repeat_count, saved_length, saved_used,
|
414 |
|
|
input_complete, at_eol, comma_flag, last_char, saved_string,
|
415 |
|
|
saved_type, namelist_mode, nml_read_error, value, parse_err_msg,
|
416 |
|
|
nml_err_msg, prev_nl): Remove variables.
|
417 |
|
|
(push_char, free_saved, next_char, unget_char, eat_spaces,
|
418 |
|
|
eat_separator, finish_separator, nml_bad_return, convert_integer,
|
419 |
|
|
parse_repeat, read_logical, read_integer, read_character,
|
420 |
|
|
parse_real, read_complex, read_real, check_type,
|
421 |
|
|
list_formatted_read_scalar, list_formatted_read, finish_list_read,
|
422 |
|
|
find_nml_node, nml_untouch_nodes, nml_match_name, nml_query,
|
423 |
|
|
namelist_read): Add dtp argument, pass it all around, adjust for
|
424 |
|
|
internal function API changes and removal of global variables.
|
425 |
|
|
(nml_parse_qualifier): Likewise. Add parse_err_msg argument.
|
426 |
|
|
(nml_read_obj): Likewise. Add pprev_nl, nml_err_msg, clow and
|
427 |
|
|
chigh arguments.
|
428 |
|
|
(nml_get_obj_data): Likewise. Add pprev_nl and nml_err_msg
|
429 |
|
|
arguments.
|
430 |
|
|
(init_at_eol): Removed.
|
431 |
|
|
* io/read.c (convert_real, read_l, read_a, next_char, read_decimal,
|
432 |
|
|
read_radix, read_f, read_x): Add dtp argument, pass it all around,
|
433 |
|
|
adjust for internal function API changes and removal of global
|
434 |
|
|
variables.
|
435 |
|
|
(set_integer): Adjust internal_error caller.
|
436 |
|
|
* io/write.c (no_leading_blank, nml_delim): Remove variables.
|
437 |
|
|
(write_a, calculate_sign, calculate_G_format, output_float,
|
438 |
|
|
write_l, write_float, write_int, write_decimal, write_i, write_b,
|
439 |
|
|
write_o, write_z, write_d, write_e, write_f, write_en, write_es,
|
440 |
|
|
write_x, write_char, write_logical, write_integer, write_character,
|
441 |
|
|
write_real, write_complex, write_separator,
|
442 |
|
|
list_formatted_write_scalar, list_formatted_write, nml_write_obj,
|
443 |
|
|
namelist_write): Add dtp argument, pass it all around, adjust for
|
444 |
|
|
internal function API changes and removal of global variables.
|
445 |
|
|
(extract_int, extract_uint, extract_real): Adjust internal_error
|
446 |
|
|
callers.
|
447 |
|
|
* runtime/fpu.c (_GNU_SOURCE): Don't define here.
|
448 |
|
|
* runtime/error.c: Include ../io/unix.h.
|
449 |
|
|
(filename, line): Remove variables.
|
450 |
|
|
(st_printf): Pass address of a local variable to init_error_stream.
|
451 |
|
|
(show_locus): Add cmp argument. Use fields it points to rather than
|
452 |
|
|
filename and line variables.
|
453 |
|
|
(os_error, runtime_error): Remove show_locus calls.
|
454 |
|
|
(internal_error): Add cmp argument. Pass it down to show_locus.
|
455 |
|
|
(generate_error): Likewise. Use flags bitmask instead of non-NULL
|
456 |
|
|
check for iostat and iomsg parameter presence, adjust for st_*
|
457 |
|
|
calling convention changes.
|
458 |
|
|
* runtime/stop.c (stop_numeric, stop_string): Remove show_locus
|
459 |
|
|
calls.
|
460 |
|
|
* runtime/pause.c (pause_numeric, pause_string): Likewise.
|
461 |
|
|
* runtime/string.c: Include ../io/io.h.
|
462 |
|
|
(find_option): Add cmp argument. Pass it down to generate_error.
|
463 |
|
|
* intrinsics/flush.c (recursive_flush): Remove.
|
464 |
|
|
(flush_i4, flush_i8): Use flush_all_units. Add unlock_unit
|
465 |
|
|
call.
|
466 |
|
|
* intrinsics/rand.c: Include ../io/io.h.
|
467 |
|
|
(rand_seed_lock): New variable.
|
468 |
|
|
(srand, irand): Add locking.
|
469 |
|
|
(init): New constructor function.
|
470 |
|
|
* intrinsics/random.c: Include ../io/io.h.
|
471 |
|
|
(random_lock): New variable.
|
472 |
|
|
(random_r4, random_r8, arandom_r4, arandom_r8): Add locking.
|
473 |
|
|
(random_seed): Likewise. open failed if fd < 0. Set i correctly.
|
474 |
|
|
(init): New constructor function.
|
475 |
|
|
* intrinsics/system_clock.c (tp0, t0): Remove.
|
476 |
|
|
(system_clock_4, system_clock_8): Don't subtract tp0/t0 from current
|
477 |
|
|
time, use just integer arithmetics.
|
478 |
|
|
* intrinsics/tty.c (isatty_l4, isatty_l8, ttynam_sub): Add
|
479 |
|
|
unlock_unit calls.
|
480 |
|
|
|
481 |
|
|
2005-11-20 Richard Henderson
|
482 |
|
|
|
483 |
|
|
* Makefile.am: Revert 2005-11-14 change. Enable -free-vectorize
|
484 |
|
|
via gmake per-target variables.
|
485 |
|
|
* Makefile.in, aclocal.m4: Regenerate.
|
486 |
|
|
|
487 |
|
|
2005-11-18 Francois-Xavier Coudert
|
488 |
|
|
|
489 |
|
|
* configure.ac: Add "-I ." to the AM_FCFLAGS.
|
490 |
|
|
* configure: Regenerate.
|
491 |
|
|
|
492 |
|
|
2005-11-18 Hans-Peter Nilsson
|
493 |
|
|
|
494 |
|
|
* config/fpu-glibc.h (set_fpu): Only call fedisableexcept for
|
495 |
|
|
nonzero FE_ALL_EXCEPT.
|
496 |
|
|
|
497 |
|
|
2005-11-17 Francois-Xavier Coudert
|
498 |
|
|
|
499 |
|
|
PR fortran/24892
|
500 |
|
|
* io/io.h (unit_access): Add ACCESS_APPEND.
|
501 |
|
|
* io/open.c (access_opt): Add APPEND value for ACCESS keyword.
|
502 |
|
|
(st_open): Use that new value to set the POSITION accordingly.
|
503 |
|
|
|
504 |
|
|
2005-11-14 Janne Blomqvist
|
505 |
|
|
|
506 |
|
|
PR fortran/21468
|
507 |
|
|
* Makefile.am: Add -ftree-vectorize for compiling matmul.
|
508 |
|
|
* m4/matmul.m4: Add const and restrict to type declarations as
|
509 |
|
|
appropriate.
|
510 |
|
|
* m4/matmull.m4: Likewise.
|
511 |
|
|
* Makefile.in: Regenerated.
|
512 |
|
|
* generated/matmul_*.c: Likewise.
|
513 |
|
|
|
514 |
|
|
2005-11-13 Francois-Xavier Coudert
|
515 |
|
|
|
516 |
|
|
* intrinsics/fget.c: New file.
|
517 |
|
|
* intrinsics/ftell.c: New file.
|
518 |
|
|
* io/unix.c (stream_offset): New function.
|
519 |
|
|
* io/io.h: Add prototype for stream_offset.
|
520 |
|
|
* Makefile.am: Add intrinsics/fget.c and intrinsics/ftell.c.
|
521 |
|
|
* Makefile.in: Regenerate.
|
522 |
|
|
|
523 |
|
|
2005-11-12 Steven G. Kargl
|
524 |
|
|
|
525 |
|
|
PR libfortran/24787
|
526 |
|
|
* intrinsics/string_intrinsics.c (string_scan): Off by one; Fix typos
|
527 |
|
|
in nearby comment.
|
528 |
|
|
|
529 |
|
|
2005-11-10 Andreas Jaeger
|
530 |
|
|
|
531 |
|
|
* libgfortran.h: Add proper defines where needed.
|
532 |
|
|
|
533 |
|
|
2005-11-10 Andreas Jaeger
|
534 |
|
|
|
535 |
|
|
* libgfortran.h: Add missing prototypes for internal_pack
|
536 |
|
|
functions.
|
537 |
|
|
|
538 |
|
|
2005-11-06 Janne Blomqvist
|
539 |
|
|
|
540 |
|
|
PR fortran/24174
|
541 |
|
|
PR fortran/24305
|
542 |
|
|
* io/io.h: Add argument to prototypes, add prototypes for
|
543 |
|
|
size_from_*_kind functions.
|
544 |
|
|
* io/list_read.c (read_complex): Add size argument, use
|
545 |
|
|
it.
|
546 |
|
|
(list_formatted_read): Add size argument, cleanup.
|
547 |
|
|
(list_formatted_read_scalar): Add size argument.
|
548 |
|
|
(nml_read_obj): Fix for padding.
|
549 |
|
|
* io/transfer.c: Add argument to transfer function pointer.
|
550 |
|
|
(unformatted_read): Add size argument.
|
551 |
|
|
(unformatted_write): Likewise.
|
552 |
|
|
(formatted_transfer_scalar): Fix for padding with complex(10).
|
553 |
|
|
(formatted_transfer): Add size argument, cleanup.
|
554 |
|
|
(transfer_integer): Add size argument to transfer call.
|
555 |
|
|
(transfer_real): Likewise.
|
556 |
|
|
(transfer_logical): Likewise.
|
557 |
|
|
(transfer_character): Likewise.
|
558 |
|
|
(transfer_complex): Likewise.
|
559 |
|
|
(transfer_array): New kind argument, use it.
|
560 |
|
|
(data_transfer_init): Add size argument to formatted_transfer
|
561 |
|
|
call.
|
562 |
|
|
(iolength_transfer): Add size argument, cleanup.
|
563 |
|
|
* io/write.c (write_complex): Add size argument, fix for padding
|
564 |
|
|
with complex(10).
|
565 |
|
|
(list_formatted_write): Add size argument, cleanup.
|
566 |
|
|
(list_formatted_write_scalar): Add size argument, use it.
|
567 |
|
|
(nml_write_obj): Fix for size vs. kind issue.
|
568 |
|
|
* io/size_from_kind.c: New file.
|
569 |
|
|
* Makefile.am: Add io/size_from_kind.c.
|
570 |
|
|
* configure: Regenerate.
|
571 |
|
|
* Makefile.in: Regenerate.
|
572 |
|
|
|
573 |
|
|
2005-11-06 Francois-Xavier Coudert
|
574 |
|
|
|
575 |
|
|
* intrinsics/ctime.c: New file.
|
576 |
|
|
* configure.ac: Add check for ctime.
|
577 |
|
|
* Makefile.am: Add ctime.c
|
578 |
|
|
* configure: Regenerate.
|
579 |
|
|
* config.h.in: Regenerate.
|
580 |
|
|
* Makefile.in: Regenerate.
|
581 |
|
|
|
582 |
|
|
2005-11-05 Richard Guenther
|
583 |
|
|
|
584 |
|
|
* configure.ac: Use AM_FCFLAGS for extra flags, not FCFLAGS.
|
585 |
|
|
* configure: Regenerate.
|
586 |
|
|
|
587 |
|
|
2005-11-05 Francois-Xavier Coudert
|
588 |
|
|
|
589 |
|
|
* intrinsics/tty.c (ttynam): New function.
|
590 |
|
|
|
591 |
|
|
2005-11-04 Steven G. Kargl
|
592 |
|
|
|
593 |
|
|
PR fortran/24636
|
594 |
|
|
* runtime/stop.c (stop_numeric): Use stop_code = -1.
|
595 |
|
|
|
596 |
|
|
2005-11-04 Francois-Xavier Coudert
|
597 |
|
|
|
598 |
|
|
PR libfortran/22298
|
599 |
|
|
* runtime/main.c (stupid_function_name_for_static_linking): New
|
600 |
|
|
function.
|
601 |
|
|
* runtime/error.c (internal_error): Call
|
602 |
|
|
stupid_function_name_for_static_linking.
|
603 |
|
|
* libgfortran.h: Add prototype for
|
604 |
|
|
stupid_function_name_for_static_linking.
|
605 |
|
|
|
606 |
|
|
2005-11-01 Paul Thomas
|
607 |
|
|
|
608 |
|
|
PR fortran/14994
|
609 |
|
|
* libgfortran/intrinsics/date_and_time.c: Add interface to
|
610 |
|
|
the functions date_and_time for the intrinsic function secnds.
|
611 |
|
|
|
612 |
|
|
2005-10-31 Jerry DeLisle
|
613 |
|
|
|
614 |
|
|
PR libfortran/24584
|
615 |
|
|
* io/list_read.c (free_saved): Set saved_used to zero.
|
616 |
|
|
|
617 |
|
|
2005-10-30 Francois-Xavier Coudert
|
618 |
|
|
|
619 |
|
|
PR libfortran/20179
|
620 |
|
|
* io/unix.c (flush_if_preconnected): New function.
|
621 |
|
|
* io/io.h: Add prototype for flush_if_preconnected.
|
622 |
|
|
* io/transfer.c (data_transfer_init): Use flush_if_preconnected
|
623 |
|
|
to workaround buggy mixed C-Fortran code.
|
624 |
|
|
|
625 |
|
|
2005-10-30 Francois-Xavier Coudert
|
626 |
|
|
|
627 |
|
|
* Makefile.am: Add intrinsics/malloc.c file.
|
628 |
|
|
* Makefile.in: Regenerate.
|
629 |
|
|
* intrinsics/malloc.c: New file, with implementations for free
|
630 |
|
|
and malloc library functions.
|
631 |
|
|
|
632 |
|
|
2005-10-29 Mike Stump
|
633 |
|
|
|
634 |
|
|
* Makefile.am (kinds.h): Remove target, if command fails.
|
635 |
|
|
(selected_int_kind.inc): Likewise.
|
636 |
|
|
(selected_real_kind.inc): Likewise.
|
637 |
|
|
* Makefile.in: Regenerate.
|
638 |
|
|
|
639 |
|
|
2005-10-28 Francois-Xavier Coudert
|
640 |
|
|
|
641 |
|
|
|
642 |
|
|
* Makefile.am (intrinsics): Add signal.c.
|
643 |
|
|
* Makefile.in: Regenerate.
|
644 |
|
|
* configure.ac: Checks for signal and alarm.
|
645 |
|
|
* config.h.in: Regenerate.
|
646 |
|
|
* configure: Regenerate.
|
647 |
|
|
* intrinsics/signal.c: New file for SIGNAL and ALARM intrinsics.
|
648 |
|
|
|
649 |
|
|
2005-10-28 Francois-Xavier Coudert
|
650 |
|
|
|
651 |
|
|
* acinclude.m4 (LIBGFOR_CHECK_FPSETMASK): New check.
|
652 |
|
|
* configure.ac: Check for floatingpoint.h, fptrap.h and float.h
|
653 |
|
|
headers. Use LIBGFOR_CHECK_FPSETMASK. Check for fp_trap and
|
654 |
|
|
fp_enable functions.
|
655 |
|
|
* configure.host: Add case for systems with fpsetmask and systems
|
656 |
|
|
with fp_trap/fp_enable.
|
657 |
|
|
* config/fpu-sysv.h: New file, FPU code using fpsetmask.
|
658 |
|
|
* config/fpu-aix.h: New file, FPU code for AIX using fp_trap and
|
659 |
|
|
fp_enable.
|
660 |
|
|
* aclocal.m4: Regenerate.
|
661 |
|
|
* configure: Regenerate.
|
662 |
|
|
* config.h.in: Regenerate.
|
663 |
|
|
|
664 |
|
|
2005-10-24 Jerry DeLisle
|
665 |
|
|
|
666 |
|
|
PR libfortran/24224
|
667 |
|
|
* libgfortran.h: Remove array stride error code.
|
668 |
|
|
* runtime/error.c: Remove array stride error.
|
669 |
|
|
* io/io.h: Change name of 'nml_loop_spec' to 'array_loop_spec' to be
|
670 |
|
|
generic. Add pointer to array_loop_spec and rank to gfc_unit
|
671 |
|
|
structure.
|
672 |
|
|
* io/list_read.c: Revise nml_loop_spec references to array_loop_spec.
|
673 |
|
|
* io/transfer.c (init_loop_spec): New function to initialize
|
674 |
|
|
an array_loop_spec.
|
675 |
|
|
(next_array_record): New function to return the index to the next array
|
676 |
|
|
record by incrementing through the array_loop_spec.
|
677 |
|
|
(next_record_r): Use new function.
|
678 |
|
|
(next_record_w): Use new function.
|
679 |
|
|
(finalize_transfer): Free memory allocated for array_loop_spec.
|
680 |
|
|
* io/unit.c (get_array_unit_len): Delete this function. Use new
|
681 |
|
|
function init_loop_spec to initialize the array_loop_spec.
|
682 |
|
|
|
683 |
|
|
2005-10-24 Paul Thomas
|
684 |
|
|
|
685 |
|
|
PR fortran/24416
|
686 |
|
|
* libgfortran/io/list_read.c (namelist_read): Exit with call to
|
687 |
|
|
free_saved () so that character strings do not accumulate.
|
688 |
|
|
|
689 |
|
|
2005-10-23 Jerry DeLisle
|
690 |
|
|
|
691 |
|
|
PR libfortran/24489
|
692 |
|
|
* io/transfer.c (read_block): Change the order of execution to not read
|
693 |
|
|
past end-of-record.
|
694 |
|
|
(read_block_direct): Same change.
|
695 |
|
|
|
696 |
|
|
2005-10-23 Francois-Xavier Coudert
|
697 |
|
|
|
698 |
|
|
PR libfortran/23272
|
699 |
|
|
* acinclude.m4 (LIBGFOR_CHECK_WORKING_STAT): New check.
|
700 |
|
|
* configure.ac: Use LIBGFOR_CHECK_WORKING_STAT.
|
701 |
|
|
* Makefile.in: Regenerate.
|
702 |
|
|
* configure: Regenerate.
|
703 |
|
|
* config.h.in: Regenerate.
|
704 |
|
|
* aclocal.m4: Regenerate.
|
705 |
|
|
* io/unix.c (compare_file_filename): Add fallback case for
|
706 |
|
|
systems without working stat.
|
707 |
|
|
* io/open.c (already_open): Correct call to
|
708 |
|
|
compare_file_filename.
|
709 |
|
|
* io/io.h: Correct proto for compare_file_filename.
|
710 |
|
|
|
711 |
|
|
2005-10-23 Francois-Xavier Coudert
|
712 |
|
|
|
713 |
|
|
* runtime/fpu.c: Add _GNU_SOURCE definition.
|
714 |
|
|
* config/fpu-glibc.h: Remove __USE_GNU definition.
|
715 |
|
|
|
716 |
|
|
2005-10-23 Paul Thomas
|
717 |
|
|
|
718 |
|
|
PR fortran/24384
|
719 |
|
|
* intrinsics/spread_generic.c (spread_internal_scalar): New
|
720 |
|
|
function that handles the special case of spread with a scalar
|
721 |
|
|
source. This has new interface functions -
|
722 |
|
|
(spread_scalar, spread_char_scalar): New functions to interface
|
723 |
|
|
with the calls specified in gfc_resolve_spread.
|
724 |
|
|
|
725 |
|
|
2005-10-21 Francois-Xavier Coudert
|
726 |
|
|
|
727 |
|
|
PR libfortran/24383
|
728 |
|
|
* io/unix.c: Add fallback definition for SSIZE_MAX.
|
729 |
|
|
|
730 |
|
|
2005-10-19 Francois-Xavier Coudert
|
731 |
|
|
|
732 |
|
|
* c99_protos.h: Define preprocessor HAVE_ macros with value 1
|
733 |
|
|
instead of empty value.
|
734 |
|
|
* intrinsics/c99_functions.c: Likewise.
|
735 |
|
|
* intrinsics/getXid.c: Define HAVE_GETPID with value 1 instead of
|
736 |
|
|
empty value.
|
737 |
|
|
* intrinsics/sleep.c: Define HAVE_SLEEP with value 1 instead of
|
738 |
|
|
empty value.
|
739 |
|
|
|
740 |
|
|
2005-10-19 Francois-Xavier Coudert
|
741 |
|
|
|
742 |
|
|
PR libfortran/24432
|
743 |
|
|
* c99_protos.h: Define HAVE_ macros for all provided functions.
|
744 |
|
|
|
745 |
|
|
2005-10-14 Uros Bizjak
|
746 |
|
|
|
747 |
|
|
* config/fpu-387.h (set_fpu): Remove extra ":" in stmxcsr.
|
748 |
|
|
Change cw and cw_sse variables to unsigned.
|
749 |
|
|
(SSE): New definition.
|
750 |
|
|
(has_sse): Use it.
|
751 |
|
|
|
752 |
|
|
2005-10-13 Thomas Koenig
|
753 |
|
|
|
754 |
|
|
* io/unix.c(fd_alloc_r_at): Use read() instead of do_read()
|
755 |
|
|
only in case of special files (e.g. terminals).
|
756 |
|
|
|
757 |
|
|
2005-10-13 Uros Bizjak
|
758 |
|
|
|
759 |
|
|
* config/fpu-387.h (set_fpu): Add "=m" for stmxcsr.
|
760 |
|
|
|
761 |
|
|
2005-10-12 Francois-Xavier Coudert
|
762 |
|
|
|
763 |
|
|
* Makefile.am: Add fpu.c to the build process, and
|
764 |
|
|
target-dependent code as fpu-target.h.
|
765 |
|
|
* Makefile.in: Regenerate.
|
766 |
|
|
* configure.ac: Add call to configure.host to set
|
767 |
|
|
FPU_HOST_HEADER.
|
768 |
|
|
* configure: Regenerate.
|
769 |
|
|
* configure.host: New script to determine which host-dependent
|
770 |
|
|
code should go in.
|
771 |
|
|
* libgfortran.h: Add fpe option, remove previous fpu_ options.
|
772 |
|
|
Add bitmasks for different FPE traps. Add prototype for set_fpu.
|
773 |
|
|
* runtime/environ.c: Remove environment variables to control
|
774 |
|
|
fpu behaviour.
|
775 |
|
|
* runtime/fpu.c (set_fpe): New function for the front-end.
|
776 |
|
|
* runtime/main.c (init): Set FPU state.
|
777 |
|
|
* config: New directory to store host-dependent code.
|
778 |
|
|
* config/fpu-387.h: New file with code handling the i387 FPU.
|
779 |
|
|
* config/fpu-glibc.h: New file with code for glibc systems.
|
780 |
|
|
* config/fpu-generic.h: Fallback for the most generic host. Issue
|
781 |
|
|
warnings.
|
782 |
|
|
|
783 |
|
|
2005-10-12 Janne Blomqvist
|
784 |
|
|
|
785 |
|
|
* io/unix.c(fd_alloc_r_at): Remove parts of patch of 2005/10/07 that
|
786 |
|
|
cause input from the terminal to hang.
|
787 |
|
|
|
788 |
|
|
2005-10-11 Steven G. Kargl
|
789 |
|
|
|
790 |
|
|
PR libfortran/24313
|
791 |
|
|
* c99_functions.c (csqrtf, csqrt): Fix choice of branch cut. Note
|
792 |
|
|
csqrt{f} were imported from glibc, and this bug is still present
|
793 |
|
|
there. glibc PR is 1146.
|
794 |
|
|
|
795 |
|
|
2005-10-07 Janne Blomqvist
|
796 |
|
|
|
797 |
|
|
PR fortran/16339
|
798 |
|
|
PR fortran/23363
|
799 |
|
|
* io/io.h: Add read and write members to stream, define access
|
800 |
|
|
macros.
|
801 |
|
|
* io/transfer.c (read_block_direct): New function.
|
802 |
|
|
(write_block_direct): New function.
|
803 |
|
|
(unformatted_read): Change to use read_block_direct.
|
804 |
|
|
(unformatted_write): Change to use write_block_direct.
|
805 |
|
|
* io/unix.c: Remove mmap includes and defines.
|
806 |
|
|
(writen): Remove.
|
807 |
|
|
(readn): Remove.
|
808 |
|
|
(reset_stream): New function.
|
809 |
|
|
(do_read): New function.
|
810 |
|
|
(do_write): New function.
|
811 |
|
|
(fd_flush): Change to use do_write() instead of writen().
|
812 |
|
|
(fd_alloc_r_at): Change to use do_read().
|
813 |
|
|
(fd_seek): Change return type to try, as the prototype. Add check
|
814 |
|
|
to avoid syscall overhead if possible.
|
815 |
|
|
(fd_read): New function.
|
816 |
|
|
(fd_write): New function.
|
817 |
|
|
(fd_open): Set pointers for new functions.
|
818 |
|
|
(mem_read): New function.
|
819 |
|
|
(mem_write): New function.
|
820 |
|
|
(open_internal): Set pointers for new functions.
|
821 |
|
|
(is_seekable): Clean up comment.
|
822 |
|
|
|
823 |
|
|
2005-10-07 Jerry DeLisle
|
824 |
|
|
|
825 |
|
|
* io/transfer.c (write_block): Add test for end-of-file condition,
|
826 |
|
|
removed from mem_alloc_w_at. (next_record_w): Clean up checks for
|
827 |
|
|
NULL pointer returns from s_alloc_w.
|
828 |
|
|
* io/unix.c (mem_alloc_w_at): Remove call to generate_error end-of-file.
|
829 |
|
|
* io/write.c (write_float): Add checks for NULL pointer returns from
|
830 |
|
|
write_block calls. (write_integer): Same.
|
831 |
|
|
|
832 |
|
|
2005-10-03 Jakub Jelinek
|
833 |
|
|
|
834 |
|
|
* runtime/memory.c (allocate_size): Malloc 1 byte if size == 0.
|
835 |
|
|
|
836 |
|
|
2005-10-03 Francois-Xavier Coudert
|
837 |
|
|
|
838 |
|
|
PR libfortran/19308
|
839 |
|
|
PR libfortran/22437
|
840 |
|
|
* Makefile.am: Add generated files for large real and integers
|
841 |
|
|
kinds. Add a rule to create the kinds.inc c99_protos.inc files.
|
842 |
|
|
Use kinds.inc to preprocess Fortran generated files.
|
843 |
|
|
* libgfortran.h: Add macro definitions for GFC_INTEGER_16_HUGE,
|
844 |
|
|
GFC_REAL_10_HUGE and GFC_REAL_16_HUGE. Add types gfc_array_i16,
|
845 |
|
|
gfc_array_r10, gfc_array_r16, gfc_array_c10, gfc_array_c16,
|
846 |
|
|
gfc_array_l16.
|
847 |
|
|
* mk-kinds-h.sh: Define macros HAVE_GFC_LOGICAL_* and
|
848 |
|
|
HAVE_GFC_COMPLEX_* when these types are available.
|
849 |
|
|
* intrinsics/ishftc.c (ishftc16): New function for GFC_INTEGER_16.
|
850 |
|
|
* m4/all.m4, m4/any.m4, m4/count.m4, m4/cshift1.m4, m4/dotprod.m4,
|
851 |
|
|
m4/dotprodc.m4, m4/dotprodl.m4, m4/eoshift1.m4, m4/eoshift3.m4,
|
852 |
|
|
m4/exponent.m4, m4/fraction.m4, m4/in_pack.m4, m4/in_unpack.m4,
|
853 |
|
|
m4/matmul.m4, m4/matmull.m4, m4/maxloc0.m4, m4/maxloc1.m4,
|
854 |
|
|
m4/maxval.m4, m4/minloc0.m4, m4/minloc1.m4, m4/minval.m4, m4/mtype.m4,
|
855 |
|
|
m4/nearest.m4, m4/pow.m4, m4/product.m4, m4/reshape.m4,
|
856 |
|
|
m4/set_exponent.m4, m4/shape.m4, m4/specific.m4, m4/specific2.m4,
|
857 |
|
|
m4/sum.m4, m4/transpose.m4: Protect generated functions with
|
858 |
|
|
appropriate "#if defined (HAVE_GFC_type_kind)" preprocessor directives.
|
859 |
|
|
* Makefile.in: Regenerate.
|
860 |
|
|
* all files in generated/: Regenerate.
|
861 |
|
|
|
862 |
|
|
2005-10-01 Jakub Jelinek
|
863 |
|
|
|
864 |
|
|
* runtime/memory.c (malloc_t): Remove.
|
865 |
|
|
(GFC_MALLOC_MAGIC, HEADER_SIZE, DATA_POINTER, DATA_HEADER): Remove.
|
866 |
|
|
(mem_root, runtime_cleanup, malloc_with_header): Remove.
|
867 |
|
|
(internal_malloc_size): Use just get_mem if size != 0, return NULL
|
868 |
|
|
otherwise.
|
869 |
|
|
(internal_free): Just free if non-NULL.
|
870 |
|
|
(internal_realloc_size): Remove debugging stuff.
|
871 |
|
|
(allocate_size): Use malloc directly, remove debugging stuff.
|
872 |
|
|
(deallocate): Use free directly, fix error message wording.
|
873 |
|
|
|
874 |
|
|
* libgfortran.h (GFC_ITOA_BUF_SIZE, GFC_XTOA_BUF_SIZE,
|
875 |
|
|
GFC_OTOA_BUF_SIZE, GFC_BTOA_BUF_SIZE): Define.
|
876 |
|
|
(gfc_itoa, xtoa): Add 2 extra arguments.
|
877 |
|
|
* runtime/environ.c: Include stdio.h.
|
878 |
|
|
(check_buffered): Use sprintf.
|
879 |
|
|
* runtime/error.c: Include assert.h.
|
880 |
|
|
(gfc_itoa, xtoa): Add 2 extra arguments, avoid using static
|
881 |
|
|
buffers.
|
882 |
|
|
(st_printf, st_sprintf): Adjust callers.
|
883 |
|
|
* io/write.c (otoa, btoa): Add 2 extra arguments, avoid using
|
884 |
|
|
static buffers.
|
885 |
|
|
(write_int, write_decimal): Add 2 extra arguments to conv
|
886 |
|
|
function pointer, adjust caller.
|
887 |
|
|
(write_integer): Adjust gfc_itoa caller.
|
888 |
|
|
|
889 |
|
|
* io/unit.c (get_array_unit_len): Return 0 rather than NULL.
|
890 |
|
|
|
891 |
|
|
* io/read.c (read_f): Remove spurious pointer dereference.
|
892 |
|
|
|
893 |
|
|
2005-09-30 Janne Blomqvist
|
894 |
|
|
|
895 |
|
|
PR 24112
|
896 |
|
|
* io/open.c (edit_modes): Check for correct flag.
|
897 |
|
|
|
898 |
|
|
2005-09-29 Jakub Jelinek
|
899 |
|
|
|
900 |
|
|
* runtime/string.c (find_option): Change 3rd argument to
|
901 |
|
|
const st_option *.
|
902 |
|
|
* libgfortran.h (find_option): Likewise.
|
903 |
|
|
* runtime/environ.c (rounding, precision, signal_choices): Constify.
|
904 |
|
|
(init_choice, show_choice): Change 2nd argument to const choice *.
|
905 |
|
|
* io/open.c (access_opt, action_opt, blank_opt, delim_opt, form_opt,
|
906 |
|
|
position_opt, status_opt, pad_opt): Constify.
|
907 |
|
|
* io/transfer.c (advance_opt): Likewise.
|
908 |
|
|
* io/inquire.c (undefined): Likewise.
|
909 |
|
|
* io/close.c (status_opt): Likewise.
|
910 |
|
|
* io/format.c (posint_required, period_required, nonneg_required,
|
911 |
|
|
unexpected_element, unexpected_end, bad_string, bad_hollerith,
|
912 |
|
|
reversion_error): Likewise.
|
913 |
|
|
* io/unix.c (yes, no, unknown): Change from const char *
|
914 |
|
|
into const char [].
|
915 |
|
|
|
916 |
|
|
2005-09-27 Steve Ellcey
|
917 |
|
|
|
918 |
|
|
PR target/23552
|
919 |
|
|
* acinclude.m4 (LIBGFOR_CHECK_FOR_BROKEN_ISFINITE): New.
|
920 |
|
|
(LIBGFOR_CHECK_FOR_BROKEN_ISNAN): New.
|
921 |
|
|
(LIBGFOR_CHECK_FOR_BROKEN_FPCLASSIFY): New.
|
922 |
|
|
* configure.ac (LIBGFOR_CHECK_FOR_BROKEN_ISFINITE): Add use.
|
923 |
|
|
(LIBGFOR_CHECK_FOR_BROKEN_ISNAN): Add use.
|
924 |
|
|
(LIBGFOR_CHECK_FOR_BROKEN_FPCLASSIFY): Add use.
|
925 |
|
|
* configure: Regenerate.
|
926 |
|
|
* config.h.in: Regenerate.
|
927 |
|
|
* libgfortan.h (isfinite): undef if broken, set if needed.
|
928 |
|
|
(isnan): undef if broken, set if needed.
|
929 |
|
|
(fpclassify): undef if broken, set if needed.
|
930 |
|
|
* io/write.c: Remove TODO comment about working isfinite.
|
931 |
|
|
* intrinsics/c99_functions.c (round): Use isfinite instead
|
932 |
|
|
of fpclassify.
|
933 |
|
|
* intrinsics/c99_functions.c (roundf): Ditto.
|
934 |
|
|
|
935 |
|
|
2005-09-24 Janne Blomqvist
|
936 |
|
|
|
937 |
|
|
* io.h: Changed prototypes of list_formatted_{read|write}.
|
938 |
|
|
* list_read.c (list_formatted_read): Renamed to
|
939 |
|
|
list_formatted_read_scalar and made static.
|
940 |
|
|
(list_formatted_read): New function.
|
941 |
|
|
* transfer.c: Prototype for transfer_array. Changed transfer
|
942 |
|
|
function pointer.
|
943 |
|
|
(unformatted_read): Add nelems argument, use it.
|
944 |
|
|
(unformatted_write): Likewise.
|
945 |
|
|
(formatted_transfer): Changed name to formatted_transfer_scalar.
|
946 |
|
|
(formatted_transfer): New function.
|
947 |
|
|
(transfer_integer): Add nelems argument to transfer call, move
|
948 |
|
|
updating item count to transfer functions.
|
949 |
|
|
(transfer_real): Likewise.
|
950 |
|
|
(transfer_logical): Likewise.
|
951 |
|
|
(transfer_character): Likewise.
|
952 |
|
|
(transfer_complex): Likewise.
|
953 |
|
|
(transfer_array): New function.
|
954 |
|
|
(data_transfer_init): Call formatted_transfer with new argument.
|
955 |
|
|
(iolength_transfer): New argument, use it.
|
956 |
|
|
* write.c (list_formatted_write): Renamed to
|
957 |
|
|
list_formatted_write_scalar, made static.
|
958 |
|
|
(list_formatted_write): New function.
|
959 |
|
|
|
960 |
|
|
2005-09-26 David Edelsohn
|
961 |
|
|
|
962 |
|
|
* configure.ac: Add check for __clog.
|
963 |
|
|
* configure: Regenerate.
|
964 |
|
|
|
965 |
|
|
2005-09-25 Francois-Xavier Coudert
|
966 |
|
|
|
967 |
|
|
* c99_protos.h: Add prototypes for C99 complex functions.
|
968 |
|
|
* libgfortran.h: Include complex.h before c99_protos.h.
|
969 |
|
|
* intrinsics/c99_functions.c: Define HAVE_ macros for the
|
970 |
|
|
fallback functions we provide.
|
971 |
|
|
(cabsf, cabs, cabsl, cargf, carg, cargl, cexpf, cexp, cexpl,
|
972 |
|
|
clogf, clog, clogl, clog10f, clog10, clog10l, cpowf, cpow, cpowl,
|
973 |
|
|
cqsrtf, csqrt, csqrtl, csinhf, csinh, csinhl, ccoshf, ccosh,
|
974 |
|
|
ccoshl, ctanhf, ctanh, ctanhl, csinf, csin, csinl, ccosf, ccos,
|
975 |
|
|
ccosl, ctanf, ctan, ctanl): New fallback functions.
|
976 |
|
|
* Makefile.am (gfor_math_trig_c, gfor_math_trig_obj,
|
977 |
|
|
gfor_specific_c, gfor_cmath_src, gfor_cmath_obj): Remove.
|
978 |
|
|
* Makefile.in: Regenerate.
|
979 |
|
|
* configure.ac: Remove checks for csin. Add checks for all C99
|
980 |
|
|
complex functions.
|
981 |
|
|
* config.h.in: Regenerate.
|
982 |
|
|
* configure: Regenerate.
|
983 |
|
|
* aclocal.m4: Regenerate.
|
984 |
|
|
|
985 |
|
|
2005-09-25 Francois-Xavier Coudert
|
986 |
|
|
Danny Smith
|
987 |
|
|
|
988 |
|
|
PR libfortran/23803
|
989 |
|
|
* intrinsics/getXid.c: Add getpid wrapper for MinGW.
|
990 |
|
|
* intrinsics/getlog.c: Add getlogin wrapper for MinGW.
|
991 |
|
|
* intrinsics/hostnm.c: Add gethostname wrapper for MinGW.
|
992 |
|
|
|
993 |
|
|
2005-09-24 Francois-Xavier Coudert
|
994 |
|
|
|
995 |
|
|
PR libfortran/23802
|
996 |
|
|
* intrinsics/sleep.c: Add correct sleep macro for MinGW.
|
997 |
|
|
|
998 |
|
|
2005-09-24 Francois-Xavier Coudert
|
999 |
|
|
|
1000 |
|
|
PR libfortran/23380
|
1001 |
|
|
* intrinsics/cpu_time.c (__cpu_time_1): Provide a MS Windows
|
1002 |
|
|
version.
|
1003 |
|
|
|
1004 |
|
|
2005-09-14 Jerry DeLisle
|
1005 |
|
|
|
1006 |
|
|
PR fortran/21875 Internal Unit Array I/O, NIST
|
1007 |
|
|
* libgfortran.h: Add run time error code for array stride.
|
1008 |
|
|
* runtime/error.c (translate_error): Add error message for
|
1009 |
|
|
array stride.
|
1010 |
|
|
* io/io.h: Add array descriptor pointer to IOPARM structure.
|
1011 |
|
|
Add prtotypes for two new functions.
|
1012 |
|
|
* io/transfer.c (data_transfer_init): Removed initialization and
|
1013 |
|
|
moved to unit.c (get_unit)
|
1014 |
|
|
* io/transfer.c (next_record_r): Include internal unit read
|
1015 |
|
|
functionality.
|
1016 |
|
|
* io/transfer.c (next_record_w): Include internal unit write
|
1017 |
|
|
functionality, including padding of character array records.
|
1018 |
|
|
* io/unit.c (get_array_unit_len): New function to return the number
|
1019 |
|
|
of records in the character array 'file' from the array descriptor.
|
1020 |
|
|
* io/unit.c (get_unit): Gathered initialization code from
|
1021 |
|
|
init_data_transfer for internal units and added initialization of
|
1022 |
|
|
character array unit.
|
1023 |
|
|
* io/unit.c (is_array_io): New function to determine if internal unit
|
1024 |
|
|
is an array.
|
1025 |
|
|
* io/unix.c (mem_alloc_w_at): Add error checks for bad record length
|
1026 |
|
|
and end of file.
|
1027 |
|
|
|
1028 |
|
|
2005-09-13 Richard Sandiford
|
1029 |
|
|
|
1030 |
|
|
PR target/19269
|
1031 |
|
|
* intrinsics/cshift0.c (cshift0): Add an extra size argument.
|
1032 |
|
|
(cshift0_1, cshift0_2, cshift0_4, cshift0_8): Replace explicit
|
1033 |
|
|
implementations with...
|
1034 |
|
|
(DEFINE_CSHIFT): ...this new macro. Define character versions too.
|
1035 |
|
|
* intrinsics/eoshift0.c (zeros): Delete.
|
1036 |
|
|
(eoshift0): Add extra size and filler arguments. Use memset if no
|
1037 |
|
|
bound is provided.
|
1038 |
|
|
(eoshift0_1, eoshift0_2, eoshift0_4, eoshift0_8): Replace explicit
|
1039 |
|
|
implementations with...
|
1040 |
|
|
(DEFINE_EOSHIFT): ...this new macro. Define character versions too.
|
1041 |
|
|
* intrinsics/eoshift2.c (zeros): Delete.
|
1042 |
|
|
(eoshift2): Add extra size and filler arguments. Use memset if no
|
1043 |
|
|
bound is provided.
|
1044 |
|
|
(eoshift2_1, eoshift2_2, eoshift2_4, eoshift2_8): Replace explicit
|
1045 |
|
|
implementations with...
|
1046 |
|
|
(DEFINE_EOSHIFT): ...this new macro. Define character versions too.
|
1047 |
|
|
* intrinsics/pack.c (pack_internal): New static function, reusing
|
1048 |
|
|
the contents of pack and adding an extra size argument. Change
|
1049 |
|
|
"mptr" rather than "m" when calculating the array size.
|
1050 |
|
|
(pack): Redefine as a forwarder to pack_internal.
|
1051 |
|
|
(pack_s_internal): New static function, reusing the contents of
|
1052 |
|
|
pack_s and adding an extra size argument.
|
1053 |
|
|
(pack_s): Redefine as a forwarder to pack_s_internal.
|
1054 |
|
|
(pack_char, pack_s_char): New functions.
|
1055 |
|
|
* intrinsics/reshape.c (reshape_internal): New static function,
|
1056 |
|
|
reusing the contents of reshape and adding an extra size argument.
|
1057 |
|
|
(reshape): Redefine as a forwarder to reshape_internal.
|
1058 |
|
|
(reshape_char): New function.
|
1059 |
|
|
* intrinsics/spread.c (spread_internal): New static function,
|
1060 |
|
|
reusing the contents of spread and adding an extra size argument.
|
1061 |
|
|
(spread): Redefine as a forwarder to spread_internal.
|
1062 |
|
|
(spread_char): New function.
|
1063 |
|
|
* intrinsics/transpose.c (transpose_internal): New static function,
|
1064 |
|
|
reusing the contents of transpose and adding an extra size argument.
|
1065 |
|
|
(transpose): Redefine as a forwarder to transpose_internal.
|
1066 |
|
|
(transpose_char): New function.
|
1067 |
|
|
* intrinsics/unpack.c (unpack_internal): New static function, reusing
|
1068 |
|
|
the contents of unpack1 and adding extra size and fsize arguments.
|
1069 |
|
|
(unpack1): Redefine as a forwarder to unpack_internal.
|
1070 |
|
|
(unpack0): Call unpack_internal instead of unpack1.
|
1071 |
|
|
(unpack1_char, unpack0_char): New functions.
|
1072 |
|
|
* m4/cshift1.m4 (cshift1): New static function, reusing the contents
|
1073 |
|
|
of cshift1_ and adding an extra size argument.
|
1074 |
|
|
(cshift1_): Redefine as a forwarder to cshift1.
|
1075 |
|
|
(cshift1__char): New function.
|
1076 |
|
|
* m4/eoshift1.m4 (zeros): Delete.
|
1077 |
|
|
(eoshift1): New static function, reusing the contents of
|
1078 |
|
|
eoshift1_ and adding extra size and filler arguments.
|
1079 |
|
|
Fix calculation of hstride. Use memset if no bound is provided.
|
1080 |
|
|
(eoshift1_): Redefine as a forwarder to eoshift1.
|
1081 |
|
|
(eoshift1__char): New function.
|
1082 |
|
|
* m4/eoshift3.m4 (zeros): Delete.
|
1083 |
|
|
(eoshift3): New static function, reusing the contents of
|
1084 |
|
|
eoshift3_ and adding extra size and filler arguments.
|
1085 |
|
|
Use memset if no bound is provided.
|
1086 |
|
|
(eoshift3_): Redefine as a forwarder to eoshift3.
|
1087 |
|
|
(eoshift3__char): New function.
|
1088 |
|
|
* generated/cshift1_4.c, generated/cshift1_8.c,
|
1089 |
|
|
* generated/eoshift1_4.c, generated/eoshift1_8.c,
|
1090 |
|
|
* generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerate.
|
1091 |
|
|
|
1092 |
|
|
2005-09-11 Francois-Xavier Coudert
|
1093 |
|
|
|
1094 |
|
|
PR libfortran/20179
|
1095 |
|
|
* io/unix.c (is_preconnected): Add function to test if a stream
|
1096 |
|
|
corresponds to a preconnected unit.
|
1097 |
|
|
* io/io.h: Add prototype for is_preconnected.
|
1098 |
|
|
* io/transfer.c (data_transfer_init): Do not truncate
|
1099 |
|
|
preconnected units.
|
1100 |
|
|
|
1101 |
|
|
2005-09-10 Janne Blomqvist
|
1102 |
|
|
|
1103 |
|
|
* io/unix.c: Remove mmap code.
|
1104 |
|
|
|
1105 |
|
|
2005-09-09 Francois-Xavier Coudert
|
1106 |
|
|
|
1107 |
|
|
PR libfortran/23784
|
1108 |
|
|
* io/close.c (st_close): Call library_end even in case of error.
|
1109 |
|
|
|
1110 |
|
|
2005-09-09 Thomas Koenig
|
1111 |
|
|
|
1112 |
|
|
* io/io.h: Add iomsg as last field of st_parameter.
|
1113 |
|
|
* runtime/error.c (generate_error): If iomsg is present, copy
|
1114 |
|
|
the message there.
|
1115 |
|
|
|
1116 |
|
|
2005-09-09 Richard Sandiford
|
1117 |
|
|
|
1118 |
|
|
PR fortran/12840
|
1119 |
|
|
* runtime/memory.c (internal_malloc_size): Return a null pointer
|
1120 |
|
|
if the size is zero.
|
1121 |
|
|
(internal_free): Do nothing if the pointer is null.
|
1122 |
|
|
(internal_realloc_size, internal_realloc, internal_realloc64): New.
|
1123 |
|
|
|
1124 |
|
|
2005-09-07 Francois-Xavier Coudert
|
1125 |
|
|
|
1126 |
|
|
PR libfortran/23262
|
1127 |
|
|
* acinclude.m4 (LIBGFOR_CHECK_CRLF): New check.
|
1128 |
|
|
* configure.ac: Use new check.
|
1129 |
|
|
* configure.in: Regenerate.
|
1130 |
|
|
* config.h.in: Regenerate.
|
1131 |
|
|
* configure: Regenerate.
|
1132 |
|
|
* io/transfer.c (next_record_w): Add case for CRLF as line
|
1133 |
|
|
terminator.
|
1134 |
|
|
* io/unix.c (tempfile, regular_file): Open files with
|
1135 |
|
|
O_BINARY on systems with CRLF.
|
1136 |
|
|
|
1137 |
|
|
2005-09-07 Steve Ellcey
|
1138 |
|
|
|
1139 |
|
|
PR libfortran/23419
|
1140 |
|
|
* io/write.c (extract_int): Use memcpy to access buffer.
|
1141 |
|
|
(extract_uint): Ditto.
|
1142 |
|
|
(extract_real): Ditto.
|
1143 |
|
|
|
1144 |
|
|
2005-09-05 Thomas Koenig
|
1145 |
|
|
|
1146 |
|
|
* io/list_read.c: Adjust size of of value to 32 (to hold
|
1147 |
|
|
kind=16 complex values).
|
1148 |
|
|
|
1149 |
|
|
2005-09-04 Thomas Koenig
|
1150 |
|
|
|
1151 |
|
|
PR libfortran/23321
|
1152 |
|
|
* io/transfer.c(data_transfer_init): Check for a too-large
|
1153 |
|
|
record number. Return if sseek failed.
|
1154 |
|
|
|
1155 |
|
|
2005-09-03 Jakub Jelinek
|
1156 |
|
|
|
1157 |
|
|
* io/read.c (read_x): Take int argument instead of fnode * and
|
1158 |
|
|
digging the N from F->u.n.
|
1159 |
|
|
* io/io.h (read_x): Adjust prototype.
|
1160 |
|
|
* io/transfer.c (formatted_transfer): Adjust callers. Don't clobber
|
1161 |
|
|
f->u.n for FMT_T.
|
1162 |
|
|
|
1163 |
|
|
2005-09-02 Francois-Xavier Coudert
|
1164 |
|
|
|
1165 |
|
|
* io/unix.c (stream_ttyname): Protect use of ttyname by
|
1166 |
|
|
HAVE_TTYNAME macro.
|
1167 |
|
|
* configure.ac: Add check for ttyname.
|
1168 |
|
|
* config.h.in: Regenerate.
|
1169 |
|
|
* configure: Regenerate.
|
1170 |
|
|
|
1171 |
|
|
2005-09-02 Andreas Jaeger
|
1172 |
|
|
|
1173 |
|
|
* libgfortran.h: Add prototype for init_compile_options.
|
1174 |
|
|
|
1175 |
|
|
* io/io.h: Add prototype for notify_std.
|
1176 |
|
|
|
1177 |
|
|
2005-08-31 Steve Ellcey
|
1178 |
|
|
|
1179 |
|
|
* io/read.c (set_integer): Use memcpy to fill buffer.
|
1180 |
|
|
|
1181 |
|
|
2005-08-31 Steve Ellcey
|
1182 |
|
|
|
1183 |
|
|
PR target/23556
|
1184 |
|
|
* io/read.c (convert_real): Use memcpy to fill buffer.
|
1185 |
|
|
|
1186 |
|
|
2005-08-29 Thomas Koenig
|
1187 |
|
|
|
1188 |
|
|
PR libfortran/23598
|
1189 |
|
|
* io/lock.c(library_start): If ioparm.iostat is present, clear
|
1190 |
|
|
it unconditionally.
|
1191 |
|
|
|
1192 |
|
|
2005-08-27 Francois-Xavier Coudert
|
1193 |
|
|
|
1194 |
|
|
* acinclude.m4 (LIBGFOR_CHECK_UNLINK_OPEN_FILE): Add check to see
|
1195 |
|
|
if target can unlink open files.
|
1196 |
|
|
* configure.ac: Use this new test.
|
1197 |
|
|
* config.h.in: Regenerate.
|
1198 |
|
|
* configure: Regenerate.
|
1199 |
|
|
* Makefile.in: Regenerate.
|
1200 |
|
|
* aclocal.ac: Regenerate.
|
1201 |
|
|
* io/io.h: Add prototype for unpack_filename.
|
1202 |
|
|
* io/close.c (st_close): Delete file after closing unit if
|
1203 |
|
|
HAVE_UNLINK_OPEN_FILE is not defined.
|
1204 |
|
|
* io/unix.c (unpack_filename): Unlink scratch file after opening
|
1205 |
|
|
it only if HAVE_UNLINK_OPEN_FILE is defined.
|
1206 |
|
|
|
1207 |
|
|
2005-08-17 Kelley Cook
|
1208 |
|
|
|
1209 |
|
|
* All files: Update FSF address.
|
1210 |
|
|
|
1211 |
|
|
2005-08-16 Thomas Koenig
|
1212 |
|
|
|
1213 |
|
|
PR libfortran/23428
|
1214 |
|
|
* io/transfer.c (iolength_transfer): Remove __attribute__ ((unused))
|
1215 |
|
|
from type. Return correct length for inquire(iolength=)
|
1216 |
|
|
for complex variables.
|
1217 |
|
|
|
1218 |
|
|
2005-08-11 Francois-Xavier Coudert
|
1219 |
|
|
Steven Bosscher
|
1220 |
|
|
|
1221 |
|
|
PR libfortran/20006
|
1222 |
|
|
* Makefile.am: Add file runtime/compile_options.c.
|
1223 |
|
|
* Makefile.in: Regenerate.
|
1224 |
|
|
* libgfortran.h: Create structure compile_options_t. Define the
|
1225 |
|
|
compile_options variable and GFC_STD_ macros.
|
1226 |
|
|
* runtime/compile_options.c: New file.
|
1227 |
|
|
* runtime/error.c (notify_std): New function.
|
1228 |
|
|
* runtime/main.c (init): Call init_compile_options during
|
1229 |
|
|
initialization.
|
1230 |
|
|
* io/format.c: Use the new notify_std function for the $
|
1231 |
|
|
descriptor extension.
|
1232 |
|
|
|
1233 |
|
|
2005-08-09 Francois-Xavier Coudert
|
1234 |
|
|
* Makefile.am: Add file intrinsics/tty.c to Makefile process.
|
1235 |
|
|
* Makefile.in: Regenerate.
|
1236 |
|
|
* io/io.h: Prototypes for new functions stream_isatty and
|
1237 |
|
|
stream_ttyname.
|
1238 |
|
|
* io/unix (stream_isatty, stream_ttyname): New functions to call
|
1239 |
|
|
isatty() and ttyname() on a given unit.
|
1240 |
|
|
* intrinsics/tty.c: New file to implement g77 intrinsics TTYNAM
|
1241 |
|
|
and ISATTY.
|
1242 |
|
|
|
1243 |
|
|
2005-08-08 Jerry DeLisle
|
1244 |
|
|
|
1245 |
|
|
PR libfortran/23154
|
1246 |
|
|
* io/transfer.c (data_transfer_init): Initialize
|
1247 |
|
|
current_unit->bytes_left for a read.
|
1248 |
|
|
|
1249 |
|
|
2005-08-07 Janne Blomqvist
|
1250 |
|
|
|
1251 |
|
|
PR fortran/22390
|
1252 |
|
|
* io/backspace.c: File removed, contents moved to ...
|
1253 |
|
|
* io/endfile.c: Ditto.
|
1254 |
|
|
* io/rewind.c: Ditto.
|
1255 |
|
|
* io/file_pos.c: New file, ... here.
|
1256 |
|
|
* Makefile.am: Add file_pos.c to list, remove obsolete files.
|
1257 |
|
|
* Makefile.in: Regenerated.
|
1258 |
|
|
|
1259 |
|
|
2005-08-07 Francois-Xavier Coudert
|
1260 |
|
|
|
1261 |
|
|
* io/io.h: Change DEFAULT_TEMPDIR to /tmp instead of /var/tmp.
|
1262 |
|
|
* io/unix.c (tempfile): Look at the TEMP environment variable
|
1263 |
|
|
to find the temporary files directory. Whitespace correction.
|
1264 |
|
|
|
1265 |
|
|
2005-08-06 Francois-Xavier Coudert
|
1266 |
|
|
|
1267 |
|
|
* io/unix.c: Add O_RDWR to open() call.
|
1268 |
|
|
|
1269 |
|
|
2005-08-04 Paul Thomas
|
1270 |
|
|
|
1271 |
|
|
* transfer.c (data_transfer_init): Truncate file in
|
1272 |
|
|
sequential WRITE when last_record == 0, rather than
|
1273 |
|
|
current_record. Cures problem on RH9.
|
1274 |
|
|
|
1275 |
|
|
2005-08-03 Francois-Xavier Coudert
|
1276 |
|
|
|
1277 |
|
|
* libgfortran.h: When isfinite is not provided by the system,
|
1278 |
|
|
define it as a macro, so that it can accept any floating point
|
1279 |
|
|
type.
|
1280 |
|
|
|
1281 |
|
|
2005-08-01 Francois-Xavier Coudert
|
1282 |
|
|
|
1283 |
|
|
PR libfortran/23178
|
1284 |
|
|
* intrinsics/flush.c (flush_i8): Add function flush_i8. Update
|
1285 |
|
|
copyright years.
|
1286 |
|
|
|
1287 |
|
|
2005-07-31 Francois-Xavier Coudert
|
1288 |
|
|
|
1289 |
|
|
PR libfortran/21787
|
1290 |
|
|
* intrinsics/abort.c (abort): Close units before aborting.
|
1291 |
|
|
Updated copyright years.
|
1292 |
|
|
|
1293 |
|
|
2005-07-30 Francois-Xavier Coudert
|
1294 |
|
|
|
1295 |
|
|
PR libfortran/22436
|
1296 |
|
|
* io/write.c (write_real): Add default formats for real(10) and
|
1297 |
|
|
real(16).
|
1298 |
|
|
|
1299 |
|
|
2005-07-30 Paul Thomas
|
1300 |
|
|
|
1301 |
|
|
PR fortran/22570 and related issues.
|
1302 |
|
|
* transfer.c (formatted_transfer): Make sure that there
|
1303 |
|
|
really is data present before X- or T- editing. Move all
|
1304 |
|
|
treatment of tabbing during writes to start of next data
|
1305 |
|
|
producing format. Suppress incorrect zeroing of bytes_left
|
1306 |
|
|
in slash formating. Insert int cast for assignment of a
|
1307 |
|
|
difference of two gfc_offsets.
|
1308 |
|
|
|
1309 |
|
|
2005-07-23 Jerry DeLisle
|
1310 |
|
|
|
1311 |
|
|
* io/write.c (write_float): Revise output of IEEE exceptional
|
1312 |
|
|
values to comply with F95 and F2003 standards.
|
1313 |
|
|
|
1314 |
|
|
2005-07-22 Jerry DeLisle
|
1315 |
|
|
|
1316 |
|
|
PR libfortran/22570
|
1317 |
|
|
* io/unit.c (init_units): Replace BLANK_ZERO with
|
1318 |
|
|
BLANK_UNSPECIFIED.
|
1319 |
|
|
|
1320 |
|
|
2005-07-22 Jerry DeLisle
|
1321 |
|
|
|
1322 |
|
|
PR libfortran/21875 (FM111.f)
|
1323 |
|
|
* io/read.c (next_char): Return a ' ' character when BLANK_ZERO
|
1324 |
|
|
or BLANK_NULL are active.
|
1325 |
|
|
(read_decimal): Interpret ' ' character correctly for BZ or BN.
|
1326 |
|
|
(read_radix): Interpret ' ' character correctly for BZ or BN.
|
1327 |
|
|
(read_f): Interpret ' ' character correctly for BZ or BN.
|
1328 |
|
|
|
1329 |
|
|
2005-07-22 Paul Thomas
|
1330 |
|
|
|
1331 |
|
|
PR libfortran/22570
|
1332 |
|
|
* read.c (read_x): Correct the condition for doing the
|
1333 |
|
|
x-editing during formatted input.
|
1334 |
|
|
* transfer.c (formatted_transfer): Cast offset difference
|
1335 |
|
|
as int, clean-up arithmetic with new variable, bytes_used,
|
1336 |
|
|
zero counters for FMT_SLASH,
|
1337 |
|
|
(data_transfer_init) Zero X- and T-editing counters
|
1338 |
|
|
unconditionally.
|
1339 |
|
|
(next_record_w) Zero X- and T-editing counters.
|
1340 |
|
|
unconditionally.
|
1341 |
|
|
|
1342 |
|
|
2005-07-17 Jerry DeLisle
|
1343 |
|
|
|
1344 |
|
|
* io/write.c (write_float): Fix field width checks for
|
1345 |
|
|
printing 'Infinity' or 'Inf'.
|
1346 |
|
|
(output_float): Fix typo in comment.
|
1347 |
|
|
|
1348 |
|
|
2005-07-12 Paul Thomas
|
1349 |
|
|
|
1350 |
|
|
PR libfortran/16435
|
1351 |
|
|
* transfer.c (formatted_transfer): Correct the problems
|
1352 |
|
|
with X- and T-editting that caused TLs followed by TRs
|
1353 |
|
|
to overwrite data, which caused NIST FM908.FOR to fail
|
1354 |
|
|
on many tests.
|
1355 |
|
|
(data_transfer_init): Zero X- and T-editting counters at
|
1356 |
|
|
the start of formatted IO.
|
1357 |
|
|
* write.c (write_x): Write specified number of skips with
|
1358 |
|
|
specified number of spaces at the end.
|
1359 |
|
|
|
1360 |
|
|
2005-07-13 Paul Thomas
|
1361 |
|
|
|
1362 |
|
|
* io/read.c (read_complex): Prevent X formatting during reads
|
1363 |
|
|
from going beyond EOR to fix NIST fm908.FOR failure.
|
1364 |
|
|
* io/list_read.c (read_complex): Allow complex data in list-
|
1365 |
|
|
directed reads to have eols either side of the comma to
|
1366 |
|
|
fix NIST FM906.FOR failure.
|
1367 |
|
|
|
1368 |
|
|
2005-07-12 Thomas Koenig
|
1369 |
|
|
|
1370 |
|
|
PR libfortran/21593
|
1371 |
|
|
* io/unix.c: Add member special_file to type unix_stream.
|
1372 |
|
|
(fd_truncate): Don't call ftruncate or chsize if
|
1373 |
|
|
s refers to a special file.
|
1374 |
|
|
(fd_to_stream): initialize s->special_file.
|
1375 |
|
|
|
1376 |
|
|
2005-07-11 David Edelsohn
|
1377 |
|
|
|
1378 |
|
|
PR libfortran/22412
|
1379 |
|
|
* io/write.c (otoa): Bias p by SCRATCH_SIZE, not
|
1380 |
|
|
sizeof (SCRATCH_SIZE).
|
1381 |
|
|
(btoa): Same.
|
1382 |
|
|
|
1383 |
|
|
2005-07-09 Jerry DeLisle
|
1384 |
|
|
|
1385 |
|
|
PR libfortran/21875 (FM111.f)
|
1386 |
|
|
* io/read.c (next_char): Return a ' ' character when BLANK_ZERO or
|
1387 |
|
|
BLANK_NULL are active.
|
1388 |
|
|
(read_decimal): Interpret ' ' character correctly for BZ or BN.
|
1389 |
|
|
(read_radix): Interpret ' ' character correctly for BZ or BN.
|
1390 |
|
|
(read_f): Interpret ' ' character correctly for BZ or BN.
|
1391 |
|
|
* gfortran.dg/test (fmt_read_bz_bn.f90): New test case.
|
1392 |
|
|
|
1393 |
|
|
2005-07-09 Francois-Xavier Coudert
|
1394 |
|
|
Thomas Koenig
|
1395 |
|
|
|
1396 |
|
|
PR libfortran/22217
|
1397 |
|
|
* io/write.c (extract_unit): New function; extract
|
1398 |
|
|
ints as unsigned signed int of the correct size.
|
1399 |
|
|
(write_int): Use it.
|
1400 |
|
|
* runtime/error.c: Adjust copyright years.
|
1401 |
|
|
Adjust size of buffer to maximum that can occur.
|
1402 |
|
|
|
1403 |
|
|
2005-07-07 Tobias Schl"uter
|
1404 |
|
|
|
1405 |
|
|
* libgfortran.h (GFC_ARRAY_DESCRIPTOR): Replace 'type *base' by
|
1406 |
|
|
'size_t offset'.
|
1407 |
|
|
* intrinsics/cshift0.c, intrinsics/eoshift0.c,
|
1408 |
|
|
intrinsics/eoshift2.c,intrinsics/pack_generic.c,
|
1409 |
|
|
intrinsics/reshape_generic.c, intrinsics/spread_generic.c,
|
1410 |
|
|
intrinsics/transpose_generic.c, intrinsics/unpack_generic,
|
1411 |
|
|
m4/cshift1.m4, m4/eoshift1.m4, m4/eoshift3.m4, m4/iforeach.m4,
|
1412 |
|
|
m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4, m4/reshape.m4,
|
1413 |
|
|
m4,transpose.m4: Set renamed field 'offset' to zero instead of
|
1414 |
|
|
'base'.
|
1415 |
|
|
* generated/all_l4.c, generated/all_l8.c,
|
1416 |
|
|
generated/any_l4.c, generated/any_l8.c, generated/count_4_l4.c,
|
1417 |
|
|
generated/count_4_l8.c, generated/count_8_l4.c,
|
1418 |
|
|
generated/count_8_l8.c, generated/chift1_4.c,
|
1419 |
|
|
generated/cshift1_8.c, generated/eoshift1_4.c,
|
1420 |
|
|
generated/eoshift1_8.c, generated/eoshift3_4.c,
|
1421 |
|
|
generated/eoshift3_8.c, generated/matmul_c4.c,
|
1422 |
|
|
generated/matmul_c8.c, generated/matmul_i4.c, matmul_i8.c,
|
1423 |
|
|
generated/matmul_l4.c, generated/matmul_l8.c,
|
1424 |
|
|
generated/matmul_r4.c, generated/matmul_r8.c,
|
1425 |
|
|
generated/maxloc0_4_i4.c, generated/maxloc0_4_i8.c,
|
1426 |
|
|
generated/maxloc0_4_r4.c, generated/maxloc0_4_r8.c,
|
1427 |
|
|
generated/maxloc0_8_i4.c, generated/maxloc0_8_i8.c,
|
1428 |
|
|
generated/maxloc0_8_r4.c, generated/maxloc0_8_r8.c,
|
1429 |
|
|
generated/maxloc1_4_i4.c, generated/maxloc1_4_i8.c,
|
1430 |
|
|
generated/maxloc1_4_r4.c, generated/maxloc1_4_r8.c,
|
1431 |
|
|
generated/maxloc1_8_i4.c, generated/maxloc1_8_i8.c,
|
1432 |
|
|
generated/maxloc1_8_r4.c, generated/maxloc1_8_r8.c,
|
1433 |
|
|
generated/maxval_i4.c, generated/maxval_i8.c,
|
1434 |
|
|
generated/maxval_r4.c, generated/maxval_r8.c,
|
1435 |
|
|
generated/minloc0_4_i4.c, generated/minloc0_4_i8.c,
|
1436 |
|
|
generated/minloc0_4_r4.c, generated/minloc0_4_r8.c,
|
1437 |
|
|
generated/minloc0_8_i4.c, generated/minloc0_8_i8.c,
|
1438 |
|
|
generated/minloc0_8_r4.c, generated/minloc0_8_r8.c,
|
1439 |
|
|
generated/minloc1_4_i4.c, generated/minloc1_4_i8.c,
|
1440 |
|
|
generated/minloc1_4_r4.c, generated/minloc1_4_r8.c,
|
1441 |
|
|
generated/minloc1_8_i4.c, generated/minloc1_8_i8.c,
|
1442 |
|
|
generated/minloc1_8_r4.c, generated/minloc1_8_r8.c,
|
1443 |
|
|
generated/minval_i4.c, generated/minval_i8.c,
|
1444 |
|
|
generated/minval_r4.c, generated/minval_r8.c,
|
1445 |
|
|
generated/product_c4.c, generated/product_c8.c,
|
1446 |
|
|
generated/product_i4.c, generated/product_i8.c,
|
1447 |
|
|
generated/product_r4.c, generated/product_r8.c,
|
1448 |
|
|
generated/reshape_c4.c, generated/reshape_c8.c,
|
1449 |
|
|
generated/reshape_i4.c, generated/reshape_i8.c,
|
1450 |
|
|
generated/sum_c4.c, generated/sum_c8.c, generated/sum_i4.c,
|
1451 |
|
|
generated/sum_i8.c, generated/sum_r4.c, generated/sum_r8.c,
|
1452 |
|
|
generated/transpose_c4.c, generated/transpose_c8.c,
|
1453 |
|
|
generated/transpose_i4.c, generated/transpose_i8.c: Regenerate:
|
1454 |
|
|
|
1455 |
|
|
2005-07-07 Thomas Koenig
|
1456 |
|
|
|
1457 |
|
|
PR libfortran/21594
|
1458 |
|
|
* intrinsics/eoshift0.c: If abs(shift) > len, fill the
|
1459 |
|
|
the whole array with the boundary value, but don't overrun it.
|
1460 |
|
|
* intrinsics/eoshift2.c: Likewise.
|
1461 |
|
|
* m4/eoshift1.m4: Likewise.
|
1462 |
|
|
* m4/eoshift3.m4: Likewise.
|
1463 |
|
|
* generated/eoshift1_4.c: Regenerated.
|
1464 |
|
|
* generated/eoshift1_8.c: Regenerated.
|
1465 |
|
|
* generated/eoshift3_4.c: Regenerated.
|
1466 |
|
|
* generated/eoshift3_8.c: Regenerated.
|
1467 |
|
|
|
1468 |
|
|
2005-07-07 Feng Wang
|
1469 |
|
|
|
1470 |
|
|
PR fortran/16531
|
1471 |
|
|
* io/transfer.c (formatted_transfer): Enable FMT_A on other types to
|
1472 |
|
|
support Hollerith constants.
|
1473 |
|
|
|
1474 |
|
|
2005-07-01 Andreas Jaeger
|
1475 |
|
|
|
1476 |
|
|
* intrinsics/unpack_generic.c: Remove const from parameter.
|
1477 |
|
|
|
1478 |
|
|
* io/transfer.c (formatted_transfer): Remove unused variable.
|
1479 |
|
|
|
1480 |
|
|
2005-06-28 Thomas Koenig
|
1481 |
|
|
|
1482 |
|
|
PR libfortran/22142
|
1483 |
|
|
* m4/eoshift1.m4: Correct bstride (it needs to be multiplied
|
1484 |
|
|
by size since it's a char pointer).
|
1485 |
|
|
* m4/eoshift1_4.c: Regenerated.
|
1486 |
|
|
* m4/eoshift1_8.c: Regenerated.
|
1487 |
|
|
|
1488 |
|
|
2005-06-28 Thomas Koenig
|
1489 |
|
|
|
1490 |
|
|
PR libfortran/22142
|
1491 |
|
|
* m4/eoshift3.m4: Correct bstride (it needs to be multiplied
|
1492 |
|
|
by size since it's a char pointer).
|
1493 |
|
|
* m4/eoshift3_4.c: Regenerated.
|
1494 |
|
|
* m4/eoshift3_8.c: Regenerated.
|
1495 |
|
|
|
1496 |
|
|
2005-06-28 Francois-Xavier Coudert
|
1497 |
|
|
|
1498 |
|
|
PR libfortran/22170
|
1499 |
|
|
* io/transfer.c (formatted_transfer): Do not iterate on the
|
1500 |
|
|
repeat count of a FMT_SLASH, since this is already done in
|
1501 |
|
|
next_format().
|
1502 |
|
|
|
1503 |
|
|
2005-06-25 Thomas Koenig
|
1504 |
|
|
|
1505 |
|
|
PR libfortran/22144
|
1506 |
|
|
* m4/cshift1.m4: Remove const from argument ret.
|
1507 |
|
|
Populate return array descriptor if ret->data is NULL.
|
1508 |
|
|
* m4/eoshift1.m4: Likewise.
|
1509 |
|
|
* m4/eoshift3.m4: Likewise.
|
1510 |
|
|
* generated/cshift1_4.c: Regenerated.
|
1511 |
|
|
* generated/cshift1_8.c: Regenerated.
|
1512 |
|
|
* generated/eoshift1_4.c: Regenerated.
|
1513 |
|
|
* generated/eoshift1_8.c: Regenerated.
|
1514 |
|
|
* generated/eoshift3_4.c: Regenerated.
|
1515 |
|
|
* generated/eoshift3_8.c: Regenerated.
|
1516 |
|
|
|
1517 |
|
|
2005-06-24 Jerry DeLisle
|
1518 |
|
|
|
1519 |
|
|
PR libfortran/21915
|
1520 |
|
|
* Makefile.am: Include intrinsics/hyper.c.
|
1521 |
|
|
* c99_protos.h: Add prototypes for single precision versions of
|
1522 |
|
|
acosh, asinh, and atanh for platforms that do not have these.
|
1523 |
|
|
* config.h.in: Add #undef for wrappers.
|
1524 |
|
|
* configure.ac: Add checks for single precision versions.
|
1525 |
|
|
* aclocal.m4: Regenerated.
|
1526 |
|
|
* Makefile.in: Regenerated.
|
1527 |
|
|
* configure: Regenerated.
|
1528 |
|
|
* intrinsics/hyper.c: New file, adds new wrapper functions.
|
1529 |
|
|
|
1530 |
|
|
2005-06-23 Francois-Xavier Coudert
|
1531 |
|
|
|
1532 |
|
|
* intrinsics/c99_functions.c (log10l): New log10l function for
|
1533 |
|
|
systems where this is not available.
|
1534 |
|
|
* c99_protos.h: Prototype for log10l function.
|
1535 |
|
|
* libgfortran.h: Use generated kinds.h to define GFC_INTEGER_*,
|
1536 |
|
|
GFC_UINTEGER_*, GFC_LOGICAL_*, GFC_REAL_*, GFC_COMPLEX_*. Update
|
1537 |
|
|
prototypes for gfc_itoa and xtoa.
|
1538 |
|
|
* io/io.h: Update prototypes for set_integer and max_value.
|
1539 |
|
|
* io/list_read.c (convert_integer): Use new
|
1540 |
|
|
GFC_(INTEGER|REAL)_LARGEST type.
|
1541 |
|
|
* io/read.c (set_integer): Likewise.
|
1542 |
|
|
(max_value): Likewise.
|
1543 |
|
|
(convert_real): Likewise.
|
1544 |
|
|
(real_l): Likewise.
|
1545 |
|
|
(next_char): Likewise.
|
1546 |
|
|
(read_decimal): Likewise.
|
1547 |
|
|
(read_radix): Likewise.
|
1548 |
|
|
(read_f): Likewise.
|
1549 |
|
|
* io/write.c (extract_int): Use new GFC_INTEGER_LARGEST type.
|
1550 |
|
|
(extract_real): Use new GFC_REAL_LARGEST type.
|
1551 |
|
|
(calculate_exp): Likewise.
|
1552 |
|
|
(calculate_G_format): Likewise.
|
1553 |
|
|
(output_float): Likewise. Use log10l for long double values.
|
1554 |
|
|
Add comment for sprintf format. Use GFC_REAL_LARGEST_FORMAT.
|
1555 |
|
|
(write_l): Use new GFC_INTEGER_LARGEST type.
|
1556 |
|
|
(write_float): Use new GFC_REAL_LARGEST type.
|
1557 |
|
|
(write_int): Remove useless special case for (len < 8).
|
1558 |
|
|
(write_decimal): Use GFC_INTEGER_LARGEST.
|
1559 |
|
|
(otoa): Use GFC_UINTEGER_LARGEST as argument.
|
1560 |
|
|
(btoa): Use GFC_UINTEGER_LARGEST as argument.
|
1561 |
|
|
* runtime/error.c (gfc_itoa): Use GFC_INTEGER_LARGEST as
|
1562 |
|
|
argument.
|
1563 |
|
|
(xtoa): Use GFC_UINTEGER_LARGEST as argument.
|
1564 |
|
|
* Makefile.am: Use mk-kinds-h.sh to generate header kinds.h
|
1565 |
|
|
with all Fortran kinds available.
|
1566 |
|
|
* configure.ac: Check for strtold and log10l.
|
1567 |
|
|
* Makefile.in: Regenerate.
|
1568 |
|
|
* aclocal.m4: Regenerate.
|
1569 |
|
|
* configure: Regenerate.
|
1570 |
|
|
* config.h.in: Regenerate.
|
1571 |
|
|
* mk-kinds-h.sh: Configuration script for available integer
|
1572 |
|
|
and real kinds.
|
1573 |
|
|
|
1574 |
|
|
|
1575 |
|
|
2005-06-18 Janne Blomqvist
|
1576 |
|
|
|
1577 |
|
|
* unix.c (stream_at_bof): Don't assume that all non-mmapped files
|
1578 |
|
|
are non-seekable.
|
1579 |
|
|
(stream_at_eof): Likewise.
|
1580 |
|
|
|
1581 |
|
|
2005-06-18 Francois-Xavier Coudert
|
1582 |
|
|
|
1583 |
|
|
PR libfortran/19155
|
1584 |
|
|
* io/read.c (convert_real): strtod can set errno to EINVAL on an
|
1585 |
|
|
empty string, but we shouldn't have an error in that case.
|
1586 |
|
|
|
1587 |
|
|
2005-06-17 Francois-Xavier Coudert
|
1588 |
|
|
|
1589 |
|
|
PR libfortran/19216
|
1590 |
|
|
* io/list_read.c (eat_separator): No need to call next_record,
|
1591 |
|
|
even in non-namelist_mode.
|
1592 |
|
|
|
1593 |
|
|
2005-06-17 Francois-Xavier Coudert
|
1594 |
|
|
|
1595 |
|
|
* io/transfer.c (formatted_transfer): Fix typo in error message.
|
1596 |
|
|
|
1597 |
|
|
2005-06-17 Francois-Xavier Coudert
|
1598 |
|
|
|
1599 |
|
|
PR libfortran/16436
|
1600 |
|
|
* io/transfer.c (read_sf): Correct updating of bytes_left field.
|
1601 |
|
|
(formatted_transfer): Correct updating of bytes_left field and
|
1602 |
|
|
reformatting code (comments and whitespace).
|
1603 |
|
|
* io/unix.c (move_pos_offset): "active" field should not be
|
1604 |
|
|
changed here. Whitespace corrections.
|
1605 |
|
|
|
1606 |
|
|
2005-06-15 Francois-Xavier Coudert
|
1607 |
|
|
|
1608 |
|
|
PR libfortran/21950
|
1609 |
|
|
* intrinsics/c99_functions.c (scalbn): Provide fallback
|
1610 |
|
|
implementation for scalbn.
|
1611 |
|
|
* c99_protos.h: Prototype for scalbn.
|
1612 |
|
|
* configure.ac: Add check for scalbn.
|
1613 |
|
|
* configure: Regenerate.
|
1614 |
|
|
* config.h.in: Regenerate.
|
1615 |
|
|
|
1616 |
|
|
2005-06-14 Thomas Koenig
|
1617 |
|
|
|
1618 |
|
|
* intrinsics/eoshift0.c: Removed prototype for eoshift0.
|
1619 |
|
|
* intrinsics/eoshift2.c: Removed prototype for eoshift2.
|
1620 |
|
|
|
1621 |
|
|
2005-06-14 Tom Tromey
|
1622 |
|
|
|
1623 |
|
|
PR libgcj/19877:
|
1624 |
|
|
* configure, aclocal.m4, Makefile.in: Rebuilt.
|
1625 |
|
|
|
1626 |
|
|
2005-06-12 Thomas Koenig
|
1627 |
|
|
|
1628 |
|
|
PR libfortran/21594
|
1629 |
|
|
* intrinsics/eoshift0.c: Add prototype for eoshift0.
|
1630 |
|
|
* intrinsics/eoshift2.c: Add prototype for eoshift2.
|
1631 |
|
|
|
1632 |
|
|
2005-06-12 Steven G. Kargl
|
1633 |
|
|
Thomas Koenig
|
1634 |
|
|
|
1635 |
|
|
PR libfortran/PR21797
|
1636 |
|
|
* m4/cexp.m4 (csqrt`'q): Add type qualifyer to
|
1637 |
|
|
sqrt and fabs.
|
1638 |
|
|
* generated/exp_c4.c: Regenerated.
|
1639 |
|
|
|
1640 |
|
|
2005-06-12 Francois-Xavier Coudert
|
1641 |
|
|
|
1642 |
|
|
PR libfortran/19155
|
1643 |
|
|
* io/read.c (read_f): Take care of spaces after initial sign.
|
1644 |
|
|
|
1645 |
|
|
2005-06-11 Thomas Koenig
|
1646 |
|
|
|
1647 |
|
|
PR libfortran/21333
|
1648 |
|
|
* Makefile.am: Add in_pack_c4.c, in_pack_c8.c, in_unpack_c4.c
|
1649 |
|
|
and in_unpack_c8.c.
|
1650 |
|
|
* Makefile.in: Regenerate.
|
1651 |
|
|
* libgfortran.h: Declare internal_pack_c4, internal_pack_c8,
|
1652 |
|
|
internal_unpack_c4 and internal_unpack_c8.
|
1653 |
|
|
* m4/in_pack.m4: Use rtype_ccode insteald of rtype_kind
|
1654 |
|
|
in function name.
|
1655 |
|
|
Use sizeof (rtype_name) as size for memory allocation.
|
1656 |
|
|
* m4/in_unpack.m4: Use rtype_ccode insteald of rtype_kind
|
1657 |
|
|
in function name.
|
1658 |
|
|
Use sizeof (rtype_name) for calculation of sizes for memcpy.
|
1659 |
|
|
* runtime/in_pack_generic.c: For real, integer and logical
|
1660 |
|
|
call internal_pack_4 if size==4 and internal_pack_8 if
|
1661 |
|
|
size==8.
|
1662 |
|
|
For complex, call internal_pack_c4 if size==8 and
|
1663 |
|
|
internal_pack_c8 if size==16.
|
1664 |
|
|
* runtime/in_unpack_generic.c: For real, integer and logical
|
1665 |
|
|
call internal_unpack_4 if size==4 and internal_unpack_8 if
|
1666 |
|
|
size==8.
|
1667 |
|
|
For complex, call internal_unpack_c4 if size==8 and
|
1668 |
|
|
internal_unpack_c8 if size==16.
|
1669 |
|
|
* generated/in_pack_i4.c: Regenerated.
|
1670 |
|
|
* generated/in_pack_i8.c: Regenerated.
|
1671 |
|
|
* generated/in_unpack_i4.c: Regenerated.
|
1672 |
|
|
* generated/in_unpack_i8.c: Regenerated.
|
1673 |
|
|
* generated/in_pack_c4.c: New file.
|
1674 |
|
|
* generated/in_pack_c8.c: New file.
|
1675 |
|
|
* generated/in_unpack_c4.c: New file.
|
1676 |
|
|
* generated/in_unpack_c8.c: New file.
|
1677 |
|
|
|
1678 |
|
|
2005-06-09 Thomas Koenig
|
1679 |
|
|
|
1680 |
|
|
PR libfortran/21480
|
1681 |
|
|
* m4/reshape.m4: Use sizeof (rtype_name) for sizes to be passed
|
1682 |
|
|
to reshape_packed.
|
1683 |
|
|
* generated/reshape_c4.c: Regenerated.
|
1684 |
|
|
* generated/reshape_c8.c: Regenerated.
|
1685 |
|
|
* generated/reshape_i4.c: Regenerated.
|
1686 |
|
|
* generated/reshape_i8.c: Regenerated.
|
1687 |
|
|
|
1688 |
|
|
2005-06-07 Thomas Koenig
|
1689 |
|
|
|
1690 |
|
|
PR libfortran/21926
|
1691 |
|
|
* m4/matmul.m4: Correct zeroing of result for non-packed
|
1692 |
|
|
arrays with lowest stride is one.
|
1693 |
|
|
* generated/matmul_c4.c: Regenerated.
|
1694 |
|
|
* generated/matmul_c8.c: Regenerated.
|
1695 |
|
|
* generated/matmul_i4.c: Regenerated.
|
1696 |
|
|
* generated/matmul_i8.c: Regenerated.
|
1697 |
|
|
* generated/matmul_r4.c: Regenerated.
|
1698 |
|
|
* generated/matmul_r8.c: Regenerated.
|
1699 |
|
|
|
1700 |
|
|
2005-05-30 Francois-Xavier Coudert
|
1701 |
|
|
|
1702 |
|
|
PR libfortran/20179
|
1703 |
|
|
* io/unix.c (fd_close): Add test so that we don't close()
|
1704 |
|
|
stdout and stderr.
|
1705 |
|
|
|
1706 |
|
|
2005-05-29 Francois-Xavier Coudert
|
1707 |
|
|
|
1708 |
|
|
PR libfortran/20006
|
1709 |
|
|
* io/format.c (parse_format_list): Set repeat count of $ format
|
1710 |
|
|
node to 1.
|
1711 |
|
|
* io/transfer.c (read_sf): Add g.seen_dollar to the test
|
1712 |
|
|
concerning advancing I/O.
|
1713 |
|
|
(data_transfer_init): Likewise.
|
1714 |
|
|
(finalize_transfer): Likewise.
|
1715 |
|
|
|
1716 |
|
|
2005-05-27 Thomas Koenig
|
1717 |
|
|
|
1718 |
|
|
* runtime/in_pack_generic.c: Adjust copyright years.
|
1719 |
|
|
(in_pack_generic): Change dimension of auxiliary arrays from
|
1720 |
|
|
GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION.
|
1721 |
|
|
* runtime/in_unpack_generic.c: Adjust copyright years.
|
1722 |
|
|
(in_unpack_generic): Change dimension of auxiliary arrays from
|
1723 |
|
|
GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION.
|
1724 |
|
|
|
1725 |
|
|
2005-05-26 Thomas Koenig
|
1726 |
|
|
|
1727 |
|
|
PR libfortran/17283
|
1728 |
|
|
* intrinsics/unpack_generic.c: Fix name of routine
|
1729 |
|
|
on top. Update copyright years.
|
1730 |
|
|
(unpack1): Remove const from return array descriptor.
|
1731 |
|
|
rs: New variable, for calculating return sizes.
|
1732 |
|
|
Populate return array descriptor if ret->data is NULL.
|
1733 |
|
|
|
1734 |
|
|
2005-05-22 Peter Wainwright
|
1735 |
|
|
|
1736 |
|
|
PR libfortran/21376
|
1737 |
|
|
* io/write.c (output_float): Rework logic to avoid call to log10
|
1738 |
|
|
with argument equal to zero.
|
1739 |
|
|
|
1740 |
|
|
2005-05-21 Eric Botcazou
|
1741 |
|
|
|
1742 |
|
|
* configure.ac: Check for trunc and truncf in libm.
|
1743 |
|
|
* configure: Regenerate.
|
1744 |
|
|
* config.h.in: Likewise.
|
1745 |
|
|
* intrinsics/c99_functions.c (trunc, truncf): New functions.
|
1746 |
|
|
* c99_protos.h (trunc, truncf): Declare them.
|
1747 |
|
|
|
1748 |
|
|
2005-05-18 Thomas Koenig
|
1749 |
|
|
|
1750 |
|
|
PR libfortran/21127
|
1751 |
|
|
* Makefile.am: Really commit.
|
1752 |
|
|
* Makefile.in: Really commit.
|
1753 |
|
|
|
1754 |
|
|
2005-05-18 Thomas Koenig
|
1755 |
|
|
|
1756 |
|
|
PR libfortran/21127
|
1757 |
|
|
* Makefile.am: Add generated/reshape_c4.c and
|
1758 |
|
|
generated/reshape_c8.c.
|
1759 |
|
|
* Makefile.in: Regenerated.
|
1760 |
|
|
* m4/iparm.m4: Define rtype_ccode to be c4 or c8 for
|
1761 |
|
|
complex types, 4 or 8 otherwise.
|
1762 |
|
|
* m4/reshape.m4: Use rtype_ccode instead of rtype_kind
|
1763 |
|
|
in function name.
|
1764 |
|
|
* generated/reshape_c4.c: New file.
|
1765 |
|
|
* generated/reshape_c8.c: New file.
|
1766 |
|
|
|
1767 |
|
|
2005-05-16 Andreas Jaeger
|
1768 |
|
|
|
1769 |
|
|
* configure.ac: Add additional warning flags.
|
1770 |
|
|
* configure: Regenerate.
|
1771 |
|
|
|
1772 |
|
|
* io/write.c (calculate_G_format): Remove unused parameter.
|
1773 |
|
|
(output_float): Remove unused parameter.
|
1774 |
|
|
(write_float): Change callers.
|
1775 |
|
|
(nml_write_obj): Avoid signed warning.
|
1776 |
|
|
Make variable const to support -Wwrite-strings.
|
1777 |
|
|
|
1778 |
|
|
* io/unix.c (fd_alloc, mmap_open, mmap_sfree, mem_sfree,
|
1779 |
|
|
mem_truncate): Mark argument as unused.
|
1780 |
|
|
|
1781 |
|
|
* io/unit.c (get_unit): Mark argument as unused.
|
1782 |
|
|
(init_units): Avoid warning about signed comparision.
|
1783 |
|
|
|
1784 |
|
|
* io/transfer.c (next_record_r): Remove unused parameter.
|
1785 |
|
|
(next_record_w): Remove unused parameter.
|
1786 |
|
|
(next_record): Change callers.
|
1787 |
|
|
(iolength_transfer): Mark arguments as unused.
|
1788 |
|
|
|
1789 |
|
|
* io/open.c: Add initializer.
|
1790 |
|
|
|
1791 |
|
|
* io/list_read.c (read_character): Mark argument as unused.
|
1792 |
|
|
(nml_match_name): Add const to make compile with -Wwrite-strings.
|
1793 |
|
|
|
1794 |
|
|
* io/format.c: Add initializer.
|
1795 |
|
|
|
1796 |
|
|
2005-05-15 Andreas Jaeger
|
1797 |
|
|
|
1798 |
|
|
* m4/eoshift1.m4: Initialize variables to avoid warnings.
|
1799 |
|
|
* m4/eoshift3.m4: Initialize variables to avoid warnings.
|
1800 |
|
|
* generated/eoshift1_4.c, generated/eoshift1_8.c,
|
1801 |
|
|
generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerated.
|
1802 |
|
|
|
1803 |
|
|
* intrinsics/spread_generic.c (spread): Initialize variables to
|
1804 |
|
|
avoid warnings.
|
1805 |
|
|
|
1806 |
|
|
* intrinsics/eoshift0.c (eoshift0): Initialize variables to avoid
|
1807 |
|
|
warnings.
|
1808 |
|
|
* intrinsics/eoshift2.c (eoshift2): Initialize variables to avoid
|
1809 |
|
|
warnings.
|
1810 |
|
|
|
1811 |
|
|
* io/list_read.c (nml_get_obj_data): Initialize variables to avoid
|
1812 |
|
|
warnings.
|
1813 |
|
|
|
1814 |
|
|
* intrinsics/pack_generic.c (pack): Remove unneeded calculation.
|
1815 |
|
|
|
1816 |
|
|
* m4/matmull.m4 (matmul_): Remove unneeded calculations, fix
|
1817 |
|
|
pointer cast to avoid warning.
|
1818 |
|
|
* generated/matmul_l4.c: Regenerated.
|
1819 |
|
|
* generated/matmul_l8.c: Regenerated.
|
1820 |
|
|
|
1821 |
|
|
* Makefile.am: Remove AM_CFLAGS here.
|
1822 |
|
|
* configure.ac: Define AM_CFLAGS and AM_FCFLAGS so that warnings
|
1823 |
|
|
are set. Set additionally -Wstrict-prototypes for CFLAGS.
|
1824 |
|
|
* Makefile.in: Regenerated.
|
1825 |
|
|
* aclocal.m4: Regenerated.
|
1826 |
|
|
* configure: Regenerated.
|
1827 |
|
|
|
1828 |
|
|
* intrinsics/system_clock.c (system_clock_4, system_clock_8): Add
|
1829 |
|
|
missing returns, reformat a bit.
|
1830 |
|
|
|
1831 |
|
|
* io/write.c (nml_write_obj): Use %d again - and cast to int,
|
1832 |
|
|
st_sprintf does not handle %ld.
|
1833 |
|
|
|
1834 |
|
|
* io/unit.c (is_internal_unit): Add void as parameter list.
|
1835 |
|
|
|
1836 |
|
|
* io/transfer.c: Move prototype declarations before the functions.
|
1837 |
|
|
|
1838 |
|
|
* runtime/normalize.c (almostone_r4, almostone_r8): Fix parameter
|
1839 |
|
|
list.
|
1840 |
|
|
|
1841 |
|
|
* intrinsics/random.c (KISS_DEFAULT_SEED): Remove extra semicolon.
|
1842 |
|
|
|
1843 |
|
|
* io/transfer.c: Do not use empty initializers for global objects.
|
1844 |
|
|
Add missing initializers.
|
1845 |
|
|
|
1846 |
|
|
* io/lock.c: Do not use empty initializers for global objects.
|
1847 |
|
|
|
1848 |
|
|
* io/close.c: Add missing initializers.
|
1849 |
|
|
|
1850 |
|
|
* runtime/environ.c: Add missing initializers. Do not use empty
|
1851 |
|
|
initializers for global object.
|
1852 |
|
|
(init_string): Mark argument as unused.
|
1853 |
|
|
|
1854 |
|
|
* runtime/main.c (cleanup): Fix parameter list.
|
1855 |
|
|
|
1856 |
|
|
* io/io.h: Fix parameter lists.
|
1857 |
|
|
|
1858 |
|
|
* m4/transpose.m4, m4/matmul.m4: Fix pointer cast to avoid
|
1859 |
|
|
warning.
|
1860 |
|
|
|
1861 |
|
|
* generated/transpose_c4.c, generated/transpose_c8.c,
|
1862 |
|
|
generated/transpose_i4.c, generated/transpose_i8.c,
|
1863 |
|
|
generated/matmul_c4.c, generated/matmul_c8.c,
|
1864 |
|
|
generated/matmul_i4.c, generated/matmul_i8.c,
|
1865 |
|
|
generated/matmul_r4.c, generated/matmul_r8.c: Regenerated.
|
1866 |
|
|
|
1867 |
|
|
* io/write.c (nml_write_obj): Fix 64-bit problem.
|
1868 |
|
|
|
1869 |
|
|
* io/list_read.c (nml_get_obj_data): Add missing braces around
|
1870 |
|
|
initializer to avoid warnings.
|
1871 |
|
|
|
1872 |
|
|
* intrinsics/etime.c (etime_sub): Remove unused variable.
|
1873 |
|
|
|
1874 |
|
|
* intrinsics/chdir.c, intrinsics/getlog.c, intrinsics/link.c,
|
1875 |
|
|
intrinsics/symlnk.c, intrinsics/perror.c: Include for
|
1876 |
|
|
prototypes.
|
1877 |
|
|
|
1878 |
|
|
* runtime/string.c (compare0): Remove unused variable.
|
1879 |
|
|
* io/unit.c (init_units): Remove unused variables.
|
1880 |
|
|
* intrinsics/getcwd.c (getcwd_i4_sub): Remove unused variable.
|
1881 |
|
|
* intrinsics/unlink.c (unlink_i4_sub): Remove unused variable.
|
1882 |
|
|
* intrinsics/stat.c (stat_i4_sub, fstat_i8_sub, fstat_i4_sub,
|
1883 |
|
|
stat_i8_sub): Remove unused variable.
|
1884 |
|
|
|
1885 |
|
|
2005-05-12 Thomas Koenig
|
1886 |
|
|
|
1887 |
|
|
PR libfortran/21324
|
1888 |
|
|
* runtime/memory.c: Don't define GFC_CLEAR_MEMORY (it's a
|
1889 |
|
|
performance hog).
|
1890 |
|
|
* io/open.c (new_unit): Zero freshly allocated memory for
|
1891 |
|
|
unit structure.
|
1892 |
|
|
* io/unit.c (init_units): Zero freshly allocated memory for
|
1893 |
|
|
STDIN, STDOUT and STDERR.
|
1894 |
|
|
* io/unix.c (open_internal): Zero freshly allocated memory
|
1895 |
|
|
for unix_stream.
|
1896 |
|
|
(fd_to_stream): Likewise.
|
1897 |
|
|
|
1898 |
|
|
2005-05-11 Bud Davis
|
1899 |
|
|
|
1900 |
|
|
PR fortran/19478
|
1901 |
|
|
* io/unix.c (fd_truncate): update positions when ftruncate
|
1902 |
|
|
fails (like writing to /dev/null).
|
1903 |
|
|
|
1904 |
|
|
2005-05-10 Francois-Xavier Coudert
|
1905 |
|
|
|
1906 |
|
|
PR libfortran/21471
|
1907 |
|
|
* open.c (new_unit): Take care of the case where POSITION_APPEND
|
1908 |
|
|
is specified (sseek to the end, and set u>-endfile).
|
1909 |
|
|
|
1910 |
|
|
2005-05-10 Tobias Schl"uter
|
1911 |
|
|
|
1912 |
|
|
PR fortran/20178
|
1913 |
|
|
* Makefile.am (gfor_specific_src): Add 'intrinsics/f2c_intrinsics.F90'
|
1914 |
|
|
to dependencies.
|
1915 |
|
|
* Makefile.in: Regenerate.
|
1916 |
|
|
* intrinsics/f2c_specific.F90: New file.
|
1917 |
|
|
|
1918 |
|
|
2005-05-10 Francois-Xavier Coudert
|
1919 |
|
|
|
1920 |
|
|
PR libfortran/20788
|
1921 |
|
|
* io/unix.c (fd_to_stream): Add an avoid_mmap argument indicating
|
1922 |
|
|
we don't we to mmap this stream. Use fd_open instead of mmap_open
|
1923 |
|
|
in that case.
|
1924 |
|
|
(open_external): Call fd_to_stream with avoid_mmap = 0.
|
1925 |
|
|
(input_stream): Call fd_to_stream with avoid_mmap = 1.
|
1926 |
|
|
(output_stream): Likewise.
|
1927 |
|
|
(error_stream): Likewise.
|
1928 |
|
|
|
1929 |
|
|
2005-05-09 Mike Stump
|
1930 |
|
|
|
1931 |
|
|
* configure: Regenerate.
|
1932 |
|
|
|
1933 |
|
|
2005-05-09 Francois-Xavier Coudert
|
1934 |
|
|
|
1935 |
|
|
PR libfortran/19155
|
1936 |
|
|
* io/read.c (read_f): Accept 'e', 'E', 'd' and 'D' as first
|
1937 |
|
|
non-blank characters of a real number.
|
1938 |
|
|
|
1939 |
|
|
2005-05-04 Thomas Koenig
|
1940 |
|
|
|
1941 |
|
|
PR libfortran/21354
|
1942 |
|
|
* m4/cshift1.m4: Change dimension of auxiliary arrays from
|
1943 |
|
|
GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION.
|
1944 |
|
|
* m4/eoshift1.m4: Likewise.
|
1945 |
|
|
* m4/eoshift3.m4: Likewise.
|
1946 |
|
|
* m4/ifunction.m4: Likewise.
|
1947 |
|
|
* m4/in_pack.m4: Likewise.
|
1948 |
|
|
* m4/in_unpack.m4: Likewise.
|
1949 |
|
|
* intrinsics/cshift0.c: Likewise.
|
1950 |
|
|
* intrinsics/eoshift0.c: Likewise.
|
1951 |
|
|
* intrinsics/eoshift2.c: Likewise.
|
1952 |
|
|
* intrinsics/random.c: Likewise.
|
1953 |
|
|
* intrinsics/spread_generic.c: Likewise.
|
1954 |
|
|
* intrinsics/stat.c: Likewise.
|
1955 |
|
|
* generated/all_l4.c: Regenerated.
|
1956 |
|
|
* generated/all_l8.c: Regenerated.
|
1957 |
|
|
* generated/any_l4.c: Regenerated.
|
1958 |
|
|
* generated/any_l8.c: Regenerated.
|
1959 |
|
|
* generated/count_4_l4.c: Regenerated.
|
1960 |
|
|
* generated/count_4_l8.c: Regenerated.
|
1961 |
|
|
* generated/count_8_l4.c: Regenerated.
|
1962 |
|
|
* generated/count_8_l8.c: Regenerated.
|
1963 |
|
|
* generated/cshift1_4.c: Regenerated.
|
1964 |
|
|
* generated/cshift1_8.c: Regenerated.
|
1965 |
|
|
* generated/eoshift1_4.c: Regenerated.
|
1966 |
|
|
* generated/eoshift1_8.c: Regenerated.
|
1967 |
|
|
* generated/eoshift3_4.c: Regenerated.
|
1968 |
|
|
* generated/eoshift3_8.c: Regenerated.
|
1969 |
|
|
* generated/in_pack_i4.c: Regenerated.
|
1970 |
|
|
* generated/in_pack_i8.c: Regenerated.
|
1971 |
|
|
* generated/in_unpack_i4.c: Regenerated.
|
1972 |
|
|
* generated/in_unpack_i8.c: Regenerated.
|
1973 |
|
|
* generated/maxloc0_4_i4.c: Regenerated.
|
1974 |
|
|
* generated/maxloc0_4_i8.c: Regenerated.
|
1975 |
|
|
* generated/maxloc0_4_r4.c: Regenerated.
|
1976 |
|
|
* generated/maxloc0_4_r8.c: Regenerated.
|
1977 |
|
|
* generated/maxloc0_8_i4.c: Regenerated.
|
1978 |
|
|
* generated/maxloc0_8_i8.c: Regenerated.
|
1979 |
|
|
* generated/maxloc0_8_r4.c: Regenerated.
|
1980 |
|
|
* generated/maxloc0_8_r8.c: Regenerated.
|
1981 |
|
|
* generated/maxloc1_4_i4.c: Regenerated.
|
1982 |
|
|
* generated/maxloc1_4_i8.c: Regenerated.
|
1983 |
|
|
* generated/maxloc1_4_r4.c: Regenerated.
|
1984 |
|
|
* generated/maxloc1_4_r8.c: Regenerated.
|
1985 |
|
|
* generated/maxloc1_8_i4.c: Regenerated.
|
1986 |
|
|
* generated/maxloc1_8_i8.c: Regenerated.
|
1987 |
|
|
* generated/maxloc1_8_r4.c: Regenerated.
|
1988 |
|
|
* generated/maxloc1_8_r8.c: Regenerated.
|
1989 |
|
|
* generated/maxval_i4.c: Regenerated.
|
1990 |
|
|
* generated/maxval_i8.c: Regenerated.
|
1991 |
|
|
* generated/maxval_r4.c: Regenerated.
|
1992 |
|
|
* generated/maxval_r8.c: Regenerated.
|
1993 |
|
|
* generated/minloc0_4_i4.c: Regenerated.
|
1994 |
|
|
* generated/minloc0_4_i8.c: Regenerated.
|
1995 |
|
|
* generated/minloc0_4_r4.c: Regenerated.
|
1996 |
|
|
* generated/minloc0_4_r8.c: Regenerated.
|
1997 |
|
|
* generated/minloc0_8_i4.c: Regenerated.
|
1998 |
|
|
* generated/minloc0_8_i8.c: Regenerated.
|
1999 |
|
|
* generated/minloc0_8_r4.c: Regenerated.
|
2000 |
|
|
* generated/minloc0_8_r8.c: Regenerated.
|
2001 |
|
|
* generated/minloc1_4_i4.c: Regenerated.
|
2002 |
|
|
* generated/minloc1_4_i8.c: Regenerated.
|
2003 |
|
|
* generated/minloc1_4_r4.c: Regenerated.
|
2004 |
|
|
* generated/minloc1_4_r8.c: Regenerated.
|
2005 |
|
|
* generated/minloc1_8_i4.c: Regenerated.
|
2006 |
|
|
* generated/minloc1_8_i8.c: Regenerated.
|
2007 |
|
|
* generated/minloc1_8_r4.c: Regenerated.
|
2008 |
|
|
* generated/minloc1_8_r8.c: Regenerated.
|
2009 |
|
|
* generated/minval_i4.c: Regenerated.
|
2010 |
|
|
* generated/minval_i8.c: Regenerated.
|
2011 |
|
|
* generated/minval_r4.c: Regenerated.
|
2012 |
|
|
* generated/minval_r8.c: Regenerated.
|
2013 |
|
|
* generated/product_c4.c: Regenerated.
|
2014 |
|
|
* generated/product_c8.c: Regenerated.
|
2015 |
|
|
* generated/product_i4.c: Regenerated.
|
2016 |
|
|
* generated/product_i8.c: Regenerated.
|
2017 |
|
|
* generated/product_r4.c: Regenerated.
|
2018 |
|
|
* generated/product_r8.c: Regenerated.
|
2019 |
|
|
* generated/sum_c4.c: Regenerated.
|
2020 |
|
|
* generated/sum_c8.c: Regenerated.
|
2021 |
|
|
* generated/sum_i4.c: Regenerated.
|
2022 |
|
|
* generated/sum_i8.c: Regenerated.
|
2023 |
|
|
* generated/sum_r4.c: Regenerated.
|
2024 |
|
|
* generated/sum_r8.c: Regenerated.
|
2025 |
|
|
|
2026 |
|
|
2005-04-30 Thomas Koenig
|
2027 |
|
|
|
2028 |
|
|
PR libfortran/18958
|
2029 |
|
|
libgfortran.h: Change typedef of index_type from size_t
|
2030 |
|
|
to ssize_t.
|
2031 |
|
|
|
2032 |
|
|
2005-04-30 Paul Thomas
|
2033 |
|
|
|
2034 |
|
|
PR libfortran/18857
|
2035 |
|
|
* generated/matmul_r8.c: Remove incorrect assertions.
|
2036 |
|
|
* generated/matmul_c4.c: Regenerate
|
2037 |
|
|
* generated/matmul_c8.c: Regenerate
|
2038 |
|
|
* generated/matmul_i4.c: Regenerate
|
2039 |
|
|
* generated/matmul_i8.c: Regenerate
|
2040 |
|
|
* generated/matmul_r4.c: Regenerate
|
2041 |
|
|
* generated/matmul_r8.c: Regenerate
|
2042 |
|
|
|
2043 |
|
|
2005-04-29 Francois-Xavier Coudert
|
2044 |
|
|
|
2045 |
|
|
* configure.ac: Check for ftruncate and chsize.
|
2046 |
|
|
* io/unix.c (fd_truncate): Provide chsize as alternative to
|
2047 |
|
|
ftruncate.
|
2048 |
|
|
* config.h.in: Regenerate.
|
2049 |
|
|
* configure: Regenerate.
|
2050 |
|
|
|
2051 |
|
|
2005-04-29 Tobias Schl"uter
|
2052 |
|
|
|
2053 |
|
|
* intrinsics/rename.c: Add missing #includes.
|
2054 |
|
|
|
2055 |
|
|
2005-04-28 Tobias Schl"uter
|
2056 |
|
|
|
2057 |
|
|
* AUTHORS, COPYING, INSTALL, NEWS, README: Remove.
|
2058 |
|
|
|
2059 |
|
|
2005-04-26 David Edelsohn
|
2060 |
|
|
|
2061 |
|
|
PR libfortran/20930
|
2062 |
|
|
* io/rewind.c (st_rewind): Flush the stream when resetting the mode
|
2063 |
|
|
from WRITING to READING.
|
2064 |
|
|
|
2065 |
|
|
2005-04-22 Paul Thomas
|
2066 |
|
|
Jerry DeLisle
|
2067 |
|
|
|
2068 |
|
|
* io/write.c (nml_write_obj): Provide 1 more byte for ext_name.
|
2069 |
|
|
* io/list_read.c (nml_get_obj_data): Put extra brackets in get_mem
|
2070 |
|
|
call for ext_name. These fix the bug reported by Jerry DeLisle to
|
2071 |
|
|
the fortran list and are based on his suggested fix.
|
2072 |
|
|
|
2073 |
|
|
2005-04-22 Thomas Koenig
|
2074 |
|
|
|
2075 |
|
|
PR libfortran/20074
|
2076 |
|
|
PR libfortran/20436
|
2077 |
|
|
PR libfortran/21108
|
2078 |
|
|
* m4/reshape.m4 (reshape_`'rtype_kind): rs, rex: New
|
2079 |
|
|
variables, to be used in calculation of return array sizes.
|
2080 |
|
|
Populate return array descriptor if ret->data is NULL.
|
2081 |
|
|
Fix condition for early return (it used to test something
|
2082 |
|
|
undefined if order was used).
|
2083 |
|
|
Remove duplicate check wether pad is used.
|
2084 |
|
|
* intrinsics/reshape_generic.c (reshape_generic): Likewise.
|
2085 |
|
|
Fix a few places where the wrong variables were set.
|
2086 |
|
|
* generated/reshape_i4.c: Regenerated.
|
2087 |
|
|
* generated/reshape_i8.c: Regenerated.
|
2088 |
|
|
|
2089 |
|
|
2005-04-18 Paul Thomas
|
2090 |
|
|
|
2091 |
|
|
* io/list_read.c (nml_touch_nodes, nml_read_obj,
|
2092 |
|
|
nml_get_obj_data): Fix memory leaks in code for derived types.
|
2093 |
|
|
|
2094 |
|
|
2005-04-11 Francois-Xavier Coudert
|
2095 |
|
|
|
2096 |
|
|
PR libfortran/20950
|
2097 |
|
|
* io/inquire.c (inquire_via_unit): Check for the gfc_unit being
|
2098 |
|
|
NULL when setting ioparm.sequential.
|
2099 |
|
|
|
2100 |
|
|
2005-04-17 Thomas Koenig
|
2101 |
|
|
|
2102 |
|
|
PR libfortran/21075
|
2103 |
|
|
* m4/reshape.m4 (reshape_`'rtype_kind): Change dimension
|
2104 |
|
|
of auxiliary arrays from GFC_MAX_DIMENSIONS - 1 to
|
2105 |
|
|
GFC_MAX_DIMENSIONS.
|
2106 |
|
|
* intrinsics/reshape_generic.c (reshape_generic): Likewise.
|
2107 |
|
|
* generated/reshape_i4.c: Regenerated.
|
2108 |
|
|
* generated/reshape_i8.c: Regenerated.
|
2109 |
|
|
|
2110 |
|
|
2005-04-17 Paul Thomas
|
2111 |
|
|
|
2112 |
|
|
* io/list_read.c (eat_separator): at_eol = 1 replaced
|
2113 |
|
|
(zapped at some time?).
|
2114 |
|
|
|
2115 |
|
|
2005-04-17 Paul Thomas
|
2116 |
|
|
|
2117 |
|
|
PR libfortran/12884
|
2118 |
|
|
PR libfortran/17285
|
2119 |
|
|
PR libfortran/18122
|
2120 |
|
|
PR libfortran/18210
|
2121 |
|
|
PR libfortran/18392
|
2122 |
|
|
PR libfortran/18591
|
2123 |
|
|
PR libfortran/18879
|
2124 |
|
|
* io/io.h (nml_ls): Declare.
|
2125 |
|
|
(namelist_info): Modify for arrays.
|
2126 |
|
|
* io/list_read.c (namelist_read): Reduced to call to new functions.
|
2127 |
|
|
(match_namelist_name): Simplified.
|
2128 |
|
|
(nml_query): Handles stdin queries ? and =?. New function.
|
2129 |
|
|
(nml_get_obj_data): Parses object name. New function.
|
2130 |
|
|
(touch_nml_nodes): Marks objects for read. New function.
|
2131 |
|
|
(untouch_nml_nodes): Resets objects. New function.
|
2132 |
|
|
(parse_qualifier): Parses and checks qualifiers. New function
|
2133 |
|
|
(nml_read_object): Reads and stores object data. New function.
|
2134 |
|
|
(eat_separator): No new_record on '/' in namelist.
|
2135 |
|
|
(finish_separator): No new_record on '/' in namelist.
|
2136 |
|
|
(read_logical): Error return for namelist.
|
2137 |
|
|
(read_integer): Error return for namelist.
|
2138 |
|
|
(read_complex): Error return for namelist.
|
2139 |
|
|
(read_real): Error return for namelist.
|
2140 |
|
|
* io/lock.c (library_end): Free extended namelist_info types.
|
2141 |
|
|
* io/transfer.c (st_set_nml_var): Modified for arrays.
|
2142 |
|
|
(st_set_nml_var_dim): Dimension descriptors. New function.
|
2143 |
|
|
* io/write.c (namelist_write): Reduced to call to new functions.
|
2144 |
|
|
(nml_write_obj): Writes output for object. New function.
|
2145 |
|
|
(write_integer): Suppress leading blanks for repeat counts.
|
2146 |
|
|
(write_int): Suppress leading blanks for repeat counts.
|
2147 |
|
|
(write_float): Suppress leading blanks for repeat counts.
|
2148 |
|
|
(output_float): Suppress leading blanks for repeat counts.
|
2149 |
|
|
|
2150 |
|
|
2005-04-15 Thomas Koenig
|
2151 |
|
|
|
2152 |
|
|
PR libfortran/18495
|
2153 |
|
|
* intrinsics/spread_generic.c (spread): Remove const from
|
2154 |
|
|
return array descriptor.
|
2155 |
|
|
New variables: rrank (rank of return array), rs (for
|
2156 |
|
|
calculating the size of the return array), srank (rank
|
2157 |
|
|
of the source array).
|
2158 |
|
|
Generate runtime error if the dim= argument is larger than
|
2159 |
|
|
the rank of the return array.
|
2160 |
|
|
Generate runtime error if the needed rank of the return
|
2161 |
|
|
array is larger than 7.
|
2162 |
|
|
If ret->data is null, populate the return array descriptor
|
2163 |
|
|
and initialize the variables for the actual operation.
|
2164 |
|
|
Otherwise, set ret->dim[0].stride to one if it is zero.
|
2165 |
|
|
Change second, independent use of variable dim to srank.
|
2166 |
|
|
|
2167 |
|
|
2005-04-12 Mike Stump
|
2168 |
|
|
|
2169 |
|
|
* configure: Regenerate.
|
2170 |
|
|
|
2171 |
|
|
2005-04-13 Thomas Koenig
|
2172 |
|
|
|
2173 |
|
|
PR libfortran/19106
|
2174 |
|
|
* m4/iforeach.c (name`'rtype_qual`_'atype_code): Add TODO
|
2175 |
|
|
that setting correct strides is a front end job.
|
2176 |
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise. If mask has
|
2177 |
|
|
a lowest stride of 0, adjust to 1.
|
2178 |
|
|
* m4/ifunction.c (name`'rtype_qual`_'atype_code): Add TODO
|
2179 |
|
|
that setting correct strides is a front end job.
|
2180 |
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise. If mask has
|
2181 |
|
|
a lowest stride of 0, adjust to 1.
|
2182 |
|
|
* maxloc0_4_i4.c: Regenerated
|
2183 |
|
|
* maxloc0_4_i8.c: Regenerated
|
2184 |
|
|
* maxloc0_4_r4.c: Regenerated
|
2185 |
|
|
* maxloc0_4_r8.c: Regenerated
|
2186 |
|
|
* maxloc0_8_i4.c: Regenerated
|
2187 |
|
|
* maxloc0_8_i8.c: Regenerated
|
2188 |
|
|
* maxloc0_8_r4.c: Regenerated
|
2189 |
|
|
* maxloc0_8_r8.c: Regenerated
|
2190 |
|
|
* maxloc1_4_i4.c: Regenerated
|
2191 |
|
|
* maxloc1_4_i8.c: Regenerated
|
2192 |
|
|
* maxloc1_4_r4.c: Regenerated
|
2193 |
|
|
* maxloc1_4_r8.c: Regenerated
|
2194 |
|
|
* maxloc1_8_i4.c: Regenerated
|
2195 |
|
|
* maxloc1_8_i8.c: Regenerated
|
2196 |
|
|
* maxloc1_8_r4.c: Regenerated
|
2197 |
|
|
* maxloc1_8_r8.c: Regenerated
|
2198 |
|
|
* maxval_i4.c: Regenerated
|
2199 |
|
|
* maxval_i8.c: Regenerated
|
2200 |
|
|
* maxval_r4.c: Regenerated
|
2201 |
|
|
* maxval_r8.c: Regenerated
|
2202 |
|
|
* minloc0_4_i4.c: Regenerated
|
2203 |
|
|
* minloc0_4_i8.c: Regenerated
|
2204 |
|
|
* minloc0_4_r4.c: Regenerated
|
2205 |
|
|
* minloc0_4_r8.c: Regenerated
|
2206 |
|
|
* minloc0_8_i4.c: Regenerated
|
2207 |
|
|
* minloc0_8_i8.c: Regenerated
|
2208 |
|
|
* minloc0_8_r4.c: Regenerated
|
2209 |
|
|
* minloc0_8_r8.c: Regenerated
|
2210 |
|
|
* minloc1_4_i4.c: Regenerated
|
2211 |
|
|
* minloc1_4_i8.c: Regenerated
|
2212 |
|
|
* minloc1_4_r4.c: Regenerated
|
2213 |
|
|
* minloc1_4_r8.c: Regenerated
|
2214 |
|
|
* minloc1_8_i4.c: Regenerated
|
2215 |
|
|
* minloc1_8_i8.c: Regenerated
|
2216 |
|
|
* minloc1_8_r4.c: Regenerated
|
2217 |
|
|
* minloc1_8_r8.c: Regenerated
|
2218 |
|
|
* minval_i4.c: Regenerated
|
2219 |
|
|
* minval_i8.c: Regenerated
|
2220 |
|
|
* minval_r4.c: Regenerated
|
2221 |
|
|
* minval_r8.c: Regenerated
|
2222 |
|
|
* product_c4.c: Regenerated
|
2223 |
|
|
* product_c8.c: Regenerated
|
2224 |
|
|
* product_i4.c: Regenerated
|
2225 |
|
|
* product_i8.c: Regenerated
|
2226 |
|
|
* product_r4.c: Regenerated
|
2227 |
|
|
* product_r8.c: Regenerated
|
2228 |
|
|
* sum_c4.c: Regenerated
|
2229 |
|
|
* sum_c8.c: Regenerated
|
2230 |
|
|
* sum_i4.c: Regenerated
|
2231 |
|
|
* sum_i8.c: Regenerated
|
2232 |
|
|
* sum_r4.c: Regenerated
|
2233 |
|
|
* sum_r8.c: Regenerated
|
2234 |
|
|
|
2235 |
|
|
2005-04-10 Francois-Xavier Coudert
|
2236 |
|
|
|
2237 |
|
|
PR libfortran/20788
|
2238 |
|
|
* runtime/environ.c (init_unsigned_integer): Function for
|
2239 |
|
|
environment variables we want to be positive.
|
2240 |
|
|
(init_integer): Function to allow negative environment
|
2241 |
|
|
variables (e.g. for GFORTRAN_STDIN_UNIT).
|
2242 |
|
|
|
2243 |
|
|
2005-04-10 Thomas Koenig
|
2244 |
|
|
|
2245 |
|
|
PR libfortran/17992
|
2246 |
|
|
PR libfortran/19568
|
2247 |
|
|
PR libfortran/19595
|
2248 |
|
|
PR libfortran/20005
|
2249 |
|
|
PR libfortran/20092
|
2250 |
|
|
PR libfortran/20131
|
2251 |
|
|
PR libfortran/20661
|
2252 |
|
|
PR libfortran/20744
|
2253 |
|
|
* io/transfer.c (top level): eor_condition: New static variable.
|
2254 |
|
|
(read_sf): Remove unnecessary zeroing of buffer (there is enough
|
2255 |
|
|
information in its length).
|
2256 |
|
|
Return a string of length 0 (to be padded by caller) if EOR was
|
2257 |
|
|
seen previously.
|
2258 |
|
|
Remove erroneous special casing of EOR for standard input.
|
2259 |
|
|
Set eor_condition for non-advancing I/O if an end of line was
|
2260 |
|
|
detected.
|
2261 |
|
|
Increment ioparm.size if necessary.
|
2262 |
|
|
(formatted_transfer): Skip the function if there is an EOR condition.
|
2263 |
|
|
(data_transfer_init): Initialize eor_condition to zero (false).
|
2264 |
|
|
(next_record_r): Clear sf_seen_eor if a \n has been seen already.
|
2265 |
|
|
(finalize_transfer): If there is an EOR condition, raise the error.
|
2266 |
|
|
|
2267 |
|
|
2005-04-09 Bud Davis
|
2268 |
|
|
Steven G. Kargl
|
2269 |
|
|
|
2270 |
|
|
PR fortran/19872
|
2271 |
|
|
* io/transfer.c (data_transfer_init): truncate an existing
|
2272 |
|
|
file on the first write.
|
2273 |
|
|
|
2274 |
|
|
2005-04-09 Thomas Koenig
|
2275 |
|
|
|
2276 |
|
|
PR libfortran/19106
|
2277 |
|
|
PR libfortran/19014
|
2278 |
|
|
* m4/ifunction.m4 (name`'rtype_qual`_'atype_code): ditto.
|
2279 |
|
|
If retarray->data is NULL (i.e. the front end does not
|
2280 |
|
|
know the rank and dimenson of the array), fill in its
|
2281 |
|
|
properties and allocate memory.
|
2282 |
|
|
Change the assertions about rank and dimension of retarray into
|
2283 |
|
|
runtime errors and only check them for retarray->data != NULL.
|
2284 |
|
|
Do the same for correcting the stride from 0 to 1 in retarray.
|
2285 |
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
2286 |
|
|
* m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Likewise.
|
2287 |
|
|
Change assertion about rank of array to runtime error.
|
2288 |
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
2289 |
|
|
* generated/all_l4.c: Regenerated.
|
2290 |
|
|
* generated/all_l8.c: Regenerated.
|
2291 |
|
|
* generated/any_l4.c: Regenerated.
|
2292 |
|
|
* generated/any_l8.c: Regenerated.
|
2293 |
|
|
* generated/count_4_l4.c: Regenerated.
|
2294 |
|
|
* generated/count_4_l8.c: Regenerated.
|
2295 |
|
|
* generated/count_8_l4.c: Regenerated.
|
2296 |
|
|
* generated/count_8_l8.c: Regenerated.
|
2297 |
|
|
* generated/maxloc0_4_i4.c: Regenerated.
|
2298 |
|
|
* generated/maxloc0_4_i8.c: Regenerated.
|
2299 |
|
|
* generated/maxloc0_4_r4.c: Regenerated.
|
2300 |
|
|
* generated/maxloc0_4_r8.c: Regenerated.
|
2301 |
|
|
* generated/maxloc0_8_i4.c: Regenerated.
|
2302 |
|
|
* generated/maxloc0_8_i8.c: Regenerated.
|
2303 |
|
|
* generated/maxloc0_8_r4.c: Regenerated.
|
2304 |
|
|
* generated/maxloc0_8_r8.c: Regenerated.
|
2305 |
|
|
* generated/maxloc1_4_i4.c: Regenerated.
|
2306 |
|
|
* generated/maxloc1_4_i8.c: Regenerated.
|
2307 |
|
|
* generated/maxloc1_4_r4.c: Regenerated.
|
2308 |
|
|
* generated/maxloc1_4_r8.c: Regenerated.
|
2309 |
|
|
* generated/maxloc1_8_i4.c: Regenerated.
|
2310 |
|
|
* generated/maxloc1_8_i8.c: Regenerated.
|
2311 |
|
|
* generated/maxloc1_8_r4.c: Regenerated.
|
2312 |
|
|
* generated/maxloc1_8_r8.c: Regenerated.
|
2313 |
|
|
* generated/maxval_i4.c: Regenerated.
|
2314 |
|
|
* generated/maxval_i8.c: Regenerated.
|
2315 |
|
|
* generated/maxval_r4.c: Regenerated.
|
2316 |
|
|
* generated/maxval_r8.c: Regenerated.
|
2317 |
|
|
* generated/minloc0_4_i4.c: Regenerated.
|
2318 |
|
|
* generated/minloc0_4_i8.c: Regenerated.
|
2319 |
|
|
* generated/minloc0_4_r4.c: Regenerated.
|
2320 |
|
|
* generated/minloc0_4_r8.c: Regenerated.
|
2321 |
|
|
* generated/minloc0_8_i4.c: Regenerated.
|
2322 |
|
|
* generated/minloc0_8_i8.c: Regenerated.
|
2323 |
|
|
* generated/minloc0_8_r4.c: Regenerated.
|
2324 |
|
|
* generated/minloc0_8_r8.c: Regenerated.
|
2325 |
|
|
* generated/minloc1_4_i4.c: Regenerated.
|
2326 |
|
|
* generated/minloc1_4_i8.c: Regenerated.
|
2327 |
|
|
* generated/minloc1_4_r4.c: Regenerated.
|
2328 |
|
|
* generated/minloc1_4_r8.c: Regenerated.
|
2329 |
|
|
* generated/minloc1_8_i4.c: Regenerated.
|
2330 |
|
|
* generated/minloc1_8_i8.c: Regenerated.
|
2331 |
|
|
* generated/minloc1_8_r4.c: Regenerated.
|
2332 |
|
|
* generated/minloc1_8_r8.c: Regenerated.
|
2333 |
|
|
* generated/minval_i4.c: Regenerated.
|
2334 |
|
|
* generated/minval_i8.c: Regenerated.
|
2335 |
|
|
* generated/minval_r4.c: Regenerated.
|
2336 |
|
|
* generated/minval_r8.c: Regenerated.
|
2337 |
|
|
* generated/product_c4.c: Regenerated.
|
2338 |
|
|
* generated/product_c8.c: Regenerated.
|
2339 |
|
|
* generated/product_i4.c: Regenerated.
|
2340 |
|
|
* generated/product_i8.c: Regenerated.
|
2341 |
|
|
* generated/product_r4.c: Regenerated.
|
2342 |
|
|
* generated/product_r8.c: Regenerated.
|
2343 |
|
|
* generated/sum_c4.c: Regenerated.
|
2344 |
|
|
* generated/sum_c8.c: Regenerated.
|
2345 |
|
|
* generated/sum_i4.c: Regenerated.
|
2346 |
|
|
* generated/sum_i8.c: Regenerated.
|
2347 |
|
|
* generated/sum_r4.c: Regenerated.
|
2348 |
|
|
* generated/sum_r8.c: Regenerated.
|
2349 |
|
|
|
2350 |
|
|
2005-04-09 Thomas Koenig
|
2351 |
|
|
|
2352 |
|
|
PR libfortran/20163
|
2353 |
|
|
* runtime/string.c (compare0): Use fstrlen() to
|
2354 |
|
|
strip trailing blanks from option string.
|
2355 |
|
|
|
2356 |
|
|
2005-04-09 Andrew Pinski
|
2357 |
|
|
|
2358 |
|
|
PR fortran/13257
|
2359 |
|
|
* format.c (parse_format_list): Allow an optional comma
|
2360 |
|
|
between descriptors.
|
2361 |
|
|
|
2362 |
|
|
2005-04-08 Eric Botcazou
|
2363 |
|
|
|
2364 |
|
|
* io/backspace.c (unformatted_backspace): Do not dereference
|
2365 |
|
|
the pointer to the stream.
|
2366 |
|
|
|
2367 |
|
|
2005-04-07 Andrew Pinski
|
2368 |
|
|
|
2369 |
|
|
PR libfortran/20766
|
2370 |
|
|
* configure.ac (extra_ldflags_libgfortran): Set for *-darwin* to
|
2371 |
|
|
"-Wl,-single_module".
|
2372 |
|
|
* configure: Regenerate.
|
2373 |
|
|
* Makefile.am (libgfortran_la_LDFLAGS): Add extra_ldflags_libgfortran.
|
2374 |
|
|
* Makefile.in: Regenerate.
|
2375 |
|
|
|
2376 |
|
|
2005-04-05 Francois-Xavier Coudert
|
2377 |
|
|
|
2378 |
|
|
PR libfortran/20755
|
2379 |
|
|
* write.c (write_float): A G edit descriptor may locally change
|
2380 |
|
|
the scale factor, but it needs to be restored afterwards.
|
2381 |
|
|
|
2382 |
|
|
2005-04-03 Dale Ranta
|
2383 |
|
|
Francois-Xavier Coudert
|
2384 |
|
|
|
2385 |
|
|
PR libfortran/20068
|
2386 |
|
|
PR libfortran/20125
|
2387 |
|
|
PR libfortran/20156
|
2388 |
|
|
PR libfortran/20471
|
2389 |
|
|
* io/backspace.c (unformatted_backspace): Fix error in arithmetic.
|
2390 |
|
|
(st_backspace): When in WRITING mode, we flush and falling back
|
2391 |
|
|
into READING mode. In all cases, correctly position the stream.
|
2392 |
|
|
|
2393 |
|
|
2005-03-31 Francois-Xavier Coudert
|
2394 |
|
|
|
2395 |
|
|
PR libfortran/20660
|
2396 |
|
|
* io/inquire.c (inquire_via_unit): Non-opened units should still be
|
2397 |
|
|
reported by an INQUIRE statement as existing.
|
2398 |
|
|
* io/transfer.c (data_transfer_init): Never accept negative units.
|
2399 |
|
|
|
2400 |
|
|
2005-03-29 Dale Ranta
|
2401 |
|
|
Francois-Xavier Coudert
|
2402 |
|
|
|
2403 |
|
|
PR libfortran/20163
|
2404 |
|
|
* io/open.c (st_open): call library_end() before returning even if
|
2405 |
|
|
an error arises.
|
2406 |
|
|
|
2407 |
|
|
2005-03-25 Francois-Xavier Coudert
|
2408 |
|
|
|
2409 |
|
|
PR libfortran/19678
|
2410 |
|
|
* list_read.c (next_char, eat_separator, finish_separator, read_real)
|
2411 |
|
|
(namelist_read): Add support for '\r' as well as '\n' as EOL
|
2412 |
|
|
character.
|
2413 |
|
|
|
2414 |
|
|
PR libfortran/19679
|
2415 |
|
|
* list_read.c (read_sf): Add a '\r' in a test to support DOS
|
2416 |
|
|
line-endings when line length is exceeded.
|
2417 |
|
|
|
2418 |
|
|
2005-03-25 Francois-Xavier Coudert
|
2419 |
|
|
|
2420 |
|
|
PR libfortran/15332
|
2421 |
|
|
* io/format.c (parse_format_list): format node for colon edit
|
2422 |
|
|
descriptor needs a repeat counter set to 1.
|
2423 |
|
|
|
2424 |
|
|
2005-02-24 Francois-Xavier Coudert
|
2425 |
|
|
|
2426 |
|
|
* config.h.in: Regenerate.
|
2427 |
|
|
|
2428 |
|
|
2005-02-23 Francois-Xavier Coudert
|
2429 |
|
|
|
2430 |
|
|
PR libfortran/18025
|
2431 |
|
|
* write.c (output_float): Handling the "F0.d" format similarly as
|
2432 |
|
|
commercial compilers.
|
2433 |
|
|
|
2434 |
|
|
2005-03-22 Francois-Xavier Coudert
|
2435 |
|
|
|
2436 |
|
|
* Makefile.am: Added new files.
|
2437 |
|
|
* Makefile.in: Regenerate.
|
2438 |
|
|
* aclocal.m4: Regenerate.
|
2439 |
|
|
* configure.ac: add checks for signal.h headers file, as well as
|
2440 |
|
|
following functions: chdir, strerror, getlogin, gethostname, kill,
|
2441 |
|
|
link, symlink, perror, sleep, time.
|
2442 |
|
|
* configure: Regenerate.
|
2443 |
|
|
* intrinsics/chdir.c, intrinsics/gerror.c, intrinsics/getlog.c,
|
2444 |
|
|
intrinsics/hostnm.c, intrinsics/ierrno.c, intrinsics/kill.c,
|
2445 |
|
|
intrinsics/link.c, intrinsics/perror.c, intrinsics/rename.c,
|
2446 |
|
|
intrinsics/sleep.c, intrinsics/symlnk.c, intrinsics/time.c: Newly
|
2447 |
|
|
implementend g77 intrinsics.
|
2448 |
|
|
|
2449 |
|
|
2005-03-21 Zack Weinberg
|
2450 |
|
|
|
2451 |
|
|
* configure.ac: Do not invoke TL_AC_GCC_VERSION.
|
2452 |
|
|
In all substitutions, leave gcc_version to be expanded by the Makefile.
|
2453 |
|
|
* aclocal.m4, configure: Regenerate.
|
2454 |
|
|
* Makefile.am: Set gcc_version.
|
2455 |
|
|
* Makefile.in: Regenerate.
|
2456 |
|
|
|
2457 |
|
|
2005-03-16 Francois-Xavier Coudert
|
2458 |
|
|
|
2459 |
|
|
PR libfortran/20257
|
2460 |
|
|
* open.c (new_unit): set record length to max_offset rather than
|
2461 |
|
|
using a hard-coded limit (which was too low).
|
2462 |
|
|
|
2463 |
|
|
2005-03-16 Francois-Xavier Coudert
|
2464 |
|
|
|
2465 |
|
|
PR libfortran/20480
|
2466 |
|
|
* write.c (output_float): special check when writing 0.0 with
|
2467 |
|
|
EN and ES formats.
|
2468 |
|
|
|
2469 |
|
|
2005-03-11 Francois-Xavier Coudert
|
2470 |
|
|
|
2471 |
|
|
PR libfortran/20124
|
2472 |
|
|
* write.c (output_float): Adds a nzero_real variable to store
|
2473 |
|
|
the number of leading zeros whatever the format width is. Corrects
|
2474 |
|
|
the rounding of numbers less than 10^(-width). Fixes typo in an
|
2475 |
|
|
error message. Updates copyright years
|
2476 |
|
|
|
2477 |
|
|
2005-02-27 Toon Moene
|
2478 |
|
|
|
2479 |
|
|
* runtime/environ.c: Update copyright years.
|
2480 |
|
|
|
2481 |
|
|
2005-02-27 Tobias Schl"uter
|
2482 |
|
|
|
2483 |
|
|
* io/write.c: Update copyright years.
|
2484 |
|
|
|
2485 |
|
|
2005-02-27 Francois-Xavier Coudert
|
2486 |
|
|
|
2487 |
|
|
PR libfortran/20101
|
2488 |
|
|
* io/write.c (output_float): Added special check for value 0.0 in
|
2489 |
|
|
PE format.
|
2490 |
|
|
|
2491 |
|
|
2005-02-27 Tobias Schl"uter
|
2492 |
|
|
|
2493 |
|
|
* io/write.c (output_float): Fix typo in condition.
|
2494 |
|
|
|
2495 |
|
|
2005-02-25 Peter O'Gorman
|
2496 |
|
|
Toon Moene
|
2497 |
|
|
|
2498 |
|
|
PR libfortran/17748
|
2499 |
|
|
* runtime/environ.c: Remove references to environ.
|
2500 |
|
|
(show_variables): remove GFORTRAN_UNBUFFERED_* and
|
2501 |
|
|
GFORTRAN_NAME_* because they require environ.
|
2502 |
|
|
(pattern_scan): Remove function.
|
2503 |
|
|
|
2504 |
|
|
2005-02-22 Paul Thomas
|
2505 |
|
|
Bud Davis
|
2506 |
|
|
|
2507 |
|
|
* io/list_read.c (read_real): Handle separators properly
|
2508 |
|
|
in list directed read.
|
2509 |
|
|
|
2510 |
|
|
2005-02-21 Bud Davis
|
2511 |
|
|
|
2512 |
|
|
PR fortran/20086
|
2513 |
|
|
* io/transfer.c (write_constant_string): accept an 'h' as
|
2514 |
|
|
the start of a hollerith format string.
|
2515 |
|
|
|
2516 |
|
|
2005-02-21 Eric Botcazou
|
2517 |
|
|
|
2518 |
|
|
PR libfortran/19302
|
2519 |
|
|
* intrinsics/c99_functions.c (nextafterf): Special-case infinite
|
2520 |
|
|
numbers.
|
2521 |
|
|
|
2522 |
|
|
2005-02-21 Steven G. Kargl
|
2523 |
|
|
|
2524 |
|
|
* io/write.c (output_float): Typo in error meesage.
|
2525 |
|
|
|
2526 |
|
|
2005-02-20 Steven G. Kargl
|
2527 |
|
|
|
2528 |
|
|
PR 20085
|
2529 |
|
|
* intrinsic/args.c (iargc): Off by 1.
|
2530 |
|
|
|
2531 |
|
|
2005-02-19 Steven G. Kargl
|
2532 |
|
|
|
2533 |
|
|
* intrinsic/date_and_time.c: Fix conformance problems.
|
2534 |
|
|
|
2535 |
|
|
2005-02-01 Paul Thomas
|
2536 |
|
|
|
2537 |
|
|
PR libfortran/19363
|
2538 |
|
|
PR libfortran/19691
|
2539 |
|
|
* libgfortran.h (isfinite): Work around broken isfinite(x) in Cygwin.
|
2540 |
|
|
|
2541 |
|
|
2005-01-30 Bud Davis
|
2542 |
|
|
|
2543 |
|
|
PR fortran/19647
|
2544 |
|
|
* io/inquire.c (inquire_via_unit): Use correct variable for
|
2545 |
|
|
pad.
|
2546 |
|
|
|
2547 |
|
|
2005-01-29 Thomas Koenig
|
2548 |
|
|
|
2549 |
|
|
PR libfortran/19595
|
2550 |
|
|
* io/transfer.c (data_transfer_init): eor requires advance="NO".
|
2551 |
|
|
|
2552 |
|
|
2005-01-25 Tobias Schl"uter
|
2553 |
|
|
|
2554 |
|
|
PR libfortran/19524
|
2555 |
|
|
* io/read.c (read_f): Don't free uninitialized pointer.
|
2556 |
|
|
|
2557 |
|
|
2005-01-23 James A. Morrison
|
2558 |
|
|
Paul Brook
|
2559 |
|
|
|
2560 |
|
|
PR fortran/19294
|
2561 |
|
|
* Makefile.am: Add transpose_c4.c and transpose_c8.c.
|
2562 |
|
|
* intrinsics/cshift0.c: Use separate optimized loops for complex types.
|
2563 |
|
|
* m4/transpose.m4: Include type letter in function name.
|
2564 |
|
|
* Makefile.in: Regenerate.
|
2565 |
|
|
* generated/transpose_*.c: Regenerate.
|
2566 |
|
|
|
2567 |
|
|
2005-01-22 Thomas Koenig
|
2568 |
|
|
|
2569 |
|
|
PR libfortran/19451
|
2570 |
|
|
* io/transfer.c (finalize_transfer): Don't do anything if
|
2571 |
|
|
there is an error condition.
|
2572 |
|
|
|
2573 |
|
|
2005-01-22 David Edelsohn
|
2574 |
|
|
|
2575 |
|
|
PR libfortran/19052
|
2576 |
|
|
* libgfortran.h (options_t): Add stderr_unit.
|
2577 |
|
|
* io/io.h (error_stream): Declare.
|
2578 |
|
|
* io/open.c (new_unit): Do not terminate abnormally if opening
|
2579 |
|
|
file preconnected to stdin, stdout, or stderr.
|
2580 |
|
|
* io/unit.c (init_units): Initialize stderr_unit.
|
2581 |
|
|
* io/unix.c (error_stream): New function.
|
2582 |
|
|
* runtime/environ.c (GFORTRAN_STDERR_UNIT): New environment variable.
|
2583 |
|
|
|
2584 |
|
|
2005-01-22 Thomas Koenig
|
2585 |
|
|
|
2586 |
|
|
PR libfortran/18982
|
2587 |
|
|
* io/unix.c (regular_file): No need to change flags->action
|
2588 |
|
|
if an error occurs. Document this.
|
2589 |
|
|
No need to call stat() for STATUS_OLD, open() will
|
2590 |
|
|
fail anyway.
|
2591 |
|
|
For ACTION_UNSPECIFIED, try open for read-write, then for
|
2592 |
|
|
read-only if open fails with EACCES, then for write-only
|
2593 |
|
|
if that fails with EACCES again.
|
2594 |
|
|
* io/unix.c (open_external): Document changed behavior of
|
2595 |
|
|
regular_file.
|
2596 |
|
|
|
2597 |
|
|
2005-01-22 Tobias Schl"uter
|
2598 |
|
|
|
2599 |
|
|
PR fortran/19194
|
2600 |
|
|
* io/io.h (st_parameter): Use 'GFC_INTEGER_4' instead of 'int',
|
2601 |
|
|
use CHARACTER macro for definition of string valued paramters.
|
2602 |
|
|
|
2603 |
|
|
2005-01-22 Bud Davis
|
2604 |
|
|
|
2605 |
|
|
PR fortran/19314
|
2606 |
|
|
* io/inquire.c(inquire_via_unit): implement POSITION=.
|
2607 |
|
|
* io/transfer.c(next_record): update position for
|
2608 |
|
|
INQUIRE.
|
2609 |
|
|
* io/rewind.c(st_rewind): update position for
|
2610 |
|
|
INQUIRE.
|
2611 |
|
|
|
2612 |
|
|
2005-01-16 Bud Davis
|
2613 |
|
|
|
2614 |
|
|
PR fortran/18778
|
2615 |
|
|
* io/transfer.c (us_read): no bytes available is not a
|
2616 |
|
|
runtime error.
|
2617 |
|
|
|
2618 |
|
|
2005-01-15 Bud Davis
|
2619 |
|
|
|
2620 |
|
|
PR fortran/18983
|
2621 |
|
|
* io/transfer.c (st_write_done): only truncate when it
|
2622 |
|
|
is required.
|
2623 |
|
|
|
2624 |
|
|
2005-01-12 Toon Moene
|
2625 |
|
|
|
2626 |
|
|
PR libfortran/19280
|
2627 |
|
|
c99_protos.h: License changed to GPL+exception.
|
2628 |
|
|
libgfortran.h: Ditto.
|
2629 |
|
|
intrinsics/abort.c: Ditto.
|
2630 |
|
|
intrinsics/args.c: Ditto.
|
2631 |
|
|
intrinsics/associated.c: Ditto.
|
2632 |
|
|
intrinsics/bessel.c: Ditto.
|
2633 |
|
|
intrinsics/c99_functions.c: Ditto.
|
2634 |
|
|
intrinsics/cpu_time.c: Ditto.
|
2635 |
|
|
intrinsics/cshift0.c: Ditto.
|
2636 |
|
|
intrinsics/date_and_time.c: Ditto.
|
2637 |
|
|
intrinsics/env.c: Ditto.
|
2638 |
|
|
intrinsics/eoshift0.c: Ditto.
|
2639 |
|
|
intrinsics/eoshift2.c: Ditto.
|
2640 |
|
|
intrinsics/erf.c: Ditto.
|
2641 |
|
|
intrinsics/etime.c: Ditto.
|
2642 |
|
|
intrinsics/exit.c: Ditto.
|
2643 |
|
|
intrinsics/flush.c: Ditto.
|
2644 |
|
|
intrinsics/fnum.c: Ditto.
|
2645 |
|
|
intrinsics/getXid.c: Ditto.
|
2646 |
|
|
intrinsics/getcwd.c: Ditto.
|
2647 |
|
|
intrinsics/ishftc.c: Ditto.
|
2648 |
|
|
intrinsics/mvbits.c: Ditto.
|
2649 |
|
|
intrinsics/pack_generic.c: Ditto.
|
2650 |
|
|
intrinsics/rand.c: Ditto.
|
2651 |
|
|
intrinsics/random.c: Ditto.
|
2652 |
|
|
intrinsics/reshape_generic.c: Ditto.
|
2653 |
|
|
intrinsics/reshape_packed.c: Ditto.
|
2654 |
|
|
intrinsics/size.c: Ditto.
|
2655 |
|
|
intrinsics/spread_generic.c: Ditto.
|
2656 |
|
|
intrinsics/stat.c: Ditto.
|
2657 |
|
|
intrinsics/string_intrinsics.c: Ditto.
|
2658 |
|
|
intrinsics/system.c: Ditto.
|
2659 |
|
|
intrinsics/system_clock.c: Ditto.
|
2660 |
|
|
intrinsics/transpose_generic.c: Ditto.
|
2661 |
|
|
intrinsics/umask.c: Ditto.
|
2662 |
|
|
intrinsics/unlink.c: Ditto.
|
2663 |
|
|
intrinsics/unpack_generic.c: Ditto.
|
2664 |
|
|
io/backspace.c: Ditto.
|
2665 |
|
|
io/close.c: Ditto.
|
2666 |
|
|
io/endfile.c: Ditto.
|
2667 |
|
|
io/format.c: Ditto.
|
2668 |
|
|
io/inquire.c: Ditto.
|
2669 |
|
|
io/io.h: Ditto.
|
2670 |
|
|
io/list_read.c: Ditto.
|
2671 |
|
|
io/lock.c: Ditto.
|
2672 |
|
|
io/open.c: Ditto.
|
2673 |
|
|
io/read.c: Ditto.
|
2674 |
|
|
io/rewind.c: Ditto.
|
2675 |
|
|
io/transfer.c: Ditto.
|
2676 |
|
|
io/unit.c: Ditto.
|
2677 |
|
|
io/unix.c: Ditto.
|
2678 |
|
|
io/write.c: Ditto.
|
2679 |
|
|
m4/all.m4: Ditto.
|
2680 |
|
|
m4/any.m4: Ditto.
|
2681 |
|
|
m4/cexp.m4: Ditto.
|
2682 |
|
|
m4/chyp.m4: Ditto.
|
2683 |
|
|
m4/count.m4: Ditto.
|
2684 |
|
|
m4/cshift1.m4: Ditto.
|
2685 |
|
|
m4/ctrig.m4: Ditto.
|
2686 |
|
|
m4/dotprod.m4: Ditto.
|
2687 |
|
|
m4/dotprodc.m4: Ditto.
|
2688 |
|
|
m4/dotprodl.m4: Ditto.
|
2689 |
|
|
m4/eoshift1.m4: Ditto.
|
2690 |
|
|
m4/eoshift3.m4: Ditto.
|
2691 |
|
|
m4/exponent.m4: Ditto.
|
2692 |
|
|
m4/fraction.m4: Ditto.
|
2693 |
|
|
m4/head.m4: Ditto.
|
2694 |
|
|
m4/iforeach.m4: Ditto.
|
2695 |
|
|
m4/ifunction.m4: Ditto.
|
2696 |
|
|
m4/in_pack.m4: Ditto.
|
2697 |
|
|
m4/in_unpack.m4: Ditto.
|
2698 |
|
|
m4/iparm.m4: Ditto.
|
2699 |
|
|
m4/matmul.m4: Ditto.
|
2700 |
|
|
m4/matmull.m4: Ditto.
|
2701 |
|
|
m4/maxloc0.m4: Ditto.
|
2702 |
|
|
m4/maxloc1.m4: Ditto.
|
2703 |
|
|
m4/maxval.m4: Ditto.
|
2704 |
|
|
m4/minloc0.m4: Ditto.
|
2705 |
|
|
m4/minloc1.m4: Ditto.
|
2706 |
|
|
m4/minval.m4: Ditto.
|
2707 |
|
|
m4/mtype.m4: Ditto.
|
2708 |
|
|
m4/nearest.m4: Ditto.
|
2709 |
|
|
m4/pow.m4: Ditto.
|
2710 |
|
|
m4/product.m4: Ditto.
|
2711 |
|
|
m4/reshape.m4: Ditto.
|
2712 |
|
|
m4/set_exponent.m4: Ditto.
|
2713 |
|
|
m4/shape.m4: Ditto.
|
2714 |
|
|
m4/specific.m4: Ditto.
|
2715 |
|
|
m4/specific2.m4: Ditto.
|
2716 |
|
|
m4/sum.m4: Ditto.
|
2717 |
|
|
m4/transpose.m4: Ditto.
|
2718 |
|
|
m4/types.m4: Ditto.
|
2719 |
|
|
runtime/environ.c: Ditto.
|
2720 |
|
|
runtime/error.c: Ditto.
|
2721 |
|
|
runtime/in_pack_generic.c: Ditto.
|
2722 |
|
|
runtime/in_unpack_generic.c: Ditto.
|
2723 |
|
|
runtime/main.c: Ditto.
|
2724 |
|
|
runtime/memory.c: Ditto.
|
2725 |
|
|
runtime/normalize.c: Ditto.
|
2726 |
|
|
runtime/pause.c: Ditto.
|
2727 |
|
|
runtime/select.c: Ditto.
|
2728 |
|
|
runtime/stop.c: Ditto.
|
2729 |
|
|
runtime/string.c: Ditto.
|
2730 |
|
|
generated/_abs_c4.f90: Regenerated.
|
2731 |
|
|
generated/_abs_c8.f90: Regenerated.
|
2732 |
|
|
generated/_abs_i4.f90: Regenerated.
|
2733 |
|
|
generated/_abs_i8.f90: Regenerated.
|
2734 |
|
|
generated/_abs_r4.f90: Regenerated.
|
2735 |
|
|
generated/_abs_r8.f90: Regenerated.
|
2736 |
|
|
generated/_acos_r4.f90: Regenerated.
|
2737 |
|
|
generated/_acos_r8.f90: Regenerated.
|
2738 |
|
|
generated/_aint_r4.f90: Regenerated.
|
2739 |
|
|
generated/_aint_r8.f90: Regenerated.
|
2740 |
|
|
generated/_anint_r4.f90: Regenerated.
|
2741 |
|
|
generated/_anint_r8.f90: Regenerated.
|
2742 |
|
|
generated/_asin_r4.f90: Regenerated.
|
2743 |
|
|
generated/_asin_r8.f90: Regenerated.
|
2744 |
|
|
generated/_atan2_r4.f90: Regenerated.
|
2745 |
|
|
generated/_atan2_r8.f90: Regenerated.
|
2746 |
|
|
generated/_atan_r4.f90: Regenerated.
|
2747 |
|
|
generated/_atan_r8.f90: Regenerated.
|
2748 |
|
|
generated/_conjg_c4.f90: Regenerated.
|
2749 |
|
|
generated/_conjg_c8.f90: Regenerated.
|
2750 |
|
|
generated/_cos_c4.f90: Regenerated.
|
2751 |
|
|
generated/_cos_c8.f90: Regenerated.
|
2752 |
|
|
generated/_cos_r4.f90: Regenerated.
|
2753 |
|
|
generated/_cos_r8.f90: Regenerated.
|
2754 |
|
|
generated/_cosh_r4.f90: Regenerated.
|
2755 |
|
|
generated/_cosh_r8.f90: Regenerated.
|
2756 |
|
|
generated/_dim_i4.f90: Regenerated.
|
2757 |
|
|
generated/_dim_i8.f90: Regenerated.
|
2758 |
|
|
generated/_dim_r4.f90: Regenerated.
|
2759 |
|
|
generated/_dim_r8.f90: Regenerated.
|
2760 |
|
|
generated/_exp_c4.f90: Regenerated.
|
2761 |
|
|
generated/_exp_c8.f90: Regenerated.
|
2762 |
|
|
generated/_exp_r4.f90: Regenerated.
|
2763 |
|
|
generated/_exp_r8.f90: Regenerated.
|
2764 |
|
|
generated/_log10_r4.f90: Regenerated.
|
2765 |
|
|
generated/_log10_r8.f90: Regenerated.
|
2766 |
|
|
generated/_log_c4.f90: Regenerated.
|
2767 |
|
|
generated/_log_c8.f90: Regenerated.
|
2768 |
|
|
generated/_log_r4.f90: Regenerated.
|
2769 |
|
|
generated/_log_r8.f90: Regenerated.
|
2770 |
|
|
generated/_mod_i4.f90: Regenerated.
|
2771 |
|
|
generated/_mod_i8.f90: Regenerated.
|
2772 |
|
|
generated/_mod_r4.f90: Regenerated.
|
2773 |
|
|
generated/_mod_r8.f90: Regenerated.
|
2774 |
|
|
generated/_sign_i4.f90: Regenerated.
|
2775 |
|
|
generated/_sign_i8.f90: Regenerated.
|
2776 |
|
|
generated/_sign_r4.f90: Regenerated.
|
2777 |
|
|
generated/_sign_r8.f90: Regenerated.
|
2778 |
|
|
generated/_sin_c4.f90: Regenerated.
|
2779 |
|
|
generated/_sin_c8.f90: Regenerated.
|
2780 |
|
|
generated/_sin_r4.f90: Regenerated.
|
2781 |
|
|
generated/_sin_r8.f90: Regenerated.
|
2782 |
|
|
generated/_sinh_r4.f90: Regenerated.
|
2783 |
|
|
generated/_sinh_r8.f90: Regenerated.
|
2784 |
|
|
generated/_sqrt_c4.f90: Regenerated.
|
2785 |
|
|
generated/_sqrt_c8.f90: Regenerated.
|
2786 |
|
|
generated/_sqrt_r4.f90: Regenerated.
|
2787 |
|
|
generated/_sqrt_r8.f90: Regenerated.
|
2788 |
|
|
generated/_tan_r4.f90: Regenerated.
|
2789 |
|
|
generated/_tan_r8.f90: Regenerated.
|
2790 |
|
|
generated/_tanh_r4.f90: Regenerated.
|
2791 |
|
|
generated/_tanh_r8.f90: Regenerated.
|
2792 |
|
|
generated/all_l4.c: Regenerated.
|
2793 |
|
|
generated/all_l8.c: Regenerated.
|
2794 |
|
|
generated/any_l4.c: Regenerated.
|
2795 |
|
|
generated/any_l8.c: Regenerated.
|
2796 |
|
|
generated/count_4_l4.c: Regenerated.
|
2797 |
|
|
generated/count_4_l8.c: Regenerated.
|
2798 |
|
|
generated/count_8_l4.c: Regenerated.
|
2799 |
|
|
generated/count_8_l8.c: Regenerated.
|
2800 |
|
|
generated/cshift1_4.c: Regenerated.
|
2801 |
|
|
generated/cshift1_8.c: Regenerated.
|
2802 |
|
|
generated/dotprod_c4.c: Regenerated.
|
2803 |
|
|
generated/dotprod_c8.c: Regenerated.
|
2804 |
|
|
generated/dotprod_i4.c: Regenerated.
|
2805 |
|
|
generated/dotprod_i8.c: Regenerated.
|
2806 |
|
|
generated/dotprod_l4.c: Regenerated.
|
2807 |
|
|
generated/dotprod_l8.c: Regenerated.
|
2808 |
|
|
generated/dotprod_r4.c: Regenerated.
|
2809 |
|
|
generated/dotprod_r8.c: Regenerated.
|
2810 |
|
|
generated/eoshift1_4.c: Regenerated.
|
2811 |
|
|
generated/eoshift1_8.c: Regenerated.
|
2812 |
|
|
generated/eoshift3_4.c: Regenerated.
|
2813 |
|
|
generated/eoshift3_8.c: Regenerated.
|
2814 |
|
|
generated/exp_c4.c: Regenerated.
|
2815 |
|
|
generated/exp_c8.c: Regenerated.
|
2816 |
|
|
generated/exponent_r4.c: Regenerated.
|
2817 |
|
|
generated/exponent_r8.c: Regenerated.
|
2818 |
|
|
generated/fraction_r4.c: Regenerated.
|
2819 |
|
|
generated/fraction_r8.c: Regenerated.
|
2820 |
|
|
generated/hyp_c4.c: Regenerated.
|
2821 |
|
|
generated/hyp_c8.c: Regenerated.
|
2822 |
|
|
generated/in_pack_i4.c: Regenerated.
|
2823 |
|
|
generated/in_pack_i8.c: Regenerated.
|
2824 |
|
|
generated/in_unpack_i4.c: Regenerated.
|
2825 |
|
|
generated/in_unpack_i8.c: Regenerated.
|
2826 |
|
|
generated/matmul_c4.c: Regenerated.
|
2827 |
|
|
generated/matmul_c8.c: Regenerated.
|
2828 |
|
|
generated/matmul_i4.c: Regenerated.
|
2829 |
|
|
generated/matmul_i8.c: Regenerated.
|
2830 |
|
|
generated/matmul_l4.c: Regenerated.
|
2831 |
|
|
generated/matmul_l8.c: Regenerated.
|
2832 |
|
|
generated/matmul_r4.c: Regenerated.
|
2833 |
|
|
generated/matmul_r8.c: Regenerated.
|
2834 |
|
|
generated/maxloc0_4_i4.c: Regenerated.
|
2835 |
|
|
generated/maxloc0_4_i8.c: Regenerated.
|
2836 |
|
|
generated/maxloc0_4_r4.c: Regenerated.
|
2837 |
|
|
generated/maxloc0_4_r8.c: Regenerated.
|
2838 |
|
|
generated/maxloc0_8_i4.c: Regenerated.
|
2839 |
|
|
generated/maxloc0_8_i8.c: Regenerated.
|
2840 |
|
|
generated/maxloc0_8_r4.c: Regenerated.
|
2841 |
|
|
generated/maxloc0_8_r8.c: Regenerated.
|
2842 |
|
|
generated/maxloc1_4_i4.c: Regenerated.
|
2843 |
|
|
generated/maxloc1_4_i8.c: Regenerated.
|
2844 |
|
|
generated/maxloc1_4_r4.c: Regenerated.
|
2845 |
|
|
generated/maxloc1_4_r8.c: Regenerated.
|
2846 |
|
|
generated/maxloc1_8_i4.c: Regenerated.
|
2847 |
|
|
generated/maxloc1_8_i8.c: Regenerated.
|
2848 |
|
|
generated/maxloc1_8_r4.c: Regenerated.
|
2849 |
|
|
generated/maxloc1_8_r8.c: Regenerated.
|
2850 |
|
|
generated/maxval_i4.c: Regenerated.
|
2851 |
|
|
generated/maxval_i8.c: Regenerated.
|
2852 |
|
|
generated/maxval_r4.c: Regenerated.
|
2853 |
|
|
generated/maxval_r8.c: Regenerated.
|
2854 |
|
|
generated/minloc0_4_i4.c: Regenerated.
|
2855 |
|
|
generated/minloc0_4_i8.c: Regenerated.
|
2856 |
|
|
generated/minloc0_4_r4.c: Regenerated.
|
2857 |
|
|
generated/minloc0_4_r8.c: Regenerated.
|
2858 |
|
|
generated/minloc0_8_i4.c: Regenerated.
|
2859 |
|
|
generated/minloc0_8_i8.c: Regenerated.
|
2860 |
|
|
generated/minloc0_8_r4.c: Regenerated.
|
2861 |
|
|
generated/minloc0_8_r8.c: Regenerated.
|
2862 |
|
|
generated/minloc1_4_i4.c: Regenerated.
|
2863 |
|
|
generated/minloc1_4_i8.c: Regenerated.
|
2864 |
|
|
generated/minloc1_4_r4.c: Regenerated.
|
2865 |
|
|
generated/minloc1_4_r8.c: Regenerated.
|
2866 |
|
|
generated/minloc1_8_i4.c: Regenerated.
|
2867 |
|
|
generated/minloc1_8_i8.c: Regenerated.
|
2868 |
|
|
generated/minloc1_8_r4.c: Regenerated.
|
2869 |
|
|
generated/minloc1_8_r8.c: Regenerated.
|
2870 |
|
|
generated/minval_i4.c: Regenerated.
|
2871 |
|
|
generated/minval_i8.c: Regenerated.
|
2872 |
|
|
generated/minval_r4.c: Regenerated.
|
2873 |
|
|
generated/minval_r8.c: Regenerated.
|
2874 |
|
|
generated/nearest_r4.c: Regenerated.
|
2875 |
|
|
generated/nearest_r8.c: Regenerated.
|
2876 |
|
|
generated/pow_c4_i4.c: Regenerated.
|
2877 |
|
|
generated/pow_c4_i8.c: Regenerated.
|
2878 |
|
|
generated/pow_c8_i4.c: Regenerated.
|
2879 |
|
|
generated/pow_c8_i8.c: Regenerated.
|
2880 |
|
|
generated/pow_i4_i4.c: Regenerated.
|
2881 |
|
|
generated/pow_i4_i8.c: Regenerated.
|
2882 |
|
|
generated/pow_i8_i4.c: Regenerated.
|
2883 |
|
|
generated/pow_i8_i8.c: Regenerated.
|
2884 |
|
|
generated/pow_r4_i4.c: Regenerated.
|
2885 |
|
|
generated/pow_r4_i8.c: Regenerated.
|
2886 |
|
|
generated/pow_r8_i4.c: Regenerated.
|
2887 |
|
|
generated/pow_r8_i8.c: Regenerated.
|
2888 |
|
|
generated/product_c4.c: Regenerated.
|
2889 |
|
|
generated/product_c8.c: Regenerated.
|
2890 |
|
|
generated/product_i4.c: Regenerated.
|
2891 |
|
|
generated/product_i8.c: Regenerated.
|
2892 |
|
|
generated/product_r4.c: Regenerated.
|
2893 |
|
|
generated/product_r8.c: Regenerated.
|
2894 |
|
|
generated/reshape_i4.c: Regenerated.
|
2895 |
|
|
generated/reshape_i8.c: Regenerated.
|
2896 |
|
|
generated/set_exponent_r4.c: Regenerated.
|
2897 |
|
|
generated/set_exponent_r8.c: Regenerated.
|
2898 |
|
|
generated/shape_i4.c: Regenerated.
|
2899 |
|
|
generated/shape_i8.c: Regenerated.
|
2900 |
|
|
generated/sum_c4.c: Regenerated.
|
2901 |
|
|
generated/sum_c8.c: Regenerated.
|
2902 |
|
|
generated/sum_i4.c: Regenerated.
|
2903 |
|
|
generated/sum_i8.c: Regenerated.
|
2904 |
|
|
generated/sum_r4.c: Regenerated.
|
2905 |
|
|
generated/sum_r8.c: Regenerated.
|
2906 |
|
|
generated/transpose_i4.c: Regenerated.
|
2907 |
|
|
generated/transpose_i8.c: Regenerated.
|
2908 |
|
|
generated/trig_c4.c: Regenerated.
|
2909 |
|
|
generated/trig_c8.c: Regenerated.
|
2910 |
|
|
|
2911 |
|
|
2005-01-07 Bud Davis
|
2912 |
|
|
|
2913 |
|
|
PR fortran/18398
|
2914 |
|
|
* transfer.c (next_record_r): always skip the
|
2915 |
|
|
eol search if it was found during sf_read.
|
2916 |
|
|
|
2917 |
|
|
|
2918 |
|
|
Copyright (C) 2005 Free Software Foundation, Inc.
|
2919 |
|
|
|
2920 |
|
|
Copying and distribution of this file, with or without modification,
|
2921 |
|
|
are permitted in any medium without royalty provided the copyright
|
2922 |
|
|
notice and this notice are preserved.
|