Interface procedure support?

["Amos, Matthew (UK)" <matthew dot amos at baesystems dot com>]

********************************************************************
This email and any attachments are confidential to the intended
recipient and may also be privileged. If you are not the intended
recipient please delete it from your system and notify the sender.
You should not copy it or use it for any purpose nor disclose or
distribute its contents to any other person.
********************************************************************
The attached source code seems to generate an error with gfortran.

> gfortran --version
GNU Fortran 95 (GCC 4.0.0 20040922 (experimental))
> make
gfortran  -c vec3d.f90
gfortran  -c test.f90
test.f90: In function 'MAIN__':
test.f90:28: internal compiler error: in gfc_trans_arrayfunc_assign, at
fortran/trans-expr.c:2011
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
make: *** [test.o] Error 1

The line referred to (test.f90:28) is using an interface function
defined in the vec3d module. Is this supported by gfortran?

Any help appreciated!

Thanks,

Matt


begin 666 test.F90
M"@HA('1E<W0@=&AE('9E8W1O<B!R;W5T:6YE<PH*4%)/1U)!32!415-4"@HA
M('5S:6YG('1H92!V96,S9"!M;V1U;&4@87,@82!S:6UP;&4@=&5S= HA('5S
M92!M;V1U;&5?=F5C,V0L(&]N;'DZ(&-R;W-S7W!R;V1U8W0L(&-R;W-S7W!R
M;V1U8W0S7U(T7U(X"B @=7-E(&UO9'5L95]V96,S9"P@;VYL>3H@8W)O<W-?
M<')O9'5C= H*("!I;7!L:6-I="!N;VYE"@H@("$@<&%R86UE=&5R<R!F;W(@
M<')E8VES:6]N(&-O;G1R;VP*("!I;G1E9V5R+"!P87)A;65T97(@.CH@4U @
M/2!S96QE8W1E9%]R96%L7VMI;F0H-BD*("!I;G1E9V5R+"!P87)A;65T97(@
M.CH@1% @/2!S96QE8W1E9%]R96%L7VMI;F0H,3(I"@H@("$@;&]C86QS"B @
M<F5A;"A34"D@.CH@82@S*0H@(')E86PH1% I(#HZ(&(H,RDL(&,H,RD*("!I
M;G1E9V5R(#HZ(&D*"B @82 ]("@O(#$N,"P@,BXP+" S+C @+RD*("!B(#T@
M*"\@,2XP+" M,2XP+" R+C @+RD*"B @9&\@:2 ](#$L(#$P,# P,# P"B @
M(" @(2!D;R!T:&4@=&5S="!M86YY('1I;65S+"!S;R!W92!S964@:70@:&EG
M:"!U<"!I;B!C86QI<&5R"B @(" @(6-A;&P@8W)O<W-?<')O9'5C="AA+"!B
M+"!C*0H@(" @(&,@/2!C<F]S<U]P<F]D=6-T*&$L(&(I"B @(" @(6,@/2!C
M<F]S<U]P<F]D=6-T,U]2-%]2."AA+"!B*0H@(&5N9"!D;PH*(" A('!R:6YT
M('1H92!A;G-W97(*("!P<FEN=" J+" G8R ]("<L(&,H,2DL(&,H,BDL(&,H
5,RD*"D5.1"!04D]'4D%-(%1%4U0*
`
end

begin 666 vec3d.F90
M"@HA("HJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BH*(2 J("H*(2 J(&UO9'5L
M95]V96,S9" J"B$@*B J"B$@*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*@HA
M"B$@3W!E<F%T:6]N<R!O;B S+61I;65N<VEO;F%L('9E8W1O<G,*"FUO9'5L
M92!M;V1U;&5?=F5C,V0*"B @:6UP;&EC:70@;F]N90H*(2!0=6)L:6,@<')O
M8V5D=7)E<PH@('!R:79A=&4*("!P=6)L:6,@.CH@8W)O<W-?<')O9'5C="P@
M8W)O<W-?<')O9'5C=#-?4C1?4C@*"B$@36]D=6QE(&-O;G-T86YT<PH@(&EN
M=&5G97(L('!A<F%M971E<B Z.B!34" ]('-E;&5C=&5D7W)E86Q?:VEN9"@V
M*0H@(&EN=&5G97(L('!A<F%M971E<B Z.B!$4" ]('-E;&5C=&5D7W)E86Q?
M:VEN9"@Q,BD*("!R96%L*%-0*2P@<&%R86UE=&5R(#HZ(%1)3EE?4U @/2!T
M:6YY*# N,%]34"D*("!R96%L*$10*2P@<&%R86UE=&5R(#HZ(%1)3EE?1% @
M/2!T:6YY*# N,%]$4"D*"B$@36]D=6QE($EN=&5R9F%C97,*"B$@5F5C=&]R
M(&-R;W-S('!R;V1U8W0*("!)3E1%4D9!0T4@8W)O<W-?<')O9'5C= H@(" @
M($U/1%5,12!04D]#14154D4@8W)O<W-?<')O9'5C=#-?4C1?4C@*("!%3D0@
M24Y415)&04-%"@I#3TY404E.4PH*(2 J*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ"B$@*B J"B$@*B!C<F]S<U]P<F]D=6-T("H*(2 J("H*(2 J*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ"B$*(2!696-T;W(@8W)O<W,M<')O9'5C= H*
M("!&54Y#5$E/3B!C<F]S<U]P<F]D=6-T,U]2-%]2." H>"QY*2!R97-U;'0@
M*'HI"B @("!R96%L*$10*2 Z.B!Z*#,I"B @("!R96%L*%-0*2P@:6YT96YT
M*&EN*2 Z.B!X*#,I"B @("!R96%L*$10*2P@:6YT96YT*&EN*2 Z.B!Y*#,I
M"B @("!Z*#$I(#T@>"@R*2 J('DH,RD@+2!X*#,I("H@>2@R*0H@(" @>B@R
M*2 ]('@H,RD@*B!Y*#$I("T@>"@Q*2 J('DH,RD*(" @('HH,RD@/2!X*#$I
M("H@>2@R*2 M('@H,BD@*B!Y*#$I"B @14Y$($953D-424].(&-R;W-S7W!R
F;V1U8W0S7U(T7U(X"@I%3D0@34]$54Q%(&UO9'5L95]V96,S9 H`
`
end