https://gcc.gnu.org/g:0794ca02b47935cd672f74815023d708e5e262e1
commit r13-9211-g0794ca02b47935cd672f74815023d708e5e262e1
Author: Paul Thomas <pa...@gcc.gnu.org>
Date: Sun Nov 24 14:25:37 2024 +0000
Fortran: Suppress failing part of testcase [PR109345]
2024-11-24 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..5f59bef00078 100644
--- a/gcc/testsuite/gfortran.dg/pr109345.f90
+++ b/gcc/testsuite/gfortran.dg/pr109345.f90
@@ -31,7 +31,7 @@ program test
! Test component references
call foo (str_t%str_array(1), .true.)
! 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 13-branch
contains
subroutine foo (var, flag)
@@ -57,7 +57,7 @@ contains
if (any (var /= str_array4(1))) stop 6
end if
do i = 1, size(var)
-! Elemental array references did not work.
+! Elemental array references did not work. (Does not work in 13-branch)
if (var(i) /= var(1)) then
if (present (flag)) stop 7
if (trim (var(i)) /= trim (str_array4(i))) stop 8
