[flang-commits] [PATCH] D157521: [flang] Add two new semantics tests for `critical-construct`

[Katherine Rasmussen via Phabricator via flang-commits]

This revision was automatically updated to reflect the committed changes.
Closed by commit rGd0abde035436: [flang] Add two new semantics tests for `critical-construct` (authored by ElliotWhitney, committed by ktras).

Repository:
  rG LLVM Github Monorepo

CHANGES SINCE LAST ACTION
  https://reviews.llvm.org/D157521/new/

https://reviews.llvm.org/D157521

Files:
  flang/test/Semantics/critical05.f90
  flang/test/Semantics/critical06.f90


Index: flang/test/Semantics/critical06.f90
===================================================================
--- /dev/null
+++ flang/test/Semantics/critical06.f90
@@ -0,0 +1,12 @@
+! RUN: %python %S/test_errors.py %s %flang_fc1
+program testcriticalconstruct
+
+  Start_name_only: Critical
+  !ERROR: CRITICAL construct name required but missing
+  End critical !C1117 in the Fortran 2018 standard
+
+  critical
+  !ERROR: CRITICAL construct name unexpected
+  end critical end_name_only !C1117 in Fortran 2018 standard
+
+end program
Index: flang/test/Semantics/critical05.f90
===================================================================
--- /dev/null
+++ flang/test/Semantics/critical05.f90
@@ -0,0 +1,38 @@
+! RUN: %python %S/test_errors.py %s %flang_fc1
+program testcriticalconstruct
+  integer :: status
+  character(len=128) :: errormessage
+  integer :: total = 0
+  integer :: i
+
+  CRITICAL
+  END CRITICAL
+
+  Testname: Critical
+  End critical Testname
+
+  stat_variable: critical (STAT=status)
+  End critical stat_variable
+
+  errmsg_variable: critical (ERRMSG=errormessage)
+  End critical errmsg_variable
+
+  critical (ERRMSG=errormessage, STAT=status)
+  End critical
+
+  critical ()
+  end critical
+
+  critical (STAT=status)
+    do i = 1, this_image()
+        total = total + 1
+    end do
+    print *, "Total is: ", total
+  End critical
+
+  critical
+    10 continue
+    GO TO 10
+  End critical
+
+end program testcriticalconstruct


-------------- next part --------------
A non-text attachment was scrubbed...
Name: D157521.549100.patch
Type: text/x-patch
Size: 1475 bytes
Desc: not available
URL: <http://lists.llvm.org/pipermail/flang-commits/attachments/20230810/8e41cb35/attachment.bin>