From 4aac676c54e926e69be113f42a79481bd8da7d8c Mon Sep 17 00:00:00 2001
From: sameeranjoshi17 <joshisameeran17@gmail.com>
Date: Wed, 6 Nov 2019 14:18:12 +0530
Subject: [PATCH] [flang] Added test case for semantic check of OpenMP Master
 construct

Original-commit: flang-compiler/f18@22f3088c76517b32996962da4ab4687b376ef878
Reviewed-on: https://github.com/flang-compiler/f18/pull/808
Tree-same-pre-rewrite: false
---
 flang/test/semantics/omp-clause-validity01.f90 | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/flang/test/semantics/omp-clause-validity01.f90 b/flang/test/semantics/omp-clause-validity01.f90
index 45b544f8340d..c503793b8660 100644
--- a/flang/test/semantics/omp-clause-validity01.f90
+++ b/flang/test/semantics/omp-clause-validity01.f90
@@ -377,6 +377,15 @@
     a = 3.14
   enddo
 
+! 2.13.1 master
+
+  !$omp parallel
+  !ERROR: NUM_THREADS clause is not allowed on the MASTER directive
+  !$omp master num_threads(4)
+  a=3.14
+  !$omp end master
+  !$omp end parallel
+
 ! Standalone Directives (basic)
 
   !$omp taskyield