ScrapExplorer - arguments.f90
Home / misc / fortran
Lines: 1 | Size: 777 bytes
[Download] [Show on GitHub] [Search similar files] [Raw] [Raw (proxy)] 
[FILE BEGIN]
1! SPDX-License-Identifier: GPL-3.0
2! Arguments
3!
4! arguments.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 arguments
17    implicit none
18
19    integer :: i
20    character(len=100) :: arg
21
22    do i = 1, command_argument_count()
23        call get_command_argument(i, arg)
24        write(*,*) 'Argument ', i, ': ', trim(adjustl(arg))
25    end do
26end program
27
[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.