[patch, libgfortran] PR 31915 - fix reading/writing of real(10) variables with convert="SWAP"

[Tobias Burnus]

Tobias Burnus wrote:
> +      if (type == BT_REAL || BT_COMPLEX)
>   
This is of cause nonsense, it should be type == BT_REAL || type ==
BT_COMPLEX. Updated patch below.

Actually, using size_from_real_kind does also work for the other types
as integer(10)  does not exist and "default: return kind;" is used for
the kinds where no corresponding real kind exists (e.g. integer(1)) .

Updated patch below. Regression test is still running, but assuming it
succeeded, is the patch ok for trunk and 4.2.1?

Tobias
-------------- next part --------------
A non-text attachment was scrubbed...
Name: convert2.diff
Type: text/x-patch
Size: 1096 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20070514/a6db96f4/attachment.bin>