| ! PR 101305 | |
| ! { dg-do run } | |
| ! { dg-additional-sources "typecodes-sanity-c.c" } | |
| ! { dg-additional-options "-g" } | |
| ! | |
| ! This program does sanity checking on the CFI_type_* macros. All | |
| ! of the interesting things happen on the C side. | |
| program testit | |
| use iso_c_binding | |
| implicit none | |
| integer, parameter :: ucs4 = selected_char_kind ('ISO_10646') | |
| interface | |
| subroutine ctest_typecodes () bind (c) | |
| end subroutine | |
| end interface | |
| call ctest_typecodes () | |
| end program |