[MITgcm-devel] g77 on darwin does not compile w2_print_e2setup.F

[Jean-Michel Campin]

Hi Martin,

Sorry, but with the changes you propose to make it to compile:
>>      CHARACTER*1 edge(4)
>>      CHARACTER*2 cc1
it's still not very clear why it is a problem in the 1rst place 
and why it's fixing it. Something related to 64 bits ?

And yes, it's never called ! I added this S/R in case one (like me,
for checking) wants or needs to use the matlab-topology-generator,
and then it will be called (by 
 utils/exch2/matlab-topology-generator/w2_e2setup.F)

Could you try:
>      CHARACTER*1 edge(4), cc1(2)
and replace cc1 by cc1(1) in the 3 places where it is used
(line 82, 83 & 86 in w2_print_e2setup.F).

Cheers,
Jean-Michel

On Wed, Jun 03, 2009 at 11:58:33AM +0200, Martin Losch wrote:
> Sorry forgot to say (except in the email subject) that this happens on  
> my Intel AppleBookPro with Leopard.
>
> Further I noticed that this routine w2_print_e2setup is never called, so 
> that I have to suspect that it was only introduced to check whether I am 
> still running testreport on my laptop (o:
>
> Martin
>
> On Jun 3, 2009, at 11:18 AM, Martin Losch wrote:
>
>> Hi there, I am getting an error when running "testreport -t  
>> global_ocean.cs32x15":
>>
>> g77 -Wunused -ffloat-store  -O0 -c w2_print_e2setup.f
>> w2_print_e2setup.f: In subroutine `w2_print_e2setup':
>> In file included from w2_print_e2setup.f:0:
>> w2_print_e2setup.f:1060: internal compiler error: in  
>> instantiate_virtual_regs_lossage, at function.c:3746
>> Please submit a full bug report,
>> with preprocessed source if appropriate.
>> See <URL:http://gcc.gnu.org/bugs.html> for instructions.
>> make: *** [w2_print_e2setup.o] Error 1
>> make: Target `all' not remade because of errors.
>>
>> And this is the statement (appears twice) that causes this error (at  
>> least the error goes away, when I comment it out):
>>           IF ( ii.NE.0 ) cc1 = edge(ii)
>> I can make it  compile by changing
>>      CHARACTER*1 edge(4), cc1
>> to
>>      CHARACTER*1 edge(4)
>>      CHARACTER*2 cc1
>> which is certainly not what the programmer intended, but maybe it give 
>> you a hint, why this is happening and how it can be fixed.
>>
>> Martin
>> PS. I think g77 is no longer continued so I am not sure if it makes  
>> sense to send a bug report
>>
>>
>>
>> _______________________________________________
>> MITgcm-devel mailing list
>> MITgcm-devel at mitgcm.org
>> http://mitgcm.org/mailman/listinfo/mitgcm-devel
>
> _______________________________________________
> MITgcm-devel mailing list
> MITgcm-devel at mitgcm.org
> http://mitgcm.org/mailman/listinfo/mitgcm-devel