The Meson Build System
http://mesonbuild.com/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
1.5 KiB
47 lines
1.5 KiB
5 years ago
|
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.')
|
||
|
|
||
|
# --- test with an actual program, here for implicit none
|
||
|
|
||
|
in0 = fc.first_supported_argument('-fimplicit-none', '-Mdclchk', '/warn:declarations', '-warn').get(0, '')
|
||
|
impnone = {
|
||
|
'intel-cl': '/warn:declarations',
|
||
|
'intel': '-warn',
|
||
|
'gcc': '-fimplicit-none',
|
||
|
'pgi': '-Mdclchk',
|
||
|
}
|
||
|
|
||
|
arg = impnone.get(fc.get_id(), '')
|
||
|
if arg != ''
|
||
|
assert(in0 == arg, 'implicit none argument ' + arg + ' not matching ' + in0)
|
||
|
endif
|
||
|
|
||
|
in1 = fc.get_supported_arguments('-fimplicit-none', '/warn:declarations', '/warn:errors', '-Mdclchk')
|
||
|
if in1.length() > 0
|
||
|
assert(not fc.compiles(files('main.f90'), args: in1, name:'will fail implicit none'), 'implicit none should have failed')
|
||
|
endif
|