! { dg-do run } | |
! { dg-options "-std=gnu" } | |
! This test case exists because gfortran had an error in converting the | |
! expressions for the derived types from iso_c_binding in some cases. | |
module c_ptr_tests_10 | |
use, intrinsic :: iso_c_binding, only: c_ptr, c_null_ptr | |
contains | |
subroutine sub0() bind(c) | |
print *, 'c_null_ptr is: ', c_null_ptr | |
end subroutine sub0 | |
end module c_ptr_tests_10 | |
program main | |
use c_ptr_tests_10 | |
call sub0() | |
end program main | |
! { dg-final { cleanup-modules "c_ptr_tests_10" } } |