|
|
@@ -32,11 +32,12 @@ if ($compiler eq "") { |
|
|
"pgf95", "pgf90", "pgf77", |
|
|
"pgf95", "pgf90", "pgf77", |
|
|
"ifort"); |
|
|
"ifort"); |
|
|
|
|
|
|
|
|
|
|
|
OUTER: |
|
|
foreach $lists (@lists) { |
|
|
foreach $lists (@lists) { |
|
|
foreach $path (@path) { |
|
|
foreach $path (@path) { |
|
|
if (-f $path . "/" . $lists) { |
|
|
|
|
|
|
|
|
if (-x $path . "/" . $lists) { |
|
|
$compiler = $lists; |
|
|
$compiler = $lists; |
|
|
break; |
|
|
|
|
|
|
|
|
last OUTER; |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
|