allen@radiative.com

Feature request: FORTRAN accepts implicit length allocatable character array

Discussion created by allen@radiative.com on Jun 2, 2011
Latest reply on Jun 6, 2011 by allen@radiative.com

Passing an allocatable array of implicit-length characters occurs several times in our FORTRAN code base:

subroutine c ( n, a )
integer, intent(in) :: n
character(len=*), allocatable, intent(out) :: a(
allocate( a(n) )
end subroutine c

Version 4.2.5.1 of the FORTRAN compiler does not accept this code:

character(len=*), allocatable, intent(out) :: a(
                                              ^   
openf95-550 openf95: ERROR C, File = c.f90, Line = 3, Column = 47
  "A" has the CHARACTER*(*) attribute, therefore it must not be declared with the ALLOCATABLE attribute (identifier first appeared at line 1)

So, I guess this is a feature request.

Thanks,
Allen

Outcomes