ScrapExplorer - file.f90
Home / misc / fortran
Lines: 1 | Size: 867 bytes
[Download] [Show on GitHub] [Search similar files] [Raw] [Raw (proxy)] 
[FILE BEGIN]
1! SPDX-License-Identifier: GPL-3.0
2! fortran-filetest
3!
4! file.f90
5!
6! COPYRIGHT NOTICE
7! Copyright (C) 2024-2025 0x4248 and contributors
8! This program is free software: you can redistribute it and/or modify
9! it under the terms of the GNU General Public License as published by
10! the Free Software Foundation, either version 3 of the License, or
11! (at your option) any later version.
12!
13! Redistribution and use in source and binary forms, with or without
14! modification, are permitted provided that the license is not changed.
15
16program main
17	implicit none ! Explicitly declare all variables
18
19	! Write hello world to a file
20	print *, 'Writing file...'
21
22	! open (unit, file, status)
23    open(1, file='test.txt', status='unknown')
24
25	! write (unit, format) list
26    write(1, *) 'Hello, world!'
27
28	! close (unit)
29    close(1)
30
31	print *, 'File written!'
32
33end program main
34
[FILE END]
(C) 2025 0x4248
(C) 2025 4248 Media and 4248 Systems, All part of 0x4248
See LICENCE files for more information. Not all files are by 0x4248 always check Licencing.