@@ -120,33 +120,37 @@ else
120120endif
121121
122122pp_options = []
123- pp_flag = []
123+ fc_flag = []
124+ cc_flag = []
124125if fc.get_id() == ' gcc' or fc.get_id() == ' llvm-flang'
125- pp_flag += ' -cpp'
126+ fc_flag += ' -cpp'
126127 pp_options += [' -cpp' , ' -E' ]
127128elif fc.get_id() == ' intel' or fc.get_id() == ' intel-llvm'
128- pp_flag += ' -fpp'
129+ fc_flag += ' -fpp'
129130 pp_options += [' -fpp' , ' -P' ]
130131elif fc.get_id() == ' intel-cl' or fc.get_id() == ' intel-llvm-cl'
131- pp_flag += ' /fpp'
132+ fc_flag += ' /fpp'
132133 pp_options += [' /fpp' , ' /P' ]
133134elif fc.get_id() == ' nagfor'
134- pp_flag += ' -fpp'
135+ fc_flag += ' -fpp'
135136 pp_options += [' -fpp' , ' -F' ]
136137elif fc.get_id() == ' nvidia_hpc'
137- pp_flag += ' -Mcpp'
138+ fc_flag += ' -Mcpp'
138139 pp_options += [' -Mcpp' , ' -F' ]
139140endif
140141if build_quadruple
141- pp_flag += ' -DCUTEST_16btye_reals_exist'
142+ cc_flag += ' -DCUTEST_16btye_reals_exist'
143+ fc_flag += ' -DCUTEST_16btye_reals_exist'
142144 pp_options += ' -DCUTEST_16btye_reals_exist'
143145endif
144146if int64
145- pp_flag += ' -DINTEGER_64'
147+ cc_flag += ' -DINTEGER_64'
148+ fc_flag += ' -DINTEGER_64'
146149 pp_options += ' -DINTEGER_64'
147150endif
148151if host_machine .system() == ' windows'
149- pp_flag += ' -DWINDOWS'
152+ cc_flag += ' -DWINDOWS'
153+ fc_flag += ' -DWINDOWS'
150154 pp_options += ' -DWINDOWS'
151155endif
152156
@@ -247,20 +251,20 @@ if build_tests and static_compilation
247251
248252 if precision == ' single'
249253 libcutest_precision = libcutest_single
250- args_precision = pp_flag + ' -DREAL_32'
254+ fortran_args_precision = fc_flag + ' -DREAL_32'
251255 endif
252256 if precision == ' double'
253257 libcutest_precision = libcutest_double
254- args_precision = pp_flag
258+ fortran_args_precision = fc_flag
255259 endif
256260 if precision == ' quadruple'
257261 libcutest_precision = libcutest_quadruple
258- args_precision = pp_flag + ' -DREAL_128'
262+ fortran_args_precision = fc_flag + ' -DREAL_128'
259263 endif
260264
261265 test (name,
262266 executable (name, file,
263- fortran_args : args_precision ,
267+ fortran_args : fortran_args_precision ,
264268 link_with : libcutest_precision,
265269 link_language : ' fortran' ,
266270 include_directories : libcutest_include,
@@ -285,35 +289,23 @@ if build_tests and (fc.get_id() == 'gcc') and static_compilation
285289
286290 if precision == ' single'
287291 libcutest_precision = libcutest_single
288- args_precision = pp_flag + ' -DREAL_32'
289- if cc.get_id() == ' clang'
290- c_args_precision = ' -DREAL_32'
291- else
292- c_args_precision = args_precision
293- endif
292+ fortran_args_precision = fc_flag + ' -DREAL_32'
293+ c_args_precision = cc_flag + ' -DREAL_32'
294294 endif
295295 if precision == ' double'
296296 libcutest_precision = libcutest_double
297- args_precision = pp_flag
298- if cc.get_id() == ' clang'
299- c_args_precision = ''
300- else
301- c_args_precision = args_precision
302- endif
297+ fortran_args_precision = fc_flag
298+ c_args_precision = cc_flag
303299 endif
304300 if precision == ' quadruple'
305301 libcutest_precision = libcutest_quadruple
306- args_precision = pp_flag + ' -DREAL_128'
307- if cc.get_id() == ' clang'
308- c_args_precision = ' -DREAL_128'
309- else
310- c_args_precision = args_precision
311- endif
302+ fortran_args_precision = fc_flag + ' -DREAL_128'
303+ c_args_precision = cc_flag + ' -DREAL_128'
312304 endif
313305
314306 test (name,
315307 executable (name, file,
316- fortran_args : args_precision ,
308+ fortran_args : fortran_args_precision ,
317309 c_args : c_args_precision,
318310 link_with : libcutest_precision,
319311 link_language : ' fortran' ,
0 commit comments