added support for named if and do constructs

2 files changed, 29 insertions, 0 deletions

diff --git a/test/Parser/fixedFormNamedConstructs.f b/test/Parser/fixedFormNamedConstructs.f
new file mode 100644
index 0000000000..92b97ce3a4
--- /dev/null
+++ b/test/Parser/fixedFormNamedConstructs.f
@@ -0,0 +1,11 @@
+* RUN: %flang -fsyntax-only %s
+      PROGRAM test
+      c:DOI=1,10
+      ENDDOc
+      b:DOWHILE(.false.)
+      ENDDOb
+      a:IF(.true.)THEN
+      ELSEIF(.false.)THENa
+      ELSEa
+      ENDIFa
+      END
diff --git a/test/Parser/namedConstructs.f95 b/test/Parser/namedConstructs.f95
new file mode 100644
index 0000000000..b8c8d516ab
--- /dev/null
+++ b/test/Parser/namedConstructs.f95
@@ -0,0 +1,18 @@
+! RUN: %flang -fsyntax-only < %s
+PROGRAM test
+
+  a: IF(.false.) THEN
+  END IF a
+
+  b: DO I = 1,10
+  END DO b
+
+1 c: DO WHILE(.false.)
+  END DO c
+
+  d: IF(.true.) THEN
+  ELSE IF(.false.) THEN d
+  ELSE d
+  END IF d
+
+END