Fortran 2008/2018 Coarray support

2 files changed, 19 insertions, 0 deletions

diff --git a/test cases/fortran/13 coarray/main.f90 b/test cases/fortran/13 coarray/main.f90
new file mode 100644
index 000000000..be60552a7
--- /dev/null
+++ b/test cases/fortran/13 coarray/main.f90
@@ -0,0 +1,9 @@
+implicit none
+
+if (this_image() == 1)  print *, 'number of Fortran coarray images:', num_images()
+
+sync all ! semaphore, ensures message above is printed at top.
+
+print *, 'Process ', this_image()
+
+end program
diff --git a/test cases/fortran/13 coarray/meson.build b/test cases/fortran/13 coarray/meson.build
new file mode 100644
index 000000000..57aa29edb
--- /dev/null
+++ b/test cases/fortran/13 coarray/meson.build
@@ -0,0 +1,10 @@
+project('Fortran coarray', 'fortran')
+
+# coarray is required because single-image fallback is an intrinsic feature
+coarray = dependency('coarray', required : true)
+
+exe = executable('hello', 'main.f90',
+  dependencies : coarray)
+
+test('Coarray hello world', exe)
+