Skip to content

Commit 52ed274

Browse files
authored
Merge pull request #3010 from ggouaillardet/topic/fj_compilers
add Fujitsu compilers
2 parents 3788b6d + 358100e commit 52ed274

File tree

1 file changed

+8
-3
lines changed

1 file changed

+8
-3
lines changed

f_check

Lines changed: 8 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -69,7 +69,12 @@ if ($compiler eq "") {
6969
$bu = "_";
7070
}
7171

72-
if ($data =~ /GNU/ || $data =~ /GCC/ ) {
72+
if ($data =~ /Fujitsu/) {
73+
74+
$vendor = FUJITSU;
75+
$openmp = "-Kopenmp";
76+
77+
} elsif ($data =~ /GNU/ || $data =~ /GCC/ ) {
7378

7479
$data =~ /(\d+)\.(\d+).(\d+)/;
7580
$major = $1;
@@ -337,8 +342,8 @@ if ($link ne "") {
337342
&& ($flags !~ /kernel32/)
338343
&& ($flags !~ /advapi32/)
339344
&& ($flags !~ /shell32/)
340-
&& ($flags !~ /omp/ || ($vendor !~ /PGI/ && $flags =~ /omp/))
341-
&& ($flags !~ /[0-9]+/)
345+
&& ($flags !~ /omp/ || ($vendor !~ /PGI/ && $vendor !~ /FUJITSU/ && $flags =~ /omp/))
346+
&& ($flags !~ /[0-9]+/ || ($vendor == FUJITSU && $flags =~ /^-lfj90/))
342347
&& ($flags !~ /^\-l$/)
343348
) {
344349
$linker_l .= $flags . " ";

0 commit comments

Comments
 (0)