------- Comment #2 from paulthomas2 at wanadoo dot fr 2007-02-21 05:16 -------
Subject: Re: %VAL only accepts default-kind integer/real/complex
Tobias,
> ------- 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;
>
One of the compilers, whose implementation of %VAL I checked, had this
restriction. I now cannot find which one.
There is absolutely no reason why the restriction should not be removed.
Best regards
Paul
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30887
