------- Comment #3 from fxcoudert at gcc dot gnu dot org 2005-11-27 14:01 ------- Subject: Bug 23912
Author: fxcoudert Date: Sun Nov 27 14:01:36 2005 New Revision: 107566 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=107566 Log: 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. Added: trunk/gcc/testsuite/gfortran.dg/modulo_1.f90 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/check.c trunk/gcc/fortran/iresolve.c trunk/gcc/fortran/simplify.c trunk/gcc/testsuite/ChangeLog -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23912