------- Comment #6 from tkoenig at gcc dot gnu dot org 2006-12-08 23:35 -------
I forgot
integer, allocatable :: a(:)
integer, pointer :: b(:)
:-)
> allocate(a(4))
> ! This should set the stat code and change the size.
> allocate(a(3),stat=i)
> if (i == 0) call abort
> if (.not. allocated(a)) call abort
> if (size(a) /= 3) call abort
> ! It's OK to allocate pointers twice (even though this causes
> ! a memory leak)
> allocate(b(4))
> allocate(b(4))
>
> The check wether size(a) is three isn't required by the standard.
> The logic that is currently within the library would need to
> be moved into the front end.
>
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30115
