https://gcc.gnu.org/g:0bead22a867c11011ab669c49b6a5a6bc528e746
commit r13-9735-g0bead22a867c11011ab669c49b6a5a6bc528e746
Author: Paul Thomas <pa...@gcc.gnu.org>
Date: Mon Jun 2 09:50:01 2025 +0100
Fortran: Suppress failing part of testcase [PR109345]
2024-06-02 Paul Thomas <pa...@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 | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/gcc/testsuite/gfortran.dg/pr109345.f90
b/gcc/testsuite/gfortran.dg/pr109345.f90
index 5f59bef00078..fc5013517ce4 100644
--- a/gcc/testsuite/gfortran.dg/pr109345.f90
+++ b/gcc/testsuite/gfortran.dg/pr109345.f90
@@ -29,10 +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) ! Does not work in 13-branch
-
+! call foo (str_t(2:3)%i) ! Does not work in 12-/13-branches
contains
subroutine foo (var, flag)
class(*), intent(in) :: var(:)
