PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / iso_c_binding_rename_2.f03
blobc7f153f785d94f7385a1d1a4b452a244a2e05c02
1 ! { dg-do run }
2 ! { dg-additional-sources iso_c_binding_rename_2_driver.c }
3 module mod0
4   use, intrinsic :: iso_c_binding, only: c_ptr, c_associated
5 end module mod0
7 module mod1
8   use mod0, my_c_ptr => c_ptr, my_c_associated => c_associated
9 end module mod1
11 module mod2
12 contains
13   subroutine sub2(my_ptr1) bind(c)
14     use mod1, my_c_ptr_2 => my_c_ptr, my_c_associated_2 => my_c_associated
15     implicit none
16     type(my_c_ptr_2) :: my_ptr1
17     if( .not. my_c_associated_2(my_ptr1)) then
18        STOP 1
19     end if
20   end subroutine sub2
22   subroutine sub3(my_ptr1) bind(c)
23     use mod1, my_c_ptr_2 => my_c_ptr
24     implicit none
25     type(my_c_ptr_2) :: my_ptr1
26     if( .not. my_c_associated(my_ptr1)) then
27        STOP 2
28     end if
29   end subroutine sub3
31   subroutine sub4(my_ptr1) bind(c)
32     use mod1, my_c_associated_3 => my_c_associated
33     implicit none
34     type(my_c_ptr) :: my_ptr1
35     if( .not. my_c_associated_3(my_ptr1)) then
36        STOP 3
37     end if
38   end subroutine sub4
40 end module mod2