https://gcc.gnu.org/g:42fd3cc43061f924d09a9952468cbc67e3cd8815
commit r12-11122-g42fd3cc43061f924d09a9952468cbc67e3cd8815
Author: Paul Thomas <pa...@gcc.gnu.org>
Date: Mon Jun 2 09:56:02 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 | 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)
