RosettaCodeData/Task/Hello-world-Graphical/Fortran/hello-world-graphical-1.f

program hello
    use windows
    integer :: res
    res = MessageBoxA(0, LOC("Hello, World"), LOC("Window Title"), MB_OK)
end program
2016 Update 2016-12-05 22:15:40 +01:00			`program hello`
			`use windows`
			`integer :: res`
YAPC::EU 2018 Glasgow Update! 2018-08-17 15:15:24 +01:00			`res = MessageBoxA(0, LOC("Hello, World"), LOC("Window Title"), MB_OK)`
2016 Update 2016-12-05 22:15:40 +01:00			`end program`