[Bug fortran/56305] passing array of character with len>1 to c_loc

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

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=56305

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |burnus at gcc dot gnu.org

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2013-02-13 12:19:39 UTC ---
> The following code compiles, but shouldnt it be rejected?

It seems to be invalid Fortran 2003 but valid Fortran 2008 (w/ and w/o
TS29113). The gfortran's diagnostic handling for C_LOC still needs some changes
for -std=f2003, -std=f2008, -std=f2008ts (rejecting too much, some diagnostic
missing for -std=f2003).


Fortran 2003 has ("15.1.2.5 C LOC (X)"):
"Argument. X shall either
 (1) have interoperable type and type parameters and be [...]
 (2) be a nonpolymorphic scalar, have no length type parameters, and be [...]"

A type parameter of len=2 is not valid and also "c" is not a scalar â Thus, it
seems to be invalid. 


However, it seems to be valid with Fortran 2008 ("15.2.3.6 C LOC (X)"); note
the change "type parameter" to "kind type parameter"

"Argument. X shall have either the POINTER or TARGET attribute. It shall not be
a coindexed object. It shall either be a variable with interoperable type and
kind type parameters, or be a scalar, nonpolymorphic variable with no length
type parameters. If it is allocatable, it shall be allocated. If it is a
pointer, it shall be associated. If it is an array, it shall be contiguous and
have nonzero size. It shall not be a zero-length string."



TS 29113 changes the latter as follows:

"{In 15.2.3.6 C_LOC(X), paragraph 3}
 Delete 'scalar,'."