------- Comment #1 from burnus at gcc dot gnu dot org 2007-02-20 17:32 -------
Paul, do you remember why you have added the following restriction?
(The example is accepted by ifort, nagf95 and g95.)
resolve.c:
if (((e->ts.type == BT_REAL || e->ts.type == BT_COMPLEX)
&& e->ts.kind > gfc_default_real_kind)
|| (e->ts.kind > gfc_default_integer_kind))
{
gfc_error ("Kind of by-value argument at %L is larger "
"than default kind", &e->where);
return FAILURE;
--
burnus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |pault at gcc dot gnu dot
| |org, burnus at gcc dot gnu
| |dot org
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
GCC host triplet|x86_64-unknown-linux-gnu |
Keywords| |rejects-valid
Last reconfirmed|0000-00-00 00:00:00 |2007-02-20 17:32:54
date| |
Summary|%VAL construct fails on 64 |%VAL only accepts default-
|bit |kind integer/real/complex
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30887
