Fix Fortran compiler detection
- Test with '-x' operator to ensure file is executable. - 'break' is not a valid Perl keyword.
This commit is contained in:
parent
14c3511e92
commit
44124d3055
5
f_check
5
f_check
|
@ -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;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue