BLOCK DATA ?

Tobias Schlüter tobias.schlueter@physik.uni-muenchen.de
Mon Aug 30 12:40:00 GMT 2004


Arg, patch retracted.

Tobias Schlüter wrote:
>>+       static int serial = 0;
>>+       char name[GFC_MAX_SYMBOL_LEN+1];
>>
>>+       snprintf (name, GFC_MAX_SYMBOL_LEN, "_BLOCK_DATA_%d", serial++);

This will of course break when there are BLOCK DATAs in different files, it's
still an enhancement over the current situation, but I don't think it's worth it.

- Tobi



More information about the Fortran mailing list