Revert "Fortran: Fix diagnostic for ambiguous pointer function assignment [PR80012]"

This reverts commit 84ef494860.

gcc/ChangeLog

@@ -1,3 +1,35 @@
+2026-02-20  Kwok Cheung Yeung  <kcyeung@baylibre.com>
+
+	PR middle-end/113436
+	* omp-low.cc (omp_lower_target):  Do not check for variable-length
+	variables in private clauses by reference when allocating memory.
+
+2026-02-20  Richard Biener  <rguenther@suse.de>
+
+	PR tree-optimization/124068
+	* tree-vect-patterns.cc (target_has_vecop_for_code): Move
+	earlier, add defaulted optab_subtype parameter.
+	(vect_recog_over_widening_pattern): Check that the target
+	supports the narrowed operation before committing to the
+	pattern.
+
+2026-02-20  Martin Jambor  <mjambor@suse.cz>
+
+	PR ipa/122856
+	* ipa-cp.cc (self_recursive_pass_through_p): Test jump function type first.
+	(self_recursive_ancestor_p): New function.
+	(find_scalar_values_for_callers_subset): Test also for self-recursive
+	ancestor jump functions.
+	(push_agg_values_for_index_from_edge): Likewise.
+
+2026-02-20  Andrew Pinski  <andrew.pinski@oss.qualcomm.com>
+
+	PR tree-optimization/121103
+	* gimple-fold.cc (gimple_fold_call): Don't simplify
+	noreturn functions.
+	* tree-ssa-dse.cc (dse_optimize_stmt): Don't handle
+	calls to noreturn functions.
+
 2026-02-19  jlaw  <jeffreyalaw@gmail.com>
 
 	PR tree-optimization/124108

gcc/DATESTAMP

@@ -1 +1 @@
-20260220
+20260221

gcc/ada/ChangeLog

@@ -1,3 +1,8 @@
+2026-02-20  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* libgnat/s-stposu.adb (Finalize_Pool): Pass a local copy of the
+	handle in the call to Finalize_And_Deallocate.
+
 2026-02-16  Eric Botcazou  <ebotcazou@adacore.com>
 
 	PR ada/124106

gcc/fortran/ChangeLog

@@ -1,3 +1,16 @@
+2026-02-20  Gonzalo Silvalde Blanco  <gonzalo.silvalde@gmail.com>
+
+	PR fortran/80012
+	* symbol.cc (gfc_add_procedure): Split error into gfc_error and
+	inform using auto_diagnostic_group.
+
+2026-02-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/123949
+	* decl.cc (gfc_get_pdt_instance): Use full integer string encoding
+	for PDT instance naming rather than 32-bit extraction, which caused
+	ICEs for valid large KIND values.
+
 2026-02-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR fortran/122491

gcc/fortran/symbol.cc

@@ -24,7 +24,6 @@ along with GCC; see the file COPYING3.  If not see
 #include "coretypes.h"
 #include "options.h"
 #include "gfortran.h"
-#include "diagnostic-core.h"
 #include "parse.h"
 #include "match.h"
 #include "constructor.h"
