Merge branch 'mppa-cse2' of gricad-gitlab.univ-grenoble-alpes.fr:sixcy/CompCert into mppa-work

2 files changed, 48 insertions, 0 deletions

diff --git a/test/monniaux/multithreaded_volatile/Makefile b/test/monniaux/multithreaded_volatile/Makefile
new file mode 100644
index 00000000..35717953
--- /dev/null
+++ b/test/monniaux/multithreaded_volatile/Makefile
@@ -0,0 +1,18 @@
+all: volatile.ccomp.k1c volatile.gcc.k1c
+
+volatile.ccomp.k1c : volatile.ccomp.k1c.s
+	k1-cos-gcc $< -o $@
+
+volatile.gcc.k1c : volatile.gcc.k1c.s
+	k1-cos-gcc $< -o $@
+
+volatile.ccomp.k1c.s : volatile.c
+	../../../ccomp -O2 -Wall -S $< -o $@
+
+volatile.gcc.k1c.s : volatile.c
+	k1-cos-gcc -O2 -Wall -Werror=implicit -std=gnu99 -S $< -o $@
+
+clean:
+	-rm -f *.k1c *.s
+
+.PHONY: clean
diff --git a/test/monniaux/multithreaded_volatile/volatile.c b/test/monniaux/multithreaded_volatile/volatile.c
new file mode 100644
index 00000000..f8ffee2d
--- /dev/null
+++ b/test/monniaux/multithreaded_volatile/volatile.c
@@ -0,0 +1,30 @@
+#include <stdio.h>
+#include <time.h>
+#include <pthread.h>
+
+typedef unsigned data;
+
+static inline data powM(data x, unsigned e) {
+  data y = 1;
+  for(unsigned i=0; i<e; i++) {
+    y = (y * x) % 65537;
+  }
+  return y;
+}
+
+void* second_thread_entry(void *ptr) {
+  *((volatile data*) ptr) = powM(3, 65536);
+  return NULL;
+}
+
+int main() {
+  pthread_t second_thread_id;
+  volatile data value;
+  pthread_create(&second_thread_id, NULL,
+                 second_thread_entry, (void*) &value);
+  value = 69;
+  data correct = powM(3, 65536*2);
+  data read = value;
+  pthread_join(second_thread_id, NULL);
+  printf("%u %u %s\n", read, correct, read == correct ? "OK" : "FAIL");
+}