This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/30887] %VAL only accepts default-kind integer/real/complex
- From: "paulthomas2 at wanadoo dot fr" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 21 Feb 2007 05:17:00 -0000
- Subject: [Bug fortran/30887] %VAL only accepts default-kind integer/real/complex
- References: <bug-30887-11040@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- 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