blob: 541f07659604f9aac7f6ef9574cb5c00385b65fd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
! { dg-do preprocess }
! { dg-additional-options "-cpp" }
! PR 57048 - this used not to compile. Original test case by Angelo
! Graziosi. Only works if compiled c_funptr_1_mod.f90, hence the
! do-nothing directive above.
module procs
implicit none
private
public WndProc
contains
function WndProc()
integer :: WndProc
WndProc = 0
end function WndProc
end module procs
function WinMain()
use, intrinsic :: iso_c_binding, only: C_INT,c_sizeof,c_funloc
use win32_types
use procs
implicit none
integer :: WinMain
type(WNDCLASSEX_T) :: WndClass
WndClass%cbSize = int(c_sizeof(Wndclass),C_INT)
WndClass%lpfnWndProc = c_funloc(WndProc)
WinMain = 0
end function WinMain
program main
end
|