diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/iso_c_binding_only.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/iso_c_binding_only.f03 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/iso_c_binding_only.f03 b/gcc/testsuite/gfortran.dg/iso_c_binding_only.f03 new file mode 100644 index 000000000..dff4318e8 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/iso_c_binding_only.f03 @@ -0,0 +1,11 @@ +! { dg-do compile } +module iso_c_binding_only + ! c_f_procpointer verifies that the c_funptr derived type for the cptr param + ! is auto-generated, and c_f_pointer tests c_ptr. + use, intrinsic :: iso_c_binding, only: c_null_ptr, c_f_procpointer + ! This should be allowed since the C_PTR that the C_NULL_PTR needs will use + ! a mangled name to prevent collisions. + integer :: c_ptr +end module iso_c_binding_only +! { dg-final { cleanup-modules "iso_c_binding_only" } } + |