diff -Nrcpad gcc-13-20260219/LAST_UPDATED gcc-13-20260226/LAST_UPDATED
*** gcc-13-20260219/LAST_UPDATED	Thu Feb 19 22:32:18 2026
--- gcc-13-20260226/LAST_UPDATED	Thu Feb 26 22:32:20 2026
***************
*** 1 ****
! Obtained from git: releases/gcc-13 revision de37643631d9a2b1e13e10599907a0796256ac71
--- 1 ----
! Obtained from git: releases/gcc-13 revision 441b484726723c15643c7a09af8f2297263f09f8
diff -Nrcpad gcc-13-20260219/MD5SUMS gcc-13-20260226/MD5SUMS
*** gcc-13-20260219/MD5SUMS	Thu Feb 19 22:32:22 2026
--- gcc-13-20260226/MD5SUMS	Thu Feb 26 22:32:24 2026
***************
*** 1,5 ****
  # This file contains the MD5 checksums of the files in the
! # gcc-13-20260219.tar.xz tarball.
  #
  # Besides verifying that all files in the tarball were correctly expanded,
  # it also can be used to determine if any files have changed since the
--- 1,5 ----
  # This file contains the MD5 checksums of the files in the
! # gcc-13-20260226.tar.xz tarball.
  #
  # Besides verifying that all files in the tarball were correctly expanded,
  # it also can be used to determine if any files have changed since the
*************** d32239bcb673463ab874e80d47fae504  COPYIN
*** 21,27 ****
  fd4ecdf5d672efe2b0e409aca9cf9446  ChangeLog.jit
  09538b708302f1735f6fa05b622ecf5e  ChangeLog.tree-ssa
  24ab760126489e69436a43185dc3d202  INSTALL/README
! c1b85a26dfa3e4c26f314801dd41f3d9  LAST_UPDATED
  81b3330d422f3ce1ef8b720dfae35068  MAINTAINERS
  2b61ddbd876fa839639a7ca551773426  Makefile.def
  5d2d6a74f897f8158d37f5f2ec6877ce  Makefile.in
--- 21,27 ----
  fd4ecdf5d672efe2b0e409aca9cf9446  ChangeLog.jit
  09538b708302f1735f6fa05b622ecf5e  ChangeLog.tree-ssa
  24ab760126489e69436a43185dc3d202  INSTALL/README
! c1edf00829295b6a9790df086f3bc801  LAST_UPDATED
  81b3330d422f3ce1ef8b720dfae35068  MAINTAINERS
  2b61ddbd876fa839639a7ca551773426  Makefile.def
  5d2d6a74f897f8158d37f5f2ec6877ce  Makefile.in
*************** fb3fadb88e1d2b3b640cfaaa5ff11780  gcc/Ch
*** 510,516 ****
  3eb07e0b2e542409bf73d359f7f65609  gcc/ChangeLog.ptr
  e13638e26743ba41e6011b76cc00d9a9  gcc/ChangeLog.tree-ssa
  739ab47f6425bcea1d05e4fc0542de54  gcc/ChangeLog.tuples
! 5c3c5a220d265ef03379dbca7c740d93  gcc/DATESTAMP
  d41d8cd98f00b204e9800998ecf8427e  gcc/DEV-PHASE
  eb92e1ff5e982ca07e173e0eb286d243  gcc/FSFChangeLog
  30e1e33411566388b3164558482dc5e6  gcc/FSFChangeLog.10
--- 510,516 ----
  3eb07e0b2e542409bf73d359f7f65609  gcc/ChangeLog.ptr
  e13638e26743ba41e6011b76cc00d9a9  gcc/ChangeLog.tree-ssa
  739ab47f6425bcea1d05e4fc0542de54  gcc/ChangeLog.tuples
! b98ebdc193727679fb07cea204a63cca  gcc/DATESTAMP
  d41d8cd98f00b204e9800998ecf8427e  gcc/DEV-PHASE
  eb92e1ff5e982ca07e173e0eb286d243  gcc/FSFChangeLog
  30e1e33411566388b3164558482dc5e6  gcc/FSFChangeLog.10
*************** ec6799501b2eb2923d5de6a66169dbd2  gcc/ON
*** 522,528 ****
  f6d47a542d432aed7e7eaaecb71d3a4c  gcc/acinclude.m4
  6526979dd900a0b58b7691b478a91fec  gcc/aclocal.m4
  16a499934b71eb6cf7c0d6899cd6006a  gcc/ada/.gitignore
