parameters: (self, *k, **kw)
return_statement: return (u, du, c)
docstring: Detect the mangling scheme, sets FORTRAN_MANGLING to the triplet found
  
  	This test will compile a fortran static library, then link a c app against it
docstring_summary: Detect the mangling scheme, sets FORTRAN_MANGLING to the triplet found
docstring_tokens: Detect the mangling scheme sets FORTRAN_MANGLING to the triplet found
function: def check_fortran_mangling(self, *k, **kw):
  	"""
  	Detect the mangling scheme, sets FORTRAN_MANGLING to the triplet found
  
  	This test will compile a fortran static library, then link a c app against it
  	"""
  	if not self.env.CC:
  		self.fatal('A c compiler is required for link_main_routines')
  	if not self.env.FC:
  		self.fatal('A fortran compiler is required for link_main_routines')
  	if not self.env.FC_MAIN:
  		self.fatal('Checking for mangling requires self.env.FC_MAIN (execute "check_fortran_dummy_main" first?)')
  
  	self.start_msg('Getting fortran mangling scheme')
  	for (u, du, c) in mangling_schemes():
  		try:
  			self.check_cc(
  				compile_filename   = [],
  				features           = 'link_main_routines_func',
  				msg                = 'nomsg',
  				errmsg             = 'nomsg',
  				dummy_func_nounder = mangle_name(u, du, c, 'foobar'),
  				dummy_func_under   = mangle_name(u, du, c, 'foo_bar'),
  				main_func_name     = self.env.FC_MAIN
  			)
  		except self.errors.ConfigurationError:
  			pass
  		else:
  			self.end_msg("ok ('%s', '%s', '%s-case')" % (u, du, c))
  			self.env.FORTRAN_MANGLING = (u, du, c)
  			break
  	else:
  		self.end_msg(False)
  		self.fatal('mangler not found')
  	return (u, du, c)
function_tokens: def check_fortran_mangling ( self , * k , * * kw ) : if not self . env . CC : self . fatal ( 'A c compiler is required for link_main_routines' ) if not self . env . FC : self . fatal ( 'A fortran compiler is required for link_main_routines' ) if not self . env . FC_MAIN : self . fatal ( 'Checking for mangling requires self.env.FC_MAIN (execute "check_fortran_dummy_main" first?)' ) self . start_msg ( 'Getting fortran mangling scheme' ) for ( u , du , c ) in mangling_schemes ( ) : try : self . check_cc ( compile_filename = [ ] , features = 'link_main_routines_func' , msg = 'nomsg' , errmsg = 'nomsg' , dummy_func_nounder = mangle_name ( u , du , c , 'foobar' ) , dummy_func_under = mangle_name ( u , du , c , 'foo_bar' ) , main_func_name = self . env . FC_MAIN ) except self . errors . ConfigurationError : pass else : self . end_msg ( "ok ('%s', '%s', '%s-case')" % ( u , du , c ) ) self . env . FORTRAN_MANGLING = ( u , du , c ) break else : self . end_msg ( False ) self . fatal ( 'mangler not found' ) return ( u , du , c )