------- 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

Reply via email to