diff options
Diffstat (limited to 'f_check.pl')
| -rw-r--r-- | f_check.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/f_check.pl b/f_check.pl index 79e97b37f..cfc7331c2 100644 --- a/f_check.pl +++ b/f_check.pl @@ -34,7 +34,7 @@ if ($compiler eq "") { "pathf90", "pathf95", "pgf95", "pgf90", "pgf77", "pgfortran", "nvfortran", "flang", "egfortran", - "ifort", "nagfor", "ifx"); + "ifort", "nagfor", "ifx", "ftn", "crayftn"); OUTER: foreach $lists (@lists) { @@ -76,6 +76,11 @@ if ($compiler eq "") { $vendor = FUJITSU; $openmp = "-Kopenmp"; + } elsif ($data =~ /Cray/) { + + $vendor = CRAY; + $openmp = "-fopenmp"; + } elsif ($data =~ /GNU/ || $data =~ /GCC/ ) { $data =~ s/\(+.*?\)+//g; @@ -309,6 +314,9 @@ if (!$?) { if ( $vendor eq "NAG") { $link = `$compiler $openmp -dryrun ftest2.f 2>&1 && rm -f a.out a.exe`; } +if ( $vendor eq "CRAY") { + $link = `$compiler $openmp -hnopattern ftest2.f 2>&1 && rm -f a.out a.exe`; + } $linker_L = ""; $linker_l = ""; $linker_a = ""; |