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 --git a/gcc/testsuite/gfortran.dg/pr109345.f90 b/gcc/testsuite/gfortran.dg/pr109345.f90
index cff9aaa987a0112b64c803d47c7346369ba214c0..bd91b11c555bf98ff68e65fb12dacfe228db31ac 100644 (file)
--- 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)