Attachment 161018 Details for Bug 226275 – patch to fix fortran issues

[patch] patch to fix fortran issues

perl-PDL-2.4.3-fortran.patch (text/plain), 1.11 KB, created by Orion Poplawski on 2007-08-09 20:11:48 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Orion Poplawski

Created: 2007-08-09 20:11:48 UTC

Size: 1.11 KB

patch

obsolete

>--- PDL-2.4.3/Lib/Slatec/Makefile.PL.fortran	2007-08-07 14:28:11.000000000 -0600
>+++ PDL-2.4.3/Lib/Slatec/Makefile.PL	2007-08-07 14:29:48.000000000 -0600
>@@ -128,15 +128,14 @@
> 
> sub MY::postamble {
>         $mycompiler     = $f77->compiler();
>-        $mycflags       = $f77->cflags();
>+        $mycflags       = $f77->cflags() . " -fPIC " . $Config{"ccflags"};
> 	my $orig = pdlpp_postamble_int(@::pack);
>-	$hack_64bit = ($Config{archname}=~m/x86_64/ ?" -fPIC " : "");
> 	$orig =~ s/:\s*slatec\.pd/: slatec.pd/;
> 	$orig .join "\n",map {
> ("
> 
> slatec/$_\$(OBJ_EXT): slatec/$_.f 
>-	$mycompiler -c $hack_64bit -o slatec/$_\$(OBJ_EXT) $mycflags slatec/$_.f
>+	$mycompiler -c -o slatec/$_\$(OBJ_EXT) $mycflags slatec/$_.f
> " )} @slatecfiles;
>  
> }
>--- PDL-2.4.3/t/flexraw.t.fortran	2007-08-07 15:36:21.000000000 -0600
>+++ PDL-2.4.3/t/flexraw.t	2007-08-07 15:36:35.000000000 -0600
>@@ -206,7 +206,7 @@
>     $fh->print( $code );
>     $fh->close;
> 
>-    system("$F77 $F77flags -o $prog$exec $file".
>+    system("$F77 $F77flags -frecord-marker=4 -o $prog$exec $file".
> 	     (($Verbose || $DEBUG)?'': $null));
>     
>     unlink $data if -f $data;

Actions: View | Diff

Attachments on bug 226275: 160366 | 160367 | 160368 | 160369 | 160436 | 161017 | 161018 | 161309 | 293304