added parsing for select case stmt

1 files changed, 29 insertions, 0 deletions

diff --git a/test/Parser/selectcase.f95 b/test/Parser/selectcase.f95
new file mode 100644
index 0000000000..5cf9be00a3
--- /dev/null
+++ b/test/Parser/selectcase.f95
@@ -0,0 +1,29 @@
+! RUN: %flang -fsyntax-only -verify < %s
+
+PROGRAM selecttest
+  INTEGER I
+  SELECT CASE(1)
+  END SELECT
+
+  I = 0
+  a: SELECT CASE(I)
+  CASE DEFAULT a
+  END SELECT a
+
+  SELECT CASE(I)
+  CASE (1,2)
+    I = 1
+  CASE (3:)
+    I = 42
+  END SELECT
+
+  SELECT CASE(I)
+  CASE (:1)
+    I = -1
+  CASE (2:6,7)
+    I = 3
+  CASE DEFAULT
+    I = 0
+  END SELECT
+
+END