added parsing for RECURSIVE

2 files changed, 16 insertions, 0 deletions

diff --git a/test/Parser/recursive.f b/test/Parser/recursive.f
new file mode 100644
index 0000000000..0f6f648e25
--- /dev/null
+++ b/test/Parser/recursive.f
@@ -0,0 +1,6 @@
+C RUN: %flang -fsyntax-only %s
+
+       RECURSI VE SUB ROUTINE SU B()
+       END
+       RECU RSIV E FUNCTIO N F OO()
+       END
diff --git a/test/Parser/recursive.f95 b/test/Parser/recursive.f95
new file mode 100644
index 0000000000..02dc821990
--- /dev/null
+++ b/test/Parser/recursive.f95
@@ -0,0 +1,10 @@
+! RUN: %flang -fsyntax-only -verify < %s
+
+RECURSIVE SUBROUTINE SUB()
+END
+
+RECURSIVE FUNCTION FOO()
+END
+
+RECURSIVE PROGRAM main ! expected-error {{expected 'function' or 'subroutine' after 'recursive'}}
+END