2 files changed, 19 insertions, 4 deletions
diff --git a/test cases/fortran/23 preprocess/main.f90 b/test cases/fortran/23 preprocess/main.f90
index 7cbc11cec..825174158 100644
--- a/test cases/fortran/23 preprocess/main.f90
+++ b/test cases/fortran/23 preprocess/main.f90
@@ -1,4 +1,14 @@
 #define MYDEF program
 MYDEF foo
-    write (*,*) 'Hello, world!'
+    character(20) :: str
+#ifdef CORRECT
+        str = 'Hello, ' // 'world!'
+#else
+        str = 'Preprocessing error!'
+#endif
+    if (str /= 'Hello, world!') then
+        print *, 'Preprocessing failed.'
+        error stop 1
+    end if
+    stop 0
 end MYDEF foo
diff --git a/test cases/fortran/23 preprocess/meson.build b/test cases/fortran/23 preprocess/meson.build
index b776940a9..88077d3c6 100644
--- a/test cases/fortran/23 preprocess/meson.build
+++ b/test cases/fortran/23 preprocess/meson.build
@@ -1,7 +1,12 @@
-project('preprocess', 'fortran')
+project('preprocess', 'fortran', meson_version: '>1.3.2')
 
 fc = meson.get_compiler('fortran')
 
-pp_files = fc.preprocess('main.f90', output: '@PLAINNAME@')
+pp_files = fc.preprocess(
+    'main.f90',
+    compile_args: ['-DCORRECT=true'],
+    output: '@PLAINNAME@')
 
-library('foo', pp_files)
+t = executable('foo', pp_files)
+
+test('check_result', t)