https://gcc.gnu.org/g:8d6994f33a98a168151a57a3d21395b19196cd9d
commit r15-2157-g8d6994f33a98a168151a57a3d21395b19196cd9d
Author: Paul Thomas <pa...@gcc.gnu.org>
Date: Fri Jul 19 16:58:33 2024 +0100
libgomp: Remove bogus warnings from privatized-ref-2.f90.
2024-07-19 Paul Thomas <pa...@gcc.gnu.org>
libgomp/ChangeLog
* testsuite/libgomp.oacc-fortran/privatized-ref-2.f90: Cut
dg-note about 'a' and remove bogus warnings about its array
descriptor components being used uninitialized.
Diff:
---
libgomp/testsuite/libgomp.oacc-fortran/privatized-ref-2.f90 | 6 ------
1 file changed, 6 deletions(-)
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/privatized-ref-2.f90
b/libgomp/testsuite/libgomp.oacc-fortran/privatized-ref-2.f90
index 498ef70b63a4..8cf79a10e8d2 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/privatized-ref-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/privatized-ref-2.f90
@@ -29,16 +29,10 @@ program main
implicit none (type, external)
integer :: j
integer, allocatable :: A(:)
- ! { dg-note {'a' declared here} {} { target *-*-* } .-1 }
character(len=:), allocatable :: my_str
character(len=15), allocatable :: my_str15
A = [(3*j, j=1, 10)]
- ! { dg-bogus {'a\.offset' is used uninitialized} {PR77504 etc.} { xfail
*-*-* } .-1 }
- ! { dg-bogus {'a\.dim\[0\]\.lbound' is used uninitialized} {PR77504 etc.} {
xfail *-*-* } .-2 }
- ! { dg-bogus {'a\.dim\[0\]\.ubound' is used uninitialized} {PR77504 etc.} {
xfail *-*-* } .-3 }
- ! { dg-bogus {'a\.dim\[0\]\.lbound' may be used uninitialized} {PR77504
etc.} { xfail { ! __OPTIMIZE__ } } .-4 }
- ! { dg-bogus {'a\.dim\[0\]\.ubound' may be used uninitialized} {PR77504
etc.} { xfail { ! __OPTIMIZE__ } } .-5 }
call foo (A, size(A))
call bar (A)
my_str = "1234567890"
