| ! { dg-do run } | |
| ! { dg-additional-sources "setpointer-c.c dump-descriptors.c" } | |
| ! | |
| ! This program tests the CFI_setpointer function. All the interesting | |
| ! things happen in the corresponding C code. | |
| program testit | |
| use iso_c_binding | |
| implicit none | |
| interface | |
| subroutine ctest () bind (c) | |
| end subroutine | |
| end interface | |
| call ctest () | |
| end program |