re PR fortran/47348 (wrong string length with array constructor)
[gcc.git] / gcc / fortran / ChangeLog
1 2011-02-19 Paul Thomas <pault@gcc.gnu.org>
2
3 PR fortran/47348
4 * trans-array.c (get_array_ctor_all_strlen): Move up in file.
5 (get_array_ctor_var_strlen): Add block dummy and add call to
6 get_array_ctor_all_strlen instead of giving up on substrings.
7 Call gcc_unreachable for default case.
8 (get_array_ctor_strlen): Add extra argument to in call to
9 get_array_ctor_var_strlen.
10
11 2011-02-18 Janus Weil <janus@gcc.gnu.org>
12
13 PR fortran/47789
14 * primary.c (gfc_match_structure_constructor): Handle empty parent
15 types.
16
17 2011-02-18 Tobias Burnus
18
19 PR fortran/47775
20 * trans-expr.c (arrayfunc_assign_needs_temporary): Use
21 esym to check whether the specific procedure returns an
22 allocatable or pointer.
23
24 2011-02-18 Michael Matz <matz@suse.de>
25
26 PR fortran/45586
27 * gfortran.h (struct gfc_component): Add norestrict_decl member.
28 * trans.h (struct lang_type): Add nonrestricted_type member.
29 * trans-expr.c (gfc_conv_component_ref): Search fields with correct
30 parent type.
31 * trans-types.c (mirror_fields, gfc_nonrestricted_type): New.
32 (gfc_sym_type): Use it.
33
34 2011-02-18 Janus Weil <janus@gcc.gnu.org>
35
36 PR fortran/47768
37 * resolve.c (resolve_transfer): Reject variables with procedure pointer
38 components.
39
40 2011-02-18 Janus Weil <janus@gcc.gnu.org>
41
42 PR fortran/47767
43 * gfortran.h (gfc_check_access): Removed prototype.
44 (gfc_check_symbol_access): Added prototype.
45 * module.c (gfc_check_access): Renamed to 'check_access', made static.
46 (gfc_check_symbol_access): New function, basically a shortcut for
47 'check_access'.
48 (write_dt_extensions,write_symbol0,write_generic,write_symtree): Use
49 'gfc_check_symbol_access'.
50 (write_operator,write_module): Renamed 'gfc_check_access'.
51 * resolve.c (resolve_fl_procedure,resolve_fl_derived,
52 resolve_fl_namelist,resolve_symbol,resolve_fntype): Use
53 'gfc_check_symbol_access'.
54
55 2011-02-16 Janus Weil <janus@gcc.gnu.org>
56
57 PR fortran/47745
58 * class.c (gfc_build_class_symbol): Set 'class_ok' attribute.
59 * decl.c (build_sym,attr_decl1): Move setting of 'class_ok' into
60 'gfc_build_class_symbol'.
61 (gfc_match_decl_type_spec): Reject unlimited polymorphism.
62 * interface.c (matching_typebound_op): Check for 'class_ok' attribute.
63 * match.c (select_type_set_tmp): Move setting of 'class_ok' into
64 'gfc_build_class_symbol'.
65 * primary.c (gfc_variable_attr): Check for 'class_ok' attribute.
66
67 2011-02-15 Steven G. Kargl <kargl@gcc.gnu.org>
68
69 PR fortran/47633
70 . simplify.c (gfc_simplify_compiler_version): Fix off-by-one issue.
71
72 2011-02-14 Janus Weil <janus@gcc.gnu.org>
73
74 PR fortran/47730
75 * parse.c (gfc_build_block_ns): Commit 'block@' symbol.
76
77 2011-02-14 Janus Weil <janus@gcc.gnu.org>
78
79 PR fortran/47728
80 * class.c (gfc_build_class_symbol): Give a fatal error on polymorphic
81 arrays.
82 * primary.c (gfc_match_varspec): Avoid ICE for invalid class
83 declaration.
84
85 2011-02-14 Janus Weil <janus@gcc.gnu.org>
86
87 PR fortran/47349
88 * interface.c (get_expr_storage_size): Handle derived-type components.
89
90 2011-02-13 Tobias Burnus <burnus@net-b.de>
91
92 PR fortran/47569
93 * interface.c (compare_parameter): Avoid ICE with
94 character components.
95
96 2011-02-12 Janus Weil <janus@gcc.gnu.org>
97
98 * class.c (gfc_build_class_symbol): Reject polymorphic arrays.
99 * decl.c (build_sym,build_struct,attr_decl1): Use return value of
100 'gfc_build_class_symbol'.
101
102 2011-02-12 Michael Matz <matz@suse.de>
103 Janus Weil <janus@gcc.gnu.org>
104 Tobias Burnus <burnus@net-b.de>
105
106 PR fortran/45586
107 * trans-expr.c (conv_parent_component_references): Avoid unintendent
108 skipping of parent compounds.
109
110 2011-02-11 Tobias Burnus <burnus@net-b.de>
111
112 PR fortran/47550
113 * resolve.c (resolve_formal_arglist): PURE with VALUE
114 and no INTENT: Add -std= diagnostics.
115
116 2011-02-09 Janus Weil <janus@gcc.gnu.org>
117
118 PR fortran/47352
119 * resolve.c (resolve_procedure_interface): If interface has a result
120 variable, copy the typespec and set result pointer to self.
121
122 2011-02-09 Janus Weil <janus@gcc.gnu.org>
123
124 PR fortran/47463
125 * resolve.c (resolve_typebound_subroutine): Remove erroneous line.
126
127 2011-02-09 Janus Weil <janus@gcc.gnu.org>
128
129 PR fortran/47637
130 * trans-decl.c (init_intent_out_dt): Handle CLASS arguments.
131
132 2011-02-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
133
134 * io.c (match_io_element): Do not set dt if not inquire.
135
136 2011-02-08 Janus Weil <janus@gcc.gnu.org>
137
138 PR fortran/45290
139 * expr.c (gfc_check_assign_symbol): Reject pointers as pointer
140 initialization target.
141
142 2011-02-07 Janne Blomqvist <jb@gcc.gnu.org>
143 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
144
145 * gfortran.texi (Thread-safety): texinfo styling fixes.
146 * intrinsic.texi: Likewise.
147
148 2011-02-06 Janne Blomqvist <jb@gcc.gnu.org>
149
150 * gfortran.texi (Compiler Characteristics): Add reference to
151 thread-safety section.
152
153 2011-02-06 Janne Blomqvist <jb@gcc.gnu.org>
154
155 * gfortran.texi (Thread-safety): New section.
156 * intrinsic.texi (EXECUTE_COMMAND_LINE): Mention thread-safety.
157 (GETENV): Likewise.
158 (GET_ENVIRONMENT_VARIABLE): Likewise.
159 (SYSTEM): Likewise.
160
161 2011-02-06 Paul Thomas <pault@gcc.gnu.org>
162
163 PR fortran/47592
164 * trans-stmt.c (gfc_trans_allocate): For deferred character
165 length allocations with SOURCE, store to the values and string
166 length to avoid calculating twice. Replace gfc_start_block
167 with gfc_init_block to avoid unnecessary contexts and to keep
168 declarations of temporaries where they should be. Tidy up the
169 code a bit.
170
171 2011-02-05 Janne Blomqvist <jb@gcc.gnu.org>
172
173 PR fortran/42434
174 * intrinsic.texi (SYSTEM_CLOCK): Update documentation.
175
176 2011-02-02 Janus Weil <janus@gcc.gnu.org>
177 Paul Thomas <pault@gcc.gnu.org>
178
179 PR fortran/47082
180 * trans-expr.c (gfc_trans_class_init_assign): Add call to
181 gfc_get_derived_type.
182 * module.c (read_cleanup): Do not use unique_symtrees for vtabs
183 or vtypes.
184
185 2011-02-02 Janus Weil <janus@gcc.gnu.org>
186
187 PR fortran/47572
188 * resolve.c (resolve_fl_variable): Handle polymorphic allocatables.
189
190 2011-02-01 Janus Weil <janus@gcc.gnu.org>
191
192 PR fortran/47565
193 * trans-expr.c (gfc_conv_structure): Handle constructors for procedure
194 pointer components with allocatable result.
195
196 2011-01-31 Janus Weil <janus@gcc.gnu.org>
197
198 PR fortran/47455
199 * trans-expr.c (gfc_conv_procedure_call): Handle procedure pointers
200 with pointer or allocatable result.
201
202 2011-01-31 Paul Thomas <pault@gcc.gnu.org>
203
204 PR fortran/47519
205 * trans-stmt.c (gfc_trans_allocate): Improve handling of
206 deferred character lengths with SOURCE.
207 * iresolve.c (gfc_resolve_repeat): Calculate character
208 length from source length and ncopies.
209 * dump-parse-tree.c (show_code_node): Show MOLD and SOURCE
210 expressions for ALLOCATE.
211
212 2011-01-31 Janus Weil <janus@gcc.gnu.org>
213
214 PR fortran/47463
215 * resolve.c (resolve_typebound_subroutine): Bug fix for the case of
216 an argument of a typebound assignment being a component.
217
218 2011-01-31 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
219
220 * gfortranspec.c (add_arg_libgfortran) [HAVE_LD_STATIC_DYNAMIC] Use
221 LD_STATIC_OPTION, LD_DYNAMIC_OPTION.
222
223 2011-01-31 Tobias Burnus <burnus@net-b.de>
224
225 PR fortran/47042
226 * resolve.c (resolve_fl_procedure): Reject stmt functions
227 with pointer/allocatable attribute.
228
229 2011-01-31 Tobias Burnus <burnus@net-b.de>
230
231 PR fortran/47042
232 * interface.c (gfc_procedure_use): Add explicit interface check for
233 pointer/allocatable functions.
234
235 2011-01-30 Paul Thomas <pault@gcc.gnu.org>
236
237 PR fortran/47523
238 * trans-expr.c (gfc_trans_assignment_1): If the rhs is an op
239 expr and is assigned to a deferred character length scalar,
240 make sure that the function is called before reallocation,
241 so that the length is available. Include procedure pointer
242 and procedure pointer component rhs as well.
243
244 PR fortran/45170
245 PR fortran/35810
246 PR fortran/47350
247 * gfortran.dg/allocatable_function_5.f90: New test not added by
248 mistake on 2011-01-28.
249
250 2011-01-29 Tobias Burnus <burnus@net-b.de>
251
252 PR fortran/47531
253 * check.c (gfc_check_shape): Support kind argument in SHAPE.
254 * intrinsic.c (add_functions): Ditto.
255 * resolve.c (gfc_resolve_shape): Ditto.
256 * simplify.c (gfc_simplify_shape): Ditto.
257 * intrinsic.h (gfc_check_shape, gfc_resolve_shape,
258 gfc_simplify_shape): Update prototypes.
259 * intrinisc.text (SHAPE): Document kind argument.
260
261 2011-01-28 Tobias Burnus <burnus@net-b.de>
262
263 PR fortran/47507
264 * resolve.c (resolve_formal_arglist): Allow arguments with VALUE
265 attribute also without INTENT.
266
267 2011-01-28 Tobias Burnus <burnus@net-b.de>
268
269 * gfortran.texi (Fortran 2003 status): Mention support for
270 nonconstant namelist variables.
271
272 2011-01-28 Paul Thomas <pault@gcc.gnu.org>
273 Tobias Burnus <burnus@gcc.gnu.org>
274
275 PR fortran/45170
276 PR fortran/35810
277 PR fortran/47350
278 * interface.c (compare_actual_formal): An allocatable or pointer
279 deferred length actual is only allowed if the formal argument
280 is also deferred length. Clean up whitespace.
281 * trans-expr.c (gfc_conv_procedure_call): Pass string length for
282 deferred character length formal arguments by reference. Do the
283 same for function results.
284 (gfc_trans_pointer_assignment): Do not do runtime check of lhs
285 and rhs character lengths, if deferred length lhs. In this case
286 set the lhs character length to that of the rhs.
287 (gfc_conv_string_parameter): Remove assert that string length is
288 an integer type.
289 (is_scalar_reallocatable_lhs): New function.
290 (alloc_scalar_allocatable_for_assignment): New function.
291 (gfc_trans_assignment_1): Call above new function. If the rhs is
292 a deferred character length itself, makes ure that the function
293 is called before reallocation, so that the length is available.
294 (gfc_trans_asssignment): Remove error about assignment to
295 deferred length character variables.
296 * gfortran.texi : Update entry about (re)allocation on
297 assignment.
298 * trans-stmt.c (gfc_trans_allocate): Add code to handle deferred
299 length character variables.
300 * module.c (mio_typespec): Transfer deferred characteristic.
301 * trans-types.c (gfc_get_function_type): New code to generate
302 hidden typelist, so that those character lengths that are
303 passed by reference get the right type.
304 * resolve.c (resolve_contained_fntype): Supress error for
305 deferred character length functions.
306 (resolve_function, resolve_fl_procedure) The same.
307 (check_symbols): Remove the error that support for
308 entity with deferred type parameter is not yet implemented.
309 (resolve_fl_derived): The same.
310 match.c (alloc_opt_list): Allow MOLD for deferred length object.
311 * trans-decl.c (gfc_get_symbol_decl): For deferred character
312 length dummies, generate a local variable for string length.
313 (create_function_arglist): Hidden length can be a pointer.
314 (gfc_trans_deferred_vars): For deferred character length
315 results and dummies, assign the string length to the local
316 variable from the hidden argument on entry and the other way
317 round on exit, as appropriate.
318
319 2011-01-27 Tobias Burnus <burnus@net-b.de>
320
321 PR fortran/47474
322 * trans-decl.c (gfc_generate_function_code): Fix init
323 of allocatable result variable with allocatable components.
324
325 2011-01-27 Tobias Burnus <burnus@net-b.de>
326
327 PR fortran/47472
328 * options.c (gfc_handle_module_path_options): Save
329 module path without trailing slash as include path.
330
331 2011-01-25 Tobias Burnus <burnus@net-b.de>
332
333 PR fortran/47448
334 * interface.c (gfc_check_operator_interface): Fix
335 defined-assignment check.
336
337 2011-01-23 Tobias Burnus <burnus@net-b.de>
338
339 PR fortran/47421
340 * trans-decl.c (gfc_trans_deferred_vars): Do not nullify
341 scalar allocatable dummy arguments.
342
343 2011-01-22 Thomas Koenig <tkoenig@gcc.gnu.org>
344
345 PR fortran/38536
346 * resolve.c (gfc_iso_c_func_interface): For C_LOC,
347 check for array sections followed by component references
348 which are illegal. Also check for coindexed arguments.
349
350 2011-01-22 Tobias Burnus <burnus@net-b.de>
351
352 PR fortran/47399
353 * primary.c (gfc_match_varspec): Relax gcc_assert to allow for
354 PARAMETER TBP.
355
356 2011-01-21 Tobias Burnus <burnus@net-b.de>
357
358 PR fortran/47394
359 * error.c (gfc_error_now, gfc_fatal_error, gfc_error_check):
360 Use defined instead of magic number exit status codes.
361 * scanner.c (include_line, gfc_new_file): Ditto.
362
363 2011-01-21 Tobias Burnus <burnus@net-b.de>
364
365 PR fortran/47377
366 * expr.c (gfc_check_pointer_assign): Reject expr data-targets
367 without pointer attribute.
368
369 2011-01-18 Janus Weil <janus@gcc.gnu.org>
370
371 PR fortran/47240
372 * resolve.c (expression_rank): Fix rank of procedure poiner components.
373 * trans-expr.c (gfc_conv_procedure_call): Take care of procedure
374 pointer components as actual arguments.
375
376 2011-01-17 Jakub Jelinek <jakub@redhat.com>
377
378 PR fortran/47331
379 * gfortran.h (struct gfc_omp_saved_state): New type.
380 (gfc_omp_save_and_clear_state, gfc_omp_restore_state): New prototypes.
381 * resolve.c (resolve_global_procedure): Call it around gfc_resolve
382 call.
383 * openmp.c (gfc_omp_save_and_clear_state, gfc_omp_restore_state): New
384 functions.
385
386 2011-01-17 Tobias Burnus <burnus@net-b.de>
387
388 PR fortran/47327
389 * invoke.texi (Options to request or suppress errors
390 and warnings): Fix cross link.
391
392 2011-01-15 Tobias Burnus <burnus@net-b.de>
393
394 * gfortran.texi: Update Fortran 2003 Status section.
395
396 PR fortran/47177
397 * invoke.texi: Add missing "-E" to the -dM example.
398
399 2011-01-13 Tobias Burnus <burnus@net-b.de>
400
401 PR fortran/47268
402 * intrinsic.texi (get_command_argument, get_environment_variable):
403 Mark arguments as optional in the Arguments section.
404
405 2011-01-13 Kai Tietz <kai.tietz@onevision.com>
406 Tobias Burnus <burnus@net-b.de>
407
408 PR fortran/47260
409 * trans-decl.c (gfc_get_extern_function_decl,
410 build_function_decl): Set TREE_PUBLIC/TREE_EXTERNAL before
411 calling decl_attributes.
412
413 2011-01-13 Tobias Burnus <burnus@net-b.de>
414 Mikael Morin <mikael@gcc.gnu.org>
415
416 PR fortran/45848
417 PR fortran/47204
418 * gfortran.h (gfc_code): Move union ext's case_list into
419 the struct block.
420 * dump-parse-tree.c (show_code_node): Adapt by prefixing case_list
421 by "block.".
422 * frontend-passes.c (gfc_code_walker): Ditto.
423 * match.c (gfc_match_goto, gfc_match_call, gfc_match_case,
424 gfc_match_type_is, gfc_match_class_is): Ditto.
425 * resolve.c (resolve_select, resolve_select_type): Ditto.
426 * st.c (gfc_free_statement): Ditto.
427 * trans-stmt.c (gfc_trans_integer_select, gfc_trans_logical_select,
428 gfc_trans_character_select): Ditto.
429 * parse.c (resolve_all_program_units): For error recovery, avoid
430 segfault is proc_name is NULL.
431
432 2011-01-11 Paul Thomas <pault@gcc.gnu.org>
433
434 PR fortran/47051
435 * trans-array.c (gfc_alloc_allocatable_for_assignment): Change
436 to be standard compliant by testing for shape rather than size
437 before skipping reallocation. Improve comments.
438
439 2011-01-09 Janus Weil <janus@gcc.gnu.org>
440
441 PR fortran/47224
442 * resolve.c (resolve_actual_arglist): Remove unneeded and buggy piece
443 of code.
444
445 2011-01-09 Thomas Koenig <tkoenig@gcc.gnu.org>
446
447 PR fortran/38536
448 * resolve.c (is_scalar_expr_ptr): For a substring reference,
449 use gfc_dep_compare_expr to compare start and end expession.
450 Add FIXME for using gfc_deb_compare_expr elsewhere.
451
452 2011-01-09 Janus Weil <janus@gcc.gnu.org>
453
454 PR fortran/46313
455 * class.c (get_unique_type_string): Make type name start with upper
456 case letter.
457
458 2011-01-08 Thomas Koenig <tkoenig@gcc.gnu.org>
459
460 PR fortran/46405
461 * invoke.texi: Mention -ffree-line-length-none and
462 -ffixed-line-length-none for preprocessing.
463
464 2011-01-08 Paul Thomas <pault@gcc.gnu.org>
465
466 PR fortran/46896
467 * trans-expr.c (gfc_conv_procedure_call): With a non-copying
468 procedure argument (eg TRANSPOSE) use a temporary if there is
469 any chance of aliasing due to host or use association.
470 (arrayfunc_assign_needs_temporary): Correct logic for function
471 results and do not use a temporary for implicitly PURE
472 variables. Use a temporary for Cray pointees.
473 * symbol.c (gfc_add_save): Explicit SAVE not compatible with
474 implicit pureness of containing procedure.
475 * decl.c (match_old_style_init, gfc_match_data): Where decl
476 would fail in PURE procedure, set implicit_pure to zero.
477 * gfortran.h : Add implicit_pure to structure symbol_attr and
478 add prototype for function gfc_implicit_pure.
479 * expr.c (gfc_check_pointer_assign, gfc_check_vardef_context):
480 Where decl would fail in PURE procedure, reset implicit_pure.
481 * io.c (match_vtag, gfc_match_open, gfc_match_close,
482 gfc_match_print, gfc_match_inquire, gfc_match_wait): The same.
483 * match.c (gfc_match_critical, gfc_match_stopcode,
484 sync_statement, gfc_match_allocate, gfc_match_deallocate): The
485 same.
486 * parse.c (decode_omp_directive): The same.
487 (parse_contained): If not PURE, set implicit pure attribute.
488 * resolve.c (resolve_formal_arglist, resolve_structure_cons,
489 resolve_function, resolve_ordinary_assign) : The same.
490 (gfc_implicit_pure): New function.
491 * module.c (mio_symbol_attribute): Introduce AB_IMPLICIT_PURE
492 to ab_attribute enum and use it in this function.
493
494 2011-01-08 Thomas Koenig <tkoenig@gcc.gnu.org>
495
496 PR fortran/45777
497 * symbol.c (gfc_symbols_could_alias): Strip gfc_ prefix,
498 make static and move in front of its only caller, to ...
499 * trans-array.c (symbols_could_alias): ... here.
500 Pass information about pointer and target status as
501 arguments. Allocatable arrays don't alias anything
502 unless they have the POINTER attribute.
503 (gfc_could_be_alias): Keep track of pointer and target
504 status when following references. Also check if typespecs
505 of components match those of other components or symbols.
506
507 2011-01-07 Tobias Burnus <burnus@net-b.de>
508
509 PR fortran/41580
510 * class.c (gfc_build_class_symbol): Mark __vtab as attr.vtab.
511 * intrinsic.c (add_functions): Use simplify functions for
512 EXTENDS_TYPE_OF and SAME_TYPE_AS.
513 * intrinsic.h (gfc_simplify_extends_type_of,
514 gfc_simplify_same_type_as): New prototypes.
515 * simplify.c (is_last_ref_vtab, gfc_simplify_extends_type_of,
516 gfc_simplify_same_type_as): New functions.
517
518 2011-01-07 Janus Weil <janus@gcc.gnu.org>
519
520 PR fortran/47189
521 PR fortran/47194
522 * gfortran.h (gfc_lval_expr_from_sym): Moved prototype.
523 * class.c (gfc_class_null_initializer): Initialize _vptr to declared
524 type.
525 * expr.c (gfc_lval_expr_from_sym): Moved here from symbol.c.
526 * resolve.c (resolve_deallocate_expr): _data component will be added
527 at translation stage.
528 * symbol.c (gfc_lval_expr_from_sym): Moved to expr.c.
529 * trans-stmt.c (gfc_trans_deallocate): Reset _vptr to declared type.
530
531 2011-01-06 Daniel Franke <franke.daniel@gmail.com>
532
533 PR fortran/33117
534 PR fortran/46478
535 * parse.c (parse_interface): Remove check for procedure types.
536 * interface.c (check_interface0): Verify that procedures are
537 either all SUBROUTINEs or all FUNCTIONs.
538
539 2011-01-05 Janus Weil <janus@gcc.gnu.org>
540
541 PR fortran/47180
542 * trans-expr.c (gfc_trans_class_assign): Bugfix for r168524 (make sure
543 'vtab' is initialized).
544
545 2011-01-05 Janus Weil <janus@gcc.gnu.org>
546
547 PR fortran/47180
548 * trans-expr.c (gfc_trans_class_assign): For a polymorphic NULL pointer
549 assignment, set the _vptr component to the declared type.
550
551 2011-01-05 Thomas Koenig <tkoenig@gcc.gnu.org>
552
553 PR fortran/46017
554 * resolve.c (resolve_allocate_deallocate): Follow references to
555 check for duplicate occurence of allocation/deallocation objects.
556
557 2011-01-05 Janus Weil <janus@gcc.gnu.org>
558
559 PR fortran/47024
560 * trans-decl.c (gfc_trans_deferred_vars): Initialize the _vpr component
561 of polymorphic allocatables according to their declared type.
562
563 2011-01-04 Janus Weil <janus@gcc.gnu.org>
564
565 PR fortran/46448
566 * class.c (gfc_find_derived_vtab): Set the module field for the copying
567 routine to make sure it receives module name mangling.
568
569 2011-01-03 Jakub Jelinek <jakub@redhat.com>
570
571 * gfortranspec.c (lang_specific_driver): Update copyright notice
572 dates.
573
574 2011-01-03 Janus Weil <janus@gcc.gnu.org>
575
576 * intrinsic.texi (LEADZ): Fix example.
577
578 2011-01-02 Janus Weil <janus@gcc.gnu.org>
579
580 PR fortran/46408
581 * class.c (gfc_find_derived_vtab): Use EXEC_INIT_ASSIGN for __copy_
582 routine.
583
584 \f
585 Copyright (C) 2011 Free Software Foundation, Inc.
586
587 Copying and distribution of this file, with or without modification,
588 are permitted in any medium without royalty provided the copyright
589 notice and this notice are preserved.