]>
Commit | Line | Data |
---|---|---|
4c0c6b9f SK |
1 | 2004-08-29 Steven G. Kargl <kargls@comcast.net> |
2 | Paul Brook <paul@codesourcery.com> | |
3 | ||
4 | * Makefile.am: Add intrinsics/getXid.c. | |
5 | * configure.ac: Add tests for get{g,p,u}id. | |
6 | * config.h.in: Regenerate. | |
7 | * Makefile.in: Regenerate. | |
8 | * configure: Regenerate. | |
9 | ||
7984a2f0 PB |
10 | 2004-08-28 Paul Brook <paul@codesourcery.com> |
11 | ||
12 | PR libfortran/17195 | |
13 | * libgfortran.h (rtoa): Remove prototype. | |
14 | * runtime/error.c (rtoa): Remove. | |
15 | * io/write.c (calculate_G_format): Don't add blanks if E format is | |
16 | used. Add correct number of blanks when exponent width is specified. | |
17 | (output_float): Rewrite. | |
18 | ||
c100eff1 PB |
19 | 2004-08-27 Paul Brook <paul@codesourcery.com> |
20 | ||
21 | * io/rewind.c (st_rewind): Reset unit to read mode. | |
22 | ||
55948b69 BD |
23 | 2004-08-27 Bud Davis <bdavis9659@comcast.net> |
24 | ||
25 | PR fortran/16597 | |
26 | * io/io.h: created typedef for unit_mode. | |
27 | * io/io.h (gfc_unit): added mode to unit structure. | |
28 | * io/transfer.c (data_transfer_init): flush if a write then | |
29 | read is done on a unit (direct access files). | |
30 | * io/rewind.c (st_rewind): Used unit mode instead of global. | |
31 | ||
5352bda0 BD |
32 | 2004-08-24 Bud Davis <bdavis9659@comcast.net> |
33 | ||
34 | PR fortran/17143 | |
35 | * runtime/error.c (itoa): keep from overflowing during | |
36 | mod operation by using unsigned variable. | |
37 | ||
02d735f6 BD |
38 | 2004-08-24 Bud Davis <bdavis9659@comcast.net> |
39 | ||
40 | PR fortran/17164 | |
41 | * runtime/string_intrinsics.c (string_index):check for | |
42 | substring longer than string. | |
43 | ||
6fd7cc54 DE |
44 | 2004-08-24 David Edelsohn <edelsohn@gnu.org> |
45 | ||
46 | * Makefile.am (libgfortran_la_LDFLAGS): Add -lm. | |
47 | * Makefile.in: Rebuilt. | |
48 | ||
20edd06b TS |
49 | 2004-08-23 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
50 | ||
51 | * io/io.h, io/list_read.c, io/open.c, io/transfer.c, io/write.c: | |
52 | Fix formatting issues, update copyright years. | |
53 | ||
0fa1b65c BD |
54 | 2004-08-21 Bud Davis <bdavis9659@comcast.net> |
55 | ||
56 | PR 16908 | |
57 | * io/transfer.c (next_record_w): Do not blank pad. | |
58 | * io/transfer.c (next_record): Take into account partial records. | |
59 | ||
3bc268e6 VL |
60 | 2004-08-18 Victor Leikehman <lei@il.ibm.com> |
61 | ||
62 | PR fortran/13278 | |
63 | * io/transfer.c (st_set_nml_var) | |
64 | * io/write.c (namelist_write): Allow var_name and var_name_len to be | |
65 | null. For strings, use string_length field instead of len. | |
66 | * io/io.h (struct namelist_type): New field string_length. | |
67 | (st_set_nml_var_char): New argument string_length. | |
68 | ||
1ef02b9d BD |
69 | 2004-08-13 Bud Davis <bdavis9659@comcast.net> |
70 | ||
4fe6e46b | 71 | PR gfortran/16935 |
1ef02b9d BD |
72 | * io/open.c (st_open): use flags instead of the unit structure. |
73 | ||
a57bb5f6 VL |
74 | 2004-08-10 Victor Leikehman <lei@il.ibm.com> |
75 | ||
76 | * io/list_read.c (namelist_read): Convert variable names | |
77 | to lower case, so that mixed-case names are recognized. | |
78 | Don't read beyond terminating slash. | |
79 | ||
067a5735 RS |
80 | 2004-08-09 Richard Henderson <rth@redhat.com> |
81 | Roger Sayle <roger@eyesopen.com> | |
82 | ||
83 | * intrinsics/c99_functions.c (nextafterf): New implementation that | |
84 | works correctly with denormalized numbers. | |
85 | ||
86 | 2004-08-09 Victor Leikehman <lei@il.ibm.com> | |
883c9d4d VL |
87 | |
88 | * m4/matmul.m4, m4/matmull.m4, intrinsics/eoshift0.c, | |
89 | intrinsics/eoshift2.c, intrinsics/transpose_generic.c: | |
90 | Allocate space if return value has NULL in its data field. | |
91 | * generated/*.c: Regenerate. | |
92 | ||
aa6fc635 JB |
93 | 2004-08-06 Janne Blomqvist <jblomqvi@cc.hut.fi> |
94 | ||
95 | * intrinsics/env.c: New file. | |
96 | * Makefile.am: Add env.c to build. | |
97 | * Makefile.in: Regenerate. | |
98 | ||
943bf8b5 VL |
99 | 2004-08-05 Victor Leikehman <lei@il.ibm.com> |
100 | ||
101 | PR libgfortran/16704 | |
102 | * io/read.c (read_radix): Understand letters f and F as hex digits. | |
103 | ||
6c167c45 VL |
104 | 2004-08-04 Victor Leikehman <lei@il.ibm.com> |
105 | ||
106 | * libgfortran.h (array_t, size0) New declarations. | |
107 | * m4/ifunction.m4, m4/transpose.m4, intrinsics/cshift0.c: Allocate | |
108 | space if return value descriptor has NULL in its data field, | |
109 | and initialize bounds and stride. | |
110 | * intrinsics/size.c (array_t, size0): Declarations moved to | |
111 | libgfortran.h. | |
112 | * generated/*.c: Regenerate. | |
113 | ||
453310d8 RS |
114 | 2004-08-03 Roger Sayle <roger@eyesopen.com> |
115 | ||
116 | PR libgfortran/16137 | |
117 | * configure.ac: Add tests for acosf, asinf, atan2f, atanf, ceilf, | |
118 | copysignf, cosf, coshf, expf, floorf, frexpf, hypotf, logf, log10f, | |
119 | scalbnf, sinf, sinhf, sqrtf, tanf and tanhf in libm. | |
120 | * config.h.in: Regenerate. | |
121 | * configure: Regenerate. | |
122 | ||
123 | * instrinsics/c99_functions.c (acosf, asinf, atan2f, atanf, ceilf, | |
124 | copysignf, cosf, coshf, expf, floorf, frexpf, hypotf, logf, log10f, | |
125 | nextafterf, scalbnf, sinf, sinhf, sqrtf, tanf, tanhf): New stub | |
126 | implementations for targets that don't support C99 float functions. | |
127 | ||
023d776a RS |
128 | 2004-08-01 Roger Sayle <roger@eyesopen.com> |
129 | ||
130 | * io/write.c (write_float): Use the slightly more portable isnan | |
131 | in preference to isinf. | |
132 | ||
9cdc381b BD |
133 | 2004-07-18 Bud Davis <bdavis9659@comcast.net> |
134 | ||
135 | * configure.ac: Add check for LFS support. | |
136 | * configure: Regenerate | |
137 | ||
1e38f159 PB |
138 | 2004-07-11 Paul Brook <paul@codesourcery.com> |
139 | ||
140 | PR fortran/16303 | |
141 | * m4/cexp.m4 (carg): Return -pi to pi. | |
142 | * generated/exp_c?.c: Regenerate. | |
143 | ||
dbe81a8b AK |
144 | 2004-07-08 Andreas Krebbel <krebbel1@de.ibm.com> |
145 | ||
146 | PR fortran/16291 | |
147 | * libgfortran/io/write.c: (write_float): Added length check. | |
148 | Remove pointless memset calls. | |
149 | ||
bf1df0a0 BD |
150 | 2004-07-04 Bud Davis <bdavis9659@comcast.net> |
151 | Paul Brook <paul@codesourcery.com> | |
152 | ||
153 | PR fortran/15472 | |
154 | * io/transfer.c(us_write): set recl for seq unform writes to max size. | |
155 | * io/transfer.c(data_transfer_init): handle un-opened seq unform unit. | |
156 | * io/unix.c(fd_alloc_w_at): handle requests at start, fd_flush at | |
dbe81a8b | 157 | right time. |
bf1df0a0 | 158 | * io/unix.c(is_seekable): set based upon the file/device, not the |
dbe81a8b | 159 | method being used to access it (fd or mmap). |
bf1df0a0 BD |
160 | * io/unix.c(fd_flush): don't set file_size if !seekable. |
161 | * io/unix.c(fd_truncate: ditto. | |
162 | ||
b41b2534 JB |
163 | 2004-07-04 Janne Blomqvist <jblomqvi@cc.hut.fi> |
164 | Paul Brook <paul@codesourcery.com> | |
165 | ||
166 | PR fortran/15280 | |
167 | PR fortran/15665 | |
168 | * libgfortran.h (gfc_strlen_type): Define. | |
169 | * intrinsics/args.c (getarg): Rename ... | |
170 | (getarg_i4): ... to this. | |
171 | (getarg_i8, get_command_argument_i4, get_command_argument_i8, | |
172 | get_command_i4, get_command_i8): New functions. | |
173 | ||
1657a809 MK |
174 | 2004-07-04 Matthias Klose <doko@debian.org> |
175 | ||
176 | * libtool-version: New. | |
177 | * Makefile.am (libgfortran_la_LDFLAGS): Use -version-info for soname. | |
178 | * Makefile.in: Regenerate. | |
179 | * configure.ac: Remove libtool_VERSION macro | |
180 | * configure: Regenerate | |
181 | ||
fd53dbe0 SK |
182 | 2004-06-30 Steve Kargl <sgk@troutmask.apl.washington.edu> |
183 | Steven Bosscher <stevenb@suse.de> | |
184 | ||
185 | * intrinsics/rand.c (rand): Wrap the irand() call from the previous | |
186 | commit in prefix. | |
187 | ||
beabab59 TS |
188 | 2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
189 | Paul Brook <paul@codesourcery.com> | |
190 | ||
191 | * runtime/normalize.c (normalize_r4_i4, normalize_r8_i8): Fix | |
192 | comments. | |
193 | * intrinsics/rand.c (rand): Call irand() in call to normalize_r4_i4. | |
194 | ||
519b0e16 BD |
195 | 2004-06-27 Bud Davis <bdavis9659@comcast.net> |
196 | ||
197 | PR gfortran/12839 | |
198 | * io/write.c (write_float): check signbit for Infinity. | |
199 | ||
3e14aaa2 BD |
200 | 2004-06-26 Bud Davis <bdavis9659@comcast.net> |
201 | ||
202 | PR gfortran/16196 | |
203 | * unix.c(regular_file): create file if it does not exist. | |
204 | ||
d42093a1 AP |
205 | 2004-06-24 Andrew Pinski <apinski@apple.com> |
206 | ||
207 | * configure.ac: Remove check for libmx. | |
208 | * configure: Regenerate. | |
209 | ||
8750f9cd JB |
210 | 2004-06-22 Janne Blomqvist <jblomqvi@cc.hut.fi> |
211 | ||
212 | PR fortran/15750 | |
213 | * inquire.c (st_inquire): Add comment | |
214 | * io.h (st_parameter): Add iolength. | |
215 | (st_iolength, st_iolength_done): Declare. | |
216 | * transfer.c (iolength_transfer, iolength_transfer_init, | |
217 | st_iolength, st_iolength_done): New functions. | |
218 | ||
0bf68c6e SK |
219 | 2004-06-21 Steven G. Kargl <kargls@comcast.net> |
220 | ||
221 | * etime.c (etime_sub): Remove array rank check; | |
222 | Add check for sufficient space. | |
223 | ||
bb9db7b1 BD |
224 | 2004-06-19 Bud Davis <bdavis9659@comcast.net> |
225 | ||
226 | PR gfortran/16080 | |
227 | * io/list_read.c(set_value): fixed spelling. | |
228 | ||
04b0faec BD |
229 | 2004-06-19 Bud Davis <bdavis9659@comcast.net> |
230 | ||
231 | PR gfortran/16080 | |
232 | * io/list_read.c(set_value): don't copy if the string is null. | |
233 | ||
bc20e36d BD |
234 | 2004-06-14 Bud Davis <bdavis9659@comcast.net> |
235 | ||
236 | PR gfortran/15292 | |
237 | * intrinsics/c99_functions.c: Use fpclassify if it exists. | |
238 | ||
a9e7b9d3 PB |
239 | 2004-06-13 Paul Brook <paul@codesourcery.com> |
240 | ||
241 | * Makefile.am (gfor_helper_src): Add runtime/normalize.f90. | |
242 | * configure.ac: Add checks for nextafter and nextafterf. | |
243 | * Makefile.in, config.h.in, configure: Regenerate. | |
244 | * libgfortran.h (normalize_r4_i4, normalize_r8_i8): Declare. | |
245 | * intrinsics/rand.c (rand): Use normalize_r4_i4. | |
246 | * intrinsics/random.c (random_r4): Use normalize_r4_i4. | |
247 | (random_r8): Use normalize_r8_i8. | |
248 | * runtime/normalize.c: New file. | |
249 | ||
cdaa9fc4 SK |
250 | 2004-06-13 Steven G. Kargl <kargls@comcast.net> |
251 | Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> | |
252 | ||
253 | * random.c: Fix several spelling and formatting mistakes in | |
254 | comments. | |
255 | (random_r8): Fix loop to make random numbers range in [0,1(. | |
256 | ||
257 | ||
9d409075 TS |
258 | 2004-06-13 Steven G. Kargl <kargls@comcast.net> |
259 | ||
260 | * random.c (random_r4): Burn a random number. | |
261 | (random_r8): fix infinite loop. | |
262 | ||
263 | 2004-06-12 Bud Davis <bdavis9659@comcast.net> | |
a2a2059f BD |
264 | Steve Kargl <sgk@troutmask.apl.washington.edu> |
265 | ||
266 | PR gfortran/15292 | |
267 | * intrinsics/c99_functions.c: New file. | |
268 | * Makefile.am: Add new file. | |
269 | * configure.ac: Added test for round/roundf. | |
270 | * Makefile.in: Regenerate. | |
271 | * configure: Regenerate. | |
272 | * configure.h.in: Regenerate. | |
273 | ||
2bd74949 SK |
274 | 2004-06-12 Steven G. Kargl <kargls@comcast.net> |
275 | ||
276 | * Makefile.am: Add rand.c and etime.c | |
277 | * Makefile.in: Regenerated. | |
278 | * aclocal.in: Regenerated. | |
279 | * cpu_time.c (second_sub, second): New functions. | |
280 | * rand.c (irand, rand, srand): New file. | |
281 | * etime.c (etime_sub, etime): New file. | |
282 | ||
f814193b TS |
283 | 2004-06-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
284 | Steven Bosscher <stevenb@suse.de> | |
285 | ||
286 | PR fortran/14923 | |
287 | * intrinsics/date_and_time.c: New file. | |
288 | * Makefile.am (gfor_helper_src): Add intrinsics/date_and_time.c. | |
289 | * Makefile.in, aclocal.m4: Regenerate. | |
290 | * libgfortran.h: Prototype date_and_time(). | |
291 | ||
4aef80f8 BD |
292 | 2004-06-12 Bud Davis <bdavis9659@comcast.net> |
293 | ||
a13c7588 | 294 | PR fortran/15665 |
4aef80f8 BD |
295 | * intrinsics/args.c: Implement GETARG and IARGC. |
296 | * Makefile.am: Add it. | |
297 | * Makefile.in: Regenerate. | |
298 | ||
8204210b BD |
299 | 2004-06-12 Bud Davis <bdavis9659@comcast.net> |
300 | ||
301 | PR gfortran/12839 | |
4aef80f8 | 302 | * io/write.c(write_float): Format inf and nan IAW F2003. |
8204210b | 303 | |
898c05b8 BD |
304 | 2004-06-09 Bud Davis <bdavis9659@comcaste.net> |
305 | ||
306 | PR gfortran/14897 | |
307 | * io/transfer.c (formatted_transfer): position is unique | |
308 | for T and TL edit descriptors. | |
4aef80f8 | 309 | (data_transfer_init): set record length to size of internal |
898c05b8 BD |
310 | file. |
311 | ||
31b6f11a BD |
312 | 2004-06-09 Bud Davis <bdavis9659@comcast.net> |
313 | ||
314 | PR gfortran/15755 | |
315 | * io/backspace.c(st_backspace): call correct routine for | |
316 | formatted and un-formatted units. | |
317 | ||
96b8a615 AJ |
318 | 2004-05-30 Andreas Jaeger <aj@suse.de>, Steven Bosscher <stevenb@suse.de> |
319 | ||
320 | PR gfortran/11800 | |
321 | * Makefile.am (AM_CPPFLAGS): Renamed from INCLUDES. | |
322 | (lib_LTLIBRARIES): Rename to ... | |
323 | (toolexeclib_LTLIBRARIES): this for multilib support. | |
324 | * configure.in: Rename to ... | |
325 | * configure.ac: this. Update to modern autoconf style, enable | |
326 | multilibs, support --enable-version-specific-runtime-libs. | |
327 | * Makefile.in: Regenerated. | |
328 | * configure: Regenerated. | |
329 | * aclocal.m4: Regenerated. | |
330 | ||
5f251c26 SK |
331 | 2004-05-30 Steven G. Kargl <kargls@comcast.net> |
332 | ||
333 | * libgfortran.h (random_seed): Update prototype. | |
334 | * intrinsics/random.c: Disable old implementation and add new one. | |
335 | ||
ebeb17c7 AJ |
336 | 2004-05-30 Andreas Jaeger <aj@suse.de> |
337 | ||
338 | * intrinsics/random.c: Include unistd.h for close and read | |
339 | prototypes, remove unneeded inclusion of assert.h. | |
340 | ||
341 | * intrinsics/abort.c: Include stdlib.h for abort prototype, remove | |
342 | unneeded inclusion of assert.h. | |
343 | ||
08fb03fd TS |
344 | 2004-05-27 Tobias Schlueter <tobias.shclueter@physik.uni-muenchen.de> |
345 | ||
346 | PR fortran/15234 | |
347 | * intrinsics/associated.c: Remove enum. | |
348 | (associated): Replace TRUE/FALSE by 1/0. | |
349 | ||
322c2425 SK |
350 | 2004-05-23 Steven G. Kargl <kargls@comcast.net> |
351 | ||
352 | * random.c (random_seed): Use correct variable. | |
353 | ||
21fdfcc1 SK |
354 | 2004-05-22 Steven G. Kargl <kargls@comcast.net> |
355 | ||
356 | * intrinsics/system_clock: New file. | |
357 | * Makefile.am: Add intrinsics/system_clock.c. | |
358 | * Makefile.in: Regenerate. | |
359 | ||
11670eeb RS |
360 | 2004-05-21 Roger Sayle <roger@eyesopen.com> |
361 | ||
362 | * io/format.c (parse_format_list): Allow the comma after a string | |
363 | literal to be optional. | |
364 | ||
5b200ac2 | 365 | 2004-05-18 Paul Brook <paul@codesourcery.com> |
59fa6e39 | 366 | Feng Wang <fengwang@nudt.edu.cn> |
5b200ac2 FW |
367 | |
368 | * Makefile.am (i_pow_c): Set it. Add build rule. | |
369 | (gfor_built_src): Use it. | |
370 | (m4_files): add m4/pow.m4. | |
371 | * Makefile.in: Regenerate. | |
372 | * m4/pow.m4: New file. | |
373 | * generated/pow_*.c: Regenerate. | |
374 | ||
c9e66eda PB |
375 | 2004-05-18 Paul Brook <paul@codesourcery.com> |
376 | ||
377 | * Makefile.am: Remove references to types.m4. | |
378 | * m4/iparm.m4: Merge with types.m4. | |
379 | * m4/types.m4: Remove. | |
380 | * m4/cshift1.m4, m4/dotprod.m4, m4/dotprodc.m4, m4/dotprodl.m4, | |
381 | m4/eoshift1.m4, m4/eoshift3.m4, m4/iforeach.m4, m4/ifunction.m4, | |
382 | m4/in_pack.m4, m4/in_unpack.m4, m4/iparm.m4, m4/matmul.m4, | |
383 | m4/matmull.m4, m4/maxloc0.m4, m4/maxloc1.m4, m4/maxval.m4, | |
384 | m4/minloc0.m4, m4/minloc1.m4, m4/minval.m4, m4/reshape.m4, | |
385 | m4/shape.m4, m4/specific.m4, m4/specific2.m4, m4/transpose.m4): | |
386 | Update to use new iparm.m4. | |
387 | * generated/*.c: Regenerate. | |
388 | ||
81f4be3c TS |
389 | 2004-05-18 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
390 | ||
391 | PR fortran/15235 | |
392 | * gfortran.h (offset_t): Rename to ... | |
393 | (gfc_offset): ... this. | |
394 | * io/backspace.c (formatted_backspace, unformatted_backspace), | |
395 | io/io.h (stream, gfc_unit, global_t, file_length, file_position), | |
396 | transfer.c (us_read, us_write, next_record_r, next_record_w), | |
397 | io/unit.c (init_units), unix.c (unix_stream, fd_alloc, | |
398 | fd_alloc_r_at, fd_alloc_w_at, fd_seek, mmap_alloc, | |
399 | mmap_alloc_r_at, mmap_alloc_w_at, mmap_seek, mem_alloc_r_at, | |
400 | mem_alloc_w_at, mem_seek, file_length, file_position): Replace all | |
401 | occurences of offset_t by gfc_offset. | |
402 | ||
6d3e9d84 PB |
403 | 2004-05-16 Paul Brook <paul@codesourcery.com> |
404 | ||
405 | * io/format.c (write_real): Don't include padding in format. | |
406 | ||
28963c8f PB |
407 | 2004-05-16 Paul Brook <paul@codesourcery.com> |
408 | ||
409 | * io/format.c (format_lex): Make c an int. | |
410 | ||
d464f8e9 JB |
411 | 2004-05-16 Janne Blomqvist <jblomqvi@cc.hut.fi> |
412 | Paul Brook <paul@codesourcery.com> | |
413 | ||
414 | * io/write.c (write_logical): Don't print extra blank. | |
415 | (write_integer): Base field width on kind. | |
416 | (list_formatted_write): Output initial blank. | |
417 | ||
000aa32a JB |
418 | 2004-05-16 Janne Blomqvist <jblomqvi@cc.hut.fi> |
419 | ||
420 | * io/io.h (flush): Add prototype. | |
421 | * io/transfer.c (finalize_transfer): Flush partial records. | |
422 | * io/unix.c (flush): New function. | |
423 | ||
909087e0 TS |
424 | 2004-05-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
425 | ||
426 | PR fortran/15234 | |
427 | * io/io.h (unit_t): Rename to ... | |
428 | (gfc_unit) ... this. | |
429 | (unit_root, current_unit, find_file, find_unit, get_unit): Now | |
430 | of type gfc_unit. | |
431 | (delete_file, insert_unit, close_unit): Argument now of type | |
432 | gfc_unit. | |
433 | * backspace.c (st_backspace), close.c (st_close), endfile.c | |
434 | (st_endfile), inquire.c (inquire_via_unit, st_inquire), open.c | |
435 | (test_endfile, edit_modes, new_unit, already_open, st_open), | |
436 | rewind.c (st_rewind), transfer.c (current_unit), unit.c | |
437 | (internal_unit, unit_cache, rotate_left, rotate_right, insert, | |
438 | insert_unit, delete_root, delete_treap, delete_unit, find_unit, | |
439 | get_unit, init_units, close_unit), unix.c (find_file0, | |
440 | find_file, delete_file): Replace all occurences of unit_t by | |
441 | gfc_unit. | |
442 | ||
94161cec BD |
443 | 2004-05-15 Bud Davis <bdavis9659@comcast.net> |
444 | ||
445 | PR fortran/15311 | |
446 | * io/write.c (write_a): right justify A edit output. | |
447 | ||
abdef811 BD |
448 | 2004-05-14 Bud Davis <bdavis9659@comcast.net> |
449 | ||
450 | PR fortran/15149 | |
451 | * libgfortan.h,intrinsics/random.c: Made random_seed visible. | |
452 | * runtime/main.c(init): Call random_seed as part of MAIN init. | |
453 | ||
187f0734 TS |
454 |