[PATCH] Tighten up checks for ASSIGN statement

[Steve Kargl]

On Mon, Dec 06, 2004 at 01:13:32AM +0100, Tobias Schl?ter wrote:
> 
> I ran into this when looking into PR 18827: we accepted ASSIGN statements of
> the form
>   ASSIGN 1000 TO I
> where I is an array of integers.  Actually, we allowed general expressions as
> long as they're of type integer.
> 
> This patch tightens stuff up, the standard only allows a scalar-int-variable,
> with the variable being of default kind and this is enforced by this patch. I
> will add the attached testcase to the testsuite, patch below.
> 

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

-- 
Steve