diff options
author | arphaman <arphaman@gmail.com> | 2013-08-02 12:12:58 +0100 |
---|---|---|
committer | arphaman <arphaman@gmail.com> | 2013-08-02 12:12:58 +0100 |
commit | 54a61c6956b8dd2d198fa0013c6b6b71a58c6577 (patch) | |
tree | c14a385c84f38369e2a59cea66f365810a6d239e /test/Parser | |
parent | 08a0e818eb90ceca719b8a23330ea7f61faca486 (diff) | |
download | flang-54a61c6956b8dd2d198fa0013c6b6b71a58c6577.tar.gz |
added parsing for statement functions
Diffstat (limited to 'test/Parser')
-rw-r--r-- | test/Parser/statementFunctions.f95 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/Parser/statementFunctions.f95 b/test/Parser/statementFunctions.f95 new file mode 100644 index 0000000000..eb1841d0a5 --- /dev/null +++ b/test/Parser/statementFunctions.f95 @@ -0,0 +1,12 @@ +! RUN: %flang -fsyntax-only -verify < %s +PROGRAM test + INTEGER ARR(10) + X(I) = I+2 + Y(A) = CMPLX(A) ** (1.0,-4.0) + J() = 1.0 + II(J) = ARR(J) + ZZ() = 1 2 3 ! expected-error {{expected line break or ';' at end of statement}} + ZZK(I = 2 ! expected-error {{expected ')'}} + ARR(1) = 1 + +END PROGRAM test |