From 582776eb1b62c32f5234566a01ea92247b7d6bcc Mon Sep 17 00:00:00 2001
From: Tobias Burnus <tobias@codesourcery.com>
Date: Mon, 17 May 2021 13:20:27 +0200
Subject: OpenMP/Fortran: Reject nonintrinsic assignments in OMP WORKSHARE
 [PR100633]

	PR fortran/100633

gcc/fortran/ChangeLog:

	* resolve.c (gfc_resolve_code): Reject nonintrinsic assignments in
	OMP WORKSHARE.

gcc/testsuite/ChangeLog:

	* gfortran.dg/gomp/workshare-59.f90: New test.
---
 gcc/fortran/resolve.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'gcc/fortran/resolve.c')

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index c02bbed..747516f 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -11940,6 +11940,12 @@ start:
 
 	  if (resolve_ordinary_assign (code, ns))
 	    {
+	      if (omp_workshare_flag)
+		{
+		  gfc_error ("Expected intrinsic assignment in OMP WORKSHARE "
+			     "at %L", &code->loc);
+		  break;
+		}
 	      if (code->op == EXEC_COMPCALL)
 		goto compcall;
 	      else
-- 
cgit v1.1