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 bd57e38ce19a9876bf5f8cee40e3d08f11b8da6a..ef6397f1d28b6469a488a4a97c42cfed2c114ddb 100644 (file)
--- 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 03ed1ac3f1adc5cebc60cea5f610f7f35dfe8459..df69fff54919eb33378317e7aeb99ce3b74d2285 100644 (file)
--- 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