dan
/
primes
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ported from g77 to gfortran

This commit is contained in:
Dan Ballard 2013-01-30 22:37:55 -08:00
parent ad18c15f63
commit 06496457bb
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
autoTest.pl
View File

@ -87,7 +87,7 @@ $data{'cpp'}{'cflags0'} = "-lm -O3 -o " . $data{'cpp'}{'prog'};
$data{'for'}{'name'} = "Fortran"; $data{'for'}{'name'} = "Fortran";
$data{'for'}{'src'} = "primes.f"; $data{'for'}{'src'} = "primes.f";
$data{'for'}{'compiler0'} = "g77"; $data{'for'}{'compiler0'} = "gfortran";
$data{'for'}{'prog'} = "primesfor"; $data{'for'}{'prog'} = "primesfor";
$data{'for'}{'cflags0'} = "-O3 -o $data{'for'}{'prog'}"; $data{'for'}{'cflags0'} = "-O3 -o $data{'for'}{'prog'}";

2
primes.f
View File

@ -18,7 +18,7 @@ c haplo@mindstab.net
test = sqrt(float(cnt)); test = sqrt(float(cnt));
isPrime=1; isPrime=1;
do test = 3, test, +2 do test = 3, test, +2
if (mod(cnt, test) == 0) then if (mod(cnt, int(test)) == 0) then
isPrime=0; isPrime=0;
exit; exit;
endif endif