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

6 lines
123 B
Fortran

program hello
use user32
integer :: res
res = MessageBox(0, "Hello, World", "Window Title", MB_OK)
end program