[Bug fortran/31538] result_in_spec_1.f90: Invalid write

[paulthomas2 at wanadoo dot fr]

------- Comment #2 from paulthomas2 at wanadoo dot fr  2007-04-11 21:05 -------
Subject: Re:  result_in_spec_1.f90: Invalid write

Tobias,
> however, test(1) returns an array of the size (2*1+1)+1 = 4.
>   
Thanks for spotting that one.  I'm just in the process of committing the 
fix as 'obvious', if a very sluggish network will permit.
> gfortran's -fbounds-check message is a bit misleading, though:
>
> Fortran runtime error: Array bound mismatch for dimension 1 of array 'r' (in
> file '/home/tob/projects/gcc/gcc/testsuite/gfortran.dg/result_in_spec_1.f90',
> at line 22)
>
> I think NAG f95's is better:
>
> Rank 1 of array operand has extent 4 instead of 2
> In MYFUNC, line 42 of result_in_spec_1.f90
>
> Line 22 is:
>   do i = 1, len(r)
> where "r" is function result character(len=3),dimension(4). And line 42 is:
>   chr = test2 (1)
>
> The test case needs to be fixed, the question is whether the bounding error
> should be improved too?
>   
Yes, the line number should certainly be put right.

Cheers

Paul

>
>   


-- 


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