Tobias,

I have not tried this patch, but will it actually fix it?  The error
is real_kinds(3) is outside the array bounds. Your patch fixes
addresses a runtime problem, not a compile-time problem, if I
understand correctly.

/nasfarm/dje/src/src/gcc/testsuite/gfortran.dg/quad_3.f90:17.47:

   if (size (real_kinds) >= 4 .and. real_kinds(3) == 10 .and. qp == 16) then
                                               1
Warning: Array reference at (1) is out of bounds (3 > 2) in dimension 1
/nasfarm/dje/src/src/gcc/testsuite/gfortran.dg/quad_3.f90:17.47:

   if (size (real_kinds) >= 4 .and. real_kinds(3) == 10 .and. qp == 16) then
                                               1
Error: Index in dimension 1 is out of bounds at (1)

I do not think that you patch will affect the compile-time error.

thanks, David

On Tue, Dec 4, 2012 at 11:03 AM, Tobias Burnus <bur...@net-b.de> wrote:
> David Edelsohn:
>
>> The quad_3.f90 testcase fails on AIX, which does not have quad math
>> enabled. I do not understand how the following line can be correct.
>
>
> Well, obviously, it is not correct - otherwise you wouldn't see a failure
> :-)
> Corrected by the attached patch (Rev. 194155).
>
> Sorry for the mistake.
>
>
>> Fortran does not have early exit
>
>
> Not yet. (It has been proposed for F2003 but specifying the exact
> semantics/syntax was that difficult that it has been postponed until some
> future revision.)
>
> Tobias

Reply via email to