[patch] Fix fortran/25031, multiple allocations

[Brooks Moses]

Steve Kargl wrote:
> On Wed, Mar 01, 2006 at 09:40:22PM +0100, Thomas Koenig wrote:
>>here is a fix for PR 25031.  The problem here was that we used
>>to be capable of allocating an allocatable array twice without
>>intermediate deallocation, which should raise an error.
> 
> Are you saying that this program should fail?
> 
> program a
>   real, allocatable :: x(:)
>   allocate(x(4))
>   allocate(x(3))
> end program a

F95 Draft Standard, 6.3.1.1: "An allocatable array that has been 
allocated by an ALLOCATE statement and has not been subsequently 
deallocated (6.3.3) is *currently allocated* and is definable. 
Allocating a currently allocated allocatable array causes an error 
condition in the ALLOCATE statement."  (emphasis in original)

- Brooks