add Fujitsu compilers

Co-authored-by: Tomoki Karatsu <karatsu.spack@gmail.com>

diff --git a/f_check b/f_check
index c12b0f2..9ef7b80 100644 (file)
--- a/f_check
+++ b/f_check
@@ -69,7 +69,12 @@ if ($compiler eq "") {
            $bu       = "_";
        }
 
-       if ($data =~ /GNU/ || $data =~ /GCC/ ) {
+       if ($data =~ /Fujitsu/) {
+
+           $vendor = FUJITSU;
+           $openmp = "-Kopenmp";
+
+       } elsif ($data =~ /GNU/ || $data =~ /GCC/ ) {
 
            $data =~ /(\d+)\.(\d+).(\d+)/;
            $major = $1;
@@ -337,8 +342,8 @@ if ($link ne "") {
            && ($flags !~ /kernel32/)
            && ($flags !~ /advapi32/)
            && ($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$/)
            ) {
            $linker_l .= $flags . " ";