| commit | 201e10b402dcaee58fc2dfd3bba7fcf580be5d97 | |
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Sat, 11 Dec 2004 11:06:31 +0000 (11 11:06 +0000) | ||
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Sat, 11 Dec 2004 11:06:31 +0000 (11 11:06 +0000) | ||
| tree | 06e507cae1c1f5c6549e5c76d66fd6602bf4dc1e | treesnapshot (tar.gz zip) |
| parent | fe481547e2307fb7b60e0110177c2c73746ec590 | commitdiff |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92029 138bc75d-0d04-0410-961f-82ee72b054a4
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92029 138bc75d-0d04-0410-961f-82ee72b054a4