| ! { dg-do run } | |
| ! { dg-additional-sources "allocate-c.c dump-descriptors.c" } | |
| ! { dg-additional-options "-g" } | |
| ! | |
| ! This program tests the CFI_allocate and CFI_deallocate functions. | |
| ! 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 |