diff options
author | arphaman <arphaman@gmail.com> | 2013-08-05 14:50:32 +0100 |
---|---|---|
committer | arphaman <arphaman@gmail.com> | 2013-08-05 14:50:32 +0100 |
commit | 6527037a48e3b98b6cde1e0f353264ad151e4e66 (patch) | |
tree | aef088a185b35499250346c28398b37af5844d34 /test/Parser | |
parent | 7bf3255ea110256fd05fdc9ece7cc72ca2316e04 (diff) | |
download | flang-6527037a48e3b98b6cde1e0f353264ad151e4e66.tar.gz |
added parsing for EQUIVALENCE statement
Diffstat (limited to 'test/Parser')
-rw-r--r-- | test/Parser/equivalence.f95 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/Parser/equivalence.f95 b/test/Parser/equivalence.f95 new file mode 100644 index 0000000000..8a8264f533 --- /dev/null +++ b/test/Parser/equivalence.f95 @@ -0,0 +1,12 @@ +! RUN: %flang -verify -fsyntax-only < %s + +PROGRAM equivtest + REAL A, B + EQUIVALENCE (A,B) + INTEGER I, J, K, M, N, O(3) + EQUIVALENCE (A, I), (B, K) + + EQUIVALENCE (I,J ! expected-error {{expected ')'}} + EQUIVALENCE (M, N) (M, O(1)) ! expected-error {{expected ','}} + +END |