re PR fortran/23912 (MOD function requires same kind arguments)
authorFrancois-Xavier Coudert <coudert@clipper.ens.fr>
Sun, 27 Nov 2005 14:01:36 +0000 (15:01 +0100)
committerFrançois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Sun, 27 Nov 2005 14:01:36 +0000 (14:01 +0000)
commit991bb832494d3e422ef703e317cd0dc21ab74ac3
treec6f3cbda99666c39f12216bd3f642f6df5fcb01c
parentb604fe9b84e41f387222758a300dce02a39a6b1b
re PR fortran/23912 (MOD function requires same kind arguments)

PR fortran/23912

* iresolve.c (gfc_resolve_dim, gfc_resolve_mod,
gfc_resolve_modulo): When arguments have different kinds, fold
the lower one to the largest kind.
* check.c (gfc_check_a_p): Arguments of different kinds is not
a hard error, but an extension.
* simplify.c (gfc_simplify_dim, gfc_simplify_mod,
gfc_simplify_modulo): When arguments have different kinds, fold
        the lower one to the largest kind.

* gfortran.dg/modulo_1.f90: New test.

From-SVN: r107566
gcc/fortran/ChangeLog
gcc/fortran/check.c
gcc/fortran/iresolve.c
gcc/fortran/simplify.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/modulo_1.f90 [new file with mode: 0644]