| ! PR 101305 |
| ! { dg-do run } |
| ! { dg-additional-sources "establish-c.c dump-descriptors.c" } |
| ! { dg-additional-options "-g" } |
| ! |
| ! This program tests the CFI_establish function. All the interesting |
| ! things happen in the corresponding C code. |
| |
| ! Eventually we might want to make the C code pass the descriptors back to |
| ! C-callable Fortran functions, but for now it just checks them internally. |
| |
| module mm |
| use iso_c_binding |
| |
| type, bind (c) :: s |
| integer(C_INT) :: i, j |
| end type |
| end module |
| |
| |
| program testit |
| use iso_c_binding |
| use mm |
| implicit none |
| |
| interface |
| |
| subroutine ctest_establish () bind (c) |
| end subroutine |
| |
| end interface |
| |
| call ctest_establish () |
| |
| end program |
