I had the same question. This particular form is not even obsolescent.
It's a valid form of the block DO construct. A bit unusual, but valid.
Cheers,
Bill
On 1/12/11 10:06 AM, Brian Hanson wrote:
> Others have answered what it should do. I have a return question: what
> compiler rejects it and with what message? This do termination is
> obsolescent but not deleted, and from what you have shown it should
> work if the ... are filled in properly.
>
> Brian
>
> On Jan 12, 2011, at 10:21 AM, Anthony Stone wrote:
>
>> I need to clean up some old code that contains a jump from within a
>> do-loop to the labelled "end do":
>>
>> do 123 ...
>> ...
>> if (...) goto 123
>> ...
>> 123 end do
>>
>> This construct is now rejected by the compiler, and quite right too.
>> The code is pretty obscure, and doesn't enable me to work out
>> whether the jump would have been treated as "cycle" or "exit". Can
>> anyone tell me which, please?
>>
>> Anthony
--
Bill Long [log in to unmask]
Fortran Technical Support & voice: 651-605-9024
Bioinformatics Software Development fax: 651-605-9142
Cray Inc./Cray Plaza, Suite 210/380 Jackson St./St. Paul, MN 55101
|