Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/c_funptr_1_mod.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do run } ! { dg-additional-sources c_funptr_1.f90 } ! Additional module to go with c_funptr_1.f90 module win32_types use, intrinsic :: iso_c_binding, only: C_INT,C_FUNPTR implicit none private public WNDCLASSEX_T type, bind(C) :: WNDCLASSEX_T integer(C_INT) :: cbSize type(C_FUNPTR) :: lpfnWndProc end type WNDCLASSEX_T end module win32_types