! 5493c923c5b9e0d7e8b07d7f673e11b0  gcc/ada/ChangeLog
  683be0b07dc4f64f118fd5e8ae9cb30d  gcc/ada/ChangeLog-2001
  7aff25efb203be4136b8776cdc812956  gcc/ada/ChangeLog-2002
  cd2379152000f40157d349018fb9364d  gcc/ada/ChangeLog-2003
--- 522,528 ----
  f6d47a542d432aed7e7eaaecb71d3a4c  gcc/acinclude.m4
  6526979dd900a0b58b7691b478a91fec  gcc/aclocal.m4
  16a499934b71eb6cf7c0d6899cd6006a  gcc/ada/.gitignore
! 980932d1e1bc4d5a697db3413cb10e37  gcc/ada/ChangeLog
  683be0b07dc4f64f118fd5e8ae9cb30d  gcc/ada/ChangeLog-2001
  7aff25efb203be4136b8776cdc812956  gcc/ada/ChangeLog-2002
  cd2379152000f40157d349018fb9364d  gcc/ada/ChangeLog-2003
*************** a845759ca7545ffe7ea7d86a6a867c69  gcc/ad
*** 2539,2545 ****
  38e48db96a47eb13259c70ae75ac3cf1  gcc/ada/libgnat/s-stoele.ads
  425a5d46fd725b290bc16d8e6a778a9d  gcc/ada/libgnat/s-stopoo.adb
  9324411deb777159107eefa6d17ed9ea  gcc/ada/libgnat/s-stopoo.ads
! 3aebb5ee4350f712d8f571f6326a1f6e  gcc/ada/libgnat/s-stposu.adb
  ea1e1a3f35f2d87d360a6fa148cf942f  gcc/ada/libgnat/s-stposu.ads
  013a1fe809f60910c3103c300c64bd3d  gcc/ada/libgnat/s-stratt.adb
  6c3dfd4ebb852fee1d9774d767dbb81f  gcc/ada/libgnat/s-stratt.ads
--- 2539,2545 ----
  38e48db96a47eb13259c70ae75ac3cf1  gcc/ada/libgnat/s-stoele.ads
  425a5d46fd725b290bc16d8e6a778a9d  gcc/ada/libgnat/s-stopoo.adb
  9324411deb777159107eefa6d17ed9ea  gcc/ada/libgnat/s-stopoo.ads
! 047dfc31ca7ce727605d0a6f4f150fc8  gcc/ada/libgnat/s-stposu.adb
  ea1e1a3f35f2d87d360a6fa148cf942f  gcc/ada/libgnat/s-stposu.ads
  013a1fe809f60910c3103c300c64bd3d  gcc/ada/libgnat/s-stratt.adb
  6c3dfd4ebb852fee1d9774d767dbb81f  gcc/ada/libgnat/s-stratt.ads
*************** b60f965eb0068f4ef9f60362378b0c9e  gcc/ad
*** 2811,2817 ****
  e70e0fe1deaf9153a4884095d153dd82  gcc/ada/sem.ads
  9044b2c904fea0ca89b122ec391975c0  gcc/ada/sem_aggr.adb
  bc71ad0491fa61390ba4b31d799b2dae  gcc/ada/sem_aggr.ads
! aeb43cb4faf5bcec6ef0e0525387f2f0  gcc/ada/sem_attr.adb
  3d50876170b765a588430f4d1cd04558  gcc/ada/sem_attr.ads
  8e42c26d133289bc49008e92fd966b83  gcc/ada/sem_aux.adb
  088bd6652821c1edc3b504cc95da3f42  gcc/ada/sem_aux.ads
--- 2811,2817 ----
  e70e0fe1deaf9153a4884095d153dd82  gcc/ada/sem.ads
  9044b2c904fea0ca89b122ec391975c0  gcc/ada/sem_aggr.adb
  bc71ad0491fa61390ba4b31d799b2dae  gcc/ada/sem_aggr.ads
! 0a5eb8fdbb432d4a190b24ce499c7121  gcc/ada/sem_attr.adb
  3d50876170b765a588430f4d1cd04558  gcc/ada/sem_attr.ads
  8e42c26d133289bc49008e92fd966b83  gcc/ada/sem_aux.adb
  088bd6652821c1edc3b504cc95da3f42  gcc/ada/sem_aux.ads
