------- Comment #7 from brtnfld at hdfgroup dot org 2008-12-31 15:36 -------
Additional failure:
SUBROUTINE test(buf, buf2)
USE, INTRINSIC :: ISO_C_BINDING
IMPLICIT NONE
CHARACTER(LEN=*), INTENT(INOUT), TARGET :: buf
CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(1:2), TARGET :: buf2
TYPE(C_PTR) :: f_ptr
f_ptr = C_LOC(buf(1:1)) ! FAILS:
! Error: CHARACTER argument 'buf' to 'c_loc'
! at (1) must have a length of 1
f_ptr = C_LOC(buf2(1)(1:1)) ! PASSES
END SUBROUTINE test
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38536
