Reallocate code from Numerical Recipes - problem at run time

Sat Aug 13 15:31:00 GMT 2005

To whom it may concern:

I have downloaded "Native Windows build: download the latest installer 
(2005-08-06)" from http://gcc.gnu.org/wiki/GFortranBinaries.

I have a problem with the attached code from Numerical Recipes; ifort 
(Intel) and LF95 Ver. 5.7 (Lahey) produce executables which work fine, but 
the gfortran compiled code fails at run time. I am using Windows XP 
professional. Is there a workaround or is this a bug which must be fixed?

My compile command is:

C:\test>gfortran 
test_reallocate.f90 -O2 -malign-double -march=pentium3 -ffast-math -funroll-loops 
 -o test_reallocate.exe

I am a newbie to gfortran and have been most impressed by its performance on 
at least one other application (genetic algorithm applied to the design of 
roundabouts - vertical alignment of crown line and approaches/exits 
optimised for minimum bumpiness) - which totally annihilates Intel 9 
performance on the same code - congratulations to all concerned in gfortran 
development.

Edmund Dunlop.

edunlop@utvspaminternet.ie

Remove spam to email.

begin 666 test_reallocate.f90
M(2!.4E194$4N1CDP#0I-3T153$4@;G)T>7!E#0H@(" @(" @($E.5$5'15(L
M(%!!4D%-151%4B Z.B!)-$(@/2!314Q%0U1%1%])3E1?2TE.1"@Y*0T*(" @
M(" @("!)3E1%1T52+"!005)!345415(@.CH@23)"(#T@4T5,14-4141?24Y4
M7TM)3D0H-"D-"B @(" @(" @24Y414=%4BP@4$%204U%5$52(#HZ($DQ0B ]
M(%-%3$5#5$5$7TE.5%]+24Y$*#(I#0H@(" @(" @($E.5$5'15(L(%!!4D%-
M151%4B Z.B!34" ]($M)3D0H,2XP*0T*(" @(" @("!)3E1%1T52+"!005)!
M345415(@.CH@1% @/2!+24Y$*#$N,$0P*0T*(" @(" @("!)3E1%1T52+"!0
M05)!345415(@.CH@4U!#(#T@2TE.1"@H,2XP+#$N,"DI#0H@(" @(" @($E.
M5$5'15(L(%!!4D%-151%4B Z.B!$4$,@/2!+24Y$*"@Q+C!$,"PQ+C!$,"DI
M#0H@(" @(" @($E.5$5'15(L(%!!4D%-151%4B Z.B!,1U0@/2!+24Y$*"YT
M<G5E+BD-"B @(" @(" @4D5!3"A34"DL(%!!4D%-151%4B Z.B!023TS+C$T
M,34Y,C8U,S4X.3<Y,S(S.#0V,C8T,S,X,S(W.34P,C@X-#$Y-U]S< T*(" @
M(" @("!214%,*%-0*2P@4$%204U%5$52(#HZ(%!)3S(],2XU-S W.38S,C8W
M.30X.38V,3DR,S$S,C$V.3$V,SDW-3$T-#(P.3@U.%]S< T*(" @(" @("!2
M14%,*%-0*2P@4$%204U%5$52(#HZ(%173U!)/38N,C@S,3@U,S W,3<Y-3@V
M-#<V.3(U,C@V-S8V-34Y,# U-S8X,SDT7W-P#0H@(" @(" @(%)%04PH4U I
M+"!005)!345415(@.CH@4U%25#(],2XT,30R,3,U-C(S-S,P.34P-#@X,#$V
M.#@W,C0R,#DV.3@P-S@U-CDV-U]S< T*(" @(" @("!214%,*%-0*2P@4$%2
M04U%5$52(#HZ($553$52/3 N-3<W,C$U-C8T.3 Q-3,R.#8P-C V-3$R,#DP
M,#@R-# R-#,Q,#0R,E]S< T*(" @(" @("!214%,*$10*2P@4$%204U%5$52
M(#HZ(%!)7T0],RXQ-#$U.3(V-3,U.#DW.3,R,S@T-C(V-#,S.#,R-SDU,#(X
M.#0Q.3=?9' -"B @(" @(" @4D5!3"A$4"DL(%!!4D%-151%4B Z.B!024\R
M7T0],2XU-S W.38S,C8W.30X.38V,3DR,S$S,C$V.3$V,SDW-3$T-#(P.3@U
M.%]D< T*(" @(" @("!214%,*$10*2P@4$%204U%5$52(#HZ(%173U!)7T0]
M-BXR.#,Q.#4S,#<Q-SDU.#8T-S8Y,C4R.#8W-C8U-3DP,#4W-C@S.31?9' -
M"B @(" @(" @5%E012!S<')S,E]S< T*(" @(" @(" @(" @(" @($E.5$5'
M15(H231"*2 Z.B!N+&QE;@T*(" @(" @(" @(" @(" @(%)%04PH4U I+"!$
M24U%3E-)3TXH.BDL(%!/24Y415(@.CH@=F%L#0H@(" @(" @(" @(" @(" @
M24Y414=%4BA)-$(I+"!$24U%3E-)3TXH.BDL(%!/24Y415(@.CH@:7)O=PT*
M(" @(" @(" @(" @(" @($E.5$5'15(H231"*2P@1$E-14Y324].*#HI+"!0
M3TE.5$52(#HZ(&IC;VP-"B @(" @(" @14Y$(%194$4@<W!R<S)?<W -"@T*
M(" @(" @("!465!%('-P<G,R7V1P#0H@(" @(" @(" @(" @(" @24Y414=%
M4BA)-$(I(#HZ(&XL;&5N#0H@(" @(" @(" @(" @(" @4D5!3"A$4"DL($1)
M345.4TE/3B@Z*2P@4$])3E1%4B Z.B!V86P-"B @(" @(" @(" @(" @("!)
M3E1%1T52*$DT0BDL($1)345.4TE/3B@Z*2P@4$])3E1%4B Z.B!I<F]W#0H@
M(" @(" @(" @(" @(" @24Y414=%4BA)-$(I+"!$24U%3E-)3TXH.BDL(%!/
M24Y415(@.CH@:F-O; T*(" @(" @("!%3D0@5%E012!S<')S,E]D< T*14Y$
M($U/1%5,12!N<G1Y<&4-"B$@3E)55$E,+D8Y, T*34]$54Q%(&YR=71I; T*
M(" @(" @("!54T4@;G)T>7!E#0H@(" @(" @($E-4$Q)0TE4($Y/3D4-"B @
M(" @(" @24Y415)&04-%(')E86QL;V-A=&4-"@T*(" @(" @(" @(" @(" @
M($U/1%5,12!04D]#14154D4@<F5A;&QO8V%T95]R=BQR96%L;&]C871E7W)M
M+"8-"B @(" @(" @(" @(" @(" @(" @(" @(')E86QL;V-A=&5?:78L<F5A
M;&QO8V%T95]I;2QR96%L;&]C871E7VAV#0H@(" @(" @($5.1"!)3E1%4D9!
M0T4-"D-/3E1!24Y3#0HA0DP-"B @(" @(" @4U5"4D]55$E.12!N<F5R<F]R
M*'-T<FEN9RD-"@T*(" @(" @("!#2$%204-415(H3$5./2HI+"!)3E1%3E0H
M24XI(#HZ('-T<FEN9PT*(" @(" @("!W<FET92 H*BPJ*2 G;G)E<G)O<CH@
M)RQS=')I;F<-"B @(" @(" @4U1/4" G<')O9W)A;2!T97)M:6YA=&5D(&)Y
M(&YR97)R;W(G#0H@(" @(" @($5.1"!354)23U5424Y%(&YR97)R;W(-"B%"
M3 T*(" @(" @("!&54Y#5$E/3B!R96%L;&]C871E7W)V*' L;BD-"B @(" @
M(" @4D5!3"A34"DL($1)345.4TE/3B@Z*2P@4$])3E1%4B Z.B!P+"!R96%L
M;&]C871E7W)V#0H@(" @(" @($E.5$5'15(H231"*2P@24Y414Y4*$E.*2 Z
M.B!N#0H@(" @(" @($E.5$5'15(H231"*2 Z.B!N;VQD+&EE<G(-"B @(" @
M(" @86QL;V-A=&4H<F5A;&QO8V%T95]R=BAN*2QS=&%T/6EE<G(I#0H@(" @
M(" @(&EF("AI97)R("\](# I(&-A;&P@)@T*(" @(" @(" @(" @(" @(&YR
M97)R;W(H)W)E86QL;V-A=&5?<G8Z('!R;V)L96T@:6X@871T96UP="!T;R!A
M;&QO8V%T92!M96UO<GDG*0T*(" @(" @("!I9B H+FYO="X@87-S;V-I871E
M9"AP*2D@4D5455).#0H@(" @(" @(&YO;&0]<VEZ92AP*0T*(" @(" @("!R
M96%L;&]C871E7W)V*#$Z;6EN*&YO;&0L;BDI/7 H,3IM:6XH;F]L9"QN*2D-
M"B @(" @(" @9&5A;&QO8V%T92AP*0T*(" @(" @("!%3D0@1E5.0U1)3TX@
M<F5A;&QO8V%T95]R=@T*(4),#0H@(" @(" @($953D-424].(')E86QL;V-A
M=&5?:78H<"QN*0T*(" @(" @("!)3E1%1T52*$DT0BDL($1)345.4TE/3B@Z
M*2P@4$])3E1%4B Z.B!P+"!R96%L;&]C871E7VEV#0H@(" @(" @($E.5$5'
M15(H231"*2P@24Y414Y4*$E.*2 Z.B!N#0H@(" @(" @($E.5$5'15(H231"
M*2 Z.B!N;VQD+&EE<G(-"B @(" @(" @86QL;V-A=&4H<F5A;&QO8V%T95]I
M=BAN*2QS=&%T/6EE<G(I#0H@(" @(" @(&EF("AI97)R("\](# I(&-A;&P@
M)@T*(" @(" @(" @(" @(" @(&YR97)R;W(H)W)E86QL;V-A=&5?:78Z('!R
M;V)L96T@:6X@871T96UP="!T;R!A;&QO8V%T92!M96UO<GDG*0T*#0H@(" @
M(" @(&EF("@N;F]T+B!A<W-O8VEA=&5D*' I*2!215154DX-"B @(" @(" @
M;F]L9#US:7IE*' I#0H@(" @(" @(')E86QL;V-A=&5?:78H,3IM:6XH;F]L
M9"QN*2D]<"@Q.FUI;BAN;VQD+&XI*0T*(" @(" @("!D96%L;&]C871E*' I
M#0H@(" @(" @($5.1"!&54Y#5$E/3B!R96%L;&]C871E7VEV#0HA0DP-"B @
M(" @(" @1E5.0U1)3TX@<F5A;&QO8V%T95]H=BAP+&XI#0H@(" @(" @($-(
M05)!0U1%4B@Q*2P@1$E-14Y324].*#HI+"!03TE.5$52(#HZ(' L(')E86QL
M;V-A=&5?:'8-"B @(" @(" @24Y414=%4BA)-$(I+"!)3E1%3E0H24XI(#HZ
M(&X-"B @(" @(" @24Y414=%4BA)-$(I(#HZ(&YO;&0L:65R<@T*(" @(" @
M("!A;&QO8V%T92AR96%L;&]C871E7VAV*&XI+'-T870]:65R<BD-"B @(" @
M(" @:68@*&EE<G(@+ST@,"D@8V%L;" F#0H@(" @(" @(" @(" @(" @;G)E
M<G)O<B@G<F5A;&QO8V%T95]H=CH@<')O8FQE;2!I;B!A='1E;7!T('1O(&%L
M;&]C871E(&UE;6]R>2<I#0H@(" @(" @(&EF("@N;F]T+B!A<W-O8VEA=&5D
M*' I*2!215154DX-"B @(" @(" @;F]L9#US:7IE*' I#0H@(" @(" @(')E
M86QL;V-A=&5?:'8H,3IM:6XH;F]L9"QN*2D]<"@Q.FUI;BAN;VQD+&XI*0T*
M(" @(" @("!D96%L;&]C871E*' I#0H@(" @(" @($5.1"!&54Y#5$E/3B!R
M96%L;&]C871E7VAV#0HA0DP-"B @(" @(" @1E5.0U1)3TX@<F5A;&QO8V%T
M95]R;2AP+&XL;2D-"B @(" @(" @4D5!3"A34"DL($1)345.4TE/3B@Z+#HI
M+"!03TE.5$52(#HZ(' L(')E86QL;V-A=&5?<FT-"B @(" @(" @24Y414=%
M4BA)-$(I+"!)3E1%3E0H24XI(#HZ(&XL;0T*(" @(" @("!)3E1%1T52*$DT
M0BD@.CH@;F]L9"QM;VQD+&EE<G(-"B @(" @(" @86QL;V-A=&4H<F5A;&QO
M8V%T95]R;2AN+&TI+'-T870]:65R<BD-"B @(" @(" @:68@*&EE<G(@+ST@
M,"D@8V%L;" F#0H@(" @(" @(" @(" @(" @;G)E<G)O<B@G<F5A;&QO8V%T
M95]R;3H@<')O8FQE;2!I;B!A='1E;7!T('1O(&%L;&]C871E(&UE;6]R>2<I
M#0H@(" @(" @(&EF("@N;F]T+B!A<W-O8VEA=&5D*' I*2!215154DX-"B @
M(" @(" @;F]L9#US:7IE*' L,2D-"B @(" @(" @;6]L9#US:7IE*' L,BD-
M"B @(" @(" @<F5A;&QO8V%T95]R;2@Q.FUI;BAN;VQD+&XI+#$Z;6EN*&UO
M;&0L;2DI/28-"B @(" @(" @(" @(" @("!P*#$Z;6EN*&YO;&0L;BDL,3IM
M:6XH;6]L9"QM*2D-"B @(" @(" @9&5A;&QO8V%T92AP*0T*#0H@(" @(" @
M($5.1"!&54Y#5$E/3B!R96%L;&]C871E7W)M#0HA0DP-"B @(" @(" @1E5.
M0U1)3TX@<F5A;&QO8V%T95]I;2AP+&XL;2D-"B @(" @(" @24Y414=%4BA)
M-$(I+"!$24U%3E-)3TXH.BPZ*2P@4$])3E1%4B Z.B!P+"!R96%L;&]C871E
M7VEM#0H@(" @(" @($E.5$5'15(H231"*2P@24Y414Y4*$E.*2 Z.B!N+&T-
M"B @(" @(" @24Y414=%4BA)-$(I(#HZ(&YO;&0L;6]L9"QI97)R#0H@(" @
M(" @(&%L;&]C871E*')E86QL;V-A=&5?:6TH;BQM*2QS=&%T/6EE<G(I#0H@
M(" @(" @(&EF("AI97)R("\](# I(&-A;&P@)@T*(" @(" @(" @(" @(" @
M(&YR97)R;W(H)W)E86QL;V-A=&5?:6TZ('!R;V)L96T@:6X@871T96UP="!T
M;R!A;&QO8V%T92!M96UO<GDG*0T*(" @(" @("!I9B H+FYO="X@87-S;V-I
M871E9"AP*2D@4D5455).#0H@(" @(" @(&YO;&0]<VEZ92AP+#$I#0H@(" @
M(" @(&UO;&0]<VEZ92AP+#(I#0H@(" @(" @(')E86QL;V-A=&5?:6TH,3IM
M:6XH;F]L9"QN*2PQ.FUI;BAM;VQD+&TI*3TF#0H@(" @(" @(" @(" @(" @
M<"@Q.FUI;BAN;VQD+&XI+#$Z;6EN*&UO;&0L;2DI#0H@(" @(" @(&1E86QL
M;V-A=&4H<"D-"B @(" @(" @14Y$($953D-424].(')E86QL;V-A=&5?:6T-
M"B%"3 T*14Y$($U/1%5,12!N<G5T:6P-"B%"3 T*(" @(" @("!P<F]G<F%M
M(%)E86QL;V,-"B @(" @(" @55-%(&YR='EP93L@55-%(&YR=71I; T*(" @
M(" @("!)35!,24-)5"!.3TY%#0H@(" @(" @(%)%04PH4U I+"!$24U%3E-)
M3TXH.BDL(%!/24Y415(@.CH@> T*(" @(" @("!)3E1%1T52*$DT0BD@.CH@
M:0T*(" @(" @("!A;&QO8V%T92AX*#$P*2D-"B @(" @(" @9F]R86QL*&D]
M,3IU8F]U;F0H>"PQ*2D@>"AI*3UI#0H@(" @(" @('=R:71E*"HL(B@Q,$8V
M+C(I(BD@> T*(" @(" @("!X(#T^(')E86QL;V-A=&4H>"PR,"D-"B @(" @
M(" @9F]R86QL*&D],3IU8F]U;F0H>"PQ*2D@>"AI*3TR*FD-"B @(" @(" @
M=W)I=&4H*BPB*#(P1C8N,BDB*2!X#0H@(" @(" @(&5N9"!P<F]G<F%M(%)E
'86QL;V,-"@``
`
end