*************** cd1485ab473af7619af9b0cdb75ff5f4  gcc/ad
*** 2861,2868 ****
  2628f4db0a13a198a497a1438f61ffa9  gcc/ada/sem_mech.ads
  0059c1f573176b8af855bd92c9043dbd  gcc/ada/sem_prag.adb
  2fc94fa1637a92b8548fdb0b65fd7bd4  gcc/ada/sem_prag.ads
! b208560eaf074caaa529eb6a1540df5e  gcc/ada/sem_res.adb
! 8ed4f4454daa145c7fddf86782258422  gcc/ada/sem_res.ads
  e4b6d1e16b208ca35791c42ee9c3d067  gcc/ada/sem_scil.adb
  55301aee52465a299b07b1bb889a8304  gcc/ada/sem_scil.ads
  f8d57c959d78db9bc3e28697e1ec08ca  gcc/ada/sem_smem.adb
--- 2861,2868 ----
  2628f4db0a13a198a497a1438f61ffa9  gcc/ada/sem_mech.ads
  0059c1f573176b8af855bd92c9043dbd  gcc/ada/sem_prag.adb
  2fc94fa1637a92b8548fdb0b65fd7bd4  gcc/ada/sem_prag.ads
! b9f2bcf8a2e20da1295614ec568662fe  gcc/ada/sem_res.adb
! 114fc8d7f5c4c78d983c97f96f06298a  gcc/ada/sem_res.ads
  e4b6d1e16b208ca35791c42ee9c3d067  gcc/ada/sem_scil.adb
  55301aee52465a299b07b1bb889a8304  gcc/ada/sem_scil.ads
  f8d57c959d78db9bc3e28697e1ec08ca  gcc/ada/sem_smem.adb
*************** a497c0ed98b232be3d905aa138636779  gcc/lt
*** 6150,6156 ****
  db24810ac399c4a5d6146bd71ef73426  gcc/lto/lto-object.cc
  f018d5b0f30e1d8cb11793871268668a  gcc/lto/lto-partition.cc
  b42fe0b38243f7d8bd946b42c8b1fdcc  gcc/lto/lto-partition.h
! 4fa8e84a8428772802769f231e45ad45  gcc/lto/lto-symtab.cc
  64117f906dfc57aab1b4dcf007dc88fb  gcc/lto/lto-symtab.h
  e1760b67860124dafbbaf58a3e22c65e  gcc/lto/lto-tree.h
  885788a8016feb1e435d6099e3eebde0  gcc/lto/lto.cc
--- 6150,6156 ----
  db24810ac399c4a5d6146bd71ef73426  gcc/lto/lto-object.cc
  f018d5b0f30e1d8cb11793871268668a  gcc/lto/lto-partition.cc
  b42fe0b38243f7d8bd946b42c8b1fdcc  gcc/lto/lto-partition.h
! af5e34b9a3683a3dc46261aee0b25bbe  gcc/lto/lto-symtab.cc
  64117f906dfc57aab1b4dcf007dc88fb  gcc/lto/lto-symtab.h
  e1760b67860124dafbbaf58a3e22c65e  gcc/lto/lto-tree.h
  885788a8016feb1e435d6099e3eebde0  gcc/lto/lto.cc
*************** b829ed0032c899e107be2db349c913f3  gcc/ta
*** 7637,7643 ****
  811da275a2b9d3186a6decf96c01b0ed  gcc/targhooks.cc
  edb193a32070c4a7626fb75382def9b9  gcc/targhooks.h
  f39fcaa8197187283ccfed40107b426d  gcc/testsuite/.gitattributes
! 8070616bc7b9b956c9ac0e20a185460b  gcc/testsuite/ChangeLog
  862f04afbd87da2cc6bc432c3f28430f  gcc/testsuite/ChangeLog-1993-2007
  029a5d8dacd25eb5d4711452ac448e5b  gcc/testsuite/ChangeLog-2008
  13ac28c41d51b66b4ec40dba6bd50f39  gcc/testsuite/ChangeLog-2009
--- 7637,7643 ----
  811da275a2b9d3186a6decf96c01b0ed  gcc/targhooks.cc
  edb193a32070c4a7626fb75382def9b9  gcc/targhooks.h
  f39fcaa8197187283ccfed40107b426d  gcc/testsuite/.gitattributes
! 1b11cba6a9a583d1dece6f3aef3c8bb3  gcc/testsuite/ChangeLog
  862f04afbd87da2cc6bc432c3f28430f  gcc/testsuite/ChangeLog-1993-2007
  029a5d8dacd25eb5d4711452ac448e5b  gcc/testsuite/ChangeLog-2008
  13ac28c41d51b66b4ec40dba6bd50f39  gcc/testsuite/ChangeLog-2009
