[Bug fortran/36462] New: KIND argument in INDEX results in wrong code

[Bug fortran/36462] New: KIND argument in INDEX results in wrong code

[fxcoudert at gcc dot gnu dot org]

$ cat a.f90 
  character(10) string
  string = 'ABCDEEDCBA'
  write(*,*) index(string,'A',kind=1)
  end
$ gfortran a.f90 && ./a.out
   10

I suspect we're passing 1 as a logical BACK argument to the library function.
Well, I do more than suspect, I checked and that's indeed what we do :)

Work needed in trans-intrinsic.c, probably an easy one. Will need auditing
other intrinsics that were added a KIND argument in F2003.


-- 
           Summary: KIND argument in INDEX results in wrong code
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: fxcoudert at gcc dot gnu dot org


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

[Bug fortran/36462] KIND argument in INDEX results in wrong code

[fxcoudert at gcc dot gnu dot org]

-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2008-06-08 01:22:20
               date|                            |


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

[Bug fortran/36462] KIND argument in INDEX results in wrong code

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2008-06-08 11:20 -------
Note: Initially found by James Van Buskirk:
http://groups.google.com/group/comp.lang.fortran/msg/e90575a5a6a50e35


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Last reconfirmed|2008-06-08 01:22:20         |2008-06-08 11:20:55
               date|                            |


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

[Bug fortran/36462] KIND argument in INDEX results in wrong code

[burnus at gcc dot gnu dot org]

------- Comment #2 from burnus at gcc dot gnu dot org  2008-06-12 16:16 -------
Fixed for INDEX and SCAN, but leaving open as reminder for the following:

> Will need auditing other intrinsics that were added a KIND argument in F2003.


-- 


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

[Bug fortran/36462] KIND argument in INDEX results in wrong code

[burnus at gcc dot gnu dot org]

------- Comment #3 from burnus at gcc dot gnu dot org  2008-06-12 16:17 -------
Subject: Bug 36462

Author: burnus
Date: Thu Jun 12 16:16:39 2008
New Revision: 136712

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=136712
Log:
2008-06-12  Tobias Burnus  <burnus@net-b.de>

        PR fortran/36462
        * trans-intrinsic.c (gfc_conv_intrinsic_index_scan_verify):
        Fix passing of the BACK= argument.

2008-06-12  Tobias Burnus  <burnus@net-b.de>

        PR fortran/36462
        * gfortran.dg/index_2.f90: New.


Added:
    trunk/gcc/testsuite/gfortran.dg/index_2.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-intrinsic.c
    trunk/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/36462] KIND argument in INDEX results in wrong code

[dfranke at gcc dot gnu dot org]

------- Comment #4 from dfranke at gcc dot gnu dot org  2009-01-04 00:10 -------
See also: PR29600.


-- 

dfranke at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
OtherBugsDependingO|                            |20585
              nThis|                            |


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