started sema for EQUIVALENCE stmt

1 files changed, 24 insertions, 0 deletions

diff --git a/test/Sema/equivalence.f95 b/test/Sema/equivalence.f95
new file mode 100644
index 0000000000..8c30e80928
--- /dev/null
+++ b/test/Sema/equivalence.f95
@@ -0,0 +1,24 @@
+! RUN: %flang -verify -fsyntax-only < %s
+
+SUBROUTINE equivtest(JJ) ! expected-note {{'jj' is an argument defined here}}
+  REAL A, B
+  EQUIVALENCE (A,B)
+  INTEGER I, J, JJ, K, M, N, O(3)
+  CHARACTER STR*10
+  INTEGER(Kind=8) FOO
+  PARAMETER(II = 111) ! expected-note {{'ii' is a parameter constant defined here}}
+  EQUIVALENCE (A, I), (B, K)
+
+  EQUIVALENCE (I, O(1))
+  EQUIVALENCE (N, O(I)) ! expected-error {{statement requires a constant expression}}
+
+  EQUIVALENCE (II, I) ! expected-error {{specification statement requires a local variable}}
+  EQUIVALENCE (I, jj) ! expected-error {{specification statement requires a local variable}}
+
+  EQUIVALENCE (I, 22) ! expected-error {{specification statement requires a variable or an array element expression}}
+
+  EQUIVALENCE (I, STR) ! expected-error {{expected an expression of integer, real, complex or logical type ('character (Len=10)' invalid)}}
+  EQUIVALENCE (STR, A) ! expected-error {{expected an expression of character type ('real' invalid)}}
+  EQUIVALENCE (I, FOO) ! expected-error {{expected an expression with default type kind ('integer (Kind=8)' invalid)}}
+
+END