*************** a7add68c69c48bffecd543855bc97366  gcc/te
*** 43493,43498 ****
--- 43493,43500 ----
  313b5ef23d14915b2a6f61b519f95205  gcc/testsuite/gcc.dg/lto/attr-weakref-1_0.c
  8c3a2c4fa0f190c6d2749b5524ab98c4  gcc/testsuite/gcc.dg/lto/attr-weakref-1_1.c
  5a674e54883d5de8ea06860e38b0cd2e  gcc/testsuite/gcc.dg/lto/attr-weakref-1_2.c
+ 18e88a9f17f78b46c1ce166e48f8d785  gcc/testsuite/gcc.dg/lto/attr-weakref-2_0.c
+ 7e33f6cf523487191171fa66361dc197  gcc/testsuite/gcc.dg/lto/attr-weakref-2_1.c
  77a8ef1bedade751008154d0c1ea49c8  gcc/testsuite/gcc.dg/lto/c-compatible-types-1_0.c
  2efe9845bc7f2a94bdb6da1ddfe698fc  gcc/testsuite/gcc.dg/lto/c-compatible-types-1_1.c
  fd5005c6fbb07e4f27713809ef1f5759  gcc/testsuite/gcc.dg/lto/chkp-privatize-1_1.c
*************** a4f83930fb87bd91e5bb42db50c8d318  gcc/te
*** 95598,95603 ****
--- 95600,95606 ----
  c0f68295e348ad36a641d8edeff2cfc6  gcc/testsuite/gnat.dg/prot9_pkg1.ads
  4cd15245a3399652865b3c6a9daf87ad  gcc/testsuite/gnat.dg/prot9_pkg2.ads
  8b9d81034e4a3268cbc4aae764775fd9  gcc/testsuite/gnat.dg/prot_def.adb
+ 00f160c0176ca352cbe49cfb9735cb39  gcc/testsuite/gnat.dg/protected_deref1.adb
  ca3a0803b3696ed0b41f6d8cbb5b962b  gcc/testsuite/gnat.dg/protected_func.adb
  f010d95f371dbccc1be8c51d48eb4db5  gcc/testsuite/gnat.dg/protected_func.ads
  ce1ec39ed99de56ced45d8b9f86bc85a  gcc/testsuite/gnat.dg/protected_null.adb
diff -Nrcpad gcc-13-20260219/gcc/DATESTAMP gcc-13-20260226/gcc/DATESTAMP
*** gcc-13-20260219/gcc/DATESTAMP	Thu Feb 19 22:32:05 2026
--- gcc-13-20260226/gcc/DATESTAMP	Thu Feb 26 22:32:06 2026
***************
*** 1 ****
! 20260219
--- 1 ----
! 20260226
diff -Nrcpad gcc-13-20260219/gcc/ada/ChangeLog gcc-13-20260226/gcc/ada/ChangeLog
*** gcc-13-20260219/gcc/ada/ChangeLog	Thu Feb 19 22:32:05 2026
--- gcc-13-20260226/gcc/ada/ChangeLog	Thu Feb 26 22:32:06 2026
***************
*** 1,3 ****
--- 1,16 ----
+ 2026-02-25  Eric Botcazou  <ebotcazou@adacore.com>
+ 
+ 	PR ada/124226
+ 	* sem_res.adb (Resolve_Implicit_Dereference): Move declaration to...
+ 	* sem_res.ads (Resolve_Implicit_Dereference): ...here.
+ 	* sem_attr.adb (Resolve_Attribute) <Attribute_Access>: Also call
+ 	Resolve_Implicit_Dereference when resolving a protected operation.
+ 
+ 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.
+ 
  2025-10-20  Eric Botcazou  <ebotcazou@adacore.com>
  
  	PR ada/107536
diff -Nrcpad gcc-13-20260219/gcc/ada/libgnat/s-stposu.adb gcc-13-20260226/gcc/ada/libgnat/s-stposu.adb
*** gcc-13-20260219/gcc/ada/libgnat/s-stposu.adb	Thu Feb 19 22:32:05 2026
--- gcc-13-20260226/gcc/ada/libgnat/s-stposu.adb	Thu Feb 26 22:32:06 2026
*************** package body System.Storage_Pools.Subpoo
*** 523,528 ****
--- 523,529 ----
     procedure Finalize_Pool (Pool : in out Root_Storage_Pool_With_Subpools) is
        Curr_Ptr : SP_Node_Ptr;
        Ex_Occur : Exception_Occurrence;
