[Bug fortran/18539] New: Tru64 - runtime error with -ve memory for assumed shape arrays

[Bug fortran/18539] New: Tru64 - runtime error with -ve memory for assumed shape arrays

[paul dot richard dot thomas at cea dot fr]

Note that this seems to be unique to the Tru64 build with gcc-3.3.2 (TWW)
It occurs with or without -fbounds-check

OSF1 V5.1 2650 alpha  (BUT NOT CYGWIN_NT-5.0 1.5.7(0.109/3/2) 2004-01-30 19:32 
i686)

GNU Fortran 95 (GCC 4.0.0 20041114 (experimental))
built with gcc-3.3.2 (TWW)

Index range, y(start:end) produce runtime error for start>end ,when used
for an assumed shape array.  

program negmem
   integer, parameter               ::    N = 3
   integer                          ::    i
   real(kind = 8), dimension(N)     ::    y = (/ (real(i) , i = 1 , N) /)
   real(kind = 8)                   ::    scale = 2.0

! This part is OK

   do i = 1 , N
      print * , ' y(' , i+1 , ':' , N , ')'
      y( i + 1 : N ) = y( i + 1 : N ) / scale
      print * , y( i + 1 : N )
   end do
   
! This part causes the runtime error

   call scaler( y , scale , N)
   print *, 'output from scalar'
   print * , y
   stop
contains
   subroutine scaler( y , scale , N )
   real(kind =8), dimension(:)      ::    y
   real(kind =8)                    ::    scale
   integer                          ::    N , i
   do i = 1 , N
      y( i + 1 : N ) = y( i + 1 : N ) / scale
   end do
   return
   end subroutine scaler
end program negmem

Produces:

  y(           2 :           3 )
    1.00000000000000        1.50000000000000    
  y(           3 :           3 )
   0.750000000000000    
  y(           4 :           3 )
Fortran runtime error: Attempt to allocate a non-positive amount of memory.

-- 
           Summary: Tru64 - runtime error with -ve memory for assumed shape
                    arrays
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: paul dot richard dot thomas at cea dot fr
                CC: gcc-bugs at gcc dot gnu dot org,paulthomas2 at wanadoo
                    dot fr


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

[Bug fortran/18539] Tru64 - runtime error with -ve memory for assumed shape arrays

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-11-18 12:33 -------


*** This bug has been marked as a duplicate of 15335 ***

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|                            |DUPLICATE
            Summary|Tru64 - runtime error with -|Tru64 - runtime error with -
                   |ve memory for assumed shape |ve memory for assumed shape
                   |arrays                      |arrays


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