[PATCH] Tighten up checks for ASSIGN statement

[Tobias Schlüter]

Steve Kargl wrote:
> Does g77 accept non-default kind?  I just fixed the ibset et al
> functions to be compatiable with g77.

Um, I didn't check, but given that the most straightforward implementation
uses the address of the label, and that it's not to hard to imagine a program
unit with more than 256 (or even 65535) labels, I don't think it will be.

I will check this tomorrow in any case.

Thanks,
- Tobi