+       Handle   : Subpool_Handle;
        Raised   : Boolean := False;
  
        function Is_Empty_List (L : not null SP_Node_Ptr) return Boolean;
*************** package body System.Storage_Pools.Subpoo
*** 557,572 ****
        while not Is_Empty_List (Pool.Subpools'Unchecked_Access) loop
           Curr_Ptr := Pool.Subpools.Next;
  
!          --  Perform the following actions:
! 
!          --    1) Finalize all objects chained on the subpool's master
!          --    2) Remove the subpool from the owner's list of subpools
!          --    3) Deallocate the doubly linked list node associated with the
!          --       subpool.
!          --    4) Call Deallocate_Subpool
  
           begin
!             Finalize_And_Deallocate (Curr_Ptr.Subpool);
  
           exception
              when Fin_Occur : others =>
--- 558,570 ----
        while not Is_Empty_List (Pool.Subpools'Unchecked_Access) loop
           Curr_Ptr := Pool.Subpools.Next;
  
!          --  Finalize and deallocate the subpool. Beware that the node pointed
!          --  to by Curr_Ptr will be deallocated so may not be passed as actual
!          --  in the call, since the formal parameter is In Out.
  
           begin
!             Handle := Curr_Ptr.Subpool;
!             Finalize_And_Deallocate (Handle);
  
           exception
              when Fin_Occur : others =>
diff -Nrcpad gcc-13-20260219/gcc/ada/sem_attr.adb gcc-13-20260226/gcc/ada/sem_attr.adb
*** gcc-13-20260219/gcc/ada/sem_attr.adb	Thu Feb 19 22:32:05 2026
--- gcc-13-20260226/gcc/ada/sem_attr.adb	Thu Feb 26 22:32:06 2026
*************** package body Sem_Attr is
*** 11336,11341 ****
--- 11336,11342 ----
                 end if;
  
                 Resolve (Prefix (P));
+                Resolve_Implicit_Dereference (Prefix (P));
  
                 if not Is_Overloaded (P) then
                    Generate_Reference (Entity (Selector_Name (P)), P);
diff -Nrcpad gcc-13-20260219/gcc/ada/sem_res.adb gcc-13-20260226/gcc/ada/sem_res.adb
*** gcc-13-20260219/gcc/ada/sem_res.adb	Thu Feb 19 22:32:05 2026
--- gcc-13-20260226/gcc/ada/sem_res.adb	Thu Feb 26 22:32:07 2026
*************** package body Sem_Res is
*** 255,266 ****
     --  is the context type, which is used when the operation is a protected
     --  function with no arguments, and the return value is indexed.
  
-    procedure Resolve_Implicit_Dereference (P : Node_Id);
-    --  Called when P is the prefix of an indexed component, or of a selected
-    --  component, or of a slice. If P is of an access type, we unconditionally
-    --  rewrite it as an explicit dereference. This ensures that the expander
-    --  and the code generator have a fully explicit tree to work with.
- 
     procedure Resolve_Intrinsic_Operator (N : Node_Id; Typ : Entity_Id);
     --  A call to a user-defined intrinsic operator is rewritten as a call to
     --  the corresponding predefined operator, with suitable conversions. Note
--- 255,260 ----
diff -Nrcpad gcc-13-20260219/gcc/ada/sem_res.ads gcc-13-20260226/gcc/ada/sem_res.ads
*** gcc-13-20260219/gcc/ada/sem_res.ads	Thu Feb 19 22:32:05 2026
--- gcc-13-20260226/gcc/ada/sem_res.ads	Thu Feb 26 22:32:07 2026
*************** package Sem_Res is
*** 125,130 ****
--- 125,136 ----
     --  own type. For now we assume that the prefix cannot be overloaded and
     --  the name of the entry plays no role in the resolution.
  
+    procedure Resolve_Implicit_Dereference (P : Node_Id);
+    --  Called when P is the prefix of an indexed component, or of a selected
+    --  component, or of a slice. If P is of an access type, we unconditionally
+    --  rewrite it as an explicit dereference. This ensures that the expander
+    --  and the code generator have a fully explicit tree to work with.
+ 
     procedure Resolve_Membership_Equality (N : Node_Id; Typ : Entity_Id);
     --  Resolve the equality operator in an individual membership test
  
diff -Nrcpad gcc-13-20260219/gcc/lto/lto-symtab.cc gcc-13-20260226/gcc/lto/lto-symtab.cc
*** gcc-13-20260219/gcc/lto/lto-symtab.cc	Thu Feb 19 22:32:07 2026
--- gcc-13-20260226/gcc/lto/lto-symtab.cc	Thu Feb 26 22:32:08 2026
*************** lto_symtab_merge_symbols (void)
*** 1040,1045 ****
--- 1040,1046 ----
  		      node->analyzed = node->definition = false;
  		      node->remove_all_references ();
  		    }
