From: Thomas Schwinge <thomas@codesourcery.com>
Date: Tue, 18 Jun 2019 22:14:43 +0000 (+0200)
Subject: Add missing results check in 'libgomp.fortran/allocatable3.f90'
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bd194a51d45d7435dcc6a2cc91bafe03361ef605;p=gcc.git

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

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

From-SVN: r272449
---

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index bd57e38ce19..ef6397f1d28 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 03ed1ac3f1a..df69fff5491 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