[Bug fortran/33529] New: problem with intrinsic function KIND

[Bug fortran/33529] New: problem with intrinsic function KIND

[clerman at fuse dot net]

Ladies and Gentlemen:

In a module, before the CONTAINS statement, I have the following declaration:

  CHARACTER (OpconNameLength, ASCIICharacterKind), SAVE :: &
    CH_IMAG(UDDEFT) = "    "

where OpconNameLength, UDDEFT, are integer parameters. 

The parameter ASCIICharacterKind is defined as follows:

  integer(DefaultInteger), parameter :: ASCIICharacterKind = kind ("A")

and 

  integer, parameter :: DefaultInteger = kind (1)

  Here is a module procedure in the same module:

  pure function getNickname_imer (TypeName) result (NickName)

    character (*, ASCIICharacterKind), intent(IN) :: TypeName
    character (IdLength, ASCIICharacterKind) :: NickName

    integer (DefaultInteger) :: K
    character (len(CH_IMAG), kind(CH_IMAG)) :: LName

    LName = adjustl (TypeName)
    K = UDType(LName)
    if (K /= 0) then
      NickName = UDNicknames(K)
    else
      NickName = " "
    endif

  end function getNickname_imer

  Version 4.3.0 of the gfortran compiler is issuing the following error:

/home/norm/design/source/chrimerM.f90:912.42:

    character (len(CH_IMAG), kind(CH_IMAG)) :: LName
                                         1
Error: Kind 0 is not a CHARACTER kind at (1)

  I do not believe this is an error. The following compilers compile this code:
Intel (Windows), Lahey (Linux, Windows), g95 (Linux) and NAG (Linux).

  Thank you for your attention.

Norm Clerman


-- 
           Summary: problem with intrinsic function KIND
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: clerman at fuse dot net


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

[Bug fortran/33529] Non-litteral CHARACTER kind values matching is wrong

[fxcoudert at gcc dot gnu dot org]

------- Comment #1 from fxcoudert at gcc dot gnu dot org  2007-09-23 09:08 -------
$ cat u.f90 
  character (kind=kind("a")) :: u
  end
$ gfortran u.f90 
u.f90:1.27:

  character (kind=kind("a")) :: u
                          1
Error: Kind 0 is not a CHARACTER kind at (1)


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |fxcoudert at gcc dot gnu dot
                   |dot org                     |org
             Status|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|0                           |1
           Keywords|                            |rejects-valid
      Known to fail|                            |4.3.0
   Last reconfirmed|0000-00-00 00:00:00         |2007-09-23 09:08:14
               date|                            |
            Summary|problem with intrinsic      |Non-litteral CHARACTER kind
                   |function KIND               |values matching is wrong
   Target Milestone|---                         |4.3.0


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

[Bug fortran/33529] Non-litteral CHARACTER kind values matching is wrong

[fxcoudert at gcc dot gnu dot org]

------- Comment #2 from fxcoudert at gcc dot gnu dot org  2007-10-04 15:08 -------
Subject: Bug 33529

Author: fxcoudert
Date: Thu Oct  4 15:08:14 2007
New Revision: 129012

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=129012
Log:
        PR fortran/33529

        * decl.c (match_char_kind): New function.
        (match_char_spec): Use match_char_kind.

        * gfortran.dg/char_type_len_2.f90: Adjust error message.
        * gfortran.dg/char_decl_2.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/char_decl_2.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/decl.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/char_type_len_2.f90


-- 


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

[Bug fortran/33529] Non-litteral CHARACTER kind values matching is wrong

[fxcoudert at gcc dot gnu dot org]

------- Comment #3 from fxcoudert at gcc dot gnu dot org  2007-10-04 15:09 -------
Fixed on mainline. Thanks for the bug report, and please reopen this one or
open a new one if you still experience problems.


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |fxcoudert at gcc dot gnu dot
                   |                            |org
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED


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