+ 		  node->body_removed = true;
  		}
  	      DECL_EXTERNAL (node->decl) = 1;
  	    }
diff -Nrcpad gcc-13-20260219/gcc/testsuite/ChangeLog gcc-13-20260226/gcc/testsuite/ChangeLog
*** gcc-13-20260219/gcc/testsuite/ChangeLog	Thu Feb 19 22:32:07 2026
--- gcc-13-20260226/gcc/testsuite/ChangeLog	Thu Feb 26 22:32:09 2026
***************
*** 1,3 ****
--- 1,7 ----
+ 2026-02-25  Eric Botcazou  <ebotcazou@adacore.com>
+ 
+ 	* gnat.dg/protected_deref1.adb: New test.
+ 
  2026-02-08  Iain Buclaw  <ibuclaw@gdcproject.org>
  
  	Backported from master:
diff -Nrcpad gcc-13-20260219/gcc/testsuite/gcc.dg/lto/attr-weakref-2_0.c gcc-13-20260226/gcc/testsuite/gcc.dg/lto/attr-weakref-2_0.c
*** gcc-13-20260219/gcc/testsuite/gcc.dg/lto/attr-weakref-2_0.c	Thu Jan  1 00:00:00 1970
--- gcc-13-20260226/gcc/testsuite/gcc.dg/lto/attr-weakref-2_0.c	Thu Feb 26 22:32:11 2026
***************
*** 0 ****
--- 1,11 ----
+ /* { dg-lto-do link } */
+ /* { dg-lto-options {{-O2 -flto}} } */
+ 
+ #define __weak __attribute__((__weak__))
+ void __weak other() {}
+ void __weak fn() {}
+ 
+ int main() {
+   fn();
+   other();
+ }
diff -Nrcpad gcc-13-20260219/gcc/testsuite/gcc.dg/lto/attr-weakref-2_1.c gcc-13-20260226/gcc/testsuite/gcc.dg/lto/attr-weakref-2_1.c
*** gcc-13-20260219/gcc/testsuite/gcc.dg/lto/attr-weakref-2_1.c	Thu Jan  1 00:00:00 1970
--- gcc-13-20260226/gcc/testsuite/gcc.dg/lto/attr-weakref-2_1.c	Thu Feb 26 22:32:11 2026
***************
*** 0 ****
--- 1,3 ----
+ /* { dg-options {{-fno-lto}} } */
+ 
+ void fn() {}
diff -Nrcpad gcc-13-20260219/gcc/testsuite/gnat.dg/protected_deref1.adb gcc-13-20260226/gcc/testsuite/gnat.dg/protected_deref1.adb
*** gcc-13-20260219/gcc/testsuite/gnat.dg/protected_deref1.adb	Thu Jan  1 00:00:00 1970
--- gcc-13-20260226/gcc/testsuite/gnat.dg/protected_deref1.adb	Thu Feb 26 22:32:14 2026
***************
*** 0 ****
--- 1,32 ----
+ -- { dg-do run }
+ 
+ with Ada.Text_IO;
+ 
+ procedure Protected_Deref1 is
+ 
+    protected type Fallback_Hit_Counter_Type is
+       procedure Handler;
+    end Fallback_Hit_Counter_Type;
+ 
+    protected body Fallback_Hit_Counter_Type is
+       procedure Handler is
+       begin
+          Ada.Text_IO.Put_Line ("Test");
+       end Handler;
+    end Fallback_Hit_Counter_Type;
+ 
+    Fallback_Hit_Counter : access Fallback_Hit_Counter_Type :=
+      new Fallback_Hit_Counter_Type;
+ 
+    type X is access protected procedure;
+ 
+    A : X := Fallback_Hit_Counter.all.Handler'Access;
+    B : X := Fallback_Hit_Counter.Handler'Access;
+ 
+ begin
+    A.all;
+    B.all;
+    if A /= B then
+       raise Program_Error;
+    end if;
+ end;
