[gcc r12-11122] Fortran: Suppress failing part of testcase [PR109345]

[Paul Thomas]

https://gcc.gnu.org/g:42fd3cc43061f924d09a9952468cbc67e3cd8815

commit r12-11122-g42fd3cc43061f924d09a9952468cbc67e3cd8815
Author: Paul Thomas <pault@gcc.gnu.org>
Date:   Mon Jun 2 09:56:02 2025 +0100

    Fortran: Suppress failing part of testcase [PR109345]
    
    2024-06-02  Paul Thomas  <pault@gcc.gnu.org>
    
    gcc/testsuite/
            PR fortran/109345
            * gfortran.dg/pr109345.f90: Comment out test of component refs.

Diff:
---
 gcc/testsuite/gfortran.dg/pr109345.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/testsuite/gfortran.dg/pr109345.f90 b/gcc/testsuite/gfortran.dg/pr109345.f90
index cff9aaa987a0..bd91b11c555b 100644
--- a/gcc/testsuite/gfortran.dg/pr109345.f90
+++ b/gcc/testsuite/gfortran.dg/pr109345.f90
@@ -29,9 +29,9 @@ program test
 ! Test character(kind=4)
   call foo (str_t(2)%str_array)
 ! Test component references
-  call foo (str_t%str_array(1), .true.)
+!  call foo (str_t%str_array(1), .true.) ! Does not work in 12-/13-branches
 ! Test component references and that array offset is correct.
-  call foo (str_t(2:3)%i)
+!  call foo (str_t(2:3)%i)               ! Does not work in 12-/13-branches
 
 contains
   subroutine foo (var, flag)