| Issue |
98218
|
| Summary |
Fortran c_f_pointer with deferred attributes
|
| Labels |
new issue
|
| Assignees |
|
| Reporter |
mfvalin
|
> cat dynamic.F90
subroutine c_f_strpointer1(cstrarray, fstrptr, nchars)
use ISO_C_BINDING
implicit none
character(C_CHAR), dimension(*), intent(IN), target :: cstrarray
character(len=:), pointer, intent(OUT) :: fstrptr
integer, intent(IN) :: nchars
type(C_PTR) :: cstrptr
character(len=:), pointer :: fptr
cstrptr = C_LOC(cstrarray(1))
call c_f_pointer(cstrptr, fptr)
fstrptr => fptr(1:nchars)
end subroutine c_f_strpointer1
[software@nemesis ~/GITHUB-ECCC/librmn/build : (dev_alpha *%|u=)]
> flang-new -c dynamic.F90
error: Semantic errors in dynamic.F90
./dynamic.F90:11:29: error: FPTR= argument to C_F_POINTER() may not have a deferred type parameter
call c_f_pointer(cstrptr, fptr)
^^^^
========================================
this compiles with gnu C/intel C/AMD aoccc C/nvidia C
![]()
_______________________________________________
llvm-bugs mailing list
llvm-bugs@lists.llvm.org
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-bugs
