]> git.ipfire.org Git - thirdparty/gcc.git/commit
re PR fortran/17175 (set_exponent breaks with integer*8 exponent)
authorTobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Sat, 11 Dec 2004 11:06:31 +0000 (12:06 +0100)
committerTobias Schlüter <tobi@gcc.gnu.org>
Sat, 11 Dec 2004 11:06:31 +0000 (12:06 +0100)
commit49e4d5803eefeeb9d791af1900877831ce94481a
tree06e507cae1c1f5c6549e5c76d66fd6602bf4dc1e
parentb990f4bcb845926f6723af08e660170906b443f3
re PR fortran/17175 (set_exponent breaks with integer*8 exponent)

fortran/
PR fortran/17175
* iresolve.c (gfc_resolve_scale): Convert 'I' argument if not of
same kind as C's 'int'.
(gfc_resolve_set_eponent): Convert 'I' argument if not of kind 4.

testsuite/
PR fortran/17175
* gfortran.dg/scale_1.f90: New test.

From-SVN: r92029
gcc/fortran/ChangeLog
gcc/fortran/iresolve.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/scale_1.f90 [new file with mode: 0644]