ieee_9.f90: XFAIL on arm*-*-gnueabi[hf].
[official-gcc.git] / gcc / testsuite / gfortran.dg / char_pointer_assign_icb_1.f90
blob966757d21fbab013028fec94b17afec30cd62aa0
1 ! { dg-do compile }
2 ! Reduced testcase from PR 50892, regressed due to r256284 (PR 78534)
3 subroutine test
4 use, intrinsic :: ISO_C_Binding, only: c_ptr
5 type(c_ptr) :: text
6 character(len=:), pointer :: ftext
7 ftext => FortranChar(text)
8 contains
9 function FortranChar ( C )
10 type(c_ptr), intent(in), value :: C
11 character(len=10), pointer :: FortranChar
12 end function FortranChar
13 end subroutine test