OSDN Git Service

2007-07-21 Christopher D. Rickett <crickett@lanl.gov>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / pr32627.f03
1 ! { dg-do run }
2 ! { dg-additional-sources pr32627_driver.c }
3 ! Verify that c_f_pointer exists for string arguments.
4 program main
5   use iso_c_binding
6   implicit none
7   interface
8      function get_c_string() bind(c)
9        use, intrinsic :: iso_c_binding, only: c_ptr
10        type(c_ptr) :: get_c_string
11      end function get_c_string
12   end interface
13
14   type, bind( c ) :: A
15     integer( c_int ) :: xc, yc
16     type( c_ptr )    :: str
17   end type
18   type( c_ptr )               :: x
19   type( A ), pointer          :: fptr
20   type( A ), target           :: my_a_type
21   character( len=9 ), pointer :: strptr
22
23   fptr => my_a_type
24
25   fptr%str = get_c_string()
26
27   call c_f_pointer( fptr%str, strptr )
28
29   print *, 'strptr is: ', strptr
30 end program main
31
32