gfortran scan() intrinsic yields incorrect results, see code snippet below
[EMAIL PROTECTED]:~/src/F90/bugs> cat scanbug.f90
program scanbug
character(len=10) :: numset='0123456789'
print *, scan('0123456789', '9')
print *, scan(numset, '9')
end program scanbug
[EMAIL PROTECTED]:~/src/F90/bugs> gfortran scanbug.f90 -o scanbug
[EMAIL PROTECTED]:~/src/F90/bugs> ./scanbug
10
0
[EMAIL PROTECTED]:~/src/F90/bugs> gcc --version
gcc (GCC) 4.1.0 20050930 (experimental)
Copyright (C) 2005 Free Software Foundation, Inc.
Dies ist freie Software; die Kopierbedingungen stehen in den Quellen. Es
gibt KEINE Garantie; auch nicht für VERKAUFBARKEIT oder FÜR SPEZIELLE ZWECKE.
--
Summary: scan() fails sometimesk
Product: gcc
Version: 4.1.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: libfortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: klra67 at freenet dot de
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24957
