From: tschwinge <tschwinge@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 18 Jun 2019 22:14:43 +0000 (+0000)
Subject: Add missing results check in 'libgomp.fortran/allocatable3.f90'
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=4173ac4522222932749a0f1d19228adc9a2284bc;p=thirdparty%2Fgcc.git

Add missing results check in 'libgomp.fortran/allocatable3.f90'

	libgomp/
	* testsuite/libgomp.fortran/allocatable3.f90: Add missing results
	check.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@272449 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index bd57e38ce19a..ef6397f1d28b 100644
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,8 @@
+2019-06-18  Thomas Schwinge  <thomas@codesourcery.com>
+
+	* testsuite/libgomp.fortran/allocatable3.f90: Add missing results
+	check.
+
 2019-06-18  Cesar Philippidis  <cesar@codesourcery.com>
 
 	* testsuite/libgomp.oacc-fortran/allocatable-array-1.f90: New
diff --git a/libgomp/testsuite/libgomp.fortran/allocatable3.f90 b/libgomp/testsuite/libgomp.fortran/allocatable3.f90
index 03ed1ac3f1ad..df69fff54919 100644
--- a/libgomp/testsuite/libgomp.fortran/allocatable3.f90
+++ b/libgomp/testsuite/libgomp.fortran/allocatable3.f90
@@ -18,4 +18,5 @@
   l = l.or.any (a.ne.0)
   deallocate (a)
 !$omp end parallel
+  if (l.or.allocated (a)) STOP 2
 end