From d0d513b5eae70f26c664fa81c2f56e907b66aeff Mon Sep 17 00:00:00 2001 From: GCC Administrator Date: Thu, 12 May 2022 00:16:36 +0000 Subject: [PATCH] Daily bump. --- ChangeLog | 4 + gcc/ChangeLog | 105 +++++++++++++++++++ gcc/DATESTAMP | 2 +- gcc/ada/ChangeLog | 262 ++++++++++++++++++++++++++++++++++++++++++++++++ gcc/analyzer/ChangeLog | 18 ++++ gcc/c-family/ChangeLog | 6 ++ gcc/cp/ChangeLog | 56 +++++++++++ gcc/fortran/ChangeLog | 7 ++ gcc/objc/ChangeLog | 5 + gcc/objcp/ChangeLog | 5 + gcc/testsuite/ChangeLog | 31 ++++++ libgomp/ChangeLog | 32 ++++++ 12 files changed, 532 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index e933edd..67bb786 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2022-05-11 Kewen Lin + + * MAINTAINERS: Remove myself from DCO section. + 2022-05-09 Xi Ruoyao * MAINTAINERS: Update my email address. diff --git a/gcc/ChangeLog b/gcc/ChangeLog index c774186..7a8a24b 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,108 @@ +2022-05-11 Patrick Palka + + * tree.h (TREE_VEC_BEGIN): Define. + (TREE_VEC_END): Correct 'length' member access. + (class tree_vec_range): Define. + +2022-05-11 Segher Boessenkool + + * config/rs6000/rs6000.md: Use wa instead of . + +2022-05-11 Segher Boessenkool + + * config/rs6000/rs6000.md: Use d instead of . + +2022-05-11 Segher Boessenkool + + * config/rs6000/constraints.md (register_constraint "f"): Use + RS6000_CONSTRAINT_d. + * config/rs6000/rs6000.cc (rs6000_debug_reg_global): Do not handle + RS6000_CONSTRAINT_f. + (rs6000_init_hard_regno_mode_ok): Ditto. Reorder and simplify a bit. + * config/rs6000/rs6000.h (r6000_reg_class_enum): Delete + RS6000_CONSTRAINT_d. + +2022-05-11 Richard Biener + + * gimple-fold.h (gimple_build): Use variadic template + functions for the gimple_build API forwarders without + location_t argument. + +2022-05-11 Siddhesh Poyarekar + + PR middle-end/70090 + * asan.cc (initialize_sanitizer_builtins): Register + __builtin_dynamic_object_size if necessary. + +2022-05-11 Richard Biener + + PR rtl-optimization/105559 + * cfgrtl.cc (delete_insn_and_edges): Only perform search to BB_END + for non-debug insns. + +2022-05-11 Richard Biener + + * generic-match-head.cc: Include tree-eh.h. + * match.pd ((cond ...) cmp X): New simplification inspired + by fold_binary_op_with_conditional_arg. + (eq/ne (cmp ...) true/false): Likewise. + +2022-05-11 Thomas Schwinge + + * doc/install.texi: Don't document '--with-hsa-runtime', + '--with-hsa-runtime-include', '--with-hsa-runtime-lib'. + +2022-05-11 Martin Liska + + PR other/105527 + * doc/install.texi: Document the configure option --with-zstd. + +2022-05-11 Martin Liska + + * common/config/i386/cpuinfo.h (has_cpu_feature): Directly + compute index in cpu_features2. + (set_cpu_feature): Likewise. + * config/i386/i386-builtins.cc (fold_builtin_cpu): Also remove + loop for cpu_features2 and use NOP_EXPRs. + +2022-05-11 Richard Biener + + PR bootstrap/105551 + * opts.cc (finish_options): Also disable var-tracking if + !DWARF2_DEBUGGING_INFO. + +2022-05-11 liuhongt + + PR target/104915 + * config/i386/sse.md (*vec_set_0_zero_extendhi): New + pre_reload define_insn_and_split. + (*vec_setv2di_0_zero_extendhi_1): Ditto. + (*vec_set_0_zero_extendsi): Ditto. + (*vec_setv2di_0_zero_extendsi_1): Ditto. + (ssewvecmode): New mode attr. + (ssewvecmodelower): Ditto. + (ssepackmodelower): Ditto. + +2022-05-11 Kewen Lin + + * config/rs6000/constraints.md (register constraint v): Use + rs6000_constraints[RS6000_CONSTRAINT_v] instead of ALTIVEC_REGS. + +2022-05-11 Martin Liska + + PR target/105355 + * config/riscv/riscv.opt: Remove Separate from + -msmall-data-limit=. + * optc-gen.awk: Report error for the described situation. + * gcc.cc: Use Separate syntax. + * opts.cc (gen_command_line_string): Change option name. + +2022-05-11 Haochen Gui + + PR target/105414 + * match.pd (minmax): Skip constant folding for fmin/fmax when both + arguments are sNaN or one is sNaN and another is NaN. + 2022-05-10 Jakub Jelinek PR tree-optimization/105528 diff --git a/gcc/DATESTAMP b/gcc/DATESTAMP index 3e06743..2a18b64 100644 --- a/gcc/DATESTAMP +++ b/gcc/DATESTAMP @@ -1 +1 @@ -20220511 +20220512 diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 7e5c660..99fd922 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,265 @@ +2022-05-11 Yannick Moy + + * libgnat/s-imaged.ads: Remove Pure. + * libgnat/s-imagef.ads: Remove Pure. + * libgnat/s-imager.ads: Remove Pure. + * libgnat/s-imageu.adb: Add ghost code. + * libgnat/s-imageu.ads: Add contracts. + * libgnat/s-imde128.ads: Remove Pure. + * libgnat/s-imde32.ads: Remove Pure. + * libgnat/s-imde64.ads: Remove Pure. + * libgnat/s-imfi128.ads: Remove Pure. + * libgnat/s-imfi32.ads: Remove Pure. + * libgnat/s-imfi64.ads: Remove Pure. + * libgnat/s-imgflt.ads: Remove Pure. + * libgnat/s-imglfl.ads: Remove Pure. + * libgnat/s-imgllf.ads: Remove Pure. + * libgnat/s-imglllu.ads: Instantiate with ghost subprograms. + * libgnat/s-imgllu.ads: Instantiate with ghost subprograms. + * libgnat/s-imgrea.ads: Remove Pure. + * libgnat/s-imguns.ads: Instantiate with ghost subprograms. + * libgnat/s-imguti.ads: Remove Pure. + * libgnat/s-valueu.adb (Prove_Iter_Scan_Based_Number_Ghost, + Prove_Scan_Only_Decimal_Ghost): New lemmas. + * libgnat/s-valueu.ads (Uns_Option): Do not make type ghost to + be able to use it as formal in instantiations. + (Only_Decimal_Ghost): New ghost query. + (Prove_Iter_Scan_Based_Number_Ghost, + Prove_Scan_Only_Decimal_Ghost): New lemmas. + * libgnat/s-widlllu.ads: Adapt to changes in Width_U. + * libgnat/s-widllu.ads: Adapt to changes in Width_U. + * libgnat/s-widthu.adb: Change generic function in generic + package in order to complete the postcondition. Tighten the + upper bound on the result by 1. + * libgnat/s-widthu.ads: Same. + * libgnat/s-widuns.ads: Adapt to changes in Width_U. + * gcc-interface/Make-lang.in: Add dependencies on a-nubinu, + a-numeri.ads and a-widuns.ads. + +2022-05-11 Piotr Trojanek + + * snames.ads-tmpl (Detect_Blocking): Move after + Default_Storage_Pool. + +2022-05-11 Piotr Trojanek + + * sem_prag.adb (Analyze_Pragma): Remove custom check for + Compile_Time_Error and Compile_Time_Warning pragmas. + * snames.ads-tmpl (Compile_Time_Error, Compile_Time_Warning): + Move beyond Last_Configuration_Pragma_Name. + +2022-05-11 Marc Poulhiès + + * libgnat/a-direct.adb (Start_Search_Internal): Use parentheses + for record aggregate. + * libgnat/a-stbubo.adb (Get_UTF_8): Likewise. + * libgnat/a-stbuun.adb (Get_UTF_8): Likewise. + * libgnat/a-stzbou.ads (Null_Bounded_Wide_Wide_String): + Likewise. + * libgnat/a-swmwco.ads (Lower_Case_Mapping, Basic_Mapping): + Likewise. + * libgnat/a-szmzco.ads (Lower_Case_Mapping, Basic_Mapping): + Likewise. + * libgnat/s-statxd.adb (Fields): Likewise. + * libgnat/s-stausa.adb (Initialize): Likewise. + * sem_aggr.adb (Resolve_Record_Aggregate): Reject aggregates + using brackets. + +2022-05-11 Piotr Trojanek + + * doc/gnat_rm/implementation_defined_pragmas.rst, + doc/gnat_rm/implementation_of_specific_ada_features.rst, + doc/gnat_rm/representation_clauses_and_pragmas.rst, + doc/gnat_rm/the_gnat_library.rst, + doc/gnat_rm/the_implementation_of_standard_i_o.rst, + doc/gnat_ugn/building_executable_programs_with_gnat.rst, + doc/gnat_ugn/gnat_and_program_execution.rst, + doc/gnat_ugn/platform_specific_information.rst: Fix unbalanced + parentheses and brackets. + * sem_prag.adb (pragma Obsolescent): Likewise. + * gnat_rm.texi, gnat_ugn.texi: Regenerate. + +2022-05-11 Marc Poulhiès + + * libgnat/s-rident.ads (Restriction_Id): Add + No_Local_Tagged_Types, update comment for adding new GNAT + specific restriction. + * restrict.ads (Implementation_Restriction): Add + No_Local_Tagged_Types. + * sem_ch3.adb (Analyze_Full_Type_Declaration): Add check for + tagged type at library level. + * doc/gnat_rm/standard_and_implementation_defined_restrictions.rst: + Add No_Local_Tagged_Types description. + * gnat_rm.texi: Regenerate. + +2022-05-11 Eric Botcazou + + * sem_ch4.adb (Analyze_User_Defined_Binary_Op): Use the base type + in the interpretation of the operator. + +2022-05-11 Piotr Trojanek + + * sem_case.adb (Free_Value_Sets): Fix style in body header box. + * sem_ch12.adb (Build_Subprogram_Wrappers): Likewise. + * sem_util.adb (Statically_Denotes_Entity): Likewise. + +2022-05-11 Etienne Servais + + * sem_ch3.adb (Constrain_Access): Call Desig_Subtype in each if + branch to avoid calling it twice. + +2022-05-11 Piotr Trojanek + + * sem_warn.adb (Find_Var): Detect all operators; replace + "condition" to "expression" in comments, because when this + routine is called recursively it no longer examines the + condition. + (Is_Suspicious_Function_Name): Reduce scope of a local variable + to avoid shadowing with a parameter of a nested + Substring_Present function. + +2022-05-11 Yannick Moy + + * libgnat/s-aridou.adb (Double_Divide, Scaled_Divide): Add + intermediate assertions. + +2022-05-11 Piotr Trojanek + + * libgnat/s-rident.ads (Implementation_Restriction): Remove + No_Dynamic_Attachment, No_Implementation_Attributes, + No_Implementation_Pragmas, No_Local_Protected_Objects, + No_Protected_Type_Allocators, No_Relative_Delay, + No_Requeue_Statements, No_Select_Statements, + No_Task_Termination, Pure_Barriers and Simple_Barriers; add + No_Dynamic_Sized_Objects, + No_Implicit_Protected_Object_Allocations, + No_Implicit_Task_Allocations, No_Task_At_Interrupt_Priority and + Static_Dispatch_Tables; sort alphabetically. + * restrict.ads (Restriction_Id): Change Pure_Barriers and + No_Task_Termination from GNAT to Ada restrictions. + +2022-05-11 Piotr Trojanek + + * exp_atag.adb, lib-util.ads, libgnat/g-decstr.adb, + libgnat/g-exptty.adb, libgnat/g-socpol.adb, + libgnat/s-strhas.adb: Fix headers. + +2022-05-11 Joao Azevedo + + * doc/gnat_ugn/platform_specific_information.rst: Add + glibc-locale-base-32bit as a dependency in SUSE distributions. + * gnat_ugn.texi: Regenerate. + +2022-05-11 Piotr Trojanek + + * doc/gnat_ugn/gnat_and_program_execution.rst, + doc/gnat_ugn/gnat_utility_programs.rst, + doc/gnat_ugn/inline_assembler.rst: Fix typos and formatting + glitches. + * gnat_ugn.texi: Regenerate. + +2022-05-11 Piotr Trojanek + + * doc/gnat_ugn/elaboration_order_handling_in_gnat.rst: Change + blocks from plain code to Ada. + +2022-05-11 Gary Dismukes + + * exp_ch5.adb (Expand_Assign_With_Target_Names): Bypass the temp + object approach in the case where the type of the LHS is + controlled or has controlled subcomponents (Needs_Finalization + is True), and use the procedure approach instead. + +2022-05-11 Bob Duff + + * sem_ch3.adb (Get_Discr_Value): Copy the result. Otherwise, the + "tree" can be malformed (a DAG, not a tree) because + Get_Discr_Value could be returning some subtree already attached + to the tree. + +2022-05-11 Piotr Trojanek + + * sem_ch5.adb (Analyze_Statements): Only clear Reachable flag on + proper label entities. + +2022-05-11 Piotr Trojanek + + * doc/gnat_rm/implementation_defined_characteristics.rst: Add + tabularcolums directive, as explained in documentation of Sphinx + and tabular LaTeX package. + +2022-05-11 Piotr Trojanek + + * doc/gnat_rm/implementation_defined_aspects.rst, + doc/gnat_rm/implementation_defined_pragmas.rst: Remove extra + whitespace. + * gnat_rm.texi: Regenerate. + +2022-05-11 Piotr Trojanek + + * doc/gnat_rm/implementation_defined_characteristics.rst: Remove + extra indent in continuation lines; indent both descriptions of + Max_Picture_Length. + * gnat_rm.texi: Regenerate. + +2022-05-11 Piotr Trojanek + + * doc/gnat_rm/implementation_defined_pragmas.rst (Pragma + Eliminate): Fix markup. + * gnat_rm.texi: Regenerate. + +2022-05-11 Johannes Kliemann + + * libgnat/g-sthcso.adb: Suppress warning about unneeded use type + clause. + +2022-05-11 Piotr Trojanek + + * sem_ch5.adb (Analyze_Statements): Only clear Reachable flag on + proper label entities. + +2022-05-11 Piotr Trojanek + + * doc/gnat_rm/implementation_defined_pragmas.rst (Pragma + Ada_2022): Copy description from pragma Ada 2012 and adapt. + * doc/gnat_ugn/the_gnat_compilation_model.rst (Configuration + Pragmas): List pragma Ada 2022. + * gnat_rm.texi, gnat_ugn.texi: Regenerate. + +2022-05-11 Steve Baird + + * sem_ch13.adb (Analyze_Attribute_Definition_Clause): Replace + the existing check for an address specification for an object of + a class-wide type with a more general check which rejects either + the class-wide case or the case where the FE would (if the + address specification were accepted) build a malformed + tree (specifically, an object renaming declaration with a + specified address). In the case where the check fails, reject + the construct at compile time instead of generating an + unconditional raise of Program_Error. + * doc/gnat_rm/representation_clauses_and_pragmas.rst: Update + documentation to reflect these changes. + * gnat_rm.texi: Regenerate. + +2022-05-11 Piotr Trojanek + + * gen_il-gen-gen_entities.adb (Reachable): Move from + Root_Entity_Type to E_Label. + +2022-05-11 Alexandre Oliva + + * exp_ch3.adb (Expand_N_Object_Declaration): Guard + Set_Is_Known_Valid with Safe_To_Capture_Value. + +2022-05-11 Bob Duff + + * repinfo.adb (List_Object_Info): Do not try to print values + that have not been computed (and so are No_Uint). + (Rep_Not_Constant): Reverse sense and change name to + Compile_Time_Known_Rep. This makes the code at call sites a + little more readable. Simplify code to a single return + statement. + 2022-05-10 Martin Liska * gcc-interface/decl.cc (compare_field_bitpos): Use void * diff --git a/gcc/analyzer/ChangeLog b/gcc/analyzer/ChangeLog index f406960..9f8c381 100644 --- a/gcc/analyzer/ChangeLog +++ b/gcc/analyzer/ChangeLog @@ -1,3 +1,21 @@ +2022-05-11 David Malcolm + + * checker-path.cc (state_change_event::get_desc): Call maybe_free + on label_text temporaries. + * diagnostic-manager.cc + (diagnostic_manager::prune_for_sm_diagnostic): Likewise. + * engine.cc (exploded_graph::~exploded_graph): Fix leak of + m_per_point_data and m_per_call_string_data values. Simplify + cleanup of m_per_function_stats and m_per_point_data values. + (feasibility_state::maybe_update_for_edge): Fix leak of result of + superedge::get_description. + * region-model-manager.cc + (region_model_manager::~region_model_manager): Move cleanup of + m_setjmp_values to match the ordering of the fields within + region_model_manager. Fix leak of values within + m_repeated_values_map, m_bits_within_values_map, + m_asm_output_values_map, and m_const_fn_result_values_map. + 2022-04-28 David Malcolm PR analyzer/105285 diff --git a/gcc/c-family/ChangeLog b/gcc/c-family/ChangeLog index c082499..88c92d0 100644 --- a/gcc/c-family/ChangeLog +++ b/gcc/c-family/ChangeLog @@ -1,3 +1,9 @@ +2022-05-11 Martin Liska + + PR target/105355 + * c-opts.cc (c_common_handle_option): Change option name. + * c.opt: Remove Joined and use Separate option. + 2022-05-09 Alex Coplan * c-common.h (get_dump_info): Delete. diff --git a/gcc/cp/ChangeLog b/gcc/cp/ChangeLog index af341ef..5c1ee2f 100644 --- a/gcc/cp/ChangeLog +++ b/gcc/cp/ChangeLog @@ -1,3 +1,59 @@ +2022-05-11 Patrick Palka + + * constraint.cc (tsubst_parameter_mapping): Convert loop over + TREE_VEC into a range-based for loop using tree_vec_range. + * pt.cc (iterative_hash_template_arg): Likewise. + (template_parms_level_to_args): Likewise. + (deducible_template_args): Likewise. + (check_undeduced_parms): Likewise. + (dependent_type_p_r): Likewise. + (value_dependent_expression_p) : + Likewise. + (dependent_template_arg_p): Likewise. + * tree.cc (cp_walk_subtrees) : + Likewise. + +2022-05-11 Jason Merrill + + PR c++/105541 + * cp-tree.h (TMPL_ARGS_DEPTH): 0 for null args. + * parser.cc (cp_parser_enclosed_template_argument_list): + Use 0-length TREE_VEC for <>. + +2022-05-11 Jason Merrill + + PR bootstrap/105567 + * typeck.cc (check_return_expr): Don't mess with ctor return value + while parsing a template. + +2022-05-11 Nathan Sidwell + + * cp-tree.h (DECL_MODULE_ATTACH_P): New. + (struct lang_decl_base): Add module_attach_p flag. + * decl.cc (duplicate_decls): Rework module redeclaration + checking. + * module.cc (trees_out::lang_decl_bools): Write attach flag. + (trees_in::lang_decl_bools): ... and read it back. + (trees_out::decl_value): Rework module attachment handling. + (trees_in::decl_value): Rename local var to reflect meaning. + (trees_in::key_mergeable): Likewise. + (get_originating_module): Use DECL_MODULE_ATTACH_P. No need + to special-case mangling. + (module_may_redeclare): Reimplement. + (set_originating_module): Deal with attachment. + * name-lookup.cc (maybe_record_mergeable_decl): Deal with + attachment. + (mergeable_namespace_slots): Likewise. + (do_nonmember_using_decl): Likewise. + * name-lookup.h (mergeable_namespace_slots): Adjust parm + meaning. + * ptree.cc (cxx_print_decl): Adjust purview & attach printing. + +2022-05-11 Martin Liska + + PR target/105355 + * lang-specs.h: Use Separate syntax. + 2022-05-10 Patrick Palka * coroutines.cc (instantiate_coro_traits): Adjust accordingly. diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 828f74d..395fad9 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2022-05-11 Harald Anlauf + Steven G. Kargl + + PR fortran/105230 + * expr.cc (find_array_section): Correct logic to avoid NULL + pointer dereference on invalid array section. + 2022-05-10 Harald Anlauf PR fortran/105526 diff --git a/gcc/objc/ChangeLog b/gcc/objc/ChangeLog index de03b04..ba92c4e 100644 --- a/gcc/objc/ChangeLog +++ b/gcc/objc/ChangeLog @@ -1,3 +1,8 @@ +2022-05-11 Martin Liska + + PR target/105355 + * lang-specs.h: Use Separate syntax. + 2022-05-03 Iain Sandoe * objc-next-runtime-abi-02.cc (next_runtime_abi_02_protocol_decl): Do diff --git a/gcc/objcp/ChangeLog b/gcc/objcp/ChangeLog index e209d04..d50c3d8 100644 --- a/gcc/objcp/ChangeLog +++ b/gcc/objcp/ChangeLog @@ -1,3 +1,8 @@ +2022-05-11 Martin Liska + + PR target/105355 + * lang-specs.h: Use Separate syntax. + 2022-01-17 Martin Liska * Make-lang.in: Rename .c names to .cc. diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2373343..e33db7b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,34 @@ +2022-05-11 Jason Merrill + + PR c++/105541 + * g++.dg/cpp2a/lambda-requires1.C: New test. + +2022-05-11 Jason Merrill + + PR bootstrap/105567 + * g++.dg/template/ctor10.C: New test. + +2022-05-11 Harald Anlauf + Steven G. Kargl + + PR fortran/105230 + * gfortran.dg/pr105230.f90: New test. + +2022-05-11 Richard Biener + + * gcc.dg/tree-ssa/pr61839_1.c: Adjust. + * gcc.dg/tree-ssa/vrp24.c: Likewise. + +2022-05-11 liuhongt + + * gcc.target/i386/pr104915-vmovd.c: New test. + * gcc.target/i386/pr104915-vmovw.c: New test. + +2022-05-11 Haochen Gui + + PR target/105414 + * gcc.dg/pr105414.c: New. + 2022-05-10 Harald Anlauf PR fortran/105526 diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 56656b5..1e9cbf7 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,35 @@ +2022-05-11 Thomas Schwinge + + * plugin/configfrag.ac: Remove '--with-hsa-runtime', + '--with-hsa-runtime-include', '--with-hsa-runtime-lib' processing. + * Makefile.in: Regenerate. + * configure: Likewise. + * testsuite/Makefile.in: Likewise. + +2022-05-11 Thomas Schwinge + + * plugin/Makefrag.am (libgomp_plugin_gcn_la_CPPFLAGS): Don't + consider 'PLUGIN_GCN_CPPFLAGS'. + (libgomp_plugin_gcn_la_LDFLAGS): Don't consider + 'PLUGIN_GCN_LDFLAGS'. + * plugin/configfrag.ac (PLUGIN_GCN_CPPFLAGS, PLUGIN_GCN_LDFLAGS): + Remove. + * Makefile.in: Regenerate. + * configure: Likewise. + * testsuite/Makefile.in: Likewise. + +2022-05-11 Thomas Schwinge + + * plugin/configfrag.ac (HSA_RUNTIME_CPPFLAGS) + (HSA_RUNTIME_LDFLAGS): Remove. + * configure: Regenerate. + +2022-05-11 Thomas Schwinge + + * testsuite/lib/libgomp.exp (libgomp_init): Don't + 'append always_ld_library_path ":$hsa_runtime_lib"'. + * testsuite/libgomp-test-support.exp.in (hsa_runtime_lib): Don't set. + 2022-05-10 Thomas Schwinge * testsuite/libgomp.fortran/use_device_addr-5.f90: Fix up -- 2.7.4