This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: Problem with a program: zero-sized array?
Hello Tobias,
thanks for looking into this. So it is reproduceable in a very small program ...
Regards,
Arjen
2010/10/13 Tobias Burnus <burnus@net-b.de>:
> ?On 10/13/2010 12:48 PM, Arjen Markus wrote:
>>
>> Hello,
>>
>> I have run into a peculiar problem with the gfortran compiler (both on
>> Windows and Linux).
>> I have reduced the program to a bare minimum and that has made the
>> crash (access violation or something similarly fatal) disappear, but the
>> bug is still there.
>
> Small test case which crashes here:
> ? ?integer, dimension(10) ? ? ? ? ? ? :: int1d
> ? ?integer, dimension(:), pointer ? ? :: int1d_retrieved
>
> ? ?allocate(int1d_retrieved(10))
> ? ?if (any(shape(int1d_retrieved) /= shape(INT1D))) call abort()
> ? ?end
>
> The crash happens in the last line when the two shapes are compared; in the
> big program, the same crash happened for:
> ? ?write(*,*) 'shape:', shape(int1d_retrieved) == shape(INT1D), '...'
> The rest of the big program seems to work. I think it should be easy to find
> the reason in the -fdump-tree-original for the shape(int1d_retrieved) ==
> shape(INT1D) comparison, but I have not tried it, yet.
>
> I get the crash with GCC 4.1 to 4.6 and thus it does not seem to be a
> regression.
>
> Can you fill a PR?
>
> Tobias
>