--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/flang/test/Semantics/resolve60.f90	Mon May 25 11:55:54 2020 +0900
@@ -0,0 +1,39 @@
+! RUN: %S/test_errors.sh %s %t %f18
+! Testing 7.6 enum
+
+  ! OK
+  enum, bind(C)
+    enumerator :: red, green
+    enumerator blue, pink
+    enumerator yellow
+    enumerator :: purple = 2
+  end enum
+
+  integer(yellow) anint4
+
+  enum, bind(C)
+    enumerator :: square, cicrle
+    !ERROR: 'square' is already declared in this scoping unit
+    enumerator square
+  end enum
+
+  dimension :: apple(4)
+  real :: peach
+
+  enum, bind(C)
+    !ERROR: 'apple' is already declared in this scoping unit
+    enumerator :: apple
+    enumerator :: pear
+    !ERROR: 'peach' is already declared in this scoping unit
+    enumerator :: peach
+    !ERROR: 'red' is already declared in this scoping unit
+    enumerator :: red
+  end enum
+
+  enum, bind(C)
+    !ERROR: Enumerator value could not be computed from the given expression
+    !ERROR: Must be a constant value
+    enumerator :: wrong = 0/0
+  end enum
+
+end