http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46152

--- Comment #3 from Steve Kargl <sgk at troutmask dot apl.washington.edu> 
2010-10-23 19:25:19 UTC ---
On Sat, Oct 23, 2010 at 06:50:21PM +0000, burnus at gcc dot gnu.org wrote:
> 
> Compiling the following program:
> 
> implicit none  ! << crucial
> integer, allocatable :: a

It even more crucial that 'a' is a scalar.

> allocate (integer :: a)
> end
> 

  implicit none
  integer, allocatable :: a
  integer, allocatable :: b(:)
  integer, pointer :: ap
  integer, pointer :: bp(:)
  allocate (integer :: a)
  allocate (integer :: b(1))
  allocate (integer :: ap)
  allocate (integer :: bp(1))
  end

laptop:kargl[206] gfc4x -o z a.f90
a.f90:4.17:

allocate (integer :: a)
                 1
Error: Symbol 'integer' at (1) has no IMPLICIT type

Reply via email to