@@ -1888,19 +1887,19 @@ gfc_add_procedure (symbol_attribute *attr, procedure_type t,
   if (attr->proc != PROC_UNKNOWN && !attr->module_procedure
       && attr->access == ACCESS_UNKNOWN)
     {
-      auto_diagnostic_group d;
-      gfc_error ("%s procedure at %L is already declared as %s procedure",
-		 gfc_code2string (procedures, t), where,
-		 gfc_code2string (procedures, attr->proc));
       if (attr->proc == PROC_ST_FUNCTION && t == PROC_INTERNAL
 	  && !gfc_notification_std (GFC_STD_F2008))
-	{
+	gfc_error ("%s procedure at %L is already declared as %s "
-	  inform (gfc_get_location (where),
+		   "procedure. \nF2008: A pointer function assignment "
-		  "F2008: A pointer function assignment is ambiguous if it is "
+		   "is ambiguous if it is the first executable statement "
-		  "the first executable statement after the specification "
+		   "after the specification block. Please add any other "
-		  "block.  Please add any other kind of executable "
+		   "kind of executable statement before it. FIXME",
-		  "statement before it");
+		 gfc_code2string (procedures, t), where,
-	}
+		 gfc_code2string (procedures, attr->proc));
+      else
+	gfc_error ("%s procedure at %L is already declared as %s "
+		   "procedure", gfc_code2string (procedures, t), where,
+		   gfc_code2string (procedures, attr->proc));
 
       return false;
     }

gcc/testsuite/ChangeLog

@@ -1,3 +1,202 @@
+2026-02-20  Gonzalo Silvalde Blanco  <gonzalo.silvalde@gmail.com>
+
+	PR fortran/80012
+	* gfortran.dg/pr80012.f90: New test.
+
+2026-02-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/123949
+	* gfortran.dg/pdt_85.f03: New test.
+	* gfortran.dg/pr123949.f90: New test.
+
+2026-02-20  Kwok Cheung Yeung  <kcyeung@baylibre.com>
+
+	PR middle-end/113436
+	* g++.dg/gomp/pr113436-2.C: New.
+
+2026-02-20  Richard Biener  <rguenther@suse.de>
+
+	PR tree-optimization/124068
+	* gcc.target/i386/vect-shift-1.c: New testcase.
+
+2026-02-20  Martin Jambor  <mjambor@suse.cz>
+
+	PR ipa/122856
+	* g++.dg/ipa/pr122856.C: New test.
+
+2026-02-20  Andrew Pinski  <andrew.pinski@oss.qualcomm.com>
+
+	PR tree-optimization/121103
+	* gcc.dg/torture/pr121103-1.c: New test.
+
+2026-02-20  Robert Dubner  <rdubner@symas.com>
+
+	* cobol.dg/group2/ALLOCATE_Rule_8_OPTION_INITIALIZE_with_figconst.cob: Updated.
+	* cobol.dg/group2/ALLOCATE_Rule_8_OPTION_INITIALIZE_with_figconst.out: Updated.
+	* cobol.dg/group2/ALPHABETIC-LOWER_test.cob: Updated.
+	* cobol.dg/group2/ALPHABETIC-UPPER_test.cob: Updated.
+	* cobol.dg/group2/ALPHABETIC_test.cob: Updated.
+	* cobol.dg/group2/Context_sensitive_words__1_.cob: Updated.
+	* cobol.dg/group2/DEBUG_Line.cob: Updated.
+	* cobol.dg/group2/DISPLAY__Sign_ASCII.cob: Updated.
+	* cobol.dg/group2/DISPLAY__Sign_ASCII.out: Updated.
+	* cobol.dg/group2/DISPLAY__Sign_ASCII__2_.cob: Updated.
+	* cobol.dg/group2/DISPLAY__Sign_ASCII__2_.out: Updated.
+	* cobol.dg/group2/EC-BOUND-REF-MOD_checking_process_termination.cob: Updated.
+	* cobol.dg/group2/FUNCTION_BIGGER-POINTER.cob: Updated.
+	* cobol.dg/group2/FUNCTION_BYTE-LENGTH.cob: Updated.
+	* cobol.dg/group2/FUNCTION_BYTE-LENGTH.out: Updated.
+	* cobol.dg/group2/FUNCTION_CHAR.cob: Updated.
+	* cobol.dg/group2/FUNCTION_DATE___TIME_OMNIBUS.cob: Updated.
+	* cobol.dg/group2/FUNCTION_HEX-OF.cob: Updated.
+	* cobol.dg/group2/FUNCTION_HEX-OF.out: Updated.
+	* cobol.dg/group2/FUNCTION_ORD.cob: Updated.
+	* cobol.dg/group2/FUNCTION_ORD.out: Updated.
+	* cobol.dg/group2/FUNCTION_TEST-DAY-YYYYDDD__2_.cob: Updated.
+	* cobol.dg/group2/FUNCTION_TEST-FORMATTED-DATETIME_additional.cob: Updated.
+	* cobol.dg/group2/FUNCTION_as_CALL_parameter_BY_CONTENT.cob: Updated.
+	* cobol.dg/group2/Hexadecimal_literal.cob: Updated.
+	* cobol.dg/group2/INSPECT_CONVERTING_TO_figurative_constants.cob: Updated.
+	* cobol.dg/group2/INSPECT_CONVERTING_TO_figurative_constants.out: Updated.
+	* cobol.dg/group2/LENGTH_OF_omnibus.cob: Updated.
+	* cobol.dg/group2/Non-numeric_data_in_numeric_items__2_.cob: Updated.
+	* cobol.dg/group2/PACKED-DECIMAL_dump.cob: Updated.
+	* cobol.dg/group2/PACKED-DECIMAL_dump.out: Updated.
+	* cobol.dg/group2/Refmod__comparisons_inside_numeric-display.cob: Updated.
+	* cobol.dg/group2/Refmod_sources_are_figurative_constants.cob: Updated.
+	* cobol.dg/group2/Refmod_sources_are_figurative_constants.out: Updated.
+	* cobol.dg/group2/debugging_lines__not_active_.cob: Updated.
+	* cobol.dg/group2/floating-point_SUBTRACT_FORMAT_2.out: Updated.
+	* cobol.dg/group2/floating-point_literals.out: Updated.
+	* cobol.dg/group2/37-digit_Initialization_of_fundamental_types.cob: New test.
+	* cobol.dg/group2/37-digit_Initialization_of_fundamental_types.out: New test.
+	* cobol.dg/group2/ACCEPT_FROM_ENVIRONMENT-NAME.cob: New test.
+	* cobol.dg/group2/ACCEPT_FROM_ENVIRONMENT-NAME.out: New test.
+	* cobol.dg/group2/ACCEPT_foo_FROM_COMMAND-LINE_1_.cob: New test.
+	* cobol.dg/group2/ADD_1_2_TO_3_GIVING_B.cob: New test.
+	* cobol.dg/group2/ALLOCATE_Rules_6_-_9._Without_OPTION_INITIALIZE_Without_-fdefaultbyte___ASCII_.cob:
+	New test.
+	* cobol.dg/group2/ALLOCATE_Rules_6_-_9._Without_OPTION_INITIALIZE_Without_-fdefaultbyte___ASCII_.out:
+	New test.
+	* cobol.dg/group2/ALLOCATE_Rules_6_-_9._Without_OPTION_INITIALIZE_Without_-fdefaultbyte___EBCDIC_.cob:
+	New test.
+	* cobol.dg/group2/ALLOCATE_Rules_6_-_9._Without_OPTION_INITIALIZE_Without_-fdefaultbyte___EBCDIC_.out:
+	New test.
+	* cobol.dg/group2/ALLOCATE_Rules_6_-_9_Without_OPTION_INITIALIZE_With_-fdefaultbyte___UTF16_.cob:
+	New test.
+	* cobol.dg/group2/ALLOCATE_Rules_6_-_9_Without_OPTION_INITIALIZE_With_-fdefaultbyte___UTF16_.out:
+	New test.
+	* cobol.dg/group2/ANY_LENGTH__7_.cob: New test.
+	* cobol.dg/group2/ANY_LENGTH__7_.out: New test.
+	* cobol.dg/group2/Assorted_SPECIAL-NAMES_CLASS.cob: New test.
+	* cobol.dg/group2/Assorted_SPECIAL-NAMES_CLASS.out: New test.
+	* cobol.dg/group2/BINARY_and_COMP-5.cob: New test.
+	* cobol.dg/group2/BINARY_and_COMP-5.out: New test.
+	* cobol.dg/group2/CDF2_-_DEFINE_FOO_AS_literal-1.cob: New test.
+	* cobol.dg/group2/CDF2_-_DEFINE_FOO_AS_literal-1.out: New test.
+	* cobol.dg/group2/CDF2_Trouble_with___IF__1_.cob: New test.
+	* cobol.dg/group2/CDF2_Trouble_with___IF__2_.cob: New test.
+	* cobol.dg/group2/CDF2_Trouble_with___IF__2_.out: New test.
+	* cobol.dg/group2/CDF4_.cob: New test.
+	* cobol.dg/group2/CDF4_.out: New test.
+	* cobol.dg/group2/CDF_Feature_.cob: New test.
+	* cobol.dg/group2/CDF_Feature_.out: New test.
+	* cobol.dg/group2/CDF_IS_NOT_DEFINED.cob: New test.
+	* cobol.dg/group2/CDF_IS_NOT_DEFINED.out: New test.
+	* cobol.dg/group2/CDF__1__IF____text_.cob: New test.
+	* cobol.dg/group2/CDF__1__IF____text_.out: New test.
+	* cobol.dg/group2/CDF__2__IF____number_.cob: New test.
+	* cobol.dg/group2/CDF__2__IF____number_.out: New test.
+	* cobol.dg/group2/CDF__3__ALL_NUMERIC_COMPARISONS.cob: New test.
+	* cobol.dg/group2/CDF__3__ALL_NUMERIC_COMPARISONS.out: New test.
+	* cobol.dg/group2/COMP-5_Sanity_Check_.cob: New test.
+	* cobol.dg/group2/Complex_HEX__VALUE_and_MOVE_-_ASCII_EBCDIC.cob: New test.
+	* cobol.dg/group2/Complex_HEX__VALUE_and_MOVE_-_ASCII_EBCDIC.out: New test.
+	* cobol.dg/group2/Complex_INITIALIZE_with_nested_tables__1_.cob: New test.
+	* cobol.dg/group2/Complex_INITIALIZE_with_nested_tables__1_.out: New test.
+	* cobol.dg/group2/Complex_INITIALIZE_with_nested_tables__2_.cob: New test.
+	* cobol.dg/group2/Complex_INITIALIZE_with_nested_tables__2_.out: New test.
+	* cobol.dg/group2/Default_Arithmetic__1_.cob: New test.
+	* cobol.dg/group2/Default_Arithmetic__1_.out: New test.
+	* cobol.dg/group2/ENTRY_statement.cob: New test.
+	* cobol.dg/group2/ENTRY_statement.out: New test.
+	* cobol.dg/group2/EVALUATE__A__OR__a_.cob: New test.
+	* cobol.dg/group2/EVALUATE__A__OR__a_.out: New test.
+	* cobol.dg/group2/EVALUATE_condition__1_.cob: New test.
+	* cobol.dg/group2/EVALUATE_condition__1_.out: New test.
+	* cobol.dg/group2/FIND-STRING__forward_.cob: New test.
+	* cobol.dg/group2/FIND-STRING__forward_.out: New test.
+	* cobol.dg/group2/FIND-STRING__reverse_.cob: New test.
+	* cobol.dg/group2/FIND-STRING__reverse_.out: New test.
+	* cobol.dg/group2/FIXED_FORMAT_data_in_cols_73_and_beyond.cob: New test.
+	* cobol.dg/group2/FIXED_FORMAT_data_in_cols_73_and_beyond.out: New test.
+	* cobol.dg/group2/FIXED_FORMAT_data_misplaced_asterisk.cob: New test.
+	* cobol.dg/group2/FUNCTION_CONVERT.cob: New test.
+	* cobol.dg/group2/FUNCTION_CONVERT.out: New test.
+	* cobol.dg/group2/Fundamental_INSPECT_BACKWARD_REPLACING.cob: New test.
+	* cobol.dg/group2/Fundamental_INSPECT_BACKWARD_REPLACING.out: New test.
+	* cobol.dg/group2/Fundamental_INSPECT_BACKWARD_TALLYING.cob: New test.
+	* cobol.dg/group2/Fundamental_INSPECT_BACKWARD_TALLYING.out: New test.
+	* cobol.dg/group2/Fundamental_INSPECT_REPLACING.cob: New test.
+	* cobol.dg/group2/Fundamental_INSPECT_REPLACING.out: New test.
+	* cobol.dg/group2/Fundamental_INSPECT_TALLYING.cob: New test.
+	* cobol.dg/group2/Fundamental_INSPECT_TALLYING.out: New test.
+	* cobol.dg/group2/INITIALIZE_OCCURS_with_SIGN_LEADING___TRAILING.cob: New test.
+	* cobol.dg/group2/INITIALIZE_OCCURS_with_SIGN_LEADING___TRAILING.out: New test.
+	* cobol.dg/group2/INITIALIZE_OCCURS_with_numeric_edited.cob: New test.
+	* cobol.dg/group2/INITIALIZE_complex_group__1_.cob: New test.
+	* cobol.dg/group2/INITIALIZE_complex_group__2_.cob: New test.
+	* cobol.dg/group2/INITIALIZE_complex_group__2_.out: New test.
+	* cobol.dg/group2/INITIALIZE_group_entry_with_OCCURS.cob: New test.
+	* cobol.dg/group2/INITIALIZE_of_EXTERNAL_data_items.cob: New test.
+	* cobol.dg/group2/INITIALIZE_with_-defaultbyte__ASCII_.cob: New test.
+	* cobol.dg/group2/INITIALIZE_with_-defaultbyte__ASCII_.out: New test.
+	* cobol.dg/group2/INITIALIZE_with_-defaultbyte__EBCDIC_.cob: New test.
+	* cobol.dg/group2/INITIALIZE_with_-defaultbyte__EBCDIC_.out: New test.
+	* cobol.dg/group2/INITIALIZE_with_FILLER.cob: New test.
+	* cobol.dg/group2/INITIALIZE_with_REDEFINES.cob: New test.
+	* cobol.dg/group2/INITIALIZE_with_reference_modification.cob: New test.
+	* cobol.dg/group2/Intrinsic_Function_ABS.cob: New test.
+	* cobol.dg/group2/Intrinsic_Function_ACOS.cob: New test.
+	* cobol.dg/group2/Intrinsic_Function_ANNUITY.cob: New test.
+	* cobol.dg/group2/Intrinsic_Function_DATE-YYYYMMDD.cob: New test.
+	* cobol.dg/group2/Intrinsic_Function_NUMVAL.cob: New test.
+	* cobol.dg/group2/Intrinsic_Function_NUMVAL.out: New test.
+	* cobol.dg/group2/Long_Division.cob: New test.
+	* cobol.dg/group2/Long_Division.out: New test.
+	* cobol.dg/group2/MOVE_X_000203_.cob: New test.
+	* cobol.dg/group2/MOVE_X_000203_.out: New test.
+	* cobol.dg/group2/MOVE_to_JUSTIFIED_items.cob: New test.
+	* cobol.dg/group2/MOVE_to_JUSTIFIED_items.out: New test.
+	* cobol.dg/group2/N-Queens_algorithm.cob: New test.
+	* cobol.dg/group2/N-Queens_algorithm.out: New test.
+	* cobol.dg/group2/Numeric_operations__6_.cob: New test.
+	* cobol.dg/group2/Numeric_operations__6_.out: New test.
+	* cobol.dg/group2/Preserve_collation_past_a_CALL.cob: New test.
+	* cobol.dg/group2/Preserve_collation_past_a_CALL.out: New test.
+	* cobol.dg/group2/RETURN-CODE_moving.cob: New test.
+	* cobol.dg/group2/RETURN-CODE_nested.cob: New test.
+	* cobol.dg/group2/SORT__table_sort__2___ASCII_.cob: New test.
+	* cobol.dg/group2/SORT__table_sort__2___ASCII_.out: New test.
+	* cobol.dg/group2/SORT__table_sort__2___EBCDIC_.cob: New test.
+	* cobol.dg/group2/SORT__table_sort__2___EBCDIC_.out: New test.
+	* cobol.dg/group2/Simple_DEBUG-ITEM.cob: New test.
+	* cobol.dg/group2/Simple_DEBUG-ITEM.out: New test.
+	* cobol.dg/group2/Simple_ENVIRONMENT-NAME_with_exception.cob: New test.
+	* cobol.dg/group2/Simple_ENVIRONMENT-NAME_with_exception.out: New test.
+	* cobol.dg/group2/UNSTRING_with_refmods.cob: New test.
+	* cobol.dg/group2/UNSTRING_with_refmods.out: New test.
+	* cobol.dg/group2/command-line.cob: New test.
+	* cobol.dg/group2/command-line.out: New test.
+	* cobol.dg/group2/floating-point_FORMAT_1.cob: New test.
+	* cobol.dg/group2/floating-point_FORMAT_1.out: New test.
+	* cobol.dg/group2/floating-point_FORMAT_2.cob: New test.
+	* cobol.dg/group2/floating-point_FORMAT_2.out: New test.
+	* cobol.dg/group2/procedure_division_using_by.cob: New test.
+	* cobol.dg/group2/repository.cob: New test.
+	* cobol.dg/group2/skipping_at_the_top.cob: New test.
+	* cobol.dg/group2/source-computer_object-computer_repository__2_.cob: New test.
+
 2026-02-19  Jeff Law  <jeffrey.law@oss.qualcomm.com>
 
 	* gcc.dg/torture/pr124108.c: Fix typo.

gcc/testsuite/gfortran.dg/pr80012.f90

@@ -1,14 +0,0 @@
-! { dg-do compile }
-! { dg-options "-std=gnu" }
-! PR fortran/80012
-! Test that the error message for ambiguous pointer function assignment
-! is split into an error and an informational note, without FIXME.
-
-two() = 7
-contains
-  function two () ! { dg-error "INTERNAL-PROC procedure at .1. is already declared as STATEMENT-PROC procedure" }
-! { dg-message "F2008: A pointer function assignment is ambiguous" "" { target *-*-* } 9 }
-    integer, pointer  :: two
-    allocate(two)
-  end function two
-end

libstdc++-v3/ChangeLog

@@ -1,3 +1,8 @@
+2026-02-20  Jonathan Wakely  <jwakely@redhat.com>
+
+	* testsuite/lib/libstdc++.exp (v3-minimum-std): Remove second
+	and third args in favour of using globals.
+
 2026-02-19  Tomasz Kamiński  <tkaminsk@redhat.com>
 
 	* include/std/type_traits (_CWOperators::operator++)