1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
#http://www.compaq.com/fortran/docs/
import os
import sys
from cpuinfo import cpu
from fcompiler import FCompiler
class CompaqFCompiler(FCompiler):
compiler_type = 'compaq'
version_pattern = r'Compaq Fortran (?P<version>[^\s]*).*'
if sys.platform[:5]=='linux':
fc_exe = 'fort'
else:
fc_exe = 'f90'
executables = {
'version_cmd' : [fc_exe, "-version"],
'compiler_f77' : [fc_exe, "-f77rtl","-fixed"],
'compiler_fix' : [fc_exe, "-fixed"],
'compiler_f90' : [fc_exe],
'linker_so' : [fc_exe],
'archiver' : ["ar", "-cr"],
'ranlib' : ["ranlib"]
}
module_dir_switch = '-module ' # not tested
module_include_switch = '-I'
def get_flags(self):
return ['-assume no2underscore','-nomixed_str_len_arg']
def get_flags_debug(self):
return ['-g','-check bounds']
def get_flags_opt(self):
return ['-O4','-align dcommons','-assume bigarrays',
'-assume nozsize','-math_library fast']
def get_flags_arch(self):
return ['-arch host', '-tune host']
def get_flags_linker_so(self):
if sys.platform[:5]=='linux':
return ['-shared']
return ['-shared','-Wl,-expect_unresolved,*']
class CompaqVisualFCompiler(FCompiler):
compiler_type = 'compaqv'
version_pattern = r'(DIGITAL|Compaq) Visual Fortran Optimizing Compiler'\
' Version (?P<version>[^\s]*).*'
compile_switch = '/compile_only'
object_switch = '/object:'
library_switch = '/OUT:' #No space after /OUT:!
static_lib_extension = ".lib"
static_lib_format = "%s%s"
module_dir_switch = '/module:'
module_include_switch = '/I'
ar_exe = 'lib.exe'
fc_exe = 'DF'
if sys.platform=='win32':
from distutils.msvccompiler import MSVCCompiler
ar_exe = MSVCCompiler().lib
executables = {
'version_cmd' : ['DF', "/what"],
'compiler_f77' : ['DF', "/f77rtl","/fixed"],
'compiler_fix' : ['DF', "/fixed"],
'compiler_f90' : ['DF'],
'linker_so' : ['DF'],
'archiver' : [ar_exe, "/OUT:"],
'ranlib' : None
}
def get_flags(self):
return ['/nologo','/MD','/WX','/iface=(cref,nomixed_str_len_arg)',
'/names:lowercase','/assume:underscore']
def get_flags_opt(self):
return ['/Ox','/fast','/optimize:5','/unroll:0','/math_library:fast']
def get_flags_arch(self):
return ['/threads']
def get_flags_debug(self):
return ['/debug']
if __name__ == '__main__':
from distutils import log
log.set_verbosity(2)
from fcompiler import new_fcompiler
compiler = new_fcompiler(compiler='compaq')
compiler.customize()
print compiler.get_version()
|
