OSDN Git Service

2008-08-04 Steven G. Kargl <kargl@gcc.gnu.org>
authorkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 4 Aug 2007 16:48:50 +0000 (16:48 +0000)
committerkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 4 Aug 2007 16:48:50 +0000 (16:48 +0000)
commite2d2dbf98657c0b3459d5ea3965e309b13aaeb6f
tree0111d3542f00aaafab8c5cb4301633729cea4bb9
parentbfd03af53013b43663c88995c6d5943815e8d75b
2008-08-04  Steven G. Kargl  <kargl@gcc.gnu.org>

PR fortran/32968
* gfortran.dg/selected_kind_1.f90: New test.

2008-08-04  Steven G. Kargl  <kargl@gcc.gnu.org>

PR fortran/32969
* iresolve.c (gfc_resolve_rrspacing): Convert argument(s) to
expected KIND.
(gfc_resolve_scale): Ditto.
(gfc_resolve_set_exponent): Ditto.
(gfc_resolve_spacing): Ditto.

PR fortran/32968
* trans-intrinsic.c (gfc_conv_intrinsic_si_kind,
gfc_conv_intrinsic_sr_kind): Convert the argument(s) to the
expected KIND, and fold the result to the expected KIND.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127205 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/iresolve.c
gcc/fortran/trans-intrinsic.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/selected_kind_1.f90 [new file with mode: 0644]