Re: Error message

[Salvatore Filippone <salvatore.filippone@uniroma2.it>]

I see, thanks
Salvatore

Il giorno ven, 04/04/2008 alle 17.37 +0200, Tobias Burnus ha scritto:
> Salvatore Filippone wrote:
> > Hi there,
> > I am getting the following error message: 
> >
> > Fortran runtime error: Incorrect extent in return value of PACK intrinsic; is 964, should be 7466
> >
> > What is the compiler trying to tell me?
> Example from the testsuite; compile with -fbounds-check:
> 
> program main
>   integer :: a(2,2), b(5)
>   a = reshape((/ 1, -1, 1, -1 /), shape(a))
>   b = pack(a, a /= 0)
> end program main
> ! { dg-output "Fortran runtime error: Incorrect extent in return value 
> of PACK intrinsic; is 4, should be 5" }
> 
> The problem is that for "b =" an array with size 5 is needed while 
> "pack(a, a /= 0)" returns an array of size 4.
> Solution: Use "b(1:4) =" or "b(2:5) =" or ...
> 
> 
> If you have a Fortran 2003 compiler and b is allocatable, the assignment 
> "b = pack(a, a /= 0)" is actually valid as b will be reallocated to have 
> a size 4. Note, however, that gfortran does not support this yet.
> 
> Tobias