Browse Source

Merge pull request #3010 from ggouaillardet/topic/fj_compilers

add Fujitsu compilers
tags/v0.3.13^2
Martin Kroeker GitHub 4 years ago
parent
commit
52ed2741c5
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 3 deletions
  1. +8
    -3
      f_check

+ 8
- 3
f_check View File

@@ -69,7 +69,12 @@ if ($compiler eq "") {
$bu = "_"; $bu = "_";
} }


if ($data =~ /GNU/ || $data =~ /GCC/ ) {
if ($data =~ /Fujitsu/) {

$vendor = FUJITSU;
$openmp = "-Kopenmp";

} elsif ($data =~ /GNU/ || $data =~ /GCC/ ) {


$data =~ /(\d+)\.(\d+).(\d+)/; $data =~ /(\d+)\.(\d+).(\d+)/;
$major = $1; $major = $1;
@@ -337,8 +342,8 @@ if ($link ne "") {
&& ($flags !~ /kernel32/) && ($flags !~ /kernel32/)
&& ($flags !~ /advapi32/) && ($flags !~ /advapi32/)
&& ($flags !~ /shell32/) && ($flags !~ /shell32/)
&& ($flags !~ /omp/ || ($vendor !~ /PGI/ && $flags =~ /omp/))
&& ($flags !~ /[0-9]+/)
&& ($flags !~ /omp/ || ($vendor !~ /PGI/ && $vendor !~ /FUJITSU/ && $flags =~ /omp/))
&& ($flags !~ /[0-9]+/ || ($vendor == FUJITSU && $flags =~ /^-lfj90/))
&& ($flags !~ /^\-l$/) && ($flags !~ /^\-l$/)
) { ) {
$linker_l .= $flags . " "; $linker_l .= $flags . " ";


Loading…
Cancel
Save