From 248a75ff4871cf8887280438a1fdf7b8f32084a2 Mon Sep 17 00:00:00 2001 From: "Michael Hirsch, Ph.D" Date: Wed, 23 Oct 2019 00:39:24 -0400 Subject: [PATCH] tests: add fortran-specific compiler checks --- .../fortran/17 add_languages/meson.build | 5 ++++ test cases/fortran/18 first_arg/meson.build | 26 +++++++++++++++++++ 2 files changed, 31 insertions(+) create mode 100644 test cases/fortran/17 add_languages/meson.build create mode 100644 test cases/fortran/18 first_arg/meson.build diff --git a/test cases/fortran/17 add_languages/meson.build b/test cases/fortran/17 add_languages/meson.build new file mode 100644 index 000000000..e7de1808b --- /dev/null +++ b/test cases/fortran/17 add_languages/meson.build @@ -0,0 +1,5 @@ +project('add_lang_fortran') + +# catch bug where Fortran compiler is found with project('foo', 'fortran') but +# not by add_languages('fortran') +assert(add_languages('fortran'), 'these tests assume Fortran compiler can be found') \ No newline at end of file diff --git a/test cases/fortran/18 first_arg/meson.build b/test cases/fortran/18 first_arg/meson.build new file mode 100644 index 000000000..874f4db54 --- /dev/null +++ b/test cases/fortran/18 first_arg/meson.build @@ -0,0 +1,26 @@ +project('fortran_args', 'fortran') + +fc = meson.get_compiler('fortran') + +if fc.get_id() == 'intel-cl' + is_arg = '/O2' + useless = '/DFOO' +else + is_arg = '-O2' + useless = '-DFOO' +endif + +isnt_arg = '-fiambroken' + +assert(fc.has_argument(is_arg), 'Arg that should have worked does not work.') +assert(not fc.has_argument(isnt_arg), 'Arg that should be broken is not.') + +assert(fc.get_supported_arguments([is_arg, isnt_arg, useless]) == [is_arg, useless], 'Arg filtering returned different result.') + +# Have useless at the end to ensure that the search goes from front to back. +l1 = fc.first_supported_argument([isnt_arg, is_arg, isnt_arg, useless]) +l2 = fc.first_supported_argument(isnt_arg, isnt_arg, isnt_arg) + +assert(l1.length() == 1, 'First supported returned wrong result.') +assert(l1.get(0) == is_arg, 'First supported returned wrong argument.') +assert(l2.length() == 0, 'First supported did not return empty array.')