------- Comment #1 from tkoenig at gcc dot gnu dot org 2008-08-23 13:07 -------
Confirmed.
Reduced test case:
program test
INTERFACE
FUNCTION cdir() BIND(C,name="cdir") RESULT(r)
CHARACTER(kind=1) :: r
END FUNCTION
END INTERFACE
WRITE(*,*) ICHAR(cdir())
END PROGRAM
--
tkoenig at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
OtherBugsDependingO| |32630
nThis| |
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
GCC host triplet|i686 GNU/Linux, kernel |
|2.6.22.1 |
Last reconfirmed|0000-00-00 00:00:00 |2008-08-23 13:07:50
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37201