[Bug fortran/30887] %VAL only accepts default-kind integer/real/complex

["burnus at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>